- SR202UTL ;HPS/JSG - SR*3*202 UTILITY ROUTINE ;Mar 31, 2021@09:52
- ;;3.0;Surgery;**202**;24 Jun 93;Build 2
- ;
- PRE ; -- pre-install process for SR*3*202
- I '$D(^XTMP("PRE 2021-UPDATE BACKUP OF 137")) D
- . N X1,X2,X
- . S X1=DT,X2=120 D C^%DTC
- . S ^XTMP("PRE 2021-UPDATE BACKUP OF 137",0)=$G(X)_"^"_$G(DT)_"^"_"Backup of file 137 before 2021 update is performed by Patch SR*3*202"
- . D EN^DDIOL("Backing up the CPT EXCLUSIONS file (#137) to ^XTMP.","","!!?1")
- . M ^XTMP("PRE 2021-UPDATE BACKUP OF 137",137)=^SRO(137)
- . D EN^DDIOL("Backup complete","","!!?1")
- ;
- D DATDEL ; delete data from file #137 prior to updating
- Q
- ;
- POST ; -- post-install process for SR*3*202
- ; -- populate the CPT EXCLUSIONS file (#137)
- N SRI,SRJ,SRL,SRLIST,SRX,SRY,X
- D MES^XPDUTL(" Populating CPT EXCLUSIONS file (#137)...")
- F SRJ=1:1 S SRLIST=$P($T(LIST+SRJ)," ;;",2) Q:SRLIST="" F SRI=1:1 S SRX=$P(SRLIST,",",SRI) Q:SRX="" I $D(^ICPT("B",SRX)) D INT
- D EX^SR202UT0,EX^SR202UT1,EX^SR202UT2,EX^SR202UT3
- ;
- ; -- The following CPT Code ranges are excluded: "00001-0051S", "0051U-0052S", "0052U-0053S", "0053U-0075S",
- ; "0075U-0076S", "0076U-0078S", "0078U-0095S", "0095U-0098S", "0098U-0171S", "0171U-0172S", "0172U-0184S"
- ; "0184U-01999", "70000-79999", "80000-89999", "90000-93589", "93593-99999"
- S SRX="00001" F S SRX=$O(^ICPT("B",SRX)) Q:SRX=$O(^ICPT("B","0051S")) D INT
- S SRX="0051U" F S SRX=$O(^ICPT("B",SRX)) Q:SRX=$O(^ICPT("B","0052S")) D INT
- S SRX="0052U" F S SRX=$O(^ICPT("B",SRX)) Q:SRX=$O(^ICPT("B","0053S")) D INT
- S SRX="0053U" F S SRX=$O(^ICPT("B",SRX)) Q:SRX=$O(^ICPT("B","0075S")) D INT
- S SRX="0075U" F S SRX=$O(^ICPT("B",SRX)) Q:SRX=$O(^ICPT("B","0076S")) D INT
- S SRX="0076U" F S SRX=$O(^ICPT("B",SRX)) Q:SRX=$O(^ICPT("B","0078S")) D INT
- S SRX="0078U" F S SRX=$O(^ICPT("B",SRX)) Q:SRX=$O(^ICPT("B","0095S")) D INT
- S SRX="0095U" F S SRX=$O(^ICPT("B",SRX)) Q:SRX=$O(^ICPT("B","0098S")) D INT
- S SRX="0098U" F S SRX=$O(^ICPT("B",SRX)) Q:SRX=$O(^ICPT("B","0171S")) D INT
- S SRX="0171U" F S SRX=$O(^ICPT("B",SRX)) Q:SRX=$O(^ICPT("B","0172S")) D INT
- S SRX="0172U" F S SRX=$O(^ICPT("B",SRX)) Q:SRX=$O(^ICPT("B","0184S")) D INT
- S SRX="0184U" F S SRX=$O(^ICPT("B",SRX)) Q:SRX=$O(^ICPT("B","01999")) D INT
- S SRX="70000" F S SRX=$O(^ICPT("B",SRX)) Q:SRX=$O(^ICPT("B","79999")) D INT
- S SRX="80000" F S SRX=$O(^ICPT("B",SRX)) Q:SRX=$O(^ICPT("B","89999")) D INT
- S SRX="90000" F S SRX=$O(^ICPT("B",SRX)) Q:SRX=$O(^ICPT("B","93589")) D INT
- S SRX="93593" F S SRX=$O(^ICPT("B",SRX)) Q:SRX=$O(^ICPT("B","99999")) D INT
- ;
- ; -- Exclude all CPT CODES that start with alphabets
- S SRX="A" F S SRX=$O(^ICPT("B",SRX)) Q:SRX="" D INT
- ;
- ; -- Honor KIDS "No Delete" setting if called from a KIDS install.
- ; -- Delete routines SR202UT0, SR202UT1,& SR202UT2
- I '$$GET^XUPARAM("XPD NO_EPP_DELETE") D
- . F X="SR202UT0","SR202UT1","SR202UT2","SR202UT3" X ^%ZOSF("TEST") I $T D
- . .D MES^XPDUTL(" Deleting routine "_X_"...") X ^%ZOSF("DEL")
- K DA,DIC,DD,DO,DINUM,X
- Q
- ;
- INT S SRY=0,SRY=$O(^ICPT("B",SRX,SRY)) Q:SRY=""
- K DA,DIC,DD,DO,DINUM S (DINUM,X)=SRY,DIC="^SRO(137,",DIC(0)="L" D FILE^DICN
- Q
- ;
- DATDEL ; Delete all data from file #137
- N SRTXT
- S SRTXT="File #137 hasn't been set up yet, so no data to delete."
- I '$D(^SRO(137,0))#2 D DISP Q
- S SRTXT="File #137 doesn't have any data, so nothing to delete."
- I '$O(^SRO(137,0)) D DISP Q
- S SRTXT="Deleting data from file #137..."
- D DISP
- K ^SRO(137)
- S ^SRO(137,0)="CPT EXCLUSIONS^137P^^0"
- Q
- ;
- DISP ;display one-line text either interactively or within KIDS installation
- I '$D(XPDNM)#2 U 0 W !!?5,SRTXT
- E D BMES^XPDUTL(SRTXT)
- Q
- ;
- LIST ;
- ;;0001F,0001U,0002U,0003U,0005F,0005U,0006U,0007U,0008U,0009U,00100,00102,00103
- ;;00104,0010U,0011U,00120,00124,00126,0012F,0012U,0013U,00140,00142,00144,00145
- ;;00147,00148,0014F,0014M,0014U,0015F,0015M,00160,00162,00164,0016M,0016U,00170
- ;;00172,00174,00176,0017U,0018U,00190,00192,0019U,00210,00211,00212,00214,00215
- ;;00216,00218,0021U,00220,00222,0022U,0023U,0024U,0025U,0026U,0027U,0029U,00300
- ;;0030U,0031U,00320,00322,00326,0032U,0033U,0034U,00350,00352,0035U,0036U,0037U
- ;;0038U,0039U,00400,00402,00404,00406,0040U,00410,0041U,0042T,0042U,0043U,0044U
- ;;00450,00454,0045U,0046U,00470,00472,00474,0047U,0048U,0049U,00500,0050U,0051U
- ;;00520,00522,00524,00528,00529,0052U,00530,00532,00534,00537,00539,0053U,00540
- ;;00541,00542,00546,00548,0054T,0054U,00550,0055T,0055U,00560,00561,00562,00563
- ;;00566,00567,0056U,00580,0058T,0058U,0059U,00600,00604,0060U,0061U,00620,00625
- ;;00626,0062U,00630,00632,00635,0063U,00640,0064U,0065U,0066U,00670,0067U,0068U
- ;;0069U,00700,00702,0070U,0071T,0071U,0072T,0072U,00730,00731,00732,0073U,0074U
- ;;00750,00752,00754,00756,0075U,0076U,00770,0077U,0078U,00790,00792,00794,00796
- ;;00797,0079U,00800,00802,0080U,00811,00812,00813,00820,0082U,00830,00832,00834
- ;;00836,0083U,00840,00842,00844,00846,00848,0084U,00851,0085T,0085U,00860,00862
- ;;00864,00865,00866,00868,0086U,00870,00872,00873,0087U,00880,00882,0088U,0089U
- ;;00902,00904,00906,00908,0090U,00910,00912,00914,00916,00918,0091U,00920,00921
- ;;00922,00924,00926,00928,0092U,00930,00932,00934,00936,00938,0093U,00940,00942
- ;;00944,00948,0094U,00950,00952,0095U,0096U,0097U,0098U,0099U,0100T,0100U,0101T
- ;;0101U,0102T,0102U,0103U,0105U,0106T,0106U,0107T,0107U,0108T,0108U,0109T,0109U
- ;;0110T,0110U,01112,0111T,0111U,01120,0112U,01130,0113U,01140,0114U,01150,0115U
- ;;01160,0116U,01170,01173,0117U,0118U,0119U,01200,01202,0120U,01210,01212,01214
- ;;01215,0121U,01220,0122U,01230,01232,01234,0123U,0124U,01250,0125U,01260,0126T
- ;;0126U,01270,01272,01274,0127U,0128U,0129U,0130U,0131U,01320,0132U,0133U,01340
- ;;0134U,0135U,01360,0136U,0137U,01380,01382,0138U,01390,01392,0139U,01400,01402
- ;;01404,0140U,0141U,01420,0142U,01430,01432,0143U,01440,01442,01444,0144U,0145U
- ;;01462,01464,0146U,01470,01472,01474,0147U,01480,01482,01484,01486,0148U,01490
- ;;0149U,01500,01502,0150U,0151U,01520,01522,01532,0153U,0154U,0155U,0156U,0157U
- ;;0158U,0159U,0160U,01610,0161U,01620,01622,0162U,01630,01634,01636,01638,0163T
- ;;0163U,0164T,0164U,01650,01652,01654,01656,0165T,0165U,0166U,01670,0167U,01680
- ;;0168U,0169U,0170U,01710,01712,01714,01716,0171U,0172U,01730,01732,0173U,01740
- ;;01742,01744,0174T,0174U,01756,01758,0175T,0175U,01760,0176U,01770,01772,0177U
- ;;01780,01782,0178U,0179U,0180U,01810,0181U,01820,01829,0182U,01830,01832,0183U
- ;;01840,01842,01844,0184U,01850,01852,0185U,01860,0186U,0187U,0188U,0189U,0190U
- ;;01916,0191T,0191U,01920,01922,01924,01925,01926,0192U,01930,01931,01932,01933
- ;;01935,01936,0193U,0194U,01951,01952,01953,01958,0195U,01960,01961,01962,01963
- ;;01965,01966,01967,01968,01969,0196U,0197U,0198T,0198U,01990,01991,01992,01996
- ;;01999,0199U,0200T,0200U,0201T,0201U,0202U,0203U,02045,0204U,0206U,0207T,0207U
- ;;0208T,0208U,0209T,0209U,0210T,0210U,0211T,0211U,0212T,0212U,0213T,0213U,0214T
- ;;0214U,0215T,0215U,0216T,0216U,0217T,0217U,0218T,0218U,0219U,0220U,0221U,0222U
- ;;0228T,0229T,0230T,0231T,0232T,0253T,0263T,0264T,0265T,0266T,0267T,0268T,0269T
- ;;0270T,0271T,0272T,0273T,0275T,0278T,0290T,0295T,0296T,0297T,0298T,0308T,0312T
- ;;0313T,0314T,0315T,0316T,0317T,0329T,0330T,0331T,0332T,0333T,0335T,0338T,0339T
- ;;0342T,0345T,0347T,0348T,0349T,0350T,0351T,0352T,0353T,0354T,0355T,0356T,0358T
- ;;0362T,0373T,0376T,0378T,0379T,0381T,0382T,0383T,0384T,0385T,0386T,0394T,0395T
- ;;0396T,0397T,0398T,0400T,0401T,0402T,0403T,0404T,0405T,0408T,0409T,0410T,0411T
- ;;0412T,0413T,0414T,0415T,0416T,0417T,0418T,0419T,0420T,0422T,0423T,0424T,0425T
- ;;0426T,0427T,0428T,0429T,0430T,0431T,0432T,0433T,0434T,0435T,0436T,0437T,0439T
- ;;0440T,0441T,0442T,0443T,0444T,0445T,0446T,0447T,0448T,0449T,0450T,0462T,0463T
- ;;0464T,0465T,0466T,0467T,0468T,0469T,0470T,0471T,0472T,0473T,0474T,0475T,0476T
- ;;0477T,0478T,0479T,0480T,0481T,0485T,0486T,0487T,0488T,0489T,0490T,0491T,0492T
- ;;0493T,0494T,0495T,0496T,0497T,0498T,0499T,0500F,0500T,0501F,0501T,0502F,0502T
- ;;0503F,0503T,0504T,0505F,0505T,0506T,0507F,0507T,0508T,0509F,0509T,0510T,0511T
- ;;0512T,0513F,0513T,0514F,0514T,0515T,0516F,0516T,0517F,0517T,0518F,0518T,0519F
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR202UTL 8214 printed Feb 19, 2025@00:04:54 Page 2
- SR202UTL ;HPS/JSG - SR*3*202 UTILITY ROUTINE ;Mar 31, 2021@09:52
- +1 ;;3.0;Surgery;**202**;24 Jun 93;Build 2
- +2 ;
- PRE ; -- pre-install process for SR*3*202
- +1 IF '$DATA(^XTMP("PRE 2021-UPDATE BACKUP OF 137"))
- Begin DoDot:1
- +2 NEW X1,X2,X
- +3 SET X1=DT
- SET X2=120
- DO C^%DTC
- +4 SET ^XTMP("PRE 2021-UPDATE BACKUP OF 137",0)=$GET(X)_"^"_$GET(DT)_"^"_"Backup of file 137 before 2021 update is performed by Patch SR*3*202"
- +5 DO EN^DDIOL("Backing up the CPT EXCLUSIONS file (#137) to ^XTMP.","","!!?1")
- +6 MERGE ^XTMP("PRE 2021-UPDATE BACKUP OF 137",137)=^SRO(137)
- +7 DO EN^DDIOL("Backup complete","","!!?1")
- End DoDot:1
- +8 ;
- +9 ; delete data from file #137 prior to updating
- DO DATDEL
- +10 QUIT
- +11 ;
- POST ; -- post-install process for SR*3*202
- +1 ; -- populate the CPT EXCLUSIONS file (#137)
- +2 NEW SRI,SRJ,SRL,SRLIST,SRX,SRY,X
- +3 DO MES^XPDUTL(" Populating CPT EXCLUSIONS file (#137)...")
- +4 FOR SRJ=1:1
- SET SRLIST=$PIECE($TEXT(LIST+SRJ)," ;;",2)
- if SRLIST=""
- QUIT
- FOR SRI=1:1
- SET SRX=$PIECE(SRLIST,",",SRI)
- if SRX=""
- QUIT
- IF $DATA(^ICPT("B",SRX))
- DO INT
- +5 DO EX^SR202UT0
- DO EX^SR202UT1
- DO EX^SR202UT2
- DO EX^SR202UT3
- +6 ;
- +7 ; -- The following CPT Code ranges are excluded: "00001-0051S", "0051U-0052S", "0052U-0053S", "0053U-0075S",
- +8 ; "0075U-0076S", "0076U-0078S", "0078U-0095S", "0095U-0098S", "0098U-0171S", "0171U-0172S", "0172U-0184S"
- +9 ; "0184U-01999", "70000-79999", "80000-89999", "90000-93589", "93593-99999"
- +10 SET SRX="00001"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=$ORDER(^ICPT("B","0051S"))
- QUIT
- DO INT
- +11 SET SRX="0051U"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=$ORDER(^ICPT("B","0052S"))
- QUIT
- DO INT
- +12 SET SRX="0052U"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=$ORDER(^ICPT("B","0053S"))
- QUIT
- DO INT
- +13 SET SRX="0053U"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=$ORDER(^ICPT("B","0075S"))
- QUIT
- DO INT
- +14 SET SRX="0075U"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=$ORDER(^ICPT("B","0076S"))
- QUIT
- DO INT
- +15 SET SRX="0076U"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=$ORDER(^ICPT("B","0078S"))
- QUIT
- DO INT
- +16 SET SRX="0078U"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=$ORDER(^ICPT("B","0095S"))
- QUIT
- DO INT
- +17 SET SRX="0095U"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=$ORDER(^ICPT("B","0098S"))
- QUIT
- DO INT
- +18 SET SRX="0098U"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=$ORDER(^ICPT("B","0171S"))
- QUIT
- DO INT
- +19 SET SRX="0171U"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=$ORDER(^ICPT("B","0172S"))
- QUIT
- DO INT
- +20 SET SRX="0172U"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=$ORDER(^ICPT("B","0184S"))
- QUIT
- DO INT
- +21 SET SRX="0184U"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=$ORDER(^ICPT("B","01999"))
- QUIT
- DO INT
- +22 SET SRX="70000"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=$ORDER(^ICPT("B","79999"))
- QUIT
- DO INT
- +23 SET SRX="80000"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=$ORDER(^ICPT("B","89999"))
- QUIT
- DO INT
- +24 SET SRX="90000"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=$ORDER(^ICPT("B","93589"))
- QUIT
- DO INT
- +25 SET SRX="93593"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=$ORDER(^ICPT("B","99999"))
- QUIT
- DO INT
- +26 ;
- +27 ; -- Exclude all CPT CODES that start with alphabets
- +28 SET SRX="A"
- FOR
- SET SRX=$ORDER(^ICPT("B",SRX))
- if SRX=""
- QUIT
- DO INT
- +29 ;
- +30 ; -- Honor KIDS "No Delete" setting if called from a KIDS install.
- +31 ; -- Delete routines SR202UT0, SR202UT1,& SR202UT2
- +32 IF '$$GET^XUPARAM("XPD NO_EPP_DELETE")
- Begin DoDot:1
- +33 FOR X="SR202UT0","SR202UT1","SR202UT2","SR202UT3"
- XECUTE ^%ZOSF("TEST")
- IF $TEST
- Begin DoDot:2
- +34 DO MES^XPDUTL(" Deleting routine "_X_"...")
- XECUTE ^%ZOSF("DEL")
- End DoDot:2
- End DoDot:1
- +35 KILL DA,DIC,DD,DO,DINUM,X
- +36 QUIT
- +37 ;
- INT SET SRY=0
- SET SRY=$ORDER(^ICPT("B",SRX,SRY))
- if SRY=""
- QUIT
- +1 KILL DA,DIC,DD,DO,DINUM
- SET (DINUM,X)=SRY
- SET DIC="^SRO(137,"
- SET DIC(0)="L"
- DO FILE^DICN
- +2 QUIT
- +3 ;
- DATDEL ; Delete all data from file #137
- +1 NEW SRTXT
- +2 SET SRTXT="File #137 hasn't been set up yet, so no data to delete."
- +3 IF '$DATA(^SRO(137,0))#2
- DO DISP
- QUIT
- +4 SET SRTXT="File #137 doesn't have any data, so nothing to delete."
- +5 IF '$ORDER(^SRO(137,0))
- DO DISP
- QUIT
- +6 SET SRTXT="Deleting data from file #137..."
- +7 DO DISP
- +8 KILL ^SRO(137)
- +9 SET ^SRO(137,0)="CPT EXCLUSIONS^137P^^0"
- +10 QUIT
- +11 ;
- DISP ;display one-line text either interactively or within KIDS installation
- +1 IF '$DATA(XPDNM)#2
- USE 0
- WRITE !!?5,SRTXT
- +2 IF '$TEST
- DO BMES^XPDUTL(SRTXT)
- +3 QUIT
- +4 ;
- LIST ;
- +1 ;;0001F,0001U,0002U,0003U,0005F,0005U,0006U,0007U,0008U,0009U,00100,00102,00103
- +2 ;;00104,0010U,0011U,00120,00124,00126,0012F,0012U,0013U,00140,00142,00144,00145
- +3 ;;00147,00148,0014F,0014M,0014U,0015F,0015M,00160,00162,00164,0016M,0016U,00170
- +4 ;;00172,00174,00176,0017U,0018U,00190,00192,0019U,00210,00211,00212,00214,00215
- +5 ;;00216,00218,0021U,00220,00222,0022U,0023U,0024U,0025U,0026U,0027U,0029U,00300
- +6 ;;0030U,0031U,00320,00322,00326,0032U,0033U,0034U,00350,00352,0035U,0036U,0037U
- +7 ;;0038U,0039U,00400,00402,00404,00406,0040U,00410,0041U,0042T,0042U,0043U,0044U
- +8 ;;00450,00454,0045U,0046U,00470,00472,00474,0047U,0048U,0049U,00500,0050U,0051U
- +9 ;;00520,00522,00524,00528,00529,0052U,00530,00532,00534,00537,00539,0053U,00540
- +10 ;;00541,00542,00546,00548,0054T,0054U,00550,0055T,0055U,00560,00561,00562,00563
- +11 ;;00566,00567,0056U,00580,0058T,0058U,0059U,00600,00604,0060U,0061U,00620,00625
- +12 ;;00626,0062U,00630,00632,00635,0063U,00640,0064U,0065U,0066U,00670,0067U,0068U
- +13 ;;0069U,00700,00702,0070U,0071T,0071U,0072T,0072U,00730,00731,00732,0073U,0074U
- +14 ;;00750,00752,00754,00756,0075U,0076U,00770,0077U,0078U,00790,00792,00794,00796
- +15 ;;00797,0079U,00800,00802,0080U,00811,00812,00813,00820,0082U,00830,00832,00834
- +16 ;;00836,0083U,00840,00842,00844,00846,00848,0084U,00851,0085T,0085U,00860,00862
- +17 ;;00864,00865,00866,00868,0086U,00870,00872,00873,0087U,00880,00882,0088U,0089U
- +18 ;;00902,00904,00906,00908,0090U,00910,00912,00914,00916,00918,0091U,00920,00921
- +19 ;;00922,00924,00926,00928,0092U,00930,00932,00934,00936,00938,0093U,00940,00942
- +20 ;;00944,00948,0094U,00950,00952,0095U,0096U,0097U,0098U,0099U,0100T,0100U,0101T
- +21 ;;0101U,0102T,0102U,0103U,0105U,0106T,0106U,0107T,0107U,0108T,0108U,0109T,0109U
- +22 ;;0110T,0110U,01112,0111T,0111U,01120,0112U,01130,0113U,01140,0114U,01150,0115U
- +23 ;;01160,0116U,01170,01173,0117U,0118U,0119U,01200,01202,0120U,01210,01212,01214
- +24 ;;01215,0121U,01220,0122U,01230,01232,01234,0123U,0124U,01250,0125U,01260,0126T
- +25 ;;0126U,01270,01272,01274,0127U,0128U,0129U,0130U,0131U,01320,0132U,0133U,01340
- +26 ;;0134U,0135U,01360,0136U,0137U,01380,01382,0138U,01390,01392,0139U,01400,01402
- +27 ;;01404,0140U,0141U,01420,0142U,01430,01432,0143U,01440,01442,01444,0144U,0145U
- +28 ;;01462,01464,0146U,01470,01472,01474,0147U,01480,01482,01484,01486,0148U,01490
- +29 ;;0149U,01500,01502,0150U,0151U,01520,01522,01532,0153U,0154U,0155U,0156U,0157U
- +30 ;;0158U,0159U,0160U,01610,0161U,01620,01622,0162U,01630,01634,01636,01638,0163T
- +31 ;;0163U,0164T,0164U,01650,01652,01654,01656,0165T,0165U,0166U,01670,0167U,01680
- +32 ;;0168U,0169U,0170U,01710,01712,01714,01716,0171U,0172U,01730,01732,0173U,01740
- +33 ;;01742,01744,0174T,0174U,01756,01758,0175T,0175U,01760,0176U,01770,01772,0177U
- +34 ;;01780,01782,0178U,0179U,0180U,01810,0181U,01820,01829,0182U,01830,01832,0183U
- +35 ;;01840,01842,01844,0184U,01850,01852,0185U,01860,0186U,0187U,0188U,0189U,0190U
- +36 ;;01916,0191T,0191U,01920,01922,01924,01925,01926,0192U,01930,01931,01932,01933
- +37 ;;01935,01936,0193U,0194U,01951,01952,01953,01958,0195U,01960,01961,01962,01963
- +38 ;;01965,01966,01967,01968,01969,0196U,0197U,0198T,0198U,01990,01991,01992,01996
- +39 ;;01999,0199U,0200T,0200U,0201T,0201U,0202U,0203U,02045,0204U,0206U,0207T,0207U
- +40 ;;0208T,0208U,0209T,0209U,0210T,0210U,0211T,0211U,0212T,0212U,0213T,0213U,0214T
- +41 ;;0214U,0215T,0215U,0216T,0216U,0217T,0217U,0218T,0218U,0219U,0220U,0221U,0222U
- +42 ;;0228T,0229T,0230T,0231T,0232T,0253T,0263T,0264T,0265T,0266T,0267T,0268T,0269T
- +43 ;;0270T,0271T,0272T,0273T,0275T,0278T,0290T,0295T,0296T,0297T,0298T,0308T,0312T
- +44 ;;0313T,0314T,0315T,0316T,0317T,0329T,0330T,0331T,0332T,0333T,0335T,0338T,0339T
- +45 ;;0342T,0345T,0347T,0348T,0349T,0350T,0351T,0352T,0353T,0354T,0355T,0356T,0358T
- +46 ;;0362T,0373T,0376T,0378T,0379T,0381T,0382T,0383T,0384T,0385T,0386T,0394T,0395T
- +47 ;;0396T,0397T,0398T,0400T,0401T,0402T,0403T,0404T,0405T,0408T,0409T,0410T,0411T
- +48 ;;0412T,0413T,0414T,0415T,0416T,0417T,0418T,0419T,0420T,0422T,0423T,0424T,0425T
- +49 ;;0426T,0427T,0428T,0429T,0430T,0431T,0432T,0433T,0434T,0435T,0436T,0437T,0439T
- +50 ;;0440T,0441T,0442T,0443T,0444T,0445T,0446T,0447T,0448T,0449T,0450T,0462T,0463T
- +51 ;;0464T,0465T,0466T,0467T,0468T,0469T,0470T,0471T,0472T,0473T,0474T,0475T,0476T
- +52 ;;0477T,0478T,0479T,0480T,0481T,0485T,0486T,0487T,0488T,0489T,0490T,0491T,0492T
- +53 ;;0493T,0494T,0495T,0496T,0497T,0498T,0499T,0500F,0500T,0501F,0501T,0502F,0502T
- +54 ;;0503F,0503T,0504T,0505F,0505T,0506T,0507F,0507T,0508T,0509F,0509T,0510T,0511T
- +55 ;;0512T,0513F,0513T,0514F,0514T,0515T,0516F,0516T,0517F,0517T,0518F,0518T,0519F