Routine: SR195UT0

SR195UT0 ;BIR/SJA - FY19 CPT EXCLUSION UTILITY, CONTINUED ;May 21, 2019@08:54:57

 ;;3.0;Surgery;**195**;24 Jun 93;Build 8

EX ; populate the CPT EXCLUSIONS file (#137)

 F SRJ=0: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 ;;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,3045F,30460,30462,30465,3046F,3048F,3049F,3050F

 ;;30520,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,32405,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,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,33282,33284,33285,33286,33289,3328F,3330F,3331F,3340F,3341F,3342F

 ;;3343F,3344F,3345F,33470,33471,3350F,3351F,3352F,3353F,3354F,33620,33622,3370F,3372F,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,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,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,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,41500,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,42440,42450,4245F,4248F,42500,42505,42507,42509,4250F,42510,42550,4255F

 ;;4256F,42600,4260F,4261F,42650,4265F,42660,42665,4266F,4267F,4268F,42699,4269F,4270F,4271F,4274F,4276F

 ;;4279F,42800,42804,42806,42808,42809,4280F,42810,42815,42820,42821,42825,42826,42830,42831,42835,42836

 ;;42860,42870,42900,4290F,4293F,42955,4300F,4301F,4305F,4306F,43191,43192,43193,43194,43195,43196,43197

 ;;43198,43200,43201,43202,43204,43205

 ;;43206,4320F,43210,43211,43212,43213,43214,43215,43216,43217,43220,43226,43227,43229,4322F,43231,43232

 ;;43233,43235,43236,43237,43238,43239,43240,43241,43242,43243,43244,43245,43246,43247,43248,43249,4324F

 ;;43250,43251,43252,43253,43254,43255,43257,43259,4325F,43260,43261,43262,43263,43264,43265,43266,4326F

 ;;43270,43273,43274,43275,43276,43277,43278,4328F,4330F,4340F,43450,43453,43460,4350F,43605,43653,43752

 ;;43753,43754,43755,43756,43757,43760,43761,43762,43763,43830,43831,43832,43870,43886,43887,43888,4400F

 ;;44015,44100,44132,44186,44300,44360,44361,44363,44364,44365,44366,44369,44370,44372,44373,44376,44377

 ;;44378,44379,44380,44381,44382,44384,44385,44386,44388,44389,44390,44391,44392,44394,44401,44402,44403

 ;;44404,44405,44406,44407,44408,44500,4450F,44705,4470F,44715,44720,44721,4480F,4481F,4500F,45100,45108

 ;;4510F,45150,45171,45172,45190,4525F,4526F,45300,45303,45305,45307,45308,45309,45315,45317,45320,45321

 ;;45327,45330,45331,45332,45333,45334,45335,45337,45338,45340,45341,45342,45346,45347,45349,45350,45378

 ;;45379,45380,45381,45382,45384,45385,45386,45388,45389,45390,45391,45392,45393,45398,4540F,4541F,45505

 ;;4550F,4551F,45520,4552F,4553F,4554F,4555F,4556F,4557F,4558F,4559F,4560F,4561F,4562F,4563F,45900,45905

 ;;45910,45915,45990,46020,46030,46050,46070,46080,46083,46200,46220,46221,46230,46250,46255,46257,46258

 ;;46260,46261,46262,46270,46275,46280,46285,46288,46320,46500,46505,46600,46601,46604,46606,46607,46608

 ;;46610,46611,46612,46614,46615,46700,46705,46706,46707,46750,46751,46753,46754,46760,46761,46762,46900

 ;;46910,46916,46917,46922,46924,46930,46940,46942,46945,46946,46947,46999,47000,47001,47100,47133,47143

 ;;47144,47145,47146,47147,47383,47490,47531,47532,47533,47534,47535,47536,47537,47538,47539,47540,47541

 ;;47542,47543,47544,47552,47553,47554,47555,47556,48100,48102,48400,48550,48551,48552,49082,49083,49084

 ;;49180,49185,49320,49321,49324,49325,49326,49327,49400,49405,49406,49407,49411,49412,49418,49419,49421

 ;;49422,49423,49424,49427,49428,49429,49440,49441,49442,49446,49450,49451,49452,49460,49465,49491,49492

 ;;49495,49496,49500,49501,49580,49582,49605,49606,49610,49611,5005F,50080,50081,5010F,5015F,50200,50205

 ;;5020F,50300,50323,50325,50327,50328,50329,50385,50386,50387,50389,50390,50391,50430,50431,50432,50433

 ;;50434,50435,50436,50437,5050F,50551,50553,50555,50557,50561,50562,50570,50572,50574,50575,50576,50580

 ;;50590,50592,50593,50606,5060F,5062F,50684,50686,50688,50690,50693,50694,50695,50705,50706,50951,50953

 ;;50955,50957,50961,50970,50972,50974,50976,50980,5100F,51040,51050,51100,51101,51102,51600,51605,51610

 ;;51700,51701,51702,51703,51705,51710,51715,51720,51725,51726,51727,51728,51729,51736,51741,51784,51785

 ;;51792,51797,51798,52000,52001,52005,52007,5200F,52010,52204,52214,52224,52250,52260,52265,52270,52275

 ;;52276,52277,52281,52282,52283,52285,52287,52290,52300,52301,52305,52310,52315,52317,52318,52320,52325

 ;;52327,52330,52332,52334,52341,52342,52343,52351,52352,52353,52354,52355,52356,52441,52442,52450,5250F

 ;;53020,53025,53060,53200,53270,53275,53600,53601,53620,53621,53660,53661,53850,53855,53860,53899,54000

 ;;54001,54055,54056,54057,54060,54100,54105,54150,54160,54161,54162,54163,54200,54230,54231,54235,54240

 ;;54250,54400,54401,54405,54406,54408,54410,54415,54416,54435,54437,54438,54450,54500,54505,54512,54520

 ;;54530,54535,54700,54800,54830,55000,55250,55300,55400,55500,55520,55559,55700,55705,55706,55870,55874

 ;;55876,55920,56405,56420,56440,56441,56501,56515,56605,56606,56700,56820,56821,57020,57022,57023,57061

 ;;57065,57100,57105,57150,57155,57156,57160,57170,57180,57400,57410,57420,57421,57452,57454,57455,57456

 ;;57460,57461,57500,57505,57510,57511,57513,57700,57800,58100,58110,58120,58300,58301,58321,58322,58323

 ;;58340,58345,58346,58353,58555,58558,58559,58560,58561,58562,58563,58674,58900,58970,58974,58976,59000

 ;;59001,59012,59015,59020,59025,59030,59050,59051,59070,59072,59074,59076,59100,59160,59200,59300,59320

 ;;59325,59400,59409,59410,59412,59414,59425,59426,59430,59510,59514,59515,59525,59610,59612,59614,59618

 ;;59840,59841,59850,59851,59852,59855,59856,59857,59866,59871,59897,59898,59899,6005F,60100,6010F,6015F

 ;;6020F,60300,6030F,6040F,6045F,6070F,6080F,6090F,61001,6100F,6101F,61026,6102F,61050,61055,61070,6110F

 ;;61140,6150F,61623,61630,61640,61641,61642,61645,61650,61651,61750,61751,61782,61790,61791,61796,61797

 ;;61798,61799,61800,62140,62141,62142,62143,62146,62163,62252,62263,62264,62267,62268,62269,62270,62272

 ;;62273,62280,62281,62282,62284,62287,62290,62291,62292,62294,62302,62303,62304,62305,62320,62321,62322

 ;;62323,62324,62325,62326,62327,62350,62355,62360,62361,62362,62365,62367,62368,62369,62370,63600,63610

 ;;63615,63620,63621,63650,63661,63663,63685,63688,64400,64402,64405,64408,64410,64413,64415,64416,64417

 ;;64418,64420,64421,64425,64430,64435,64445,64446,64447,64448,64449,64450,64455,64461,64462,64463,64479

 ;;64480,64483,64484,64486,64487,64488,64489,64490,64491,64492,64493,64494,64495,64505,64508,64510,64517

 ;;64520,64530,64550,64553,64555,64561,64566,64568,64569,64570,64575,64580,64581,64585,64590,64595,64600

 ;;64605,64610,64611,64612,64615,64616,64617,64620,64630,64632,64633,64634,64635,64636,64640,64642,64643

 ;;64644,64645,64646,64647,64650,64653,64680,64681,64702,64704,64716,64718,64719,64721,64732,64734,64736

 ;;64738,64740,64742,64744,64774,64776,64778,64782,64783,64784,64786,64787,64788,64790,64792,64795,64820

 ;;64821,64822,64823,64831,64832,64834,64835,64836,65091,65093,65101,65103,65105,65110,65112,65114,65125

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR195UT0   13414     printed  Apr 23, 2025@18:52:55                                                                                                                                                                                                   Page 2

SR195UT0  ;BIR/SJA - FY19 CPT EXCLUSION UTILITY, CONTINUED ;May 21, 2019@08:54:57

 +1       ;;3.0;Surgery;**195**;24 Jun 93;Build 8

 +2       ;

 +3        QUIT

EX        ; populate the CPT EXCLUSIONS file (#137)

 +1        FOR SRJ=0: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      ;;28113,28114,28116,28118,28119,28120,28122,28124,28126,28130,28140,28150,28153,28160,28171,28173

 +1       ;;28175,28190,28192,28193,28200,28202,28208,28210,28220,28222,28225,28226,28230,28232,28234,28238,28240

 +2       ;;28250,28260,28261,28262,28264,28270,28272,28280,28285,28286,28288,28289,28291,28292,28295,28296,28297

 +3       ;;28298,28299,28300,28302,28304,28305,28306,28307,28308,28309,28310,28312,28313,28315,28320,28322,28340

 +4       ;;28341,28344,28345,28360,28400,28405,28406,28430,28435,28436,28450,28455,28456,28465,28470,28475,28476

 +5       ;;28485,28490,28495,28496,28505,28510,28515,28525,28530,28531,28540,28545,28546,28555,28570,28575,28576

 +6       ;;28585,28600,28605,28606,28615,28630,28635,28636,28645,28660,28665,28666,28675,28705,28715,28725,28730

 +7       ;;28735,28737,28740,28750,28755,28760,28810,28820,28825,28890,28899,29000,29010,29015,29035,29040,29044

 +8       ;;29046,29049,29055,29058,29065,29075,29085,29086,29105,29125,29126,29130,29131,29200,29240,29260,29280

 +9       ;;29305,29325,29345,29355,29358,29365,29405,29425,29435,29440,29445,29450,29505,29515,29520,29530,29540

 +10      ;;29550,29580,29581,29584,29700,29705,29710,29720,29730,29740,29750,29799,29800,29804,29805,29830,29836

 +11      ;;29840,29843,29845,29848,29856,29860,29863,29870,29893,29900,29901,29902,30000,30020,3006F,3008F,30100

 +12      ;;30110,30115,30117,30118,3011F,30120,30124,30125,30130,30140,3014F,30150,3015F,30160,3016F,3017F,3018F

 +13      ;;3019F,30200,3020F,30210,3021F,30220,3022F,3023F,3025F,3027F,3028F,30300,30310,30320,3035F,3037F,3038F

 +14      ;;30400,3040F,30410,30420,3042F,30430,30435,3044F,30450,3045F,30460,30462,30465,3046F,3048F,3049F,3050F

 +15      ;;30520,30540,30545,3055F,30560,3056F,30580,30600,3060F,3061F,30620,3062F,30630,3066F,3072F,3073F,3074F

 +16      ;;3075F,3077F,3078F,3079F,30801,30802,3080F,3082F,3083F,3084F,3085F,3088F,3089F,30901,30903,30905,30906

 +17      ;;3090F,30915,3091F,30920,3092F,30930,3093F,3095F,3096F,30999,31000,31002,3100F,31020,31030,31032,31040

 +18      ;;31050,31051,31070,31075,31080,31081,31084,31085,31086,31087,31090,3110F,3111F,3112F,3115F,3117F,3118F

 +19      ;;3119F,31200,31201,31205,3120F,31225,31230,31231,31233,31235,31237,31238,31239,31240,31241,31253,31254

 +20      ;;31255,31256,31257,31259,31267,3126F,31276,31287,31288,31290,31291,31292,31293,31294,31295,31296,31297

 +21      ;;31298,31299,3130F,3132F,3140F,3141F,3142F,31500,31502,31505,3150F,31510,31511,31512,31513,31515,31520

 +22      ;;31525,31526,31527,31528,31529,31530,31531,31535,31536,31540,31541,31545,31546,31551,31552,31553,31554

 +23      ;;3155F,31560,31561,31570,31571,31572,31573,31574,31575,31576,31577,31578,31579,31590,31591,31600,31601

 +24      ;;31603,31605,3160F,31610,31612,31613,31615,31622,31623,31624,31625,31626,31627,31628,31629,31632,31633

 +25      ;;31634,31635,31636,31637,31638,31640,31641,31643,31645,31646,31647,31648,31649,31651,31652,31653,31654

 +26      ;;31660,31661,3170F,31717,31720,31725,31730,31830,3200F,32096,32097,32098,3210F,3215F,3216F,3218F,3220F

 +27      ;;3230F,32400,32405,3250F,32550,32551,32552,32553,32554,32555,32556,32557,32560,32561,32562,32601,32604

 +28      ;;32606,32607,32608,32609,3260F,3265F,3266F,3267F,3268F,3269F,32701,3270F,3271F,3272F,3273F,3274F,3278F

 +29      ;;3279F,3280F,3281F,3284F,32850,32855,32856,3285F,3288F,3290F,3291F,3292F,3293F,3294F,32960,32994,32997

 +30      ;;3300F,3301F,3315F,3316F,3317F,3318F,3319F,33206,33207,33208,3320F,33210,33211,33212,33213,33214,33215

 +31      ;;33216,33217,33218,3321F,33220,33221,33222,33223,33224,33225,33226,33227,33228,33229,3322F,33230,33231

 +32      ;;33233,33234,33235,33236,33237,33238,3323F,33240,33241,33243,33244,33249,3324F,3325F,33262,33263,33264

 +33      ;;33270,33271,33272,33273,33274,33275,33282,33284,33285,33286,33289,3328F,3330F,3331F,3340F,3341F,3342F

 +34      ;;3343F,3344F,3345F,33470,33471,3350F,3351F,3352F,3353F,3354F,33620,33622,3370F,3372F,3374F,3376F,3378F

 +35      ;;3380F,3382F,3384F,3386F,3388F,3390F,33930,33933,33940,33944,33946,33947,33948,33949,3394F,33951,33952

 +36      ;;33953,33954,33955,33956,33957,33958,33959,3395F,33962,33963,33964,33965,33966,33967,33968,33969,33970

 +37      ;;33971,33984,33985,33986,3450F,3451F,3452F,3455F,3470F,34712,34713,34714,34715,34716,3471F,3472F,3475F

 +38      ;;3476F,34839,3490F,3491F,3492F,3493F,3494F,3495F,3496F,3497F,3498F,3500F,3502F,3503F,3510F,3511F,3512F

 +39      ;;3513F,3514F,3515F,3517F,3520F,35400,3550F,3551F,3552F,3555F,3570F,3572F,3573F,36000,36002,36005,36010

 +40      ;;36011,36012,36013,36014,36015,36100,36140,36160,36200,36215,36216,36217,36218,36221,36222,36223,36224

 +41      ;;36225,36226,36227,36228,36245,36246,36247,36248,36251,36252,36253,36254,36260,36261,36262,36299,36400

 +42      ;;36405,36406,36410,36415,36416,36420,36425,36430,36440,36450,36455,36456,36460,36465,36466,36468,36470

 +43      ;;36471,36473,36474,36481,36482,36483,36500,3650F,36510,36511,36512,36513,36514,36516,36522,36555,36556

 +44      ;;36557,36558,36560,36561,36563,36565,36566,36568,36569,36570,36571,36572,36573,36575,36576,36578,36580

 +45      ;;36581,36582,36583,36584,36585,36589,36590,36591,36592,36593,36595,36596,36597,36598,36600,36620,36625

 +46      ;;36640,36660,36680,36800,36810,36815,36818,36819,36820,36821,36825,36830,36831,36832,36833,36835,36838

 +47      ;;36860,36861,36901,36902,36903,36904,36905,36906,36907,36908,36909,3700F,37191,37192,37193,37195,37197

 +48      ;;37200,3720F,37211,37212,37213,37214,37246,37247,37248,37249,37252,37253,3725F,3750F,3751F,3752F,3753F

 +49      ;;3754F,3755F,3756F,3757F,3758F,3759F,37607,37609,3760F,3761F,3762F,3763F,37700,37718,37722,37735,3775F

 +50      ;;37760,37761,37765,37766,3776F,37780,37785,38200,38204,38205,38206,38207,38208,38209,38210,38211,38212

 +51      ;;38213,38214,38215,38220,38221,38222,38230,38232,38240,38241,38242,38243,38300,38305,38308,38500,38505

 +52      ;;38510,38520,38525,38530,38531,38562,38564,38570,38790,38792,38794,38900,39401,39402,39503,4000F,4001F

 +53      ;;4003F,4004F,4005F,4008F,4010F,4011F,4012F,4013F,4014F,4015F,4016F,4017F,4018F,4019F,4025F,4030F,4033F

 +54      ;;4035F,4037F,4040F,4041F,4042F,4043F,4044F,4045F,4046F,4047F,4048F,40490,4049F,40500,4050F,40510,4051F

 +55      ;;40520,40525,40527,4052F,40530,4053F,4054F,4055F,4056F,4058F,4060F,4062F,4063F,4064F,40650,40652,40654

 +56      ;;4065F,4066F,4067F,4069F,4070F,4073F,4075F,4077F,40799,4079F,40800,40801,40804,40805,40806,40808,40810

 +57      ;;40812,40814,40816,40818,40819,40820,40830,40831,40840,4084F,4086F,4090F,4095F,4100F,41010,41015,41019

 +58      ;;41100,41105,41108,4110F,41110,41115,4115F,4120F,4124F,41250,41251,41252,4130F,4131F,4132F,4133F,4134F

 +59      ;;4135F,4136F,4140F,4142F,4144F,4145F,4148F,4149F,41500,4150F,41510,4151F,41520,4153F,4155F,4157F,4158F

 +60      ;;4159F,4163F,4164F,4165F,4167F,4168F,4169F,4171F,4172F,4174F,4175F,4176F,4177F,4178F,4179F,41800,41805

 +61      ;;41806,4180F,4181F,41820,41821,41822,41823,41825,41826,41827,41828,4182F,41830,41850,4185F,4186F,41870

 +62      ;;41872,41874,4187F,4188F,41899,4189F,4190F,4191F,4192F,4193F,4194F,4195F,4196F,42000,4200F,4201F,42100

 +63      ;;42104,42106,42107,4210F,42120,42140,42145,42160,42180,42182,42200,42205,4220F,42210,42215,4221F,42220

 +64      ;;42225,42226,42227,42235,42260,42280,42281,42299,42300,42305,4230F,42310,42320,42330,42335,42340,42400

 +65      ;;42405,42408,42409,4240F,4242F,42440,42450,4245F,4248F,42500,42505,42507,42509,4250F,42510,42550,4255F

 +66      ;;4256F,42600,4260F,4261F,42650,4265F,42660,42665,4266F,4267F,4268F,42699,4269F,4270F,4271F,4274F,4276F

 +67      ;;4279F,42800,42804,42806,42808,42809,4280F,42810,42815,42820,42821,42825,42826,42830,42831,42835,42836

 +68      ;;42860,42870,42900,4290F,4293F,42955,4300F,4301F,4305F,4306F,43191,43192,43193,43194,43195,43196,43197

 +69      ;;43198,43200,43201,43202,43204,43205

 +70      ;;43206,4320F,43210,43211,43212,43213,43214,43215,43216,43217,43220,43226,43227,43229,4322F,43231,43232

 +71      ;;43233,43235,43236,43237,43238,43239,43240,43241,43242,43243,43244,43245,43246,43247,43248,43249,4324F

 +72      ;;43250,43251,43252,43253,43254,43255,43257,43259,4325F,43260,43261,43262,43263,43264,43265,43266,4326F

 +73      ;;43270,43273,43274,43275,43276,43277,43278,4328F,4330F,4340F,43450,43453,43460,4350F,43605,43653,43752

 +74      ;;43753,43754,43755,43756,43757,43760,43761,43762,43763,43830,43831,43832,43870,43886,43887,43888,4400F

 +75      ;;44015,44100,44132,44186,44300,44360,44361,44363,44364,44365,44366,44369,44370,44372,44373,44376,44377

 +76      ;;44378,44379,44380,44381,44382,44384,44385,44386,44388,44389,44390,44391,44392,44394,44401,44402,44403

 +77      ;;44404,44405,44406,44407,44408,44500,4450F,44705,4470F,44715,44720,44721,4480F,4481F,4500F,45100,45108

 +78      ;;4510F,45150,45171,45172,45190,4525F,4526F,45300,45303,45305,45307,45308,45309,45315,45317,45320,45321

 +79      ;;45327,45330,45331,45332,45333,45334,45335,45337,45338,45340,45341,45342,45346,45347,45349,45350,45378

 +80      ;;45379,45380,45381,45382,45384,45385,45386,45388,45389,45390,45391,45392,45393,45398,4540F,4541F,45505

 +81      ;;4550F,4551F,45520,4552F,4553F,4554F,4555F,4556F,4557F,4558F,4559F,4560F,4561F,4562F,4563F,45900,45905

 +82      ;;45910,45915,45990,46020,46030,46050,46070,46080,46083,46200,46220,46221,46230,46250,46255,46257,46258

 +83      ;;46260,46261,46262,46270,46275,46280,46285,46288,46320,46500,46505,46600,46601,46604,46606,46607,46608

 +84      ;;46610,46611,46612,46614,46615,46700,46705,46706,46707,46750,46751,46753,46754,46760,46761,46762,46900

 +85      ;;46910,46916,46917,46922,46924,46930,46940,46942,46945,46946,46947,46999,47000,47001,47100,47133,47143

 +86      ;;47144,47145,47146,47147,47383,47490,47531,47532,47533,47534,47535,47536,47537,47538,47539,47540,47541

 +87      ;;47542,47543,47544,47552,47553,47554,47555,47556,48100,48102,48400,48550,48551,48552,49082,49083,49084

 +88      ;;49180,49185,49320,49321,49324,49325,49326,49327,49400,49405,49406,49407,49411,49412,49418,49419,49421

 +89      ;;49422,49423,49424,49427,49428,49429,49440,49441,49442,49446,49450,49451,49452,49460,49465,49491,49492

 +90      ;;49495,49496,49500,49501,49580,49582,49605,49606,49610,49611,5005F,50080,50081,5010F,5015F,50200,50205

 +91      ;;5020F,50300,50323,50325,50327,50328,50329,50385,50386,50387,50389,50390,50391,50430,50431,50432,50433

 +92      ;;50434,50435,50436,50437,5050F,50551,50553,50555,50557,50561,50562,50570,50572,50574,50575,50576,50580

 +93      ;;50590,50592,50593,50606,5060F,5062F,50684,50686,50688,50690,50693,50694,50695,50705,50706,50951,50953

 +94      ;;50955,50957,50961,50970,50972,50974,50976,50980,5100F,51040,51050,51100,51101,51102,51600,51605,51610

 +95      ;;51700,51701,51702,51703,51705,51710,51715,51720,51725,51726,51727,51728,51729,51736,51741,51784,51785

 +96      ;;51792,51797,51798,52000,52001,52005,52007,5200F,52010,52204,52214,52224,52250,52260,52265,52270,52275

 +97      ;;52276,52277,52281,52282,52283,52285,52287,52290,52300,52301,52305,52310,52315,52317,52318,52320,52325

 +98      ;;52327,52330,52332,52334,52341,52342,52343,52351,52352,52353,52354,52355,52356,52441,52442,52450,5250F

 +99      ;;53020,53025,53060,53200,53270,53275,53600,53601,53620,53621,53660,53661,53850,53855,53860,53899,54000

 +100     ;;54001,54055,54056,54057,54060,54100,54105,54150,54160,54161,54162,54163,54200,54230,54231,54235,54240

 +101     ;;54250,54400,54401,54405,54406,54408,54410,54415,54416,54435,54437,54438,54450,54500,54505,54512,54520

 +102     ;;54530,54535,54700,54800,54830,55000,55250,55300,55400,55500,55520,55559,55700,55705,55706,55870,55874

 +103     ;;55876,55920,56405,56420,56440,56441,56501,56515,56605,56606,56700,56820,56821,57020,57022,57023,57061

 +104     ;;57065,57100,57105,57150,57155,57156,57160,57170,57180,57400,57410,57420,57421,57452,57454,57455,57456

 +105     ;;57460,57461,57500,57505,57510,57511,57513,57700,57800,58100,58110,58120,58300,58301,58321,58322,58323

 +106     ;;58340,58345,58346,58353,58555,58558,58559,58560,58561,58562,58563,58674,58900,58970,58974,58976,59000

 +107     ;;59001,59012,59015,59020,59025,59030,59050,59051,59070,59072,59074,59076,59100,59160,59200,59300,59320

 +108     ;;59325,59400,59409,59410,59412,59414,59425,59426,59430,59510,59514,59515,59525,59610,59612,59614,59618

 +109     ;;59840,59841,59850,59851,59852,59855,59856,59857,59866,59871,59897,59898,59899,6005F,60100,6010F,6015F

 +110     ;;6020F,60300,6030F,6040F,6045F,6070F,6080F,6090F,61001,6100F,6101F,61026,6102F,61050,61055,61070,6110F

 +111     ;;61140,6150F,61623,61630,61640,61641,61642,61645,61650,61651,61750,61751,61782,61790,61791,61796,61797

 +112     ;;61798,61799,61800,62140,62141,62142,62143,62146,62163,62252,62263,62264,62267,62268,62269,62270,62272

 +113     ;;62273,62280,62281,62282,62284,62287,62290,62291,62292,62294,62302,62303,62304,62305,62320,62321,62322

 +114     ;;62323,62324,62325,62326,62327,62350,62355,62360,62361,62362,62365,62367,62368,62369,62370,63600,63610

 +115     ;;63615,63620,63621,63650,63661,63663,63685,63688,64400,64402,64405,64408,64410,64413,64415,64416,64417

 +116     ;;64418,64420,64421,64425,64430,64435,64445,64446,64447,64448,64449,64450,64455,64461,64462,64463,64479

 +117     ;;64480,64483,64484,64486,64487,64488,64489,64490,64491,64492,64493,64494,64495,64505,64508,64510,64517

 +118     ;;64520,64530,64550,64553,64555,64561,64566,64568,64569,64570,64575,64580,64581,64585,64590,64595,64600

 +119     ;;64605,64610,64611,64612,64615,64616,64617,64620,64630,64632,64633,64634,64635,64636,64640,64642,64643

 +120     ;;64644,64645,64646,64647,64650,64653,64680,64681,64702,64704,64716,64718,64719,64721,64732,64734,64736

 +121     ;;64738,64740,64742,64744,64774,64776,64778,64782,64783,64784,64786,64787,64788,64790,64792,64795,64820

 +122     ;;64821,64822,64823,64831,64832,64834,64835,64836,65091,65093,65101,65103,65105,65110,65112,65114,65125

SR195UT0.m