Routine: SR215UT1

SR215UT1 ;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 file 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 ;

 ;;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

 ;;42975,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,43290

 ;;43291,4330F,4340F,43450,43453,43460,4350F,43605,43653,43752,43753,43754,43755

 ;;43756,43757,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,46900

 ;;46910,46916,46917,46922,46924,46930,46940,46942,46945,46946,46947,46948,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,49322,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

 ;;49605,49606,49610,49611,5005F,5010F,5015F,50200,50205,5020F,50300,50323,50325

 ;;50327,50328,50329,50382,50384,50385,50386,50387,50389,50390,50391,50396,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,52284,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,53453

 ;;53454,53600,53601,53620,53621,53660,53661,53850,53852,53854,53855,53860,53899

 ;;54000,54001,54015,54050,54055,54056,54057,54060,54065,54100,54105,54150,54160

 ;;54161,54162,54163,54164,54200,54205,54220,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,55100,55200,55250,55300,55400

 ;;55500,55520,55559,55700,55705,55706,55870,55874,55876,55880,55920,56405,56420

 ;;56440,56441,56501,56515,56605,56606,56700,56820,56821,57020,57022,57023,57061

 ;;57065,57100,57105,57135,57150,57155,57156,57160,57170,57180,57400,57410,57420

 ;;57421,57452,57454,57455,57456,57460,57461,57465,57500,57505,57510,57511,57513

 ;;57522,57558,57700,57800,58100,58110,58120,58300,58301,58321,58322,58323,58340

 ;;58345,58346,58353,58555,58558,58559,58560,58561,58562,58563,58580,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,61889,61891,61892,62140,62141,62142,62143,62146,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

 ;;62328,62329,62350,62355,62360,62361,62362,62365,62367,62368,62369,62370,63600

 ;;63610,63620,63621,63650,63661,63663,63685,63688,64400,64405,64408,64415,64416

 ;;64417,64418,64420,64421,64425,64430,64435,64445,64446,64447,64448,64449,64450

 ;;64451,64454,64455,64461,64462,64463,64479,64480,64483,64484,64486,64487,64488

 ;;64489,64490,64491,64492,64493,64494,64495,64505,64510,64517,64520,64530,64553

 ;;64555,64561,64566,64568,64569,64570,64575,64580,64581,64584,64585,64590,64595

 ;;64596,64597,64598,64600,64605,64610,64611,64612,64615,64616,64617,64620,64624

 ;;64625,64628,64629,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,65130,65135

 ;;65140,65150,65155,65175,65205,65210,65220,65222,65235,65260,65265,65270,65272

 ;;65273,65275,65280,65285,65286,65290,65400,65410,65420,65426,65430,65435,65436

 ;;65450,65600,65710,65730,65750,65755,65756,65757,65760,65765,65767,65770,65771

 ;;65772,65775,65778,65779,65780,65781,65782,65785,65800,65810,65815,65820,65850

 ;;65855,65860,65865,65870,65875,65880,65900,65920,65930,66020,66030,66130,66150

 ;;66155,66160,66170,66172,66174,66175,66179,66180,66183,66184,66185,66225,66250

 ;;66500,66505,66600,66605,66625,66630,66635,66680,66682,66700,66710,66711,66720

 ;;66740,66761,66762,66770,66820,66821,66825,66830,66840,66850,66852,66920,66930

 ;;66940,66982,66983,66984,66985,66986,66987,66988,66989,66990,66991,66999,67005

 ;;67010,67015,67025,67027,67028,67030,67031,67036,67039,67040,67041,67042,67043

 ;;67101,67105,67107,67108,67110,67113,67115,67120,67121,67141,67145,67208,67210

 ;;67218,67220,67221,67225,67227,67228,67229,67250,67255,67299,67311,67312,67314

 ;;67316,67318,67320,67331,67332,67334,67335,67340,67343,67345,67346,67399,67400

 ;;67405,67412,67413,67414,67415,67420,67430,67440,67445,67450,67500,67505,67515

 ;;67516,67550,67560,67570,67599,67700,67710,67715,67800,67801,67805,67808,67810

 ;;67820,67825,67830,67835,67840,67850,67875,67880,67882,67900,67901,67902,67903

 ;;67904,67906,67908,67909,67911,67912,67914,67915,67916,67917,67921,67922,67923

 ;;67924,67930,67935,67938,67950,67961,67966,67971,67973,67974,67975,67999,68020

 ;;68040,68100,68110,68115,68130,68135,68200,68320,68325,68326,68328,68330,68335

 ;;68340,68360,68362,68371,68399,68400,68420,68440,68500,68505,68510,68520,68525

 ;;68530,68540,68550,68700,68705,68720,68745,68750,68760,68761,68770,68801,68810

 ;;68811,68815,68816,68840,68841,68850,68899,69000,69005,69020,69090,69100,69105

 ;;69110,69120,69140,69145,69200,69205,69209,69210,69220,69222,69300,69310,69320

 ;;69399,69420,69421,69424,69433,69436,69440,69450,69501,69502,69505,69511,69535

 ;;69540,69550,69552,69554,69601,69602,69603,69604,69610,69620,69631,69632,69633

 ;;69635,69636,69637,69641,69642,69643,69644,69645,69646,69650,69660,69661,69662

 ;;69666,69667,69670,69676,69700,69705,69706,69710,69711,69714,69720,69740,69799

 ;;69801,69805,69806,69949,69950,69955,69960,69970,69979,69990,70010,70015,70030

 ;;70100,7010F,70110,70120,70130,70134,70140,70150,70160,70170,70190,70200,7020F

 ;;70210,70220,70240,70250,7025F,70260,70300,70310,70320,70328,70330,70332,70336

 ;;70350,70355,70360,70370,70371,70380,70390,70450,70460,70470,70480,70481,70482

 ;;70486,70487,70488,70490,70491,70492,70496,70498,70540,70542,70543,70544,70545

 ;;70546,70547,70548,70549,70551,70552,70553,70554,70555,70557,70558,70559,71045

 ;;71046,71047,71048,71100,71101,71110,71111,71120,71130,71250,71260,71270,71271

 ;;71275,71550,71551,71552,71555,72020,72040,72050,72052,72070,72072,72074,72080

 ;;72081,72082,72083,72084,72100,72110,72114,72120,72125,72126,72127,72128,72129

 ;;72130,72131,72132,72133,72141,72142,72146,72147,72148,72149,72156,72157,72158

 ;;72159,72170,72190,72191,72192,72193,72194,72195,72196,72197,72198,72200,72202

 ;;72220,72240,72255,72265,72270,72285,72295,73000,73010,73020,73030,73040,73050

 ;;73060,73070,73080,73085,73090,73092,73100,73110,73115,73120,73130,73140,73200

 ;;73201,73202,73206,73218,73219,73220,73221,73222,73223,73225,73501,73502,73503

 ;;73521,73522,73523,73525,73551,73552,73560,73562,73564,73565,73580,73590,73592

 ;;73600,73610,73615,73620,73630,73650,73660,73700,73701,73702,73706,73718,73719

 ;;73720,73721,73722,73723,73725,74018,74019,74021,74022,74150,74160,74170,74174

 ;;74175,74176,74177,74178,74181,74182,74183,74185,74190,74210,74220,74221,74230

 ;;74235,74240,74246,74248,74250,74251,74261,74262,74263,74270,74280,74283,74290

 ;;74300,74301,74328,74329,74330,74340,74355,74360,74363,74400,74410,74415,74420

 ;;74425,74430,74440,74445,74450,74455,74470,74485,74710,74712,74713,74740,74742

 ;;74775,75557,75559,75561,75563,75565,75571,75572,75573,75574,75580,75600,75605

 ;;75625,75630,75635,75705,75710,75716,75726,75731,75733,75736,75741,75743,75746

 ;;75756,75774,75801,75803,75805,75807,75809,75810,75820,75822,75825,75827,75831

 ;;75833,75840,75842,75860,75870,75872,75880,75885,75887,75889,75891,75893,75894

 ;;75898,75901,75902,75956,75957,75958,75959,75970,75984,75989,76000,76010,76080

 ;;76098,76100,76120,76125,76140,76145,76376,76377,76380,76390,76391,76496,76497

 ;;76498,76499,76506,76510,76511,76512,76513,76514,76516,76519,76529,76536,76604

 ;;76641,76642,76700,76705,76706,76770,76775,76776,76800,76801,76802,76805,76810

 ;;76811,76812,76813,76814,76815,76816,76817,76818,76819,76820,76821,76825,76826

 ;;76827,76828,76830,76831,76856,76857,76870,76872,76873,76881,76882,76883,76885

 ;;76886,76932,76936,76937,76940,76941,76942,76945,76946,76948,76965,76975,76977

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR215UT1   11613     printed  Apr 23, 2025@18:53:14                                                                                                                                                                                                   Page 2

SR215UT1  ;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 file 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       ;;42440,42450,4245F,4248F,42500,42505,42507,42509,4250F,42510,42550,4255F,4256F

 +2       ;;42600,4260F,4261F,42650,4265F,42660,42665,4266F,4267F,4268F,42699,4269F,4270F

 +3       ;;4271F,4274F,4276F,4279F,42800,42804,42806,42808,42809,4280F,42810,42815,42820

 +4       ;;42821,42825,42826,42830,42831,42835,42836,42860,42870,42900,4290F,4293F,42955

 +5       ;;42975,4300F,4301F,4305F,4306F,43191,43192,43193,43194,43195,43196,43197,43198

 +6       ;;43200,43201,43202,43204,43205,43206,4320F,43210,43211,43212,43213,43214,43215

 +7       ;;43216,43217,43220,43226,43227,43229,4322F,43231,43232,43233,43235,43236,43237

 +8       ;;43238,43239,43240,43241,43242,43243,43244,43245,43246,43247,43248,43249,4324F

 +9       ;;43250,43251,43252,43253,43254,43255,43257,43259,4325F,43260,43261,43262,43263

 +10      ;;43264,43265,43266,4326F,43270,43273,43274,43275,43276,43277,43278,4328F,43290

 +11      ;;43291,4330F,4340F,43450,43453,43460,4350F,43605,43653,43752,43753,43754,43755

 +12      ;;43756,43757,43761,43762,43763,43830,43831,43832,43870,43886,43887,43888,4400F

 +13      ;;44015,44100,44132,44186,44300,44360,44361,44363,44364,44365,44366,44369,44370

 +14      ;;44372,44373,44376,44377,44378,44379,44380,44381,44382,44384,44385,44386,44388

 +15      ;;44389,44390,44391,44392,44394,44401,44402,44403,44404,44405,44406,44407,44408

 +16      ;;44500,4450F,44705,4470F,44715,44720,44721,4480F,4481F,4500F,45100,45108,4510F

 +17      ;;45150,45171,45172,45190,4525F,4526F,45300,45303,45305,45307,45308,45309,45315

 +18      ;;45317,45320,45321,45327,45330,45331,45332,45333,45334,45335,45337,45338,45340

 +19      ;;45341,45342,45346,45347,45349,45350,45378,45379,45380,45381,45382,45384,45385

 +20      ;;45386,45388,45389,45390,45391,45392,45393,45398,4540F,4541F,45505,4550F,4551F

 +21      ;;45520,4552F,4553F,4554F,4555F,4556F,4557F,4558F,4559F,4560F,4561F,4562F,4563F

 +22      ;;45900,45905,45910,45915,45990,46020,46030,46050,46070,46080,46083,46200,46220

 +23      ;;46221,46230,46250,46255,46257,46258,46260,46261,46262,46270,46275,46280,46285

 +24      ;;46288,46320,46500,46505,46600,46601,46604,46606,46607,46608,46610,46611,46612

 +25      ;;46614,46615,46700,46705,46706,46707,46750,46751,46753,46754,46760,46761,46900

 +26      ;;46910,46916,46917,46922,46924,46930,46940,46942,46945,46946,46947,46948,46999

 +27      ;;47000,47001,47100,47133,47143,47144,47145,47146,47147,47383,47490,47531,47532

 +28      ;;47533,47534,47535,47536,47537,47538,47539,47540,47541,47542,47543,47544,47552

 +29      ;;47553,47554,47555,47556,48100,48102,48400,48550,48551,48552,49082,49083,49084

 +30      ;;49180,49185,49320,49321,49322,49324,49325,49326,49327,49400,49405,49406,49407

 +31      ;;49411,49412,49418,49419,49421,49422,49423,49424,49427,49428,49429,49440,49441

 +32      ;;49442,49446,49450,49451,49452,49460,49465,49491,49492,49495,49496,49500,49501

 +33      ;;49605,49606,49610,49611,5005F,5010F,5015F,50200,50205,5020F,50300,50323,50325

 +34      ;;50327,50328,50329,50382,50384,50385,50386,50387,50389,50390,50391,50396,50430

 +35      ;;50431,50432,50433,50434,50435,50436,50437,5050F,50551,50553,50555,50557,50561

 +36      ;;50562,50570,50572,50574,50575,50576,50580,50590,50592,50593,50606,5060F,5062F

 +37      ;;50684,50686,50688,50690,50693,50694,50695,50705,50706,50951,50953,50955,50957

 +38      ;;50961,50970,50972,50974,50976,50980,5100F,51040,51050,51100,51101,51102,51600

 +39      ;;51605,51610,51700,51701,51702,51703,51705,51710,51715,51720,51725,51726,51727

 +40      ;;51728,51729,51736,51741,51784,51785,51792,51797,51798,52000,52001,52005,52007

 +41      ;;5200F,52010,52204,52214,52224,52250,52260,52265,52270,52275,52276,52277,52281

 +42      ;;52282,52283,52284,52285,52287,52290,52300,52301,52305,52310,52315,52317,52318

 +43      ;;52320,52325,52327,52330,52332,52334,52341,52342,52343,52351,52352,52353,52354

 +44      ;;52355,52356,52441,52442,52450,5250F,53020,53025,53060,53200,53270,53275,53453

 +45      ;;53454,53600,53601,53620,53621,53660,53661,53850,53852,53854,53855,53860,53899

 +46      ;;54000,54001,54015,54050,54055,54056,54057,54060,54065,54100,54105,54150,54160

 +47      ;;54161,54162,54163,54164,54200,54205,54220,54230,54231,54235,54240,54250,54400

 +48      ;;54401,54405,54406,54408,54410,54415,54416,54435,54437,54438,54450,54500,54505

 +49      ;;54512,54520,54530,54535,54700,54800,54830,55000,55100,55200,55250,55300,55400

 +50      ;;55500,55520,55559,55700,55705,55706,55870,55874,55876,55880,55920,56405,56420

 +51      ;;56440,56441,56501,56515,56605,56606,56700,56820,56821,57020,57022,57023,57061

 +52      ;;57065,57100,57105,57135,57150,57155,57156,57160,57170,57180,57400,57410,57420

 +53      ;;57421,57452,57454,57455,57456,57460,57461,57465,57500,57505,57510,57511,57513

 +54      ;;57522,57558,57700,57800,58100,58110,58120,58300,58301,58321,58322,58323,58340

 +55      ;;58345,58346,58353,58555,58558,58559,58560,58561,58562,58563,58580,58674,58900

 +56      ;;58970,58974,58976,59000,59001,59012,59015,59020,59025,59030,59050,59051,59070

 +57      ;;59072,59074,59076,59100,59160,59200,59300,59320,59325,59400,59409,59410,59412

 +58      ;;59414,59425,59426,59430,59510,59514,59515,59525,59610,59612,59614,59618,59840

 +59      ;;59841,59850,59851,59852,59855,59856,59857,59866,59871,59897,59898,59899,6005F

 +60      ;;60100,6010F,6015F,6020F,60300,6030F,6040F,6045F,6070F,6080F,6090F,61001,6100F

 +61      ;;6101F,61026,6102F,61050,61055,61070,6110F,61140,6150F,61623,61630,61640,61641

 +62      ;;61642,61645,61650,61651,61750,61751,61782,61790,61791,61796,61797,61798,61799

 +63      ;;61800,61889,61891,61892,62140,62141,62142,62143,62146,62252,62263,62264,62267

 +64      ;;62268,62269,62270,62272,62273,62280,62281,62282,62284,62287,62290,62291,62292

 +65      ;;62294,62302,62303,62304,62305,62320,62321,62322,62323,62324,62325,62326,62327

 +66      ;;62328,62329,62350,62355,62360,62361,62362,62365,62367,62368,62369,62370,63600

 +67      ;;63610,63620,63621,63650,63661,63663,63685,63688,64400,64405,64408,64415,64416

 +68      ;;64417,64418,64420,64421,64425,64430,64435,64445,64446,64447,64448,64449,64450

 +69      ;;64451,64454,64455,64461,64462,64463,64479,64480,64483,64484,64486,64487,64488

 +70      ;;64489,64490,64491,64492,64493,64494,64495,64505,64510,64517,64520,64530,64553

 +71      ;;64555,64561,64566,64568,64569,64570,64575,64580,64581,64584,64585,64590,64595

 +72      ;;64596,64597,64598,64600,64605,64610,64611,64612,64615,64616,64617,64620,64624

 +73      ;;64625,64628,64629,64630,64632,64633,64634,64635,64636,64640,64642,64643,64644

 +74      ;;64645,64646,64647,64650,64653,64680,64681,64702,64704,64716,64718,64719,64721

 +75      ;;64732,64734,64736,64738,64740,64742,64744,64774,64776,64778,64782,64783,64784

 +76      ;;64786,64787,64788,64790,64792,64795,64820,64821,64822,64823,64831,64832,64834

 +77      ;;64835,64836,65091,65093,65101,65103,65105,65110,65112,65114,65125,65130,65135

 +78      ;;65140,65150,65155,65175,65205,65210,65220,65222,65235,65260,65265,65270,65272

 +79      ;;65273,65275,65280,65285,65286,65290,65400,65410,65420,65426,65430,65435,65436

 +80      ;;65450,65600,65710,65730,65750,65755,65756,65757,65760,65765,65767,65770,65771

 +81      ;;65772,65775,65778,65779,65780,65781,65782,65785,65800,65810,65815,65820,65850

 +82      ;;65855,65860,65865,65870,65875,65880,65900,65920,65930,66020,66030,66130,66150

 +83      ;;66155,66160,66170,66172,66174,66175,66179,66180,66183,66184,66185,66225,66250

 +84      ;;66500,66505,66600,66605,66625,66630,66635,66680,66682,66700,66710,66711,66720

 +85      ;;66740,66761,66762,66770,66820,66821,66825,66830,66840,66850,66852,66920,66930

 +86      ;;66940,66982,66983,66984,66985,66986,66987,66988,66989,66990,66991,66999,67005

 +87      ;;67010,67015,67025,67027,67028,67030,67031,67036,67039,67040,67041,67042,67043

 +88      ;;67101,67105,67107,67108,67110,67113,67115,67120,67121,67141,67145,67208,67210

 +89      ;;67218,67220,67221,67225,67227,67228,67229,67250,67255,67299,67311,67312,67314

 +90      ;;67316,67318,67320,67331,67332,67334,67335,67340,67343,67345,67346,67399,67400

 +91      ;;67405,67412,67413,67414,67415,67420,67430,67440,67445,67450,67500,67505,67515

 +92      ;;67516,67550,67560,67570,67599,67700,67710,67715,67800,67801,67805,67808,67810

 +93      ;;67820,67825,67830,67835,67840,67850,67875,67880,67882,67900,67901,67902,67903

 +94      ;;67904,67906,67908,67909,67911,67912,67914,67915,67916,67917,67921,67922,67923

 +95      ;;67924,67930,67935,67938,67950,67961,67966,67971,67973,67974,67975,67999,68020

 +96      ;;68040,68100,68110,68115,68130,68135,68200,68320,68325,68326,68328,68330,68335

 +97      ;;68340,68360,68362,68371,68399,68400,68420,68440,68500,68505,68510,68520,68525

 +98      ;;68530,68540,68550,68700,68705,68720,68745,68750,68760,68761,68770,68801,68810

 +99      ;;68811,68815,68816,68840,68841,68850,68899,69000,69005,69020,69090,69100,69105

 +100     ;;69110,69120,69140,69145,69200,69205,69209,69210,69220,69222,69300,69310,69320

 +101     ;;69399,69420,69421,69424,69433,69436,69440,69450,69501,69502,69505,69511,69535

 +102     ;;69540,69550,69552,69554,69601,69602,69603,69604,69610,69620,69631,69632,69633

 +103     ;;69635,69636,69637,69641,69642,69643,69644,69645,69646,69650,69660,69661,69662

 +104     ;;69666,69667,69670,69676,69700,69705,69706,69710,69711,69714,69720,69740,69799

 +105     ;;69801,69805,69806,69949,69950,69955,69960,69970,69979,69990,70010,70015,70030

 +106     ;;70100,7010F,70110,70120,70130,70134,70140,70150,70160,70170,70190,70200,7020F

 +107     ;;70210,70220,70240,70250,7025F,70260,70300,70310,70320,70328,70330,70332,70336

 +108     ;;70350,70355,70360,70370,70371,70380,70390,70450,70460,70470,70480,70481,70482

 +109     ;;70486,70487,70488,70490,70491,70492,70496,70498,70540,70542,70543,70544,70545

 +110     ;;70546,70547,70548,70549,70551,70552,70553,70554,70555,70557,70558,70559,71045

 +111     ;;71046,71047,71048,71100,71101,71110,71111,71120,71130,71250,71260,71270,71271

 +112     ;;71275,71550,71551,71552,71555,72020,72040,72050,72052,72070,72072,72074,72080

 +113     ;;72081,72082,72083,72084,72100,72110,72114,72120,72125,72126,72127,72128,72129

 +114     ;;72130,72131,72132,72133,72141,72142,72146,72147,72148,72149,72156,72157,72158

 +115     ;;72159,72170,72190,72191,72192,72193,72194,72195,72196,72197,72198,72200,72202

 +116     ;;72220,72240,72255,72265,72270,72285,72295,73000,73010,73020,73030,73040,73050

 +117     ;;73060,73070,73080,73085,73090,73092,73100,73110,73115,73120,73130,73140,73200

 +118     ;;73201,73202,73206,73218,73219,73220,73221,73222,73223,73225,73501,73502,73503

 +119     ;;73521,73522,73523,73525,73551,73552,73560,73562,73564,73565,73580,73590,73592

 +120     ;;73600,73610,73615,73620,73630,73650,73660,73700,73701,73702,73706,73718,73719

 +121     ;;73720,73721,73722,73723,73725,74018,74019,74021,74022,74150,74160,74170,74174

 +122     ;;74175,74176,74177,74178,74181,74182,74183,74185,74190,74210,74220,74221,74230

 +123     ;;74235,74240,74246,74248,74250,74251,74261,74262,74263,74270,74280,74283,74290

 +124     ;;74300,74301,74328,74329,74330,74340,74355,74360,74363,74400,74410,74415,74420

 +125     ;;74425,74430,74440,74445,74450,74455,74470,74485,74710,74712,74713,74740,74742

 +126     ;;74775,75557,75559,75561,75563,75565,75571,75572,75573,75574,75580,75600,75605

 +127     ;;75625,75630,75635,75705,75710,75716,75726,75731,75733,75736,75741,75743,75746

 +128     ;;75756,75774,75801,75803,75805,75807,75809,75810,75820,75822,75825,75827,75831

 +129     ;;75833,75840,75842,75860,75870,75872,75880,75885,75887,75889,75891,75893,75894

 +130     ;;75898,75901,75902,75956,75957,75958,75959,75970,75984,75989,76000,76010,76080

 +131     ;;76098,76100,76120,76125,76140,76145,76376,76377,76380,76390,76391,76496,76497

 +132     ;;76498,76499,76506,76510,76511,76512,76513,76514,76516,76519,76529,76536,76604

 +133     ;;76641,76642,76700,76705,76706,76770,76775,76776,76800,76801,76802,76805,76810

 +134     ;;76811,76812,76813,76814,76815,76816,76817,76818,76819,76820,76821,76825,76826

 +135     ;;76827,76828,76830,76831,76856,76857,76870,76872,76873,76881,76882,76883,76885

 +136     ;;76886,76932,76936,76937,76940,76941,76942,76945,76946,76948,76965,76975,76977

SR215UT1.m