SR215UT0 ;HPS/JSG - FY24 CPT EXCLUSION UTILITY, CONTINUED; Apr 3, 2024@11:40
;;3.0;Surgery;**206,210,215**;24 Jun 93;Build 7
;
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 ;
;;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,27278,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,31242,31243,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
;;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,33276,33277,33278,33279,33280,33281,33285,33286,33287,33288,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,41820,41821,41822,41823,41825
;;41826,41827,41828,4182F,41830,41850,4185F,4186F,41870,41872,41874,4187F,4188F
;;41899,4189F,4190F,4191F,4192F,4193F,4194F,4195F,4196F,42000,4200F,4201F,42100
;;42104,42106,42107,4210F,42120,42140,42145,42160,42180,42182,42200,42205,4220F
;;42210,42215,4221F,42220,42225,42226,42227,42235,42260,42280,42281,42299,42300
;;42305,4230F,42310,42320,42330,42335,42340,42400,42405,42408,42409,4240F,4242F
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR215UT0 11280 printed Oct 16, 2024@18:39:14 Page 2
SR215UT0 ;HPS/JSG - FY24 CPT EXCLUSION UTILITY, CONTINUED; Apr 3, 2024@11:40
+1 ;;3.0;Surgery;**206,210,215**;24 Jun 93;Build 7
+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 ;;20932,20933,20934,20939,20950,20974,20975,20979,20982,20983,20985,21010,21011
+2 ;;21012,21013,21014,21015,21016,21025,21026,21029,21030,21031,21032,21073,21076
+3 ;;21077,21079,21080,21081,21082,21083,21084,21085,21086,21087,21088,21116,21210
+4 ;;21230,21282,21315,21320,21325,21330,21335,21336,21337,21338,21339,21340,21345
+5 ;;21400,21401,21421,21431,21440,21450,21451,21452,21453,21480,21485,21497,21501
+6 ;;21550,21552,21554,21555,21556,21600,21820,21920,21925,21930,21931,21932,21933
+7 ;;22310,22315,22505,22510,22511,22512,22513,22514,22515,22532,22534,22556,22857
+8 ;;22860,22900,22901,22902,22903,23065,23066,23071,23073,23075,23076,23100,23330
+9 ;;23333,23350,23500,23505,23520,23525,23540,23545,23570,23575,23600,23605,23620
+10 ;;23625,23650,23655,23665,23675,23700,23930,23931,24065,24066,24071,24073,24075
+11 ;;24076,24100,24101,24147,24160,24164,24200,24220,24300,24343,24470,24500,24505
+12 ;;24530,24535,24560,24565,24576,24577,24600,24605,24620,24640,24650,24655,24670
+13 ;;24675,25000,25028,25031,25065,25066,25071,25073,25075,25076,25085,25100,25101
+14 ;;25105,25107,25109,25110,25111,25112,25115,25116,25118,25119,25120,25125,25126
+15 ;;25130,25135,25136,25210,25215,25230,25240,25246,25248,25250,25251,25259,25260
+16 ;;25263,25265,25270,25272,25274,25275,25280,25290,25295,25300,25301,25310,25312
+17 ;;25315,25316,25320,25332,25335,25337,25350,25355,25360,25365,25370,25375,25390
+18 ;;25391,25392,25393,25394,25400,25405,25415,25420,25425,25426,25430,25431,25440
+19 ;;25441,25442,25443,25444,25445,25446,25447,25449,25450,25455,25490,25491,25492
+20 ;;25500,25505,25515,25520,25526,25530,25535,25545,25560,25565,25574,25575,25600
+21 ;;25605,25606,25607,25608,25609,25622,25624,25628,25630,25635,25645,25650,25651
+22 ;;25652,25660,25670,25671,25675,25676,25680,25685,25690,25695,25800,25805,25810
+23 ;;25820,25825,25830,25999,26010,26011,26020,26025,26030,26034,26035,26037,26040
+24 ;;26045,26055,26060,26070,26075,26080,26100,26105,26110,26111,26113,26115,26116
+25 ;;26117,26118,26121,26123,26125,26130,26135,26140,26145,26160,26170,26180,26185
+26 ;;26200,26205,26210,26215,26230,26235,26236,26250,26260,26262,26320,26340,26341
+27 ;;26350,26352,26356,26357,26358,26370,26372,26373,26390,26392,26410,26412,26415
+28 ;;26416,26418,26420,26426,26428,26432,26433,26434,26437,26440,26442,26445,26449
+29 ;;26450,26455,26460,26471,26474,26476,26477,26478,26479,26480,26483,26485,26489
+30 ;;26490,26492,26494,26496,26497,26498,26499,26500,26502,26508,26510,26516,26517
+31 ;;26518,26520,26525,26530,26531,26535,26536,26540,26541,26542,26545,26546,26548
+32 ;;26550,26555,26560,26561,26562,26565,26567,26568,26580,26587,26590,26591,26593
+33 ;;26596,26600,26605,26607,26608,26615,26641,26645,26650,26665,26670,26675,26676
+34 ;;26685,26686,26700,26705,26706,26715,26720,26725,26727,26735,26740,26742,26746
+35 ;;26750,26755,26756,26765,26770,26775,26776,26785,26820,26841,26842,26843,26844
+36 ;;26850,26852,26860,26861,26862,26863,26910,26951,26952,26989,27003,27040,27041
+37 ;;27043,27045,27047,27048,27050,27052,27093,27095,27096,27175,27197,27198,27200
+38 ;;27216,27220,27222,27230,27232,27238,27240,27246,27250,27252,27256,27257,27265
+39 ;;27266,27267,27268,27275,27278,27280,27306,27323,27324,27327,27330,27331,27337
+40 ;;27339,27369,27500,27501,27502,27503,27508,27510,27516,27517,27520,27530,27532
+41 ;;27538,27550,27552,27560,27562,27570,27613,27614,27618,27619,27632,27634,27648
+42 ;;27690,27691,27750,27752,27760,27762,27767,27768,27780,27781,27786,27788,27808
+43 ;;27810,27816,27818,27824,27825,27830,27831,27840,27842,27860,27870,27871,27884
+44 ;;28001,28005,28008,28010,28011,28020,28022,28024,28035,28039,28041,28043,28045
+45 ;;28046,28047,28050,28052,28054,28055,28060,28062,28070,28072,28080,28086,28088
+46 ;;28090,28092,28100,28102,28103,28104,28106,28107,28108,28110,28111,28112,28113
+47 ;;28114,28116,28118,28119,28120,28122,28124,28126,28130,28140,28150,28153,28160
+48 ;;28171,28173,28175,28190,28192,28193,28200,28202,28208,28210,28220,28222,28225
+49 ;;28226,28230,28232,28234,28238,28240,28250,28260,28261,28262,28264,28270,28272
+50 ;;28280,28285,28286,28288,28289,28291,28292,28295,28296,28297,28298,28299,28300
+51 ;;28302,28304,28305,28306,28307,28308,28309,28310,28312,28313,28315,28320,28322
+52 ;;28340,28341,28344,28345,28360,28400,28405,28406,28430,28435,28436,28450,28455
+53 ;;28456,28465,28470,28475,28476,28485,28490,28495,28496,28505,28510,28515,28525
+54 ;;28530,28531,28540,28545,28546,28555,28570,28575,28576,28585,28600,28605,28606
+55 ;;28615,28630,28635,28636,28645,28660,28665,28666,28675,28705,28715,28725,28730
+56 ;;28735,28737,28740,28750,28755,28760,28810,28820,28825,28890,28899,29000,29010
+57 ;;29015,29035,29040,29044,29046,29049,29055,29058,29065,29075,29085,29086,29105
+58 ;;29125,29126,29130,29131,29200,29240,29260,29280,29305,29325,29345,29355,29358
+59 ;;29365,29405,29425,29435,29440,29445,29450,29505,29515,29520,29530,29540,29550
+60 ;;29580,29581,29584,29700,29705,29710,29720,29730,29740,29750,29799,29800,29804
+61 ;;29805,29830,29836,29840,29843,29845,29848,29856,29860,29863,29870,29893,29900
+62 ;;29901,29902,30000,30020,3006F,3008F,30100,30110,30115,30117,30118,3011F,30120
+63 ;;30124,30125,30130,30140,3014F,30150,3015F,30160,3016F,3017F,3018F,3019F,30200
+64 ;;3020F,30210,3021F,30220,3022F,3023F,3025F,3027F,3028F,30300,30310,30320,3035F
+65 ;;3037F,3038F,30400,3040F,30410,30420,3042F,30430,30435,3044F,30450,30460,30462
+66 ;;30465,30468,30469,3046F,3048F,3049F,3050F,3051F,30520,3052F,30540,30545,3055F
+67 ;;30560,3056F,30580,30600,3060F,3061F,30620,3062F,30630,3066F,3072F,3073F,3074F
+68 ;;3075F,3077F,3078F,3079F,30801,30802,3080F,3082F,3083F,3084F,3085F,3088F,3089F
+69 ;;30901,30903,30905,30906,3090F,30915,3091F,30920,3092F,30930,3093F,3095F,3096F
+70 ;;30999,31000,31002,3100F,31020,31030,31032,31040,31050,31051,31070,31075,31080
+71 ;;31081,31084,31085,31086,31087,31090,3110F,3111F,3112F,3115F,3117F,3118F,3119F
+72 ;;31200,31201,31205,3120F,31225,31230,31231,31233,31235,31237,31238,31239,31240
+73 ;;31241,31242,31243,31253,31254,31255,31256,31257,31259,31267,3126F,31276,31287
+74 ;;31288,31290,31291,31292,31293,31294,31295,31296,31297,31298,31299,3130F,3132F
+75 ;;3140F,3141F,3142F,31500,31502,31505,3150F,31510,31511,31512,31513,31515,31520
+76 ;;31525,31526,31527,31528,31529,31530,31531,31535,31536,31540,31541,31545,31546
+77 ;;31551,31552,31553,31554,3155F,31560,31561,31570,31571,31572,31573,31574,31575
+78 ;;31576,31577,31578,31579,31590,31591,31600,31601,31603,31605,3160F,31610,31612
+79 ;;31613,31615,31622,31623,31624,31625,31626,31627,31628,31629,31632,31633,31634
+80 ;;31635,31636,31637,31638,31640,31641,31643,31645,31646,31647,31648,31649,31651
+81 ;;31652,31653,31654,31660,31661,3170F,31717,31720,31725,31730,31830,3200F,32096
+82 ;;32097,32098,3210F,3215F,3216F,3218F,3220F,3230F,32400,32408,3250F,32550,32551
+83 ;;32552,32553,32554,32555,32556,32557,32560,32561,32562,32601,32604,32606,32607
+84 ;;32608,32609,3260F,3265F,3266F,3267F,3268F,3269F,32701,3270F,3271F,3272F,3273F
+85 ;;3274F,3278F,3279F,3280F,3281F,3284F,32850,32855,32856,3285F,3288F,3290F,3291F
+86 ;;3316F,3317F,3318F,3319F,33206,33207,33208,3320F,33210,33211,33212,33213,33214
+87 ;;33215,33216,33217,33218,3321F,33220,33221,33222,33223,33224,33225,33226,33227
+88 ;;33228,33229,3322F,33230,33231,33233,33234,33235,33236,33237,33238,3323F,33240
+89 ;;33241,33243,33244,33249,3324F,3325F,33262,33263,33264,33270,33271,33272,33273
+90 ;;33274,33275,33276,33277,33278,33279,33280,33281,33285,33286,33287,33288,33289
+91 ;;3328F,3330F,3331F,3340F,3341F,3342F,3343F,3344F,3345F,33471,33509,3350F,3351F
+92 ;;3352F,3353F,3354F,33620,33622,3370F,3372F,33741,33745,33746,3374F,3376F,3378F
+93 ;;3380F,3382F,3384F,3386F,3388F,3390F,33930,33933,33940,33944,33946,33947,33948
+94 ;;33949,3394F,33951,33952,33953,33954,33955,33956,33957,33958,33959,3395F,33962
+95 ;;33963,33964,33965,33966,33967,33968,33969,33970,33971,33984,33985,33986,33995
+96 ;;33997,3450F,3451F,3452F,3455F,3470F,34712,34713,34714,34715,34716,3471F,3472F
+97 ;;3475F,3476F,34839,3490F,3491F,3492F,3493F,3494F,3495F,3496F,3497F,3498F,3500F
+98 ;;3502F,3503F,3510F,3511F,3512F,3513F,3514F,3515F,3517F,3520F,35400,3550F,3551F
+99 ;;3552F,3555F,35702,35703,3570F,3572F,3573F,36000,36002,36005,36010,36011,36012
+100 ;;36013,36014,36015,36100,36140,36160,36200,36215,36216,36217,36218,36221,36222
+101 ;;36223,36224,36225,36226,36227,36228,36245,36246,36247,36248,36251,36252,36253
+102 ;;36254,36260,36261,36262,36299,36400,36405,36406,36410,36415,36416,36420,36425
+103 ;;36430,36440,36450,36455,36456,36460,36465,36466,36468,36470,36471,36473,36474
+104 ;;36481,36482,36483,36500,3650F,36510,36511,36512,36513,36514,36516,36522,36555
+105 ;;36556,36557,36558,36560,36561,36563,36565,36566,36568,36569,36570,36571,36572
+106 ;;36573,36575,36576,36578,36580,36581,36582,36583,36584,36585,36589,36590,36591
+107 ;;36592,36593,36595,36596,36597,36598,36600,36620,36625,36640,36660,36680,36800
+108 ;;36810,36815,36818,36819,36820,36821,36825,36830,36831,36832,36833,36835,36836
+109 ;;36837,36838,36860,36861,36901,36902,36903,36904,36905,36906,36907,36908,36909
+110 ;;3700F,37191,37192,37193,37195,37197,37200,3720F,37211,37212,37213,37214,37246
+111 ;;37247,37248,37249,37252,37253,3725F,3750F,3751F,3752F,3753F,3754F,3755F,3756F
+112 ;;3757F,3758F,3759F,37607,37609,3760F,3761F,3762F,3763F,37700,37718,37722,37735
+113 ;;3775F,37760,37761,37765,37766,3776F,37780,37785,38200,38204,38205,38206,38207
+114 ;;38208,38209,38210,38211,38212,38213,38214,38215,38220,38221,38222,38230,38232
+115 ;;38240,38241,38242,38243,38300,38305,38308,38500,38505,38510,38520,38525,38530
+116 ;;38531,38562,38564,38570,38790,38792,38794,38900,39401,39402,39503,4000F,4001F
+117 ;;4003F,4004F,4005F,4008F,4010F,4011F,4012F,4013F,4014F,4015F,4016F,4017F,4018F
+118 ;;4019F,4025F,4030F,4033F,4035F,4037F,4040F,4041F,4042F,4043F,4044F,4045F,4046F
+119 ;;4047F,4048F,40490,4049F,40500,4050F,40510,4051F,40520,40525,40527,4052F,40530
+120 ;;4053F,4054F,4055F,4056F,4058F,4060F,4062F,4063F,4064F,40650,40652,40654,4065F
+121 ;;4066F,4067F,4069F,4070F,4073F,4075F,4077F,40799,4079F,40800,40801,40804,40805
+122 ;;40806,40808,40810,40812,40814,40816,40818,40819,40820,40830,40831,40840,4084F
+123 ;;4086F,4090F,4095F,4100F,41010,41015,41019,41100,41105,41108,4110F,41110,41115
+124 ;;4115F,4120F,4124F,41250,41251,41252,4130F,4131F,4132F,4133F,4134F,4135F,4136F
+125 ;;4140F,4142F,4144F,4145F,4148F,4149F,4150F,41510,4151F,41520,4153F,4155F,4157F
+126 ;;4158F,4159F,4163F,4164F,4165F,4167F,4168F,4169F,4171F,4172F,4174F,4175F,4176F
+127 ;;4177F,4178F,4179F,41800,41805,41806,4180F,4181F,41820,41821,41822,41823,41825
+128 ;;41826,41827,41828,4182F,41830,41850,4185F,4186F,41870,41872,41874,4187F,4188F
+129 ;;41899,4189F,4190F,4191F,4192F,4193F,4194F,4195F,4196F,42000,4200F,4201F,42100
+130 ;;42104,42106,42107,4210F,42120,42140,42145,42160,42180,42182,42200,42205,4220F
+131 ;;42210,42215,4221F,42220,42225,42226,42227,42235,42260,42280,42281,42299,42300
+132 ;;42305,4230F,42310,42320,42330,42335,42340,42400,42405,42408,42409,4240F,4242F
