SR206UT0 ;HPS/JSG - FY22 CPT EXCLUSION UTILITY, CONTINUED ; May 10, 2022@14:55
;;3.0;Surgery;**206**;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 ;
;;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,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,0640T,0641T,0642T,0647T,0648T,0649T,0650T,0651T,0652T,0653T,0654T,0655T
;;0658T,0659T,0660T,0661T,0662T,0663T,0664T,0671T,0672T,0673T,0682T,0683T,0684T
;;0685T,0686T,0687T,0688T,0689T,0690T,0691T,0692T,0693T,0694T,0695T,0696T,0697T
;;0698T,0699T,0700T,0701T,0702T,0703T,0704T,0705T,0706T,0707T,0708T,0709T,0710T
;;0711T,0712T,0713T,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,10121,1012F,10140,1015F,10160,10180,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,11001
;;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,21501,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,27327,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,28047,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,29325,29345,29355,29358
;;29365,29405,29425,29435,29440,29445,29450,29505,29515,29520,29530,29540,29550
;;29580,29581,29584,29700,29705,29710,29720,29730,29740,29750,29799,29800,29804
;;29805,29830,29836,29840,29843,29845,29848,29856,29860,29863,29870,29893,29900
;;29901,29902,30000,30020,3006F,3008F,30100,30110,30115,30117,30118,3011F,30120
;;30124,30125,30130,30140,3014F,30150,3015F,30160,3016F,3017F,3018F,3019F,30200
;;3020F,30210,3021F,30220,3022F,3023F,3025F,3027F,3028F,30300,30310,30320,3035F
;;3037F,3038F,30400,3040F,30410,30420,3042F,30430,30435,3044F,30450,30460,30462
;;30465,30468,3046F,3048F,3049F,3050F,3051F,30520,3052F,30540,30545,3055F,30560
;;3056F,30580,30600,3060F,3061F,30620,3062F,30630,3066F,3072F,3073F,3074F,3075F
;;3077F,3078F,3079F,30801,30802,3080F,3082F,3083F,3084F,3085F,3088F,3089F,30901
;;30903,30905,30906,3090F,30915,3091F,30920,3092F,30930,3093F,3095F,3096F,30999
;;31000,31002,3100F,31020,31030,31032,31040,31050,31051,31070,31075,31080,31081
;;31084,31085,31086,31087,31090,3110F,3111F,3112F,3115F,3117F,3118F,3119F,31200
;;31201,31205,3120F,31225,31230,31231,31233,31235,31237,31238,31239,31240,31241
;;31253,31254,31255,31256,31257,31259,31267,3126F,31276,31287,31288,31290,31291
;;31292,31293,31294,31295,31296,31297,31298,31299,3130F,3132F,3140F,3141F,3142F
;;31500,31502,31505,3150F,31510,31511,31512,31513,31515,31520,31525,31526,31527
;;31528,31529,31530,31531,31535,31536,31540,31541,31545,31546,31551,31552,31553
;;31554,3155F,31560,31561,31570,31571,31572,31573,31574,31575,31576,31577,31578
;;31579,31590,31591,31600,31601,31603,31605,3160F,31610,31612,31613,31615,31622
;;31623,31624,31625,31626,31627,31628,31629,31632,31633,31634,31635,31636,31637
;;31638,31640,31641,31643,31645,31646,31647,31648,31649,31651,31652,31653,31654
;;31660,31661,3170F,31717,31720,31725,31730,31830,3200F,32096,32097,32098,3210F
;;3215F,3216F,3218F,3220F,3230F,32400,32408,3250F,32550,32551,32552,32553,32554
;;32555,32556,32557,32560,32561,32562,32601,32604,32606,32607,32608,32609,3260F
;;3265F,3266F,3267F,3268F,3269F,32701,3270F,3271F,3272F,3273F,3274F,3278F,3279F
;;3280F,3281F,3284F,32850,32855,32856,3285F,3288F,3290F,3291F,3292F,3293F,3294F
;;32960,32994,32997,3300F,33016,33017,33018,33019,3301F,3315F,3316F,3317F,3318F
;;3319F,33206,33207,33208,3320F,33210,33211,33212,33213,33214,33215,33216,33217
;;33218,3321F,33220,33221,33222,33223,33224,33225,33226,33227,33228,33229,3322F
;;33230,33231,33233,33234,33235,33236,33237,33238,3323F,33240,33241,33243,33244
;;33249,3324F,3325F,33262,33263,33264,33270,33271,33272,33273,33274,33275,33285
;;33286,33289,3328F,3330F,3331F,3340F,3341F,3342F,3343F,3344F,3345F,33470,33471
;;33509,3350F,3351F,3352F,3353F,3354F,33620,33622,3370F,3372F,33741,33745,33746
;;3374F,3376F,3378F,3380F,3382F,3384F,3386F,3388F,3390F,33930,33933,33940,33944
;;33946,33947,33948,33949,3394F,33951,33952,33953,33954,33955,33956,33957,33958
;;33959,3395F,33962,33963,33964,33965,33966,33967,33968,33969,33970,33971,33984
;;33985,33986,33995,33997,3450F,3451F,3452F,3455F,3470F,34712,34713,34714,34715
;;34716,3471F,3472F,3475F,3476F,34839,3490F,3491F,3492F,3493F,3494F,3495F,3496F
;;3497F,3498F,3500F,3502F,3503F,3510F,3511F,3512F,3513F,3514F,3515F,3517F,3520F
;;35400,3550F,3551F,3552F,3555F,35702,35703,3570F,3572F,3573F,36000,36002,36005
;;36010,36011,36012,36013,36014,36015,36100,36140,36160,36200,36215,36216,36217
;;36218,36221,36222,36223,36224,36225,36226,36227,36228,36245,36246,36247,36248
;;36251,36252,36253,36254,36260,36261,36262,36299,36400,36405,36406,36410,36415
;;36416,36420,36425,36430,36440,36450,36455,36456,36460,36465,36466,36468,36470
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR206UT0 13652 printed Dec 13, 2024@02:38:25 Page 2
SR206UT0 ;HPS/JSG - FY22 CPT EXCLUSION UTILITY, CONTINUED ; May 10, 2022@14:55
+1 ;;3.0;Surgery;**206**;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 ;;0478T,0479T,0480T,0481T,0485T,0486T,0487T,0488T,0489T,0490T,0491T,0492T,0493T
+2 ;;0494T,0495T,0496T,0497T,0498T,0499T,0500F,0500T,0501F,0501T,0502F,0502T,0503F
+3 ;;0503T,0504T,0505F,0505T,0506T,0507F,0507T,0508T,0509F,0509T,0510T,0511T,0512T
+4 ;;0513F,0513T,0514F,0514T,0515T,0516F,0516T,0517F,0517T,0518F,0518T,0519F,0519T
+5 ;;0520F,0520T,0521F,0521T,0522T,0523T,0524T,0525F,0525T,0526F,0526T,0527T,0528F
+6 ;;0528T,0529F,0529T,0530T,0531T,0532T,0533T,0534T,0535F,0535T,0536T,0537T,0538T
+7 ;;0539T,0540F,0540T,0541T,0542T,0545F,0546T,0547T,0548T,0549T,0550F,0550T,0551F
+8 ;;0551T,0552T,0553T,0554T,0555F,0555T,0556F,0556T,0557F,0557T,0558T,0559T,0560T
+9 ;;0561T,0562T,0563T,0564T,0565T,0566T,0567T,0568T,0571T,0572T,0573T,0574T,0575F
+10 ;;0575T,0576T,0577T,0578T,0579T,0580F,0580T,0581F,0581T,0582F,0582T,0583F,0583T
+11 ;;0584F,0587T,0588T,0589T,0590T,0591T,0592T,0593T,0594T,0596T,0597T,0598T,0599T
+12 ;;0600T,0601T,0602T,0603T,0604T,0605T,0606T,0607T,0608T,0609T,0610T,0611T,0612T
+13 ;;0613T,0614T,0615T,0616T,0617T,0618T,0619T,0620T,0621T,0622T,0623T,0624T,0625T
+14 ;;0626T,0627T,0628T,0629T,0630T,0631T,0632T,0633T,0634T,0635T,0636T,0637T,0638T
+15 ;;0639T,0640T,0641T,0642T,0647T,0648T,0649T,0650T,0651T,0652T,0653T,0654T,0655T
+16 ;;0658T,0659T,0660T,0661T,0662T,0663T,0664T,0671T,0672T,0673T,0682T,0683T,0684T
+17 ;;0685T,0686T,0687T,0688T,0689T,0690T,0691T,0692T,0693T,0694T,0695T,0696T,0697T
+18 ;;0698T,0699T,0700T,0701T,0702T,0703T,0704T,0705T,0706T,0707T,0708T,0709T,0710T
+19 ;;0711T,0712T,0713T,10004,10005,10006,10007,10008,10009,1000F,10010,10011,10012
+20 ;;10021,1002F,10030,10035,10036,1003F,10040,1004F,1005F,10060,10061,1006F,1007F
+21 ;;10080,10081,1008F,1010F,1011F,10120,10121,1012F,10140,1015F,10160,10180,1018F
+22 ;;1019F,1022F,1026F,1030F,1031F,1032F,1033F,1034F,1035F,1036F,1038F,1039F,1040F
+23 ;;1050F,1052F,1055F,1060F,1061F,1065F,1066F,1070F,1071F,1090F,1091F,11000,11001
+24 ;;1100F,1101F,11042,11043,11044,11045,11046,11047,11055,11056,11057,11102,11103
+25 ;;11104,11105,11106,11107,1110F,1111F,1116F,1118F,1119F,11200,11201,1121F,1123F
+26 ;;1124F,1125F,1126F,1127F,1128F,11300,11301,11302,11303,11305,11306,11307,11308
+27 ;;1130F,11310,11311,11312,11313,1134F,1135F,1136F,1137F,11400,11401,11402,11403
+28 ;;11404,11406,11420,11421,11422,11423,11424,11426,11440,11441,11442,11443,11444
+29 ;;11446,11450,11451,11462,11463,11470,11471,1150F,1151F,1152F,1153F,1157F,1158F
+30 ;;1159F,11600,11601,11602,11603,11604,11606,1160F,11620,11621,11622,11623,11624
+31 ;;11626,11640,11641,11642,11643,11644,11646,1170F,11719,11720,11721,11730,11732
+32 ;;11740,11750,11755,1175F,11760,11762,11765,11770,11771,11772,1180F,1181F,1182F
+33 ;;1183F,11900,11901,11920,11921,11922,11950,11951,11952,11954,11960,11970,11971
+34 ;;11976,11980,11981,11982,11983,12001,12002,12004,12005,12006,12007,1200F,12011
+35 ;;12013,12014,12015,12016,12017,12018,12020,12021,12031,12032,12034,12035,12036
+36 ;;12037,12041,12042,12044,12045,12046,12047,12051,12052,12053,12054,12055,12056
+37 ;;12057,1205F,1220F,13100,13101,13102,13120,13121,13122,13131,13132,13133,13151
+38 ;;13152,13153,13160,14000,14001,1400F,14020,14021,14040,14041,14060,14061,14301
+39 ;;14302,14350,1450F,1451F,1460F,1461F,1490F,1491F,1493F,1494F,15002,15003,15004
+40 ;;1500F,1501F,1502F,1503F,1504F,15050,1505F,15100,15101,15110,15111,15115,15116
+41 ;;15120,15121,15130,15131,15135,15136,15150,15151,15152,15155,15156,15157,15200
+42 ;;15201,15220,15221,15240,15241,15260,15261,15271,15272,15273,15274,15275,15276
+43 ;;15277,15278,15570,15572,15574,15576,15730,15733,15769,15771,15772,15773,15774
+44 ;;15775,15776,15777,15780,15781,15782,15783,15786,15787,15788,15789,15792,15793
+45 ;;15819,15820,15821,15822,15823,15824,15825,15826,15828,15829,15832,15833,15834
+46 ;;15835,15836,15837,15838,15839,15840,15841,15842,15845,15850,15851,15852,15860
+47 ;;15876,15877,15878,15879,16000,16020,16025,16030,16035,16036,17000,17003,17004
+48 ;;17106,17107,17108,17110,17111,17250,17260,17261,17262,17263,17264,17266,17270
+49 ;;17271,17272,17273,17274,17276,17280,17281,17282,17283,17284,17286,17311,17312
+50 ;;17313,17314,17315,17340,17360,17380,17999,19000,19001,19020,19030,19081,19082
+51 ;;19083,19084,19085,19086,19100,19101,19105,19110,19112,19120,19125,19126,19281
+52 ;;19282,19283,19284,19285,19286,19287,19288,19294,2000F,2001F,2002F,2004F,2010F
+53 ;;2014F,2015F,2016F,2018F,2019F,20200,20205,20206,2020F,2021F,20220,20225,2022F
+54 ;;2023F,20240,20245,2024F,20250,20251,2025F,2026F,2027F,2028F,2029F,2030F,2031F
+55 ;;2033F,2035F,2040F,2044F,20500,20501,2050F,20520,20525,20526,20527,20550,20551
+56 ;;20552,20553,20555,20560,20561,20600,20604,20605,20606,2060F,20610,20611,20612
+57 ;;20615,20650,20660,20661,20662,20663,20664,20665,20670,20680,20690,20692,20693
+58 ;;20694,20696,20697,20700,20701,20702,20703,20704,20705,20900,20902,20910,20912
+59 ;;20920,20922,20924,20932,20933,20934,20939,20950,20974,20975,20979,20982,20983
+60 ;;20985,21010,21011,21012,21013,21014,21015,21016,21025,21026,21029,21030,21031
+61 ;;21032,21073,21076,21077,21079,21080,21081,21082,21083,21084,21085,21086,21087
+62 ;;21088,21116,21210,21230,21282,21310,21315,21320,21325,21330,21335,21336,21337
+63 ;;21338,21339,21340,21345,21400,21401,21421,21431,21440,21450,21451,21452,21453
+64 ;;21480,21485,21497,21501,21550,21552,21554,21555,21556,21600,21820,21920,21925
+65 ;;21930,21931,21932,21933,22310,22315,22505,22510,22511,22512,22513,22514,22515
+66 ;;22532,22534,22556,22900,22901,22902,22903,23065,23066,23071,23073,23075,23076
+67 ;;23100,23330,23333,23350,23500,23505,23520,23525,23540,23545,23570,23575,23600
+68 ;;23605,23620,23625,23650,23655,23665,23675,23700,23930,23931,24065,24066,24071
+69 ;;24073,24075,24076,24100,24101,24147,24160,24164,24200,24220,24300,24343,24470
+70 ;;24500,24505,24530,24535,24560,24565,24576,24577,24600,24605,24620,24640,24650
+71 ;;24655,24670,24675,25000,25028,25031,25065,25066,25071,25073,25075,25076,25085
+72 ;;25100,25101,25105,25107,25109,25110,25111,25112,25115,25116,25118,25119,25120
+73 ;;25125,25126,25130,25135,25136,25210,25215,25230,25240,25246,25248,25250,25251
+74 ;;25259,25260,25263,25265,25270,25272,25274,25275,25280,25290,25295,25300,25301
+75 ;;25310,25312,25315,25316,25320,25332,25335,25337,25350,25355,25360,25365,25370
+76 ;;25375,25390,25391,25392,25393,25394,25400,25405,25415,25420,25425,25426,25430
+77 ;;25431,25440,25441,25442,25443,25444,25445,25446,25447,25449,25450,25455,25490
+78 ;;25491,25492,25500,25505,25515,25520,25526,25530,25535,25545,25560,25565,25574
+79 ;;25575,25600,25605,25606,25607,25608,25609,25622,25624,25628,25630,25635,25645
+80 ;;25650,25651,25652,25660,25670,25671,25675,25676,25680,25685,25690,25695,25800
+81 ;;25805,25810,25820,25825,25830,25999,26010,26011,26020,26025,26030,26034,26035
+82 ;;26037,26040,26045,26055,26060,26070,26075,26080,26100,26105,26110,26111,26113
+83 ;;26115,26116,26117,26118,26121,26123,26125,26130,26135,26140,26145,26160,26170
+84 ;;26180,26185,26200,26205,26210,26215,26230,26235,26236,26250,26260,26262,26320
+85 ;;26340,26341,26350,26352,26356,26357,26358,26370,26372,26373,26390,26392,26410
+86 ;;26412,26415,26416,26418,26420,26426,26428,26432,26433,26434,26437,26440,26442
+87 ;;26445,26449,26450,26455,26460,26471,26474,26476,26477,26478,26479,26480,26483
+88 ;;26485,26489,26490,26492,26494,26496,26497,26498,26499,26500,26502,26508,26510
+89 ;;26516,26517,26518,26520,26525,26530,26531,26535,26536,26540,26541,26542,26545
+90 ;;26546,26548,26550,26555,26560,26561,26562,26565,26567,26568,26580,26587,26590
+91 ;;26591,26593,26596,26600,26605,26607,26608,26615,26641,26645,26650,26665,26670
+92 ;;26675,26676,26685,26686,26700,26705,26706,26715,26720,26725,26727,26735,26740
+93 ;;26742,26746,26750,26755,26756,26765,26770,26775,26776,26785,26820,26841,26842
+94 ;;26843,26844,26850,26852,26860,26861,26862,26863,26910,26951,26952,26989,27003
+95 ;;27040,27041,27043,27045,27047,27048,27050,27052,27093,27095,27096,27175,27197
+96 ;;27198,27200,27216,27220,27222,27230,27232,27238,27240,27246,27250,27252,27256
+97 ;;27257,27265,27266,27267,27268,27275,27306,27323,27324,27327,27330,27331,27337
+98 ;;27339,27369,27500,27501,27502,27503,27508,27510,27516,27517,27520,27530,27532
+99 ;;27538,27550,27552,27560,27562,27570,27613,27614,27618,27619,27632,27634,27648
+100 ;;27690,27691,27750,27752,27760,27762,27767,27768,27780,27781,27786,27788,27808
+101 ;;27810,27816,27818,27824,27825,27830,27831,27840,27842,27860,27870,27871,27884
+102 ;;28001,28005,28008,28010,28011,28020,28022,28024,28035,28039,28041,28043,28045
+103 ;;28046,28047,28050,28052,28054,28055,28060,28062,28070,28072,28080,28086,28088
+104 ;;28090,28092,28100,28102,28103,28104,28106,28107,28108,28110,28111,28112,28113
+105 ;;28114,28116,28118,28119,28120,28122,28124,28126,28130,28140,28150,28153,28160
+106 ;;28171,28173,28175,28190,28192,28193,28200,28202,28208,28210,28220,28222,28225
+107 ;;28226,28230,28232,28234,28238,28240,28250,28260,28261,28262,28264,28270,28272
+108 ;;28280,28285,28286,28288,28289,28291,28292,28295,28296,28297,28298,28299,28300
+109 ;;28302,28304,28305,28306,28307,28308,28309,28310,28312,28313,28315,28320,28322
+110 ;;28340,28341,28344,28345,28360,28400,28405,28406,28430,28435,28436,28450,28455
+111 ;;28456,28465,28470,28475,28476,28485,28490,28495,28496,28505,28510,28515,28525
+112 ;;28530,28531,28540,28545,28546,28555,28570,28575,28576,28585,28600,28605,28606
+113 ;;28615,28630,28635,28636,28645,28660,28665,28666,28675,28705,28715,28725,28730
+114 ;;28735,28737,28740,28750,28755,28760,28810,28820,28825,28890,28899,29000,29010
+115 ;;29015,29035,29040,29044,29046,29049,29055,29058,29065,29075,29085,29086,29105
+116 ;;29125,29126,29130,29131,29200,29240,29260,29280,29305,29325,29345,29355,29358
+117 ;;29365,29405,29425,29435,29440,29445,29450,29505,29515,29520,29530,29540,29550
+118 ;;29580,29581,29584,29700,29705,29710,29720,29730,29740,29750,29799,29800,29804
+119 ;;29805,29830,29836,29840,29843,29845,29848,29856,29860,29863,29870,29893,29900
+120 ;;29901,29902,30000,30020,3006F,3008F,30100,30110,30115,30117,30118,3011F,30120
+121 ;;30124,30125,30130,30140,3014F,30150,3015F,30160,3016F,3017F,3018F,3019F,30200
+122 ;;3020F,30210,3021F,30220,3022F,3023F,3025F,3027F,3028F,30300,30310,30320,3035F
+123 ;;3037F,3038F,30400,3040F,30410,30420,3042F,30430,30435,3044F,30450,30460,30462
+124 ;;30465,30468,3046F,3048F,3049F,3050F,3051F,30520,3052F,30540,30545,3055F,30560
+125 ;;3056F,30580,30600,3060F,3061F,30620,3062F,30630,3066F,3072F,3073F,3074F,3075F
+126 ;;3077F,3078F,3079F,30801,30802,3080F,3082F,3083F,3084F,3085F,3088F,3089F,30901
+127 ;;30903,30905,30906,3090F,30915,3091F,30920,3092F,30930,3093F,3095F,3096F,30999
+128 ;;31000,31002,3100F,31020,31030,31032,31040,31050,31051,31070,31075,31080,31081
+129 ;;31084,31085,31086,31087,31090,3110F,3111F,3112F,3115F,3117F,3118F,3119F,31200
+130 ;;31201,31205,3120F,31225,31230,31231,31233,31235,31237,31238,31239,31240,31241
+131 ;;31253,31254,31255,31256,31257,31259,31267,3126F,31276,31287,31288,31290,31291
+132 ;;31292,31293,31294,31295,31296,31297,31298,31299,3130F,3132F,3140F,3141F,3142F
+133 ;;31500,31502,31505,3150F,31510,31511,31512,31513,31515,31520,31525,31526,31527
+134 ;;31528,31529,31530,31531,31535,31536,31540,31541,31545,31546,31551,31552,31553
+135 ;;31554,3155F,31560,31561,31570,31571,31572,31573,31574,31575,31576,31577,31578
+136 ;;31579,31590,31591,31600,31601,31603,31605,3160F,31610,31612,31613,31615,31622
+137 ;;31623,31624,31625,31626,31627,31628,31629,31632,31633,31634,31635,31636,31637
+138 ;;31638,31640,31641,31643,31645,31646,31647,31648,31649,31651,31652,31653,31654
+139 ;;31660,31661,3170F,31717,31720,31725,31730,31830,3200F,32096,32097,32098,3210F
+140 ;;3215F,3216F,3218F,3220F,3230F,32400,32408,3250F,32550,32551,32552,32553,32554
+141 ;;32555,32556,32557,32560,32561,32562,32601,32604,32606,32607,32608,32609,3260F
+142 ;;3265F,3266F,3267F,3268F,3269F,32701,3270F,3271F,3272F,3273F,3274F,3278F,3279F
+143 ;;3280F,3281F,3284F,32850,32855,32856,3285F,3288F,3290F,3291F,3292F,3293F,3294F
+144 ;;32960,32994,32997,3300F,33016,33017,33018,33019,3301F,3315F,3316F,3317F,3318F
+145 ;;3319F,33206,33207,33208,3320F,33210,33211,33212,33213,33214,33215,33216,33217
+146 ;;33218,3321F,33220,33221,33222,33223,33224,33225,33226,33227,33228,33229,3322F
+147 ;;33230,33231,33233,33234,33235,33236,33237,33238,3323F,33240,33241,33243,33244
+148 ;;33249,3324F,3325F,33262,33263,33264,33270,33271,33272,33273,33274,33275,33285
+149 ;;33286,33289,3328F,3330F,3331F,3340F,3341F,3342F,3343F,3344F,3345F,33470,33471
+150 ;;33509,3350F,3351F,3352F,3353F,3354F,33620,33622,3370F,3372F,33741,33745,33746
+151 ;;3374F,3376F,3378F,3380F,3382F,3384F,3386F,3388F,3390F,33930,33933,33940,33944
+152 ;;33946,33947,33948,33949,3394F,33951,33952,33953,33954,33955,33956,33957,33958
+153 ;;33959,3395F,33962,33963,33964,33965,33966,33967,33968,33969,33970,33971,33984
+154 ;;33985,33986,33995,33997,3450F,3451F,3452F,3455F,3470F,34712,34713,34714,34715
+155 ;;34716,3471F,3472F,3475F,3476F,34839,3490F,3491F,3492F,3493F,3494F,3495F,3496F
+156 ;;3497F,3498F,3500F,3502F,3503F,3510F,3511F,3512F,3513F,3514F,3515F,3517F,3520F
+157 ;;35400,3550F,3551F,3552F,3555F,35702,35703,3570F,3572F,3573F,36000,36002,36005
+158 ;;36010,36011,36012,36013,36014,36015,36100,36140,36160,36200,36215,36216,36217
+159 ;;36218,36221,36222,36223,36224,36225,36226,36227,36228,36245,36246,36247,36248
+160 ;;36251,36252,36253,36254,36260,36261,36262,36299,36400,36405,36406,36410,36415
+161 ;;36416,36420,36425,36430,36440,36450,36455,36456,36460,36465,36466,36468,36470