SR210UT0 ;HPS/JSG - FY23 CPT EXCLUSION UTILITY, CONTINUED; Mar 28, 2023@09:49
;;3.0;Surgery;**206,210**;24 Jun 93;Build 4
;
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 ;
;;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,15851,15852,15853,15854,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,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,22857,22860,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,27280,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,30469,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,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,36471,36473,36474,36481,36482,36483,36500,3650F,36510,36511,36512
;;36513,36514,36516,36522,36555,36556,36557,36558,36560,36561,36563,36565,36566
;;36568,36569,36570,36571,36572,36573,36575,36576,36578,36580,36581,36582,36583
;;36584,36585,36589,36590,36591,36592,36593,36595,36596,36597,36598,36600,36620
;;36625,36640,36660,36680,36800,36810,36815,36818,36819,36820,36821,36825,36830
;;36831,36832,36833,36835,36836,36837,36838,36860,36861,36901,36902,36903,36904
;;36905,36906,36907,36908,36909,3700F,37191,37192,37193,37195,37197,37200,3720F
;;37211,37212,37213,37214,37246,37247,37248,37249,37252,37253,3725F,3750F,3751F
;;3752F,3753F,3754F,3755F,3756F,3757F,3758F,3759F,37607,37609,3760F,3761F,3762F
;;3763F,37700,37718,37722,37735,3775F,37760,37761,37765,37766,3776F,37780,37785
;;38200,38204,38205,38206,38207,38208,38209,38210,38211,38212,38213,38214,38215
;;38220,38221,38222,38230,38232,38240,38241,38242,38243,38300,38305,38308,38500
;;38505,38510,38520,38525,38530,38531,38562,38564,38570,38790,38792,38794,38900
;;39401,39402,39503,4000F,4001F,4003F,4004F,4005F,4008F,4010F,4011F,4012F,4013F
;;4014F,4015F,4016F,4017F,4018F,4019F,4025F,4030F,4033F,4035F,4037F,4040F,4041F
;;4042F,4043F,4044F,4045F,4046F,4047F,4048F,40490,4049F,40500,4050F,40510,4051F
;;40520,40525,40527,4052F,40530,4053F,4054F,4055F,4056F,4058F,4060F,4062F,4063F
;;4064F,40650,40652,40654,4065F,4066F,4067F,4069F,4070F,4073F,4075F,4077F,40799
;;4079F,40800,40801,40804,40805,40806,40808,40810,40812,40814,40816,40818,40819
;;40820,40830,40831,40840,4084F,4086F,4090F,4095F,4100F,41010,41015,41019,41100
;;41105,41108,4110F,41110,41115,4115F,4120F,4124F,41250,41251,41252,4130F,4131F
;;4132F,4133F,4134F,4135F,4136F,4140F,4142F,4144F,4145F,4148F,4149F,4150F,41510
;;4151F,41520,4153F,4155F,4157F,4158F,4159F,4163F,4164F,4165F,4167F,4168F,4169F
;;4171F,4172F,4174F,4175F,4176F,4177F,4178F,4179F,41800,41805,41806,4180F,4181F
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR210UT0 13819 printed Nov 22, 2024@17:48:29 Page 2
SR210UT0 ;HPS/JSG - FY23 CPT EXCLUSION UTILITY, CONTINUED; Mar 28, 2023@09:49
+1 ;;3.0;Surgery;**206,210**;24 Jun 93;Build 4
+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 ;;1052F,1055F,1060F,1061F,1065F,1066F,1070F,1071F,1090F,1091F,11000,11001,1100F
+2 ;;1101F,11042,11043,11044,11045,11046,11047,11055,11056,11057,11102,11103,11104
+3 ;;11105,11106,11107,1110F,1111F,1116F,1118F,1119F,11200,11201,1121F,1123F,1124F
+4 ;;1125F,1126F,1127F,1128F,11300,11301,11302,11303,11305,11306,11307,11308,1130F
+5 ;;11310,11311,11312,11313,1134F,1135F,1136F,1137F,11400,11401,11402,11403,11404
+6 ;;11406,11420,11421,11422,11423,11424,11426,11440,11441,11442,11443,11444,11446
+7 ;;11450,11451,11462,11463,11470,11471,1150F,1151F,1152F,1153F,1157F,1158F,1159F
+8 ;;11600,11601,11602,11603,11604,11606,1160F,11620,11621,11622,11623,11624,11626
+9 ;;11640,11641,11642,11643,11644,11646,1170F,11719,11720,11721,11730,11732,11740
+10 ;;11750,11755,1175F,11760,11762,11765,11770,11771,11772,1180F,1181F,1182F,1183F
+11 ;;11900,11901,11920,11921,11922,11950,11951,11952,11954,11960,11970,11971,11976
+12 ;;11980,11981,11982,11983,12001,12002,12004,12005,12006,12007,1200F,12011,12013
+13 ;;12014,12015,12016,12017,12018,12020,12021,12031,12032,12034,12035,12036,12037
+14 ;;12041,12042,12044,12045,12046,12047,12051,12052,12053,12054,12055,12056,12057
+15 ;;1205F,1220F,13100,13101,13102,13120,13121,13122,13131,13132,13133,13151,13152
+16 ;;13153,13160,14000,14001,1400F,14020,14021,14040,14041,14060,14061,14301,14302
+17 ;;14350,1450F,1451F,1460F,1461F,1490F,1491F,1493F,1494F,15002,15003,15004,1500F
+18 ;;1501F,1502F,1503F,1504F,15050,1505F,15100,15101,15110,15111,15115,15116,15120
+19 ;;15121,15130,15131,15135,15136,15150,15151,15152,15155,15156,15157,15200,15201
+20 ;;15220,15221,15240,15241,15260,15261,15271,15272,15273,15274,15275,15276,15277
+21 ;;15278,15570,15572,15574,15576,15730,15733,15769,15771,15772,15773,15774,15775
+22 ;;15776,15777,15780,15781,15782,15783,15786,15787,15788,15789,15792,15793,15819
+23 ;;15820,15821,15822,15823,15824,15825,15826,15828,15829,15832,15833,15834,15835
+24 ;;15836,15837,15838,15839,15840,15841,15842,15845,15851,15852,15853,15854,15860
+25 ;;15876,15877,15878,15879,16000,16020,16025,16030,16035,16036,17000,17003,17004
+26 ;;17106,17107,17108,17110,17111,17250,17260,17261,17262,17263,17264,17266,17270
+27 ;;17271,17272,17273,17274,17276,17280,17281,17282,17283,17284,17286,17311,17312
+28 ;;17313,17314,17315,17340,17360,17380,17999,19000,19001,19020,19030,19081,19082
+29 ;;19083,19084,19085,19086,19100,19101,19105,19110,19112,19120,19125,19126,19281
+30 ;;19282,19283,19284,19285,19286,19287,19288,19294,2000F,2001F,2002F,2004F,2010F
+31 ;;2014F,2015F,2016F,2018F,2019F,20200,20205,20206,2020F,2021F,20220,20225,2022F
+32 ;;2023F,20240,20245,2024F,20250,20251,2025F,2026F,2027F,2028F,2029F,2030F,2031F
+33 ;;2033F,2035F,2040F,2044F,20500,20501,2050F,20520,20525,20526,20527,20550,20551
+34 ;;20552,20553,20555,20560,20561,20600,20604,20605,20606,2060F,20610,20611,20612
+35 ;;20615,20650,20660,20661,20662,20663,20664,20665,20670,20680,20690,20692,20693
+36 ;;20694,20696,20697,20700,20701,20702,20703,20704,20705,20900,20902,20910,20912
+37 ;;20920,20922,20924,20932,20933,20934,20939,20950,20974,20975,20979,20982,20983
+38 ;;20985,21010,21011,21012,21013,21014,21015,21016,21025,21026,21029,21030,21031
+39 ;;21032,21073,21076,21077,21079,21080,21081,21082,21083,21084,21085,21086,21087
+40 ;;21088,21116,21210,21230,21282,21315,21320,21325,21330,21335,21336,21337,21338
+41 ;;21339,21340,21345,21400,21401,21421,21431,21440,21450,21451,21452,21453,21480
+42 ;;21485,21497,21501,21550,21552,21554,21555,21556,21600,21820,21920,21925,21930
+43 ;;21931,21932,21933,22310,22315,22505,22510,22511,22512,22513,22514,22515,22532
+44 ;;22534,22556,22857,22860,22900,22901,22902,22903,23065,23066,23071,23073,23075
+45 ;;23076,23100,23330,23333,23350,23500,23505,23520,23525,23540,23545,23570,23575
+46 ;;23600,23605,23620,23625,23650,23655,23665,23675,23700,23930,23931,24065,24066
+47 ;;24071,24073,24075,24076,24100,24101,24147,24160,24164,24200,24220,24300,24343
+48 ;;24470,24500,24505,24530,24535,24560,24565,24576,24577,24600,24605,24620,24640
+49 ;;24650,24655,24670,24675,25000,25028,25031,25065,25066,25071,25073,25075,25076
+50 ;;25085,25100,25101,25105,25107,25109,25110,25111,25112,25115,25116,25118,25119
+51 ;;25120,25125,25126,25130,25135,25136,25210,25215,25230,25240,25246,25248,25250
+52 ;;25251,25259,25260,25263,25265,25270,25272,25274,25275,25280,25290,25295,25300
+53 ;;25301,25310,25312,25315,25316,25320,25332,25335,25337,25350,25355,25360,25365
+54 ;;25370,25375,25390,25391,25392,25393,25394,25400,25405,25415,25420,25425,25426
+55 ;;25430,25431,25440,25441,25442,25443,25444,25445,25446,25447,25449,25450,25455
+56 ;;25490,25491,25492,25500,25505,25515,25520,25526,25530,25535,25545,25560,25565
+57 ;;25574,25575,25600,25605,25606,25607,25608,25609,25622,25624,25628,25630,25635
+58 ;;25645,25650,25651,25652,25660,25670,25671,25675,25676,25680,25685,25690,25695
+59 ;;25800,25805,25810,25820,25825,25830,25999,26010,26011,26020,26025,26030,26034
+60 ;;26035,26037,26040,26045,26055,26060,26070,26075,26080,26100,26105,26110,26111
+61 ;;26113,26115,26116,26117,26118,26121,26123,26125,26130,26135,26140,26145,26160
+62 ;;26170,26180,26185,26200,26205,26210,26215,26230,26235,26236,26250,26260,26262
+63 ;;26320,26340,26341,26350,26352,26356,26357,26358,26370,26372,26373,26390,26392
+64 ;;26410,26412,26415,26416,26418,26420,26426,26428,26432,26433,26434,26437,26440
+65 ;;26442,26445,26449,26450,26455,26460,26471,26474,26476,26477,26478,26479,26480
+66 ;;26483,26485,26489,26490,26492,26494,26496,26497,26498,26499,26500,26502,26508
+67 ;;26510,26516,26517,26518,26520,26525,26530,26531,26535,26536,26540,26541,26542
+68 ;;26545,26546,26548,26550,26555,26560,26561,26562,26565,26567,26568,26580,26587
+69 ;;26590,26591,26593,26596,26600,26605,26607,26608,26615,26641,26645,26650,26665
+70 ;;26670,26675,26676,26685,26686,26700,26705,26706,26715,26720,26725,26727,26735
+71 ;;26740,26742,26746,26750,26755,26756,26765,26770,26775,26776,26785,26820,26841
+72 ;;26842,26843,26844,26850,26852,26860,26861,26862,26863,26910,26951,26952,26989
+73 ;;27003,27040,27041,27043,27045,27047,27048,27050,27052,27093,27095,27096,27175
+74 ;;27197,27198,27200,27216,27220,27222,27230,27232,27238,27240,27246,27250,27252
+75 ;;27256,27257,27265,27266,27267,27268,27275,27280,27306,27323,27324,27327,27330
+76 ;;27331,27337,27339,27369,27500,27501,27502,27503,27508,27510,27516,27517,27520
+77 ;;27530,27532,27538,27550,27552,27560,27562,27570,27613,27614,27618,27619,27632
+78 ;;27634,27648,27690,27691,27750,27752,27760,27762,27767,27768,27780,27781,27786
+79 ;;27788,27808,27810,27816,27818,27824,27825,27830,27831,27840,27842,27860,27870
+80 ;;27871,27884,28001,28005,28008,28010,28011,28020,28022,28024,28035,28039,28041
+81 ;;28043,28045,28046,28047,28050,28052,28054,28055,28060,28062,28070,28072,28080
+82 ;;28086,28088,28090,28092,28100,28102,28103,28104,28106,28107,28108,28110,28111
+83 ;;28112,28113,28114,28116,28118,28119,28120,28122,28124,28126,28130,28140,28150
+84 ;;28153,28160,28171,28173,28175,28190,28192,28193,28200,28202,28208,28210,28220
+85 ;;28222,28225,28226,28230,28232,28234,28238,28240,28250,28260,28261,28262,28264
+86 ;;28270,28272,28280,28285,28286,28288,28289,28291,28292,28295,28296,28297,28298
+87 ;;28299,28300,28302,28304,28305,28306,28307,28308,28309,28310,28312,28313,28315
+88 ;;28320,28322,28340,28341,28344,28345,28360,28400,28405,28406,28430,28435,28436
+89 ;;28450,28455,28456,28465,28470,28475,28476,28485,28490,28495,28496,28505,28510
+90 ;;28515,28525,28530,28531,28540,28545,28546,28555,28570,28575,28576,28585,28600
+91 ;;28605,28606,28615,28630,28635,28636,28645,28660,28665,28666,28675,28705,28715
+92 ;;28725,28730,28735,28737,28740,28750,28755,28760,28810,28820,28825,28890,28899
+93 ;;29000,29010,29015,29035,29040,29044,29046,29049,29055,29058,29065,29075,29085
+94 ;;29086,29105,29125,29126,29130,29131,29200,29240,29260,29280,29305,29325,29345
+95 ;;29355,29358,29365,29405,29425,29435,29440,29445,29450,29505,29515,29520,29530
+96 ;;29540,29550,29580,29581,29584,29700,29705,29710,29720,29730,29740,29750,29799
+97 ;;29800,29804,29805,29830,29836,29840,29843,29845,29848,29856,29860,29863,29870
+98 ;;29893,29900,29901,29902,30000,30020,3006F,3008F,30100,30110,30115,30117,30118
+99 ;;3011F,30120,30124,30125,30130,30140,3014F,30150,3015F,30160,3016F,3017F,3018F
+100 ;;3019F,30200,3020F,30210,3021F,30220,3022F,3023F,3025F,3027F,3028F,30300,30310
+101 ;;30320,3035F,3037F,3038F,30400,3040F,30410,30420,3042F,30430,30435,3044F,30450
+102 ;;30460,30462,30465,30468,30469,3046F,3048F,3049F,3050F,3051F,30520,3052F,30540
+103 ;;30545,3055F,30560,3056F,30580,30600,3060F,3061F,30620,3062F,30630,3066F,3072F
+104 ;;3073F,3074F,3075F,3077F,3078F,3079F,30801,30802,3080F,3082F,3083F,3084F,3085F
+105 ;;3088F,3089F,30901,30903,30905,30906,3090F,30915,3091F,30920,3092F,30930,3093F
+106 ;;3095F,3096F,30999,31000,31002,3100F,31020,31030,31032,31040,31050,31051,31070
+107 ;;31075,31080,31081,31084,31085,31086,31087,31090,3110F,3111F,3112F,3115F,3117F
+108 ;;3118F,3119F,31200,31201,31205,3120F,31225,31230,31231,31233,31235,31237,31238
+109 ;;31239,31240,31241,31253,31254,31255,31256,31257,31259,31267,3126F,31276,31287
+110 ;;31288,31290,31291,31292,31293,31294,31295,31296,31297,31298,31299,3130F,3132F
+111 ;;3140F,3141F,3142F,31500,31502,31505,3150F,31510,31511,31512,31513,31515,31520
+112 ;;31525,31526,31527,31528,31529,31530,31531,31535,31536,31540,31541,31545,31546
+113 ;;31551,31552,31553,31554,3155F,31560,31561,31570,31571,31572,31573,31574,31575
+114 ;;31576,31577,31578,31579,31590,31591,31600,31601,31603,31605,3160F,31610,31612
+115 ;;31613,31615,31622,31623,31624,31625,31626,31627,31628,31629,31632,31633,31634
+116 ;;31635,31636,31637,31638,31640,31641,31643,31645,31646,31647,31648,31649,31651
+117 ;;31652,31653,31654,31660,31661,3170F,31717,31720,31725,31730,31830,3200F,32096
+118 ;;32097,32098,3210F,3215F,3216F,3218F,3220F,3230F,32400,32408,3250F,32550,32551
+119 ;;32552,32553,32554,32555,32556,32557,32560,32561,32562,32601,32604,32606,32607
+120 ;;32608,32609,3260F,3265F,3266F,3267F,3268F,3269F,32701,3270F,3271F,3272F,3273F
+121 ;;3274F,3278F,3279F,3280F,3281F,3284F,32850,32855,32856,3285F,3288F,3290F,3291F
+122 ;;3292F,3293F,3294F,32960,32994,32997,3300F,33016,33017,33018,33019,3301F,3315F
+123 ;;3316F,3317F,3318F,3319F,33206,33207,33208,3320F,33210,33211,33212,33213,33214
+124 ;;33215,33216,33217,33218,3321F,33220,33221,33222,33223,33224,33225,33226,33227
+125 ;;33228,33229,3322F,33230,33231,33233,33234,33235,33236,33237,33238,3323F,33240
+126 ;;33241,33243,33244,33249,3324F,3325F,33262,33263,33264,33270,33271,33272,33273
+127 ;;33274,33275,33285,33286,33289,3328F,3330F,3331F,3340F,3341F,3342F,3343F,3344F
+128 ;;3345F,33471,33509,3350F,3351F,3352F,3353F,3354F,33620,33622,3370F,3372F,33741
+129 ;;33745,33746,3374F,3376F,3378F,3380F,3382F,3384F,3386F,3388F,3390F,33930,33933
+130 ;;33940,33944,33946,33947,33948,33949,3394F,33951,33952,33953,33954,33955,33956
+131 ;;33957,33958,33959,3395F,33962,33963,33964,33965,33966,33967,33968,33969,33970
+132 ;;33971,33984,33985,33986,33995,33997,3450F,3451F,3452F,3455F,3470F,34712,34713
+133 ;;34714,34715,34716,3471F,3472F,3475F,3476F,34839,3490F,3491F,3492F,3493F,3494F
+134 ;;3495F,3496F,3497F,3498F,3500F,3502F,3503F,3510F,3511F,3512F,3513F,3514F,3515F
+135 ;;3517F,3520F,35400,3550F,3551F,3552F,3555F,35702,35703,3570F,3572F,3573F,36000
+136 ;;36002,36005,36010,36011,36012,36013,36014,36015,36100,36140,36160,36200,36215
+137 ;;36216,36217,36218,36221,36222,36223,36224,36225,36226,36227,36228,36245,36246
+138 ;;36247,36248,36251,36252,36253,36254,36260,36261,36262,36299,36400,36405,36406
+139 ;;36410,36415,36416,36420,36425,36430,36440,36450,36455,36456,36460,36465,36466
+140 ;;36468,36470,36471,36473,36474,36481,36482,36483,36500,3650F,36510,36511,36512
+141 ;;36513,36514,36516,36522,36555,36556,36557,36558,36560,36561,36563,36565,36566
+142 ;;36568,36569,36570,36571,36572,36573,36575,36576,36578,36580,36581,36582,36583
+143 ;;36584,36585,36589,36590,36591,36592,36593,36595,36596,36597,36598,36600,36620
+144 ;;36625,36640,36660,36680,36800,36810,36815,36818,36819,36820,36821,36825,36830
+145 ;;36831,36832,36833,36835,36836,36837,36838,36860,36861,36901,36902,36903,36904
+146 ;;36905,36906,36907,36908,36909,3700F,37191,37192,37193,37195,37197,37200,3720F
+147 ;;37211,37212,37213,37214,37246,37247,37248,37249,37252,37253,3725F,3750F,3751F
+148 ;;3752F,3753F,3754F,3755F,3756F,3757F,3758F,3759F,37607,37609,3760F,3761F,3762F
+149 ;;3763F,37700,37718,37722,37735,3775F,37760,37761,37765,37766,3776F,37780,37785
+150 ;;38200,38204,38205,38206,38207,38208,38209,38210,38211,38212,38213,38214,38215
+151 ;;38220,38221,38222,38230,38232,38240,38241,38242,38243,38300,38305,38308,38500
+152 ;;38505,38510,38520,38525,38530,38531,38562,38564,38570,38790,38792,38794,38900
+153 ;;39401,39402,39503,4000F,4001F,4003F,4004F,4005F,4008F,4010F,4011F,4012F,4013F
+154 ;;4014F,4015F,4016F,4017F,4018F,4019F,4025F,4030F,4033F,4035F,4037F,4040F,4041F
+155 ;;4042F,4043F,4044F,4045F,4046F,4047F,4048F,40490,4049F,40500,4050F,40510,4051F
+156 ;;40520,40525,40527,4052F,40530,4053F,4054F,4055F,4056F,4058F,4060F,4062F,4063F
+157 ;;4064F,40650,40652,40654,4065F,4066F,4067F,4069F,4070F,4073F,4075F,4077F,40799
+158 ;;4079F,40800,40801,40804,40805,40806,40808,40810,40812,40814,40816,40818,40819
+159 ;;40820,40830,40831,40840,4084F,4086F,4090F,4095F,4100F,41010,41015,41019,41100
+160 ;;41105,41108,4110F,41110,41115,4115F,4120F,4124F,41250,41251,41252,4130F,4131F
+161 ;;4132F,4133F,4134F,4135F,4136F,4140F,4142F,4144F,4145F,4148F,4149F,4150F,41510
+162 ;;4151F,41520,4153F,4155F,4157F,4158F,4159F,4163F,4164F,4165F,4167F,4168F,4169F
+163 ;;4171F,4172F,4174F,4175F,4176F,4177F,4178F,4179F,41800,41805,41806,4180F,4181F
