
<<PARCPhoneNumberMappings.mesa>>
<<Rules for converting telephone numbers to valid "back door" sequences from the PARC Centrex>>
<<Last modified by Swinehart, October 4, 1986 2:22:16 pm PDT>>

DIRECTORY
Atom,
Rope,
PhoneMappings
;

PARCPhoneNumberMappingsImpl: CEDAR PROGRAM
IMPORTS Atom = {

parcMap: PhoneMappings.PhoneMap _ LIST[
["x0xyyynnnn", "8x0xyyynnnn"], -- DDD numbers that don't have "level" code
["x1xyyynnnn", "8x1xyyynnnn"], -- DDD numbers that don't have "level" code
["yyynnnn", "9yyynnnn"],-- local numbers that don't have "level" code
["9415yyynnnn", "9yyynnnn"], -- DDD numbers in local exchange.
["94944nnn", "4nnn"], -- Centrex numbers
["949457nn", "57nn"], -- Centrex numbers
["949458nn", "58nn"], -- Centrex numbers
["949459nn", "59nn"], -- Centrex numbers
["7nnnn", "9408737nnnn"], -- Shorthand for Sunnyvale numbers.
["8415yyynnnn", "9yyynnnn"], -- Proposed Intelnet calls to own area code.
["8408yyynnnn", "9408yyynnnn"], -- DDD numbers blocked from Intelnet
["8916yyynnnn", "9916yyynnnn"],
["8707yyynnnn", "9707yyynnnn"],
["8800yyynnnn", "9800yyynnnn"], -- 800 and 900 INWats calls not handled by Intelnet
["8900yyynnnn", "9900yyynnnn"],
["8923nnnn", "nnnn"], -- Local Intelnet numbers
["8943nnnn", "9408737nnnn"], -- ISD Sunnyvale
["8928nnnn", "9408982nnnn"], -- Versatec numbers
["8929nnnn", "9408982nnnn"], -- Other Versatec numbers; not sure this will work!
["8924nnnn", "96352020"], -- Oakland; no direct dial except via Intelnet, which is blocked!
["8925nnnn", "4473"], -- Walnut Creek. Maybe I can help.
["8926nnnn", "93931700"], -- San Francisco; no direct dial except via Intelnet!
["8927nnnn", "98732800"], -- South SFO; no direct dial except via Intelnet!
["8935nnnn", "94089882800"], -- More Versatec; no direct dial?
["8936nnnn", "94987000"], -- Diablo; no direct dial except via Intelnet!
["8937nnnn", "94089888800"], -- Santa Clara; no direct dial except via Intelnet!
["8938nnnn", "93498313"], -- San Mateo; no direct dial except via Intelnet!
["8962nnnn", "4473"], -- Sacramento. Maybe I can help.
["8yyynnnn", "8AyyynnnnAB"], -- Intelnet numbers require
["8x0xyyynnnn", "8Ax0xyyynnnnAB"], -- Charge code, supplied as param. 1 to MapNumber
["8x1xyyynnnn", "8Ax1xyyynnnnAB"],
["8xxx", "8Axxx"], -- No charge required, Intelnet information or trouble reporting number.
["zzzzzzzzzzzzzzzzzzz", "z"]    -- Remove punctuation from otherwise unchanged number 
];

Atom.PutProp[$PhoneMap, $map, parcMap];

}.