SR202UT1 ;HPS/JSG - FY21 CPT EXCLUSION UTILITY, CONTINUED ;Mar 31, 2021@09:50
;;3.0;Surgery;**202**;24 Jun 93;Build 2
;
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 ;
;;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,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,69715,69717,69718
;;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,72275,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,76101,76102,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,76885,76886,76932,76936,76937,76940,76941,76942,76945,76946
;;76948,76965,76970,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,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,78135,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,80157,80158,80159
;;80161,80162,80163,80164,80165,80167,80168,80169,80170,80171,80173,80175,80176
;;80177,80178,80179,80180,80181,80183,80184,80185,80186,80187,80188,80189,80190
;;80192,80193,80194,80195,80197,80198,80199,80200,80201,80202,80203,80204,80210
;;80230,80235,80280,80285,80299,80305,80306,80307,80320,80321,80322,80323,80324
;;80325,80326,80327,80328,80329,80330,80331,80332,80333,80334,80335,80336,80337
;;80338,80339,80340,80341,80342,80343,80344,80345,80346,80347,80348,80349,80350
;;80351,80352,80353,80354,80355,80356,80357,80358,80359,80360,80361,80362,80363
;;80364,80365,80366,80367,80368,80369,80370,80371,80372,80373,80374,80375,80376
;;80377,80400,80402,80406,80408,80410,80412,80414,80415,80416,80417,80418,80420
;;80422,80424,80426,80428,80430,80432,80434,80435,80436,80438,80439,80500,80502
;;81000,81001,81002,81003,81005,81007,81015,81020,81025,81050,81099,81105,81106
;;81107,81108,81109,81110,81111,81112,81120,81121,81161,81162,81163,81164,81165
;;81166,81167,81168,81170,81171,81172,81173,81174,81175,81176,81177,81178,81179
;;81180,81181,81182,81183,81184,81185,81186,81187,81188,81189,81190,81191,81192
;;81193,81194,81200,81201,81202,81203,81204,81205,81206,81207,81208,81209,81210
;;81212,81215,81216,81217,81218,81219,81220,81221,81222,81223,81224,81225,81226
;;81227,81228,81229,81230,81231,81232,81233,81234,81235,81236,81237,81238,81239
;;81240,81241,81242,81243,81244,81245,81246,81247,81248,81249,81250,81251,81252
;;81253,81254,81255,81256,81257,81258,81259,81260,81261,81262,81263,81264,81265
;;81266,81267,81268,81269,81270,81271,81272,81273,81274,81275,81276,81277,81278
;;81279,81283,81284,81285,81286,81287,81288,81289,81290,81291,81292,81293,81294
;;81295,81296,81297,81298,81299,81300,81301,81302,81303,81304,81305,81306,81307
;;81308,81309,81310,81311,81312,81313,81314,81315,81316,81317,81318,81319,81320
;;81321,81322,81323,81324,81325,81326,81327,81328,81329,81330,81331,81332,81333
;;81334,81335,81336,81337,81338,81339,81340,81341,81342,81343,81344,81345,81346
;;81347,81348,81350,81351,81352,81353,81355,81357,81360,81361,81362,81363,81364
;;81370,81371,81372,81373,81374,81375,81376,81377,81378,81379,81380,81381,81382
;;81383,81400,81401,81402,81403,81404,81405,81406,81407,81408,81410,81411,81412
;;81413,81414,81415,81416,81417,81419,81420,81422,81425,81426,81427,81430,81431
;;81432,81433,81434,81435,81436,81437,81438,81439,81440,81442,81443,81445,81448
;;81450,81455,81460,81465,81470,81471,81479,81490,81493,81500,81503,81504,81506
;;81507,81508,81509,81510,81511,81512,81513,81514,81518,81519,81520,81521,81522
;;81525,81528,81529,81535,81536,81538,81539,81540,81541,81542,81545,81546,81551
;;81552,81554,81595,81596,81599,82009,82010,82013,82016,82017,82024,82030,82040
;;82042,82043,82044,82045,82075,82077,82085,82088,82103,82104,82105,82106,82107
;;82108,82120,82127,82128,82131,82135,82136,82139,82140,82143,82150,82154,82157
;;82160,82163,82164,82172,82175,82180,82190,82232,82239,82240,82247,82248,82252
;;82261,82270,82271,82272,82274,82286,82300,82306,82308,82310,82330,82331,82340
;;82355,82360,82365,82370,82373,82374,82375,82376,82378,82379,82380,82382,82383
;;82384,82387,82390,82397,82415,82435,82436,82438,82441,82465,82480,82482,82485
;;82495,82507,82523,82525,82528,82530,82533,82540,82542,82550,82552,82553,82554
;;82565,82570,82575,82585,82595,82600,82607,82608,82610,82615,82626,82627,82633
;;82634,82638,82642,82652,82656,82657,82658,82664,82668,82670,82671,82672,82677
;;82679,82681,82693,82696,82705,82710,82715,82725,82726,82728,82731,82735,82746
;;82747,82757,82759,82760,82775,82776,82777,82784,82785,82787,82800,82803,82805
;;82810,82820,82930,82938,82941,82943,82945,82946,82947,82948,82950,82951,82952
;;82955,82960,82962,82963,82965,82977,82978,82979,82985,83001,83002,83003,83006
;;83009,83010,83012,83013,83014,83015,83018,83020,83021,83026,83030,83033,83036
;;83037,83045,83050,83051,83060,83065,83068,83069,83070,83080,83088,83090,83150
;;83491,83497,83498,83500,83505,83516,83518,83519,83520,83525,83527,83528,83540
;;83550,83570,83582,83586,83593,83605,83615,83625,83630,83631,83632,83633,83655
;;83661,83662,83663,83664,83670,83690,83695,83698,83700,83701,83704,83718,83719
;;83721,83722,83727,83735,83775,83785,83789,83825,83835,83857,83861,83864,83872
;;83873,83874,83876,83880,83883,83885,83915,83916,83918,83919,83921,83930,83935
;;83937,83945,83950,83951,83970,83986,83987,83992,83993,84030,84035,84060,84066
;;84075,84078,84080,84081,84085,84087,84100,84105,84106,84110,84112,84119,84120
;;84126,84132,84133,84134,84135,84138,84140,84143,84144,84145,84146,84150,84152
;;84153,84154,84155,84156,84157,84160,84163,84165,84166,84181,84182,84202,84203
;;84206,84207,84210,84220,84228,84233,84234,84235,84238,84244,84252,84255,84260
;;84270,84275,84285,84295,84300,84302,84305,84307,84311,84315,84375,84376,84377
;;84378,84379,84392,84402,84403,84410,84425,84430,84431,84432,84436,84437,84439
;;84442,84443,84445,84446,84449,84450,84460,84466,84478,84479,84480,84481,84482
;;84484,84485,84488,84490,84510,84512,84520,84525,84540,84545,84550,84560,84577
;;84578,84580,84583,84585,84586,84588,84590,84591,84597,84600,84620,84630,84681
;;84702,84703,84704,84830,84999,85002,85004,85007,85008,85009,85013,85014,85018
;;85025,85027,85032,85041,85044,85045,85046,85048,85049,85055,85060,85097,85130
;;85170,85175,85210,85220,85230,85240,85244,85245,85246,85247,85250,85260,85270
;;85280,85290,85291,85292,85293,85300,85301,85302,85303,85305,85306,85307,85335
;;85337,85345,85347,85348,85360,85362,85366,85370,85378,85379,85380,85384,85385
;;85390,85396,85397,85400,85410,85415,85420,85421,85441,85445,85460,85461,85475
;;85520,85525,85530,85536,85540,85547,85549,85555,85557,85576,85597,85598,85610
;;85611,85612,85613,85635,85651,85652,85660,85670,85675,85705,85730,85732,85810
;;85999,86000,86001,86003,86005,86008,86021,86022,86023,86038,86039,86060,86063
;;86077,86078,86079,86140,86141,86146,86147,86148,86152,86153,86155,86156,86157
;;86160,86161,86162,86171,86200,86215,86225,86226,86235,86255,86256,86277,86280
;;86294,86300,86301,86304,86305,86308,86309,86310,86316,86317,86318,86320,86325
;;86327,86328,86329,86331,86332,86334,86335,86336,86337,86340,86341,86343,86344
;;86352,86353,86355,86356,86357,86359,86360,86361,86367,86376,86382,86384,86386
;;86403,86406,86430,86431,86480,86481,86485,86486,86490,86510,86580,86590,86592
;;86593,86602,86603,86606,86609,86611,86612,86615,86617,86618,86619,86622,86625
;;86628,86631,86632,86635,86638,86641,86644,86645,86648,86651,86652,86653,86654
;;86658,86663,86664,86665,86666,86668,86671,86674,86677,86682,86684,86687,86688
;;86689,86692,86694,86695,86696,86698,86701,86702,86703,86704,86705,86706,86707
;;86708,86709,86710,86711,86713,86717,86720,86723,86727,86732,86735,86738,86741
;;86744,86747,86750,86753,86756,86757,86759,86762,86765,86768,86769,86771,86774
;;86777,86778,86780,86784,86787,86788,86789,86790,86793,86794,86800,86803,86804
;;86805,86806,86807,86808,86812,86813,86816,86817,86821,86825,86826,86828,86829
;;86830,86831,86832,86833,86834,86835,86849,86850,86860,86870,86880,86885,86886
;;86890,86891,86900,86901,86902,86904,86905,86906,86910,86911,86920,86921,86922
;;86923,86927,86930,86931,86932,86940,86941,86945,86950,86960,86965,86970,86971
;;86972,86975,86976,86977,86978,86985,86999,87003,87015,87040,87045,87046,87070
;;87071,87073,87075,87076,87077,87081,87084,87086,87088,87101,87102,87103,87106
;;87107,87109,87110,87116,87118,87140,87143,87147,87149,87150,87152,87153,87158
;;87164,87166,87168,87169,87172,87176,87177,87181,87184,87185,87186,87187,87188
;;87190,87197,87205,87206,87207,87209,87210,87220,87230,87250,87252,87253,87254
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR202UT1 13738 printed Apr 09, 2024@21:41:54 Page 2
SR202UT1 ;HPS/JSG - FY21 CPT EXCLUSION UTILITY, CONTINUED ;Mar 31, 2021@09:50
+1 ;;3.0;Surgery;**202**;24 Jun 93;Build 2
+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 ;;67399,67400,67405,67412,67413,67414,67415,67420,67430,67440,67445,67450,67500
+2 ;;67505,67515,67550,67560,67570,67599,67700,67710,67715,67800,67801,67805,67808
+3 ;;67810,67820,67825,67830,67835,67840,67850,67875,67880,67882,67900,67901,67902
+4 ;;67903,67904,67906,67908,67909,67911,67912,67914,67915,67916,67917,67921,67922
+5 ;;67923,67924,67930,67935,67938,67950,67961,67966,67971,67973,67974,67975,67999
+6 ;;68020,68040,68100,68110,68115,68130,68135,68200,68320,68325,68326,68328,68330
+7 ;;68335,68340,68360,68362,68371,68399,68400,68420,68440,68500,68505,68510,68520
+8 ;;68525,68530,68540,68550,68700,68705,68720,68745,68750,68760,68761,68770,68801
+9 ;;68810,68811,68815,68816,68840,68850,68899,69000,69005,69020,69090,69100,69105
+10 ;;69110,69120,69140,69145,69200,69205,69209,69210,69220,69222,69300,69310,69320
+11 ;;69399,69420,69421,69424,69433,69436,69440,69450,69501,69502,69505,69511,69535
+12 ;;69540,69550,69552,69554,69601,69602,69603,69604,69610,69620,69631,69632,69633
+13 ;;69635,69636,69637,69641,69642,69643,69644,69645,69646,69650,69660,69661,69662
+14 ;;69666,69667,69670,69676,69700,69705,69706,69710,69711,69714,69715,69717,69718
+15 ;;69720,69740,69799,69801,69805,69806,69949,69950,69955,69960,69970,69979,69990
+16 ;;70010,70015,70030,70100,7010F,70110,70120,70130,70134,70140,70150,70160,70170
+17 ;;70190,70200,7020F,70210,70220,70240,70250,7025F,70260,70300,70310,70320,70328
+18 ;;70330,70332,70336,70350,70355,70360,70370,70371,70380,70390,70450,70460,70470
+19 ;;70480,70481,70482,70486,70487,70488,70490,70491,70492,70496,70498,70540,70542
+20 ;;70543,70544,70545,70546,70547,70548,70549,70551,70552,70553,70554,70555,70557
+21 ;;70558,70559,71045,71046,71047,71048,71100,71101,71110,71111,71120,71130,71250
+22 ;;71260,71270,71271,71275,71550,71551,71552,71555,72020,72040,72050,72052,72070
+23 ;;72072,72074,72080,72081,72082,72083,72084,72100,72110,72114,72120,72125,72126
+24 ;;72127,72128,72129,72130,72131,72132,72133,72141,72142,72146,72147,72148,72149
+25 ;;72156,72157,72158,72159,72170,72190,72191,72192,72193,72194,72195,72196,72197
+26 ;;72198,72200,72202,72220,72240,72255,72265,72270,72275,72285,72295,73000,73010
+27 ;;73020,73030,73040,73050,73060,73070,73080,73085,73090,73092,73100,73110,73115
+28 ;;73120,73130,73140,73200,73201,73202,73206,73218,73219,73220,73221,73222,73223
+29 ;;73225,73501,73502,73503,73521,73522,73523,73525,73551,73552,73560,73562,73564
+30 ;;73565,73580,73590,73592,73600,73610,73615,73620,73630,73650,73660,73700,73701
+31 ;;73702,73706,73718,73719,73720,73721,73722,73723,73725,74018,74019,74021,74022
+32 ;;74150,74160,74170,74174,74175,74176,74177,74178,74181,74182,74183,74185,74190
+33 ;;74210,74220,74221,74230,74235,74240,74246,74248,74250,74251,74261,74262,74263
+34 ;;74270,74280,74283,74290,74300,74301,74328,74329,74330,74340,74355,74360,74363
+35 ;;74400,74410,74415,74420,74425,74430,74440,74445,74450,74455,74470,74485,74710
+36 ;;74712,74713,74740,74742,74775,75557,75559,75561,75563,75565,75571,75572,75573
+37 ;;75574,75600,75605,75625,75630,75635,75705,75710,75716,75726,75731,75733,75736
+38 ;;75741,75743,75746,75756,75774,75801,75803,75805,75807,75809,75810,75820,75822
+39 ;;75825,75827,75831,75833,75840,75842,75860,75870,75872,75880,75885,75887,75889
+40 ;;75891,75893,75894,75898,75901,75902,75956,75957,75958,75959,75970,75984,75989
+41 ;;76000,76010,76080,76098,76100,76101,76102,76120,76125,76140,76145,76376,76377
+42 ;;76380,76390,76391,76496,76497,76498,76499,76506,76510,76511,76512,76513,76514
+43 ;;76516,76519,76529,76536,76604,76641,76642,76700,76705,76706,76770,76775,76776
+44 ;;76800,76801,76802,76805,76810,76811,76812,76813,76814,76815,76816,76817,76818
+45 ;;76819,76820,76821,76825,76826,76827,76828,76830,76831,76856,76857,76870,76872
+46 ;;76873,76881,76882,76885,76886,76932,76936,76937,76940,76941,76942,76945,76946
+47 ;;76948,76965,76970,76975,76977,76978,76979,76981,76982,76983,76998,76999,77001
+48 ;;77002,77003,77011,77012,77013,77014,77021,77022,77046,77047,77048,77049,77053
+49 ;;77054,77061,77062,77063,77065,77066,77067,77071,77072,77073,77074,77075,77076
+50 ;;77077,77078,77080,77081,77084,77085,77086,77261,77262,77263,77280,77285,77290
+51 ;;77293,77295,77299,77300,77301,77306,77307,77316,77317,77318,77321,77331,77332
+52 ;;77333,77334,77336,77338,77370,77371,77372,77373,77385,77386,77387,77399,77401
+53 ;;77402,77407,77412,77417,77423,77424,77425,77427,77431,77432,77435,77469,77470
+54 ;;77499,77520,77522,77523,77525,77600,77605,77610,77615,77620,77750,77761,77762
+55 ;;77763,77767,77768,77770,77771,77772,77778,77789,77790,77799,78012,78013,78014
+56 ;;78015,78016,78018,78020,78070,78071,78072,78075,78099,78102,78103,78104,78110
+57 ;;78111,78120,78121,78122,78130,78135,78140,78185,78191,78195,78199,78201,78202
+58 ;;78215,78216,78226,78227,78230,78231,78232,78258,78261,78262,78264,78265,78266
+59 ;;78267,78268,78278,78282,78290,78291,78299,78300,78305,78306,78315,78350,78351
+60 ;;78399,78414,78428,78429,78430,78431,78432,78433,78434,78445,78451,78452,78453
+61 ;;78454,78456,78457,78458,78459,78466,78468,78469,78472,78473,78481,78483,78491
+62 ;;78492,78494,78496,78499,78579,78580,78582,78597,78598,78599,78600,78601,78605
+63 ;;78606,78608,78609,78610,78630,78635,78645,78650,78660,78699,78700,78701,78707
+64 ;;78708,78709,78725,78730,78740,78761,78799,78800,78801,78802,78803,78804,78808
+65 ;;78811,78812,78813,78814,78815,78816,78830,78831,78832,78835,78999,79005,79101
+66 ;;79200,79300,79403,79440,79445,79999,80047,80048,80050,80051,80053,80055,80061
+67 ;;80069,80074,80076,80081,80143,80145,80150,80151,80155,80156,80157,80158,80159
+68 ;;80161,80162,80163,80164,80165,80167,80168,80169,80170,80171,80173,80175,80176
+69 ;;80177,80178,80179,80180,80181,80183,80184,80185,80186,80187,80188,80189,80190
+70 ;;80192,80193,80194,80195,80197,80198,80199,80200,80201,80202,80203,80204,80210
+71 ;;80230,80235,80280,80285,80299,80305,80306,80307,80320,80321,80322,80323,80324
+72 ;;80325,80326,80327,80328,80329,80330,80331,80332,80333,80334,80335,80336,80337
+73 ;;80338,80339,80340,80341,80342,80343,80344,80345,80346,80347,80348,80349,80350
+74 ;;80351,80352,80353,80354,80355,80356,80357,80358,80359,80360,80361,80362,80363
+75 ;;80364,80365,80366,80367,80368,80369,80370,80371,80372,80373,80374,80375,80376
+76 ;;80377,80400,80402,80406,80408,80410,80412,80414,80415,80416,80417,80418,80420
+77 ;;80422,80424,80426,80428,80430,80432,80434,80435,80436,80438,80439,80500,80502
+78 ;;81000,81001,81002,81003,81005,81007,81015,81020,81025,81050,81099,81105,81106
+79 ;;81107,81108,81109,81110,81111,81112,81120,81121,81161,81162,81163,81164,81165
+80 ;;81166,81167,81168,81170,81171,81172,81173,81174,81175,81176,81177,81178,81179
+81 ;;81180,81181,81182,81183,81184,81185,81186,81187,81188,81189,81190,81191,81192
+82 ;;81193,81194,81200,81201,81202,81203,81204,81205,81206,81207,81208,81209,81210
+83 ;;81212,81215,81216,81217,81218,81219,81220,81221,81222,81223,81224,81225,81226
+84 ;;81227,81228,81229,81230,81231,81232,81233,81234,81235,81236,81237,81238,81239
+85 ;;81240,81241,81242,81243,81244,81245,81246,81247,81248,81249,81250,81251,81252
+86 ;;81253,81254,81255,81256,81257,81258,81259,81260,81261,81262,81263,81264,81265
+87 ;;81266,81267,81268,81269,81270,81271,81272,81273,81274,81275,81276,81277,81278
+88 ;;81279,81283,81284,81285,81286,81287,81288,81289,81290,81291,81292,81293,81294
+89 ;;81295,81296,81297,81298,81299,81300,81301,81302,81303,81304,81305,81306,81307
+90 ;;81308,81309,81310,81311,81312,81313,81314,81315,81316,81317,81318,81319,81320
+91 ;;81321,81322,81323,81324,81325,81326,81327,81328,81329,81330,81331,81332,81333
+92 ;;81334,81335,81336,81337,81338,81339,81340,81341,81342,81343,81344,81345,81346
+93 ;;81347,81348,81350,81351,81352,81353,81355,81357,81360,81361,81362,81363,81364
+94 ;;81370,81371,81372,81373,81374,81375,81376,81377,81378,81379,81380,81381,81382
+95 ;;81383,81400,81401,81402,81403,81404,81405,81406,81407,81408,81410,81411,81412
+96 ;;81413,81414,81415,81416,81417,81419,81420,81422,81425,81426,81427,81430,81431
+97 ;;81432,81433,81434,81435,81436,81437,81438,81439,81440,81442,81443,81445,81448
+98 ;;81450,81455,81460,81465,81470,81471,81479,81490,81493,81500,81503,81504,81506
+99 ;;81507,81508,81509,81510,81511,81512,81513,81514,81518,81519,81520,81521,81522
+100 ;;81525,81528,81529,81535,81536,81538,81539,81540,81541,81542,81545,81546,81551
+101 ;;81552,81554,81595,81596,81599,82009,82010,82013,82016,82017,82024,82030,82040
+102 ;;82042,82043,82044,82045,82075,82077,82085,82088,82103,82104,82105,82106,82107
+103 ;;82108,82120,82127,82128,82131,82135,82136,82139,82140,82143,82150,82154,82157
+104 ;;82160,82163,82164,82172,82175,82180,82190,82232,82239,82240,82247,82248,82252
+105 ;;82261,82270,82271,82272,82274,82286,82300,82306,82308,82310,82330,82331,82340
+106 ;;82355,82360,82365,82370,82373,82374,82375,82376,82378,82379,82380,82382,82383
+107 ;;82384,82387,82390,82397,82415,82435,82436,82438,82441,82465,82480,82482,82485
+108 ;;82495,82507,82523,82525,82528,82530,82533,82540,82542,82550,82552,82553,82554
+109 ;;82565,82570,82575,82585,82595,82600,82607,82608,82610,82615,82626,82627,82633
+110 ;;82634,82638,82642,82652,82656,82657,82658,82664,82668,82670,82671,82672,82677
+111 ;;82679,82681,82693,82696,82705,82710,82715,82725,82726,82728,82731,82735,82746
+112 ;;82747,82757,82759,82760,82775,82776,82777,82784,82785,82787,82800,82803,82805
+113 ;;82810,82820,82930,82938,82941,82943,82945,82946,82947,82948,82950,82951,82952
+114 ;;82955,82960,82962,82963,82965,82977,82978,82979,82985,83001,83002,83003,83006
+115 ;;83009,83010,83012,83013,83014,83015,83018,83020,83021,83026,83030,83033,83036
+116 ;;83037,83045,83050,83051,83060,83065,83068,83069,83070,83080,83088,83090,83150
+117 ;;83491,83497,83498,83500,83505,83516,83518,83519,83520,83525,83527,83528,83540
+118 ;;83550,83570,83582,83586,83593,83605,83615,83625,83630,83631,83632,83633,83655
+119 ;;83661,83662,83663,83664,83670,83690,83695,83698,83700,83701,83704,83718,83719
+120 ;;83721,83722,83727,83735,83775,83785,83789,83825,83835,83857,83861,83864,83872
+121 ;;83873,83874,83876,83880,83883,83885,83915,83916,83918,83919,83921,83930,83935
+122 ;;83937,83945,83950,83951,83970,83986,83987,83992,83993,84030,84035,84060,84066
+123 ;;84075,84078,84080,84081,84085,84087,84100,84105,84106,84110,84112,84119,84120
+124 ;;84126,84132,84133,84134,84135,84138,84140,84143,84144,84145,84146,84150,84152
+125 ;;84153,84154,84155,84156,84157,84160,84163,84165,84166,84181,84182,84202,84203
+126 ;;84206,84207,84210,84220,84228,84233,84234,84235,84238,84244,84252,84255,84260
+127 ;;84270,84275,84285,84295,84300,84302,84305,84307,84311,84315,84375,84376,84377
+128 ;;84378,84379,84392,84402,84403,84410,84425,84430,84431,84432,84436,84437,84439
+129 ;;84442,84443,84445,84446,84449,84450,84460,84466,84478,84479,84480,84481,84482
+130 ;;84484,84485,84488,84490,84510,84512,84520,84525,84540,84545,84550,84560,84577
+131 ;;84578,84580,84583,84585,84586,84588,84590,84591,84597,84600,84620,84630,84681
+132 ;;84702,84703,84704,84830,84999,85002,85004,85007,85008,85009,85013,85014,85018
+133 ;;85025,85027,85032,85041,85044,85045,85046,85048,85049,85055,85060,85097,85130
+134 ;;85170,85175,85210,85220,85230,85240,85244,85245,85246,85247,85250,85260,85270
+135 ;;85280,85290,85291,85292,85293,85300,85301,85302,85303,85305,85306,85307,85335
+136 ;;85337,85345,85347,85348,85360,85362,85366,85370,85378,85379,85380,85384,85385
+137 ;;85390,85396,85397,85400,85410,85415,85420,85421,85441,85445,85460,85461,85475
+138 ;;85520,85525,85530,85536,85540,85547,85549,85555,85557,85576,85597,85598,85610
+139 ;;85611,85612,85613,85635,85651,85652,85660,85670,85675,85705,85730,85732,85810
+140 ;;85999,86000,86001,86003,86005,86008,86021,86022,86023,86038,86039,86060,86063
+141 ;;86077,86078,86079,86140,86141,86146,86147,86148,86152,86153,86155,86156,86157
+142 ;;86160,86161,86162,86171,86200,86215,86225,86226,86235,86255,86256,86277,86280
+143 ;;86294,86300,86301,86304,86305,86308,86309,86310,86316,86317,86318,86320,86325
+144 ;;86327,86328,86329,86331,86332,86334,86335,86336,86337,86340,86341,86343,86344
+145 ;;86352,86353,86355,86356,86357,86359,86360,86361,86367,86376,86382,86384,86386
+146 ;;86403,86406,86430,86431,86480,86481,86485,86486,86490,86510,86580,86590,86592
+147 ;;86593,86602,86603,86606,86609,86611,86612,86615,86617,86618,86619,86622,86625
+148 ;;86628,86631,86632,86635,86638,86641,86644,86645,86648,86651,86652,86653,86654
+149 ;;86658,86663,86664,86665,86666,86668,86671,86674,86677,86682,86684,86687,86688
+150 ;;86689,86692,86694,86695,86696,86698,86701,86702,86703,86704,86705,86706,86707
+151 ;;86708,86709,86710,86711,86713,86717,86720,86723,86727,86732,86735,86738,86741
+152 ;;86744,86747,86750,86753,86756,86757,86759,86762,86765,86768,86769,86771,86774
+153 ;;86777,86778,86780,86784,86787,86788,86789,86790,86793,86794,86800,86803,86804
+154 ;;86805,86806,86807,86808,86812,86813,86816,86817,86821,86825,86826,86828,86829
+155 ;;86830,86831,86832,86833,86834,86835,86849,86850,86860,86870,86880,86885,86886
+156 ;;86890,86891,86900,86901,86902,86904,86905,86906,86910,86911,86920,86921,86922
+157 ;;86923,86927,86930,86931,86932,86940,86941,86945,86950,86960,86965,86970,86971
+158 ;;86972,86975,86976,86977,86978,86985,86999,87003,87015,87040,87045,87046,87070
+159 ;;87071,87073,87075,87076,87077,87081,87084,87086,87088,87101,87102,87103,87106
+160 ;;87107,87109,87110,87116,87118,87140,87143,87147,87149,87150,87152,87153,87158
+161 ;;87164,87166,87168,87169,87172,87176,87177,87181,87184,87185,87186,87187,87188
+162 ;;87190,87197,87205,87206,87207,87209,87210,87220,87230,87250,87252,87253,87254
