SR210UT1 ;HPS/JSG - FY23 CPT EXCLUSION UTILITY, CONTINUED; Mar 28, 2023@09:50
;;3.0;Surgery;**206,210**;24 Jun 93;Build 4
;
Q
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
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 ;
;;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,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,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,57150,57155,57156,57160,57170,57180
;;57400,57410,57420,57421,57452,57454,57455,57456,57460,57461,57465,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,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,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,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,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,76978,76979,76981,76982,76983,76998,76999,77001
;;77002,77003,77011,77012,77013,77014,77021,77022,77046,77047,77048,77049,77053
;;77054,77061,77062,77063,77065,77066,77067,77071,77072,77073,77074,77075,77076
;;77077,77078,77080,77081,77084,77085,77086,77089,77090,77091,77092,77261,77262
;;77263,77280,77285,77290,77293,77295,77299,77300,77301,77306,77307,77316,77317
;;77318,77321,77331,77332,77333,77334,77336,77338,77370,77371,77372,77373,77385
;;77386,77387,77399,77401,77402,77407,77412,77417,77423,77424,77425,77427,77431
;;77432,77435,77469,77470,77499,77520,77522,77523,77525,77600,77605,77610,77615
;;77620,77750,77761,77762,77763,77767,77768,77770,77771,77772,77778,77789,77790
;;77799,78012,78013,78014,78015,78016,78018,78020,78070,78071,78072,78075,78099
;;78102,78103,78104,78110,78111,78120,78121,78122,78130,78140,78185,78191,78195
;;78199,78201,78202,78215,78216,78226,78227,78230,78231,78232,78258,78261,78262
;;78264,78265,78266,78267,78268,78278,78282,78290,78291,78299,78300,78305,78306
;;78315,78350,78351,78399,78414,78428,78429,78430,78431,78432,78433,78434,78445
;;78451,78452,78453,78454,78456,78457,78458,78459,78466,78468,78469,78472,78473
;;78481,78483,78491,78492,78494,78496,78499,78579,78580,78582,78597,78598,78599
;;78600,78601,78605,78606,78608,78609,78610,78630,78635,78645,78650,78660,78699
;;78700,78701,78707,78708,78709,78725,78730,78740,78761,78799,78800,78801,78802
;;78803,78804,78808,78811,78812,78813,78814,78815,78816,78830,78831,78832,78835
;;78999,79005,79101,79200,79300,79403,79440,79445,79999,80047,80048,80050,80051
;;80053,80055,80061,80069,80074,80076,80081,80143,80145,80150,80151,80155,80156
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR210UT1 13660 printed Nov 22, 2024@17:48:30 Page 2
SR210UT1 ;HPS/JSG - FY23 CPT EXCLUSION UTILITY, CONTINUED; Mar 28, 2023@09:50
+1 ;;3.0;Surgery;**206,210**;24 Jun 93;Build 4
+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 ;;41820,41821,41822,41823,41825,41826,41827,41828,4182F,41830,41850,4185F,4186F
+2 ;;41870,41872,41874,4187F,4188F,41899,4189F,4190F,4191F,4192F,4193F,4194F,4195F
+3 ;;4196F,42000,4200F,4201F,42100,42104,42106,42107,4210F,42120,42140,42145,42160
+4 ;;42180,42182,42200,42205,4220F,42210,42215,4221F,42220,42225,42226,42227,42235
+5 ;;42260,42280,42281,42299,42300,42305,4230F,42310,42320,42330,42335,42340,42400
+6 ;;42405,42408,42409,4240F,4242F,42440,42450,4245F,4248F,42500,42505,42507,42509
+7 ;;4250F,42510,42550,4255F,4256F,42600,4260F,4261F,42650,4265F,42660,42665,4266F
+8 ;;4267F,4268F,42699,4269F,4270F,4271F,4274F,4276F,4279F,42800,42804,42806,42808
+9 ;;42809,4280F,42810,42815,42820,42821,42825,42826,42830,42831,42835,42836,42860
+10 ;;42870,42900,4290F,4293F,42955,42975,4300F,4301F,4305F,4306F,43191,43192,43193
+11 ;;43194,43195,43196,43197,43198,43200,43201,43202,43204,43205,43206,4320F,43210
+12 ;;43211,43212,43213,43214,43215,43216,43217,43220,43226,43227,43229,4322F,43231
+13 ;;43232,43233,43235,43236,43237,43238,43239,43240,43241,43242,43243,43244,43245
+14 ;;43246,43247,43248,43249,4324F,43250,43251,43252,43253,43254,43255,43257,43259
+15 ;;4325F,43260,43261,43262,43263,43264,43265,43266,4326F,43270,43273,43274,43275
+16 ;;43276,43277,43278,4328F,43290,43291,4330F,4340F,43450,43453,43460,4350F,43605
+17 ;;43653,43752,43753,43754,43755,43756,43757,43761,43762,43763,43830,43831,43832
+18 ;;43870,43886,43887,43888,4400F,44015,44100,44132,44186,44300,44360,44361,44363
+19 ;;44364,44365,44366,44369,44370,44372,44373,44376,44377,44378,44379,44380,44381
+20 ;;44382,44384,44385,44386,44388,44389,44390,44391,44392,44394,44401,44402,44403
+21 ;;44404,44405,44406,44407,44408,44500,4450F,44705,4470F,44715,44720,44721,4480F
+22 ;;4481F,4500F,45100,45108,4510F,45150,45171,45172,45190,4525F,4526F,45300,45303
+23 ;;45305,45307,45308,45309,45315,45317,45320,45321,45327,45330,45331,45332,45333
+24 ;;45334,45335,45337,45338,45340,45341,45342,45346,45347,45349,45350,45378,45379
+25 ;;45380,45381,45382,45384,45385,45386,45388,45389,45390,45391,45392,45393,45398
+26 ;;4540F,4541F,45505,4550F,4551F,45520,4552F,4553F,4554F,4555F,4556F,4557F,4558F
+27 ;;4559F,4560F,4561F,4562F,4563F,45900,45905,45910,45915,45990,46020,46030,46050
+28 ;;46070,46080,46083,46200,46220,46221,46230,46250,46255,46257,46258,46260,46261
+29 ;;46262,46270,46275,46280,46285,46288,46320,46500,46505,46600,46601,46604,46606
+30 ;;46607,46608,46610,46611,46612,46614,46615,46700,46705,46706,46707,46750,46751
+31 ;;46753,46754,46760,46761,46900,46910,46916,46917,46922,46924,46930,46940,46942
+32 ;;46945,46946,46947,46948,46999,47000,47001,47100,47133,47143,47144,47145,47146
+33 ;;47147,47383,47490,47531,47532,47533,47534,47535,47536,47537,47538,47539,47540
+34 ;;47541,47542,47543,47544,47552,47553,47554,47555,47556,48100,48102,48400,48550
+35 ;;48551,48552,49082,49083,49084,49180,49185,49320,49321,49322,49324,49325,49326
+36 ;;49327,49400,49405,49406,49407,49411,49412,49418,49419,49421,49422,49423,49424
+37 ;;49427,49428,49429,49440,49441,49442,49446,49450,49451,49452,49460,49465,49491
+38 ;;49492,49495,49496,49500,49501,49605,49606,49610,49611,5005F,5010F,5015F,50200
+39 ;;50205,5020F,50300,50323,50325,50327,50328,50329,50382,50384,50385,50386,50387
+40 ;;50389,50390,50391,50396,50430,50431,50432,50433,50434,50435,50436,50437,5050F
+41 ;;50551,50553,50555,50557,50561,50562,50570,50572,50574,50575,50576,50580,50590
+42 ;;50592,50593,50606,5060F,5062F,50684,50686,50688,50690,50693,50694,50695,50705
+43 ;;50706,50951,50953,50955,50957,50961,50970,50972,50974,50976,50980,5100F,51040
+44 ;;51050,51100,51101,51102,51600,51605,51610,51700,51701,51702,51703,51705,51710
+45 ;;51715,51720,51725,51726,51727,51728,51729,51736,51741,51784,51785,51792,51797
+46 ;;51798,52000,52001,52005,52007,5200F,52010,52204,52214,52224,52250,52260,52265
+47 ;;52270,52275,52276,52277,52281,52282,52283,52285,52287,52290,52300,52301,52305
+48 ;;52310,52315,52317,52318,52320,52325,52327,52330,52332,52334,52341,52342,52343
+49 ;;52351,52352,52353,52354,52355,52356,52441,52442,52450,5250F,53020,53025,53060
+50 ;;53200,53270,53275,53453,53454,53600,53601,53620,53621,53660,53661,53850,53852
+51 ;;53854,53855,53860,53899,54000,54001,54015,54050,54055,54056,54057,54060,54065
+52 ;;54100,54105,54150,54160,54161,54162,54163,54164,54200,54205,54220,54230,54231
+53 ;;54235,54240,54250,54400,54401,54405,54406,54408,54410,54415,54416,54435,54437
+54 ;;54438,54450,54500,54505,54512,54520,54530,54535,54700,54800,54830,55000,55100
+55 ;;55200,55250,55300,55400,55500,55520,55559,55700,55705,55706,55870,55874,55876
+56 ;;55880,55920,56405,56420,56440,56441,56501,56515,56605,56606,56700,56820,56821
+57 ;;57020,57022,57023,57061,57065,57100,57105,57150,57155,57156,57160,57170,57180
+58 ;;57400,57410,57420,57421,57452,57454,57455,57456,57460,57461,57465,57500,57505
+59 ;;57510,57511,57513,57700,57800,58100,58110,58120,58300,58301,58321,58322,58323
+60 ;;58340,58345,58346,58353,58555,58558,58559,58560,58561,58562,58563,58674,58900
+61 ;;58970,58974,58976,59000,59001,59012,59015,59020,59025,59030,59050,59051,59070
+62 ;;59072,59074,59076,59100,59160,59200,59300,59320,59325,59400,59409,59410,59412
+63 ;;59414,59425,59426,59430,59510,59514,59515,59525,59610,59612,59614,59618,59840
+64 ;;59841,59850,59851,59852,59855,59856,59857,59866,59871,59897,59898,59899,6005F
+65 ;;60100,6010F,6015F,6020F,60300,6030F,6040F,6045F,6070F,6080F,6090F,61001,6100F
+66 ;;6101F,61026,6102F,61050,61055,61070,6110F,61140,6150F,61623,61630,61640,61641
+67 ;;61642,61645,61650,61651,61750,61751,61782,61790,61791,61796,61797,61798,61799
+68 ;;61800,62140,62141,62142,62143,62146,62252,62263,62264,62267,62268,62269,62270
+69 ;;62272,62273,62280,62281,62282,62284,62287,62290,62291,62292,62294,62302,62303
+70 ;;62304,62305,62320,62321,62322,62323,62324,62325,62326,62327,62328,62329,62350
+71 ;;62355,62360,62361,62362,62365,62367,62368,62369,62370,63600,63610,63620,63621
+72 ;;63650,63661,63663,63685,63688,64400,64405,64408,64415,64416,64417,64418,64420
+73 ;;64421,64425,64430,64435,64445,64446,64447,64448,64449,64450,64451,64454,64455
+74 ;;64461,64462,64463,64479,64480,64483,64484,64486,64487,64488,64489,64490,64491
+75 ;;64492,64493,64494,64495,64505,64510,64517,64520,64530,64553,64555,64561,64566
+76 ;;64568,64569,64570,64575,64580,64581,64584,64585,64590,64595,64600,64605,64610
+77 ;;64611,64612,64615,64616,64617,64620,64624,64625,64628,64629,64630,64632,64633
+78 ;;64634,64635,64636,64640,64642,64643,64644,64645,64646,64647,64650,64653,64680
+79 ;;64681,64702,64704,64716,64718,64719,64721,64732,64734,64736,64738,64740,64742
+80 ;;64744,64774,64776,64778,64782,64783,64784,64786,64787,64788,64790,64792,64795
+81 ;;64820,64821,64822,64823,64831,64832,64834,64835,64836,65091,65093,65101,65103
+82 ;;65105,65110,65112,65114,65125,65130,65135,65140,65150,65155,65175,65205,65210
+83 ;;65220,65222,65235,65260,65265,65270,65272,65273,65275,65280,65285,65286,65290
+84 ;;65400,65410,65420,65426,65430,65435,65436,65450,65600,65710,65730,65750,65755
+85 ;;65756,65757,65760,65765,65767,65770,65771,65772,65775,65778,65779,65780,65781
+86 ;;65782,65785,65800,65810,65815,65820,65850,65855,65860,65865,65870,65875,65880
+87 ;;65900,65920,65930,66020,66030,66130,66150,66155,66160,66170,66172,66174,66175
+88 ;;66179,66180,66183,66184,66185,66225,66250,66500,66505,66600,66605,66625,66630
+89 ;;66635,66680,66682,66700,66710,66711,66720,66740,66761,66762,66770,66820,66821
+90 ;;66825,66830,66840,66850,66852,66920,66930,66940,66982,66983,66984,66985,66986
+91 ;;66987,66988,66989,66990,66991,66999,67005,67010,67015,67025,67027,67028,67030
+92 ;;67031,67036,67039,67040,67041,67042,67043,67101,67105,67107,67108,67110,67113
+93 ;;67115,67120,67121,67141,67145,67208,67210,67218,67220,67221,67225,67227,67228
+94 ;;67229,67250,67255,67299,67311,67312,67314,67316,67318,67320,67331,67332,67334
+95 ;;67335,67340,67343,67345,67346,67399,67400,67405,67412,67413,67414,67415,67420
+96 ;;67430,67440,67445,67450,67500,67505,67515,67550,67560,67570,67599,67700,67710
+97 ;;67715,67800,67801,67805,67808,67810,67820,67825,67830,67835,67840,67850,67875
+98 ;;67880,67882,67900,67901,67902,67903,67904,67906,67908,67909,67911,67912,67914
+99 ;;67915,67916,67917,67921,67922,67923,67924,67930,67935,67938,67950,67961,67966
+100 ;;67971,67973,67974,67975,67999,68020,68040,68100,68110,68115,68130,68135,68200
+101 ;;68320,68325,68326,68328,68330,68335,68340,68360,68362,68371,68399,68400,68420
+102 ;;68440,68500,68505,68510,68520,68525,68530,68540,68550,68700,68705,68720,68745
+103 ;;68750,68760,68761,68770,68801,68810,68811,68815,68816,68840,68841,68850,68899
+104 ;;69000,69005,69020,69090,69100,69105,69110,69120,69140,69145,69200,69205,69209
+105 ;;69210,69220,69222,69300,69310,69320,69399,69420,69421,69424,69433,69436,69440
+106 ;;69450,69501,69502,69505,69511,69535,69540,69550,69552,69554,69601,69602,69603
+107 ;;69604,69610,69620,69631,69632,69633,69635,69636,69637,69641,69642,69643,69644
+108 ;;69645,69646,69650,69660,69661,69662,69666,69667,69670,69676,69700,69705,69706
+109 ;;69710,69711,69714,69720,69740,69799,69801,69805,69806,69949,69950,69955,69960
+110 ;;69970,69979,69990,70010,70015,70030,70100,7010F,70110,70120,70130,70134,70140
+111 ;;70150,70160,70170,70190,70200,7020F,70210,70220,70240,70250,7025F,70260,70300
+112 ;;70310,70320,70328,70330,70332,70336,70350,70355,70360,70370,70371,70380,70390
+113 ;;70450,70460,70470,70480,70481,70482,70486,70487,70488,70490,70491,70492,70496
+114 ;;70498,70540,70542,70543,70544,70545,70546,70547,70548,70549,70551,70552,70553
+115 ;;70554,70555,70557,70558,70559,71045,71046,71047,71048,71100,71101,71110,71111
+116 ;;71120,71130,71250,71260,71270,71271,71275,71550,71551,71552,71555,72020,72040
+117 ;;72050,72052,72070,72072,72074,72080,72081,72082,72083,72084,72100,72110,72114
+118 ;;72120,72125,72126,72127,72128,72129,72130,72131,72132,72133,72141,72142,72146
+119 ;;72147,72148,72149,72156,72157,72158,72159,72170,72190,72191,72192,72193,72194
+120 ;;72195,72196,72197,72198,72200,72202,72220,72240,72255,72265,72270,72285,72295
+121 ;;73000,73010,73020,73030,73040,73050,73060,73070,73080,73085,73090,73092,73100
+122 ;;73110,73115,73120,73130,73140,73200,73201,73202,73206,73218,73219,73220,73221
+123 ;;73222,73223,73225,73501,73502,73503,73521,73522,73523,73525,73551,73552,73560
+124 ;;73562,73564,73565,73580,73590,73592,73600,73610,73615,73620,73630,73650,73660
+125 ;;73700,73701,73702,73706,73718,73719,73720,73721,73722,73723,73725,74018,74019
+126 ;;74021,74022,74150,74160,74170,74174,74175,74176,74177,74178,74181,74182,74183
+127 ;;74185,74190,74210,74220,74221,74230,74235,74240,74246,74248,74250,74251,74261
+128 ;;74262,74263,74270,74280,74283,74290,74300,74301,74328,74329,74330,74340,74355
+129 ;;74360,74363,74400,74410,74415,74420,74425,74430,74440,74445,74450,74455,74470
+130 ;;74485,74710,74712,74713,74740,74742,74775,75557,75559,75561,75563,75565,75571
+131 ;;75572,75573,75574,75600,75605,75625,75630,75635,75705,75710,75716,75726,75731
+132 ;;75733,75736,75741,75743,75746,75756,75774,75801,75803,75805,75807,75809,75810
+133 ;;75820,75822,75825,75827,75831,75833,75840,75842,75860,75870,75872,75880,75885
+134 ;;75887,75889,75891,75893,75894,75898,75901,75902,75956,75957,75958,75959,75970
+135 ;;75984,75989,76000,76010,76080,76098,76100,76120,76125,76140,76145,76376,76377
+136 ;;76380,76390,76391,76496,76497,76498,76499,76506,76510,76511,76512,76513,76514
+137 ;;76516,76519,76529,76536,76604,76641,76642,76700,76705,76706,76770,76775,76776
+138 ;;76800,76801,76802,76805,76810,76811,76812,76813,76814,76815,76816,76817,76818
+139 ;;76819,76820,76821,76825,76826,76827,76828,76830,76831,76856,76857,76870,76872
+140 ;;76873,76881,76882,76883,76885,76886,76932,76936,76937,76940,76941,76942,76945
+141 ;;76946,76948,76965,76975,76977,76978,76979,76981,76982,76983,76998,76999,77001
+142 ;;77002,77003,77011,77012,77013,77014,77021,77022,77046,77047,77048,77049,77053
+143 ;;77054,77061,77062,77063,77065,77066,77067,77071,77072,77073,77074,77075,77076
+144 ;;77077,77078,77080,77081,77084,77085,77086,77089,77090,77091,77092,77261,77262
+145 ;;77263,77280,77285,77290,77293,77295,77299,77300,77301,77306,77307,77316,77317
+146 ;;77318,77321,77331,77332,77333,77334,77336,77338,77370,77371,77372,77373,77385
+147 ;;77386,77387,77399,77401,77402,77407,77412,77417,77423,77424,77425,77427,77431
+148 ;;77432,77435,77469,77470,77499,77520,77522,77523,77525,77600,77605,77610,77615
+149 ;;77620,77750,77761,77762,77763,77767,77768,77770,77771,77772,77778,77789,77790
+150 ;;77799,78012,78013,78014,78015,78016,78018,78020,78070,78071,78072,78075,78099
+151 ;;78102,78103,78104,78110,78111,78120,78121,78122,78130,78140,78185,78191,78195
+152 ;;78199,78201,78202,78215,78216,78226,78227,78230,78231,78232,78258,78261,78262
+153 ;;78264,78265,78266,78267,78268,78278,78282,78290,78291,78299,78300,78305,78306
+154 ;;78315,78350,78351,78399,78414,78428,78429,78430,78431,78432,78433,78434,78445
+155 ;;78451,78452,78453,78454,78456,78457,78458,78459,78466,78468,78469,78472,78473
+156 ;;78481,78483,78491,78492,78494,78496,78499,78579,78580,78582,78597,78598,78599
+157 ;;78600,78601,78605,78606,78608,78609,78610,78630,78635,78645,78650,78660,78699
+158 ;;78700,78701,78707,78708,78709,78725,78730,78740,78761,78799,78800,78801,78802
+159 ;;78803,78804,78808,78811,78812,78813,78814,78815,78816,78830,78831,78832,78835
+160 ;;78999,79005,79101,79200,79300,79403,79440,79445,79999,80047,80048,80050,80051
+161 ;;80053,80055,80061,80069,80074,80076,80081,80143,80145,80150,80151,80155,80156