Routine: SR215UT0

SR215UT0 ;HPS/JSG - FY24 CPT EXCLUSION UTILITY, CONTINUED; Apr 3, 2024@11:40

 ;;3.0;Surgery;**206,210,215**;24 Jun 93;Build 7

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

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

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  Mar 13, 2025@21:43:47                                                                                                                                                                                                   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

SR215UT0.m