SR202UT3 ;HPS/JSG - FY21 CPT EXCLUSION UTILITY, CONTINUED ;Mar 31, 2021@09:51
;;3.0;Surgery;**202**;24 Jun 93;Build 2
;
Q
EX ; populate the 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
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
LIST ;
;;0519T,0520F,0520T,0521F,0521T,0522T,0523T,0524T,0525F,0525T,0526F,0526T,0527T
;;0528F,0528T,0529F,0529T,0530T,0531T,0532T,0533T,0534T,0535F,0535T,0536T,0537T
;;0538T,0539T,0540F,0540T,0541T,0542T,0545F,0546T,0547T,0548T,0549T,0550F,0550T
;;0551F,0551T,0552T,0553T,0554T,0555F,0555T,0556F,0556T,0557F,0557T,0558T,0559T
;;0560T,0561T,0562T,0563T,0564T,0565T,0566T,0567T,0568T,0571T,0572T,0573T,0574T
;;0575F,0575T,0576T,0577T,0578T,0579T,0580F,0580T,0581F,0581T,0582F,0582T,0583F
;;0583T,0584F,0587T,0588T,0589T,0590T,0591T,0592T,0593T,0594T,0596T,0597T,0598T
;;0599T,0600T,0601T,0602T,0603T,0604T,0605T,0606T,0607T,0608T,0609T,0610T,0611T
;;0612T,0613T,0614T,0615T,0616T,0617T,0618T,0619T,0620T,0621T,0622T,0623T,0624T
;;0625T,0626T,0627T,0628T,0629T,0630T,0631T,0632T,0633T,0634T,0635T,0636T,0637T
;;0638T,0639T,10004,10005,10006,10007,10008,10009,1000F,10010,10011,10012,10021
;;1002F,10030,10035,10036,1003F,10040,1004F,1005F,10060,10061,1006F,1007F,10080
;;10081,1008F,1010F,1011F,10120,1012F,1015F,1018F,1019F,1022F,1026F,1030F,1031F
;;1032F,1033F,1034F,1035F,1036F,1038F,1039F,1040F,1050F,1052F,1055F,1060F,1061F
;;1065F,1066F,1070F,1071F,1090F,1091F,11000,1100F,1101F,11042,11043,11044,11045
;;11046,11047,11055,11056,11057,11102,11103,11104,11105,11106,11107,1110F,1111F
;;1116F,1118F,1119F,11200,11201,1121F,1123F,1124F,1125F,1126F,1127F,1128F,11300
;;11301,11302,11303,11305,11306,11307,11308,1130F,11310,11311,11312,11313,1134F
;;1135F,1136F,1137F,11400,11401,11402,11403,11404,11406,11420,11421,11422,11423
;;11424,11426,11440,11441,11442,11443,11444,11446,11450,11451,11462,11463,11470
;;11471,1150F,1151F,1152F,1153F,1157F,1158F,1159F,11600,11601,11602,11603,11604
;;11606,1160F,11620,11621,11622,11623,11624,11626,11640,11641,11642,11643,11644
;;11646,1170F,11719,11720,11721,11730,11732,11740,11750,11755,1175F,11760,11762
;;11765,11770,11771,11772,1180F,1181F,1182F,1183F,11900,11901,11920,11921,11922
;;11950,11951,11952,11954,11960,11970,11971,11976,11980,11981,11982,11983,12001
;;12002,12004,12005,12006,12007,1200F,12011,12013,12014,12015,12016,12017,12018
;;12020,12021,12031,12032,12034,12035,12036,12037,12041,12042,12044,12045,12046
;;12047,12051,12052,12053,12054,12055,12056,12057,1205F,1220F,13100,13101,13102
;;13120,13121,13122,13131,13132,13133,13151,13152,13153,13160,14000,14001,1400F
;;14020,14021,14040,14041,14060,14061,14301,14302,14350,1450F,1451F,1460F,1461F
;;1490F,1491F,1493F,1494F,15002,15003,15004,1500F,1501F,1502F,1503F,1504F,15050
;;1505F,15100,15101,15110,15111,15115,15116,15120,15121,15130,15131,15135,15136
;;15150,15151,15152,15155,15156,15157,15200,15201,15220,15221,15240,15241,15260
;;15261,15271,15272,15273,15274,15275,15276,15277,15278,15570,15572,15574,15576
;;15730,15733,15769,15771,15772,15773,15774,15775,15776,15777,15780,15781,15782
;;15783,15786,15787,15788,15789,15792,15793,15819,15820,15821,15822,15823,15824
;;15825,15826,15828,15829,15832,15833,15834,15835,15836,15837,15838,15839,15840
;;15841,15842,15845,15850,15851,15852,15860,15876,15877,15878,15879,16000,16020
;;16025,16030,16035,16036,17000,17003,17004,17106,17107,17108,17110,17111,17250
;;17260,17261,17262,17263,17264,17266,17270,17271,17272,17273,17274,17276,17280
;;17281,17282,17283,17284,17286,17311,17312,17313,17314,17315,17340,17360,17380
;;17999,19000,19001,19020,19030,19081,19082,19083,19084,19085,19086,19100,19101
;;19105,19110,19112,19120,19125,19126,19281,19282,19283,19284,19285,19286,19287
;;19288,19294,2000F,2001F,2002F,2004F,2010F,2014F,2015F,2016F,2018F,2019F,20200
;;20205,20206,2020F,2021F,20220,20225,2022F,2023F,20240,20245,2024F,20250,20251
;;2025F,2026F,2027F,2028F,2029F,2030F,2031F,2033F,2035F,2040F,2044F,20500,20501
;;2050F,20520,20525,20526,20527,20550,20551,20552,20553,20555,20560,20561,20600
;;20604,20605,20606,2060F,20610,20611,20612,20615,20650,20660,20661,20662,20663
;;20664,20665,20670,20680,20690,20692,20693,20694,20696,20697,20700,20701,20702
;;20703,20704,20705,20900,20902,20910,20912,20920,20922,20924,20932,20933,20934
;;20939,20950,20974,20975,20979,20982,20983,20985,21010,21011,21012,21013,21014
;;21015,21016,21025,21026,21029,21030,21031,21032,21073,21076,21077,21079,21080
;;21081,21082,21083,21084,21085,21086,21087,21088,21116,21210,21230,21282,21310
;;21315,21320,21325,21330,21335,21336,21337,21338,21339,21340,21345,21400,21401
;;21421,21431,21440,21450,21451,21452,21453,21480,21485,21497,21550,21552,21554
;;21555,21556,21600,21820,21920,21925,21930,21931,21932,21933,22310,22315,22505
;;22510,22511,22512,22513,22514,22515,22532,22534,22556,22900,22901,22902,22903
;;23065,23066,23071,23073,23075,23076,23100,23330,23333,23350,23500,23505,23520
;;23525,23540,23545,23570,23575,23600,23605,23620,23625,23650,23655,23665,23675
;;23700,23930,23931,24065,24066,24071,24073,24075,24076,24100,24101,24147,24160
;;24164,24200,24220,24300,24343,24470,24500,24505,24530,24535,24560,24565,24576
;;24577,24600,24605,24620,24640,24650,24655,24670,24675,25000,25028,25031,25065
;;25066,25071,25073,25075,25076,25085,25100,25101,25105,25107,25109,25110,25111
;;25112,25115,25116,25118,25119,25120,25125,25126,25130,25135,25136,25210,25215
;;25230,25240,25246,25248,25250,25251,25259,25260,25263,25265,25270,25272,25274
;;25275,25280,25290,25295,25300,25301,25310,25312,25315,25316,25320,25332,25335
;;25337,25350,25355,25360,25365,25370,25375,25390,25391,25392,25393,25394,25400
;;25405,25415,25420,25425,25426,25430,25431,25440,25441,25442,25443,25444,25445
;;25446,25447,25449,25450,25455,25490,25491,25492,25500,25505,25515,25520,25526
;;25530,25535,25545,25560,25565,25574,25575,25600,25605,25606,25607,25608,25609
;;25622,25624,25628,25630,25635,25645,25650,25651,25652,25660,25670,25671,25675
;;25676,25680,25685,25690,25695,25800,25805,25810,25820,25825,25830,25999,26010
;;26011,26020,26025,26030,26034,26035,26037,26040,26045,26055,26060,26070,26075
;;26080,26100,26105,26110,26111,26113,26115,26116,26117,26118,26121,26123,26125
;;26130,26135,26140,26145,26160,26170,26180,26185,26200,26205,26210,26215,26230
;;26235,26236,26250,26260,26262,26320,26340,26341,26350,26352,26356,26357,26358
;;26370,26372,26373,26390,26392,26410,26412,26415,26416,26418,26420,26426,26428
;;26432,26433,26434,26437,26440,26442,26445,26449,26450,26455,26460,26471,26474
;;26476,26477,26478,26479,26480,26483,26485,26489,26490,26492,26494,26496,26497
;;26498,26499,26500,26502,26508,26510,26516,26517,26518,26520,26525,26530,26531
;;26535,26536,26540,26541,26542,26545,26546,26548,26550,26555,26560,26561,26562
;;26565,26567,26568,26580,26587,26590,26591,26593,26596,26600,26605,26607,26608
;;26615,26641,26645,26650,26665,26670,26675,26676,26685,26686,26700,26705,26706
;;26715,26720,26725,26727,26735,26740,26742,26746,26750,26755,26756,26765,26770
;;26775,26776,26785,26820,26841,26842,26843,26844,26850,26852,26860,26861,26862
;;26863,26910,26951,26952,26989,27003,27040,27041,27043,27045,27047,27048,27050
;;27052,27093,27095,27096,27175,27197,27198,27200,27216,27220,27222,27230,27232
;;27238,27240,27246,27250,27252,27256,27257,27265,27266,27267,27268,27275,27306
;;27323,27324,27330,27331,27337,27339,27369,27500,27501,27502,27503,27508,27510
;;27516,27517,27520,27530,27532,27538,27550,27552,27560,27562,27570,27613,27614
;;27618,27619,27632,27634,27648,27690,27691,27750,27752,27760,27762,27767,27768
;;27780,27781,27786,27788,27808,27810,27816,27818,27824,27825,27830,27831,27840
;;27842,27860,27870,27871,27884,28001,28005,28008,28010,28011,28020,28022,28024
;;28035,28039,28041,28043,28045,28046,28050,28052,28054,28055,28060,28062,28070
;;28072,28080,28086,28088,28090,28092,28100,28102,28103,28104,28106,28107,28108
;;28110,28111,28112,28113,28114,28116,28118,28119,28120,28122,28124,28126,28130
;;28140,28150,28153,28160,28171,28173,28175,28190,28192,28193,28200,28202,28208
;;28210,28220,28222,28225,28226,28230,28232,28234,28238,28240,28250,28260,28261
;;28262,28264,28270,28272,28280,28285,28286,28288,28289,28291,28292,28295,28296
;;28297,28298,28299,28300,28302,28304,28305,28306,28307,28308,28309,28310,28312
;;28313,28315,28320,28322,28340,28341,28344,28345,28360,28400,28405,28406,28430
;;28435,28436,28450,28455,28456,28465,28470,28475,28476,28485,28490,28495,28496
;;28505,28510,28515,28525,28530,28531,28540,28545,28546,28555,28570,28575,28576
;;28585,28600,28605,28606,28615,28630,28635,28636,28645,28660,28665,28666,28675
;;28705,28715,28725,28730,28735,28737,28740,28750,28755,28760,28810,28820,28825
;;28890,28899,29000,29010,29015,29035,29040,29044,29046,29049,29055,29058,29065
;;29075,29085,29086,29105,29125,29126,29130,29131,29200,29240,29260,29280,29305
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR202UT3 9223 printed Apr 09, 2024@21:41 Page 2
SR202UT3 ;HPS/JSG - FY21 CPT EXCLUSION UTILITY, CONTINUED ;Mar 31, 2021@09:51
+1 ;;3.0;Surgery;**202**;24 Jun 93;Build 2
+2 ;
+3 QUIT
EX ; populate the CPT EXCLUSIONS file (#137)
+1 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
+2 QUIT
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
LIST ;
+1 ;;0519T,0520F,0520T,0521F,0521T,0522T,0523T,0524T,0525F,0525T,0526F,0526T,0527T
+2 ;;0528F,0528T,0529F,0529T,0530T,0531T,0532T,0533T,0534T,0535F,0535T,0536T,0537T
+3 ;;0538T,0539T,0540F,0540T,0541T,0542T,0545F,0546T,0547T,0548T,0549T,0550F,0550T
+4 ;;0551F,0551T,0552T,0553T,0554T,0555F,0555T,0556F,0556T,0557F,0557T,0558T,0559T
+5 ;;0560T,0561T,0562T,0563T,0564T,0565T,0566T,0567T,0568T,0571T,0572T,0573T,0574T
+6 ;;0575F,0575T,0576T,0577T,0578T,0579T,0580F,0580T,0581F,0581T,0582F,0582T,0583F
+7 ;;0583T,0584F,0587T,0588T,0589T,0590T,0591T,0592T,0593T,0594T,0596T,0597T,0598T
+8 ;;0599T,0600T,0601T,0602T,0603T,0604T,0605T,0606T,0607T,0608T,0609T,0610T,0611T
+9 ;;0612T,0613T,0614T,0615T,0616T,0617T,0618T,0619T,0620T,0621T,0622T,0623T,0624T
+10 ;;0625T,0626T,0627T,0628T,0629T,0630T,0631T,0632T,0633T,0634T,0635T,0636T,0637T
+11 ;;0638T,0639T,10004,10005,10006,10007,10008,10009,1000F,10010,10011,10012,10021
+12 ;;1002F,10030,10035,10036,1003F,10040,1004F,1005F,10060,10061,1006F,1007F,10080
+13 ;;10081,1008F,1010F,1011F,10120,1012F,1015F,1018F,1019F,1022F,1026F,1030F,1031F
+14 ;;1032F,1033F,1034F,1035F,1036F,1038F,1039F,1040F,1050F,1052F,1055F,1060F,1061F
+15 ;;1065F,1066F,1070F,1071F,1090F,1091F,11000,1100F,1101F,11042,11043,11044,11045
+16 ;;11046,11047,11055,11056,11057,11102,11103,11104,11105,11106,11107,1110F,1111F
+17 ;;1116F,1118F,1119F,11200,11201,1121F,1123F,1124F,1125F,1126F,1127F,1128F,11300
+18 ;;11301,11302,11303,11305,11306,11307,11308,1130F,11310,11311,11312,11313,1134F
+19 ;;1135F,1136F,1137F,11400,11401,11402,11403,11404,11406,11420,11421,11422,11423
+20 ;;11424,11426,11440,11441,11442,11443,11444,11446,11450,11451,11462,11463,11470
+21 ;;11471,1150F,1151F,1152F,1153F,1157F,1158F,1159F,11600,11601,11602,11603,11604
+22 ;;11606,1160F,11620,11621,11622,11623,11624,11626,11640,11641,11642,11643,11644
+23 ;;11646,1170F,11719,11720,11721,11730,11732,11740,11750,11755,1175F,11760,11762
+24 ;;11765,11770,11771,11772,1180F,1181F,1182F,1183F,11900,11901,11920,11921,11922
+25 ;;11950,11951,11952,11954,11960,11970,11971,11976,11980,11981,11982,11983,12001
+26 ;;12002,12004,12005,12006,12007,1200F,12011,12013,12014,12015,12016,12017,12018
+27 ;;12020,12021,12031,12032,12034,12035,12036,12037,12041,12042,12044,12045,12046
+28 ;;12047,12051,12052,12053,12054,12055,12056,12057,1205F,1220F,13100,13101,13102
+29 ;;13120,13121,13122,13131,13132,13133,13151,13152,13153,13160,14000,14001,1400F
+30 ;;14020,14021,14040,14041,14060,14061,14301,14302,14350,1450F,1451F,1460F,1461F
+31 ;;1490F,1491F,1493F,1494F,15002,15003,15004,1500F,1501F,1502F,1503F,1504F,15050
+32 ;;1505F,15100,15101,15110,15111,15115,15116,15120,15121,15130,15131,15135,15136
+33 ;;15150,15151,15152,15155,15156,15157,15200,15201,15220,15221,15240,15241,15260
+34 ;;15261,15271,15272,15273,15274,15275,15276,15277,15278,15570,15572,15574,15576
+35 ;;15730,15733,15769,15771,15772,15773,15774,15775,15776,15777,15780,15781,15782
+36 ;;15783,15786,15787,15788,15789,15792,15793,15819,15820,15821,15822,15823,15824
+37 ;;15825,15826,15828,15829,15832,15833,15834,15835,15836,15837,15838,15839,15840
+38 ;;15841,15842,15845,15850,15851,15852,15860,15876,15877,15878,15879,16000,16020
+39 ;;16025,16030,16035,16036,17000,17003,17004,17106,17107,17108,17110,17111,17250
+40 ;;17260,17261,17262,17263,17264,17266,17270,17271,17272,17273,17274,17276,17280
+41 ;;17281,17282,17283,17284,17286,17311,17312,17313,17314,17315,17340,17360,17380
+42 ;;17999,19000,19001,19020,19030,19081,19082,19083,19084,19085,19086,19100,19101
+43 ;;19105,19110,19112,19120,19125,19126,19281,19282,19283,19284,19285,19286,19287
+44 ;;19288,19294,2000F,2001F,2002F,2004F,2010F,2014F,2015F,2016F,2018F,2019F,20200
+45 ;;20205,20206,2020F,2021F,20220,20225,2022F,2023F,20240,20245,2024F,20250,20251
+46 ;;2025F,2026F,2027F,2028F,2029F,2030F,2031F,2033F,2035F,2040F,2044F,20500,20501
+47 ;;2050F,20520,20525,20526,20527,20550,20551,20552,20553,20555,20560,20561,20600
+48 ;;20604,20605,20606,2060F,20610,20611,20612,20615,20650,20660,20661,20662,20663
+49 ;;20664,20665,20670,20680,20690,20692,20693,20694,20696,20697,20700,20701,20702
+50 ;;20703,20704,20705,20900,20902,20910,20912,20920,20922,20924,20932,20933,20934
+51 ;;20939,20950,20974,20975,20979,20982,20983,20985,21010,21011,21012,21013,21014
+52 ;;21015,21016,21025,21026,21029,21030,21031,21032,21073,21076,21077,21079,21080
+53 ;;21081,21082,21083,21084,21085,21086,21087,21088,21116,21210,21230,21282,21310
+54 ;;21315,21320,21325,21330,21335,21336,21337,21338,21339,21340,21345,21400,21401
+55 ;;21421,21431,21440,21450,21451,21452,21453,21480,21485,21497,21550,21552,21554
+56 ;;21555,21556,21600,21820,21920,21925,21930,21931,21932,21933,22310,22315,22505
+57 ;;22510,22511,22512,22513,22514,22515,22532,22534,22556,22900,22901,22902,22903
+58 ;;23065,23066,23071,23073,23075,23076,23100,23330,23333,23350,23500,23505,23520
+59 ;;23525,23540,23545,23570,23575,23600,23605,23620,23625,23650,23655,23665,23675
+60 ;;23700,23930,23931,24065,24066,24071,24073,24075,24076,24100,24101,24147,24160
+61 ;;24164,24200,24220,24300,24343,24470,24500,24505,24530,24535,24560,24565,24576
+62 ;;24577,24600,24605,24620,24640,24650,24655,24670,24675,25000,25028,25031,25065
+63 ;;25066,25071,25073,25075,25076,25085,25100,25101,25105,25107,25109,25110,25111
+64 ;;25112,25115,25116,25118,25119,25120,25125,25126,25130,25135,25136,25210,25215
+65 ;;25230,25240,25246,25248,25250,25251,25259,25260,25263,25265,25270,25272,25274
+66 ;;25275,25280,25290,25295,25300,25301,25310,25312,25315,25316,25320,25332,25335
+67 ;;25337,25350,25355,25360,25365,25370,25375,25390,25391,25392,25393,25394,25400
+68 ;;25405,25415,25420,25425,25426,25430,25431,25440,25441,25442,25443,25444,25445
+69 ;;25446,25447,25449,25450,25455,25490,25491,25492,25500,25505,25515,25520,25526
+70 ;;25530,25535,25545,25560,25565,25574,25575,25600,25605,25606,25607,25608,25609
+71 ;;25622,25624,25628,25630,25635,25645,25650,25651,25652,25660,25670,25671,25675
+72 ;;25676,25680,25685,25690,25695,25800,25805,25810,25820,25825,25830,25999,26010
+73 ;;26011,26020,26025,26030,26034,26035,26037,26040,26045,26055,26060,26070,26075
+74 ;;26080,26100,26105,26110,26111,26113,26115,26116,26117,26118,26121,26123,26125
+75 ;;26130,26135,26140,26145,26160,26170,26180,26185,26200,26205,26210,26215,26230
+76 ;;26235,26236,26250,26260,26262,26320,26340,26341,26350,26352,26356,26357,26358
+77 ;;26370,26372,26373,26390,26392,26410,26412,26415,26416,26418,26420,26426,26428
+78 ;;26432,26433,26434,26437,26440,26442,26445,26449,26450,26455,26460,26471,26474
+79 ;;26476,26477,26478,26479,26480,26483,26485,26489,26490,26492,26494,26496,26497
+80 ;;26498,26499,26500,26502,26508,26510,26516,26517,26518,26520,26525,26530,26531
+81 ;;26535,26536,26540,26541,26542,26545,26546,26548,26550,26555,26560,26561,26562
+82 ;;26565,26567,26568,26580,26587,26590,26591,26593,26596,26600,26605,26607,26608
+83 ;;26615,26641,26645,26650,26665,26670,26675,26676,26685,26686,26700,26705,26706
+84 ;;26715,26720,26725,26727,26735,26740,26742,26746,26750,26755,26756,26765,26770
+85 ;;26775,26776,26785,26820,26841,26842,26843,26844,26850,26852,26860,26861,26862
+86 ;;26863,26910,26951,26952,26989,27003,27040,27041,27043,27045,27047,27048,27050
+87 ;;27052,27093,27095,27096,27175,27197,27198,27200,27216,27220,27222,27230,27232
+88 ;;27238,27240,27246,27250,27252,27256,27257,27265,27266,27267,27268,27275,27306
+89 ;;27323,27324,27330,27331,27337,27339,27369,27500,27501,27502,27503,27508,27510
+90 ;;27516,27517,27520,27530,27532,27538,27550,27552,27560,27562,27570,27613,27614
+91 ;;27618,27619,27632,27634,27648,27690,27691,27750,27752,27760,27762,27767,27768
+92 ;;27780,27781,27786,27788,27808,27810,27816,27818,27824,27825,27830,27831,27840
+93 ;;27842,27860,27870,27871,27884,28001,28005,28008,28010,28011,28020,28022,28024
+94 ;;28035,28039,28041,28043,28045,28046,28050,28052,28054,28055,28060,28062,28070
+95 ;;28072,28080,28086,28088,28090,28092,28100,28102,28103,28104,28106,28107,28108
+96 ;;28110,28111,28112,28113,28114,28116,28118,28119,28120,28122,28124,28126,28130
+97 ;;28140,28150,28153,28160,28171,28173,28175,28190,28192,28193,28200,28202,28208
+98 ;;28210,28220,28222,28225,28226,28230,28232,28234,28238,28240,28250,28260,28261
+99 ;;28262,28264,28270,28272,28280,28285,28286,28288,28289,28291,28292,28295,28296
+100 ;;28297,28298,28299,28300,28302,28304,28305,28306,28307,28308,28309,28310,28312
+101 ;;28313,28315,28320,28322,28340,28341,28344,28345,28360,28400,28405,28406,28430
+102 ;;28435,28436,28450,28455,28456,28465,28470,28475,28476,28485,28490,28495,28496
+103 ;;28505,28510,28515,28525,28530,28531,28540,28545,28546,28555,28570,28575,28576
+104 ;;28585,28600,28605,28606,28615,28630,28635,28636,28645,28660,28665,28666,28675
+105 ;;28705,28715,28725,28730,28735,28737,28740,28750,28755,28760,28810,28820,28825
+106 ;;28890,28899,29000,29010,29015,29035,29040,29044,29046,29049,29055,29058,29065
+107 ;;29075,29085,29086,29105,29125,29126,29130,29131,29200,29240,29260,29280,29305
