SR206UT2 ;HPS/JSG - FY22 CPT EXCLUSION UTILITY, CONTINUED ;May 10, 2022@15:051
;;3.0;Surgery;**206**;24 Jun 93;Build 2
;
Q
EX ; populate the CPT EXCLUSIONS file (#137)
F SRJ=1:1 S SRLIST=$P($T(LIST+SRJ)," ;;",2) Q:SRLIST="" F SRI=1:1 S SRX=$P(SRLIST,",",SRI) Q:SRX="" I $D(^ICPT("B",SRX)) D INT
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 ;
;;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,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,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,80220,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,80503,80504,80505,80506,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
;;81349,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,81523
;;81525,81528,81529,81535,81536,81538,81539,81540,81541,81542,81546,81551,81552
;;81554,81560,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,82653,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,83521,83525,83527
;;83528,83529,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,86015,86021,86022,86023
;;86036,86037,86038,86039,86051,86052,86053,86060,86063,86077,86078,86079,86140
;;86141,86146,86147,86148,86152,86153,86155,86156,86157,86160,86161,86162,86171
;;86200,86215,86225,86226,86231,86235,86255,86256,86258,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,86362,86363,86364,86367,86376,86381,86382
;;86384,86386,86403,86406,86408,86409,86413,86430,86431,86480,86481,86485,86486
;;86490,86510,86580,86590,86592,86593,86596,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,87154,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,87255,87260,87265,87267,87269,87270
;;87271,87272,87273,87274,87275,87276,87278,87279,87280,87281,87283,87285,87290
;;87299,87300,87301,87305,87320,87324,87327,87328,87329,87332,87335,87336,87337
;;87338,87339,87340,87341,87350,87380,87385,87389,87390,87391,87400,87420,87425
;;87426,87427,87428,87430,87449,87450,87451,87471,87472,87475,87476,87480,87481
;;87482,87483,87485,87486,87487,87490,87491,87492,87493,87495,87496,87497,87498
;;87500,87501,87502,87503,87505,87506,87507,87510,87511,87512,87516,87517,87520
;;87521,87522,87525,87526,87527,87528,87529,87530,87531,87532,87533,87534,87535
;;87536,87537,87538,87539,87540,87541,87542,87550,87551,87552,87555,87556,87557
;;87560,87561,87562,87563,87580,87581,87582,87590,87591,87592,87623,87624,87625
;;87631,87632,87633,87634,87635,87636,87637,87640,87641,87650,87651,87652,87653
;;87660,87661,87662,87797,87798,87799,87800,87801,87802,87803,87804,87806,87807
;;87808,87809,87810,87811,87850,87880,87899,87900,87901,87902,87903,87904,87905
;;87906,87910,87912,87999,88000,88005,88007,88012,88014,88016,88020,88025,88027
;;88028,88029,88036,88037,88040,88045,88099,88104,88106,88108,88112,88120,88121
;;88125,88130,88140,88141,88142,88143,88147,88148,88150,88152,88153,88155,88160
;;88161,88162,88164,88165,88166,88167,88172,88173,88174,88175,88177,88182,88184
;;88185,88187,88188,88189,88199,88230,88233,88235,88237,88239,88240,88241,88245
;;88248,88249,88261,88262,88263,88264,88267,88269,88271,88272,88273,88274,88275
;;88280,88283,88285,88289,88291,88299,88300,88302,88304,88305,88307,88309,88311
;;88312,88313,88314,88319,88321,88323,88325,88329,88331,88332,88333,88334,88341
;;88342,88344,88346,88348,88350,88355,88356,88358,88360,88361,88362,88363,88364
;;88365,88366,88367,88368,88369,88371,88372,88373,88374,88375,88377,88380,88381
;;88387,88388,88399,88720,88738,88740,88741,88749,89049,89050,89051,89055,89060
;;89125,89160,89190,89220,89230,89240,89250,89251,89253,89254,89255,89257,89258
;;89259,89260,89261,89264,89268,89272,89280,89281,89290,89291,89300,89310,89320
;;89321,89322,89325,89329,89330,89331,89335,89337,89342,89343,89344,89346,89352
;;89353,89354,89356,89398,9001F,9002F,9003F,9004F,9005F,9006F,9007F,90281,90283
;;90284,90287,90288,90291,90296,90371,90375,90376,90377,90378,90384,90385,90386
;;90389,90393,90396,90399,90460,90461,90471,90472,90473,90474,90476,90477,90581
;;90585,90586,90587,90619,90620,90621,90625,90626,90627,90630,90632,90633,90634
;;90636,90644,90647,90648,90649,90650,90651,90653,90654,90655,90656,90657,90658
;;90660,90661,90662,90664,90666,90667,90668,90670,90671,90672,90673,90674,90675
;;90676,90677,90680,90681,90682,90685,90686,90687,90688,90689,90690,90691,90694
;;90696,90697,90698,90700,90702,90707,90710,90713,90714,90715,90716,90717,90723
;;90732,90733,90734,90736,90738,90739,90740,90743,90744,90746,90747,90748,90749
;;90750,90756,90758,90759,90785,90791,90792,90832,90833,90834,90836,90837,90838
;;90839,90840,90845,90846,90847,90849,90853,90863,90865,90867,90868,90869,90870
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR206UT2 13570 printed Nov 22, 2024@17:48:26 Page 2
SR206UT2 ;HPS/JSG - FY22 CPT EXCLUSION UTILITY, CONTINUED ;May 10, 2022@15:051
+1 ;;3.0;Surgery;**206**;24 Jun 93;Build 2
+2 ;
+3 QUIT
EX ; populate the CPT EXCLUSIONS file (#137)
+1 FOR SRJ=1:1
SET SRLIST=$PIECE($TEXT(LIST+SRJ)," ;;",2)
if SRLIST=""
QUIT
FOR SRI=1:1
SET SRX=$PIECE(SRLIST,",",SRI)
if SRX=""
QUIT
IF $DATA(^ICPT("B",SRX))
DO INT
+2 QUIT
INT SET SRY=0
SET SRY=$ORDER(^ICPT("B",SRX,SRY))
if SRY=""
QUIT
+1 KILL DA,DIC,DD,DO,DINUM
SET (DINUM,X)=SRY
SET DIC="^SRO(137,"
SET DIC(0)="L"
DO FILE^DICN
+2 QUIT
LIST ;
+1 ;;76511,76512,76513,76514,76516,76519,76529,76536,76604,76641,76642,76700,76705
+2 ;;76706,76770,76775,76776,76800,76801,76802,76805,76810,76811,76812,76813,76814
+3 ;;76815,76816,76817,76818,76819,76820,76821,76825,76826,76827,76828,76830,76831
+4 ;;76856,76857,76870,76872,76873,76881,76882,76885,76886,76932,76936,76937,76940
+5 ;;76941,76942,76945,76946,76948,76965,76975,76977,76978,76979,76981,76982,76983
+6 ;;76998,76999,77001,77002,77003,77011,77012,77013,77014,77021,77022,77046,77047
+7 ;;77048,77049,77053,77054,77061,77062,77063,77065,77066,77067,77071,77072,77073
+8 ;;77074,77075,77076,77077,77078,77080,77081,77084,77085,77086,77089,77090,77091
+9 ;;77092,77261,77262,77263,77280,77285,77290,77293,77295,77299,77300,77301,77306
+10 ;;77307,77316,77317,77318,77321,77331,77332,77333,77334,77336,77338,77370,77371
+11 ;;77372,77373,77385,77386,77387,77399,77401,77402,77407,77412,77417,77423,77424
+12 ;;77425,77427,77431,77432,77435,77469,77470,77499,77520,77522,77523,77525,77600
+13 ;;77605,77610,77615,77620,77750,77761,77762,77763,77767,77768,77770,77771,77772
+14 ;;77778,77789,77790,77799,78012,78013,78014,78015,78016,78018,78020,78070,78071
+15 ;;78072,78075,78099,78102,78103,78104,78110,78111,78120,78121,78122,78130,78140
+16 ;;78185,78191,78195,78199,78201,78202,78215,78216,78226,78227,78230,78231,78232
+17 ;;78258,78261,78262,78264,78265,78266,78267,78268,78278,78282,78290,78291,78299
+18 ;;78300,78305,78306,78315,78350,78351,78399,78414,78428,78429,78430,78431,78432
+19 ;;78433,78434,78445,78451,78452,78453,78454,78456,78457,78458,78459,78466,78468
+20 ;;78469,78472,78473,78481,78483,78491,78492,78494,78496,78499,78579,78580,78582
+21 ;;78597,78598,78599,78600,78601,78605,78606,78608,78609,78610,78630,78635,78645
+22 ;;78650,78660,78699,78700,78701,78707,78708,78709,78725,78730,78740,78761,78799
+23 ;;78800,78801,78802,78803,78804,78808,78811,78812,78813,78814,78815,78816,78830
+24 ;;78831,78832,78835,78999,79005,79101,79200,79300,79403,79440,79445,79999,80047
+25 ;;80048,80050,80051,80053,80055,80061,80069,80074,80076,80081,80143,80145,80150
+26 ;;80151,80155,80156,80157,80158,80159,80161,80162,80163,80164,80165,80167,80168
+27 ;;80169,80170,80171,80173,80175,80176,80177,80178,80179,80180,80181,80183,80184
+28 ;;80185,80186,80187,80188,80189,80190,80192,80193,80194,80195,80197,80198,80199
+29 ;;80200,80201,80202,80203,80204,80210,80220,80230,80235,80280,80285,80299,80305
+30 ;;80306,80307,80320,80321,80322,80323,80324,80325,80326,80327,80328,80329,80330
+31 ;;80331,80332,80333,80334,80335,80336,80337,80338,80339,80340,80341,80342,80343
+32 ;;80344,80345,80346,80347,80348,80349,80350,80351,80352,80353,80354,80355,80356
+33 ;;80357,80358,80359,80360,80361,80362,80363,80364,80365,80366,80367,80368,80369
+34 ;;80370,80371,80372,80373,80374,80375,80376,80377,80400,80402,80406,80408,80410
+35 ;;80412,80414,80415,80416,80417,80418,80420,80422,80424,80426,80428,80430,80432
+36 ;;80434,80435,80436,80438,80439,80500,80502,80503,80504,80505,80506,81000,81001
+37 ;;81002,81003,81005,81007,81015,81020,81025,81050,81099,81105,81106,81107,81108
+38 ;;81109,81110,81111,81112,81120,81121,81161,81162,81163,81164,81165,81166,81167
+39 ;;81168,81170,81171,81172,81173,81174,81175,81176,81177,81178,81179,81180,81181
+40 ;;81182,81183,81184,81185,81186,81187,81188,81189,81190,81191,81192,81193,81194
+41 ;;81200,81201,81202,81203,81204,81205,81206,81207,81208,81209,81210,81212,81215
+42 ;;81216,81217,81218,81219,81220,81221,81222,81223,81224,81225,81226,81227,81228
+43 ;;81229,81230,81231,81232,81233,81234,81235,81236,81237,81238,81239,81240,81241
+44 ;;81242,81243,81244,81245,81246,81247,81248,81249,81250,81251,81252,81253,81254
+45 ;;81255,81256,81257,81258,81259,81260,81261,81262,81263,81264,81265,81266,81267
+46 ;;81268,81269,81270,81271,81272,81273,81274,81275,81276,81277,81278,81279,81283
+47 ;;81284,81285,81286,81287,81288,81289,81290,81291,81292,81293,81294,81295,81296
+48 ;;81297,81298,81299,81300,81301,81302,81303,81304,81305,81306,81307,81308,81309
+49 ;;81310,81311,81312,81313,81314,81315,81316,81317,81318,81319,81320,81321,81322
+50 ;;81323,81324,81325,81326,81327,81328,81329,81330,81331,81332,81333,81334,81335
+51 ;;81336,81337,81338,81339,81340,81341,81342,81343,81344,81345,81346,81347,81348
+52 ;;81349,81350,81351,81352,81353,81355,81357,81360,81361,81362,81363,81364,81370
+53 ;;81371,81372,81373,81374,81375,81376,81377,81378,81379,81380,81381,81382,81383
+54 ;;81400,81401,81402,81403,81404,81405,81406,81407,81408,81410,81411,81412,81413
+55 ;;81414,81415,81416,81417,81419,81420,81422,81425,81426,81427,81430,81431,81432
+56 ;;81433,81434,81435,81436,81437,81438,81439,81440,81442,81443,81445,81448,81450
+57 ;;81455,81460,81465,81470,81471,81479,81490,81493,81500,81503,81504,81506,81507
+58 ;;81508,81509,81510,81511,81512,81513,81514,81518,81519,81520,81521,81522,81523
+59 ;;81525,81528,81529,81535,81536,81538,81539,81540,81541,81542,81546,81551,81552
+60 ;;81554,81560,81595,81596,81599,82009,82010,82013,82016,82017,82024,82030,82040
+61 ;;82042,82043,82044,82045,82075,82077,82085,82088,82103,82104,82105,82106,82107
+62 ;;82108,82120,82127,82128,82131,82135,82136,82139,82140,82143,82150,82154,82157
+63 ;;82160,82163,82164,82172,82175,82180,82190,82232,82239,82240,82247,82248,82252
+64 ;;82261,82270,82271,82272,82274,82286,82300,82306,82308,82310,82330,82331,82340
+65 ;;82355,82360,82365,82370,82373,82374,82375,82376,82378,82379,82380,82382,82383
+66 ;;82384,82387,82390,82397,82415,82435,82436,82438,82441,82465,82480,82482,82485
+67 ;;82495,82507,82523,82525,82528,82530,82533,82540,82542,82550,82552,82553,82554
+68 ;;82565,82570,82575,82585,82595,82600,82607,82608,82610,82615,82626,82627,82633
+69 ;;82634,82638,82642,82652,82653,82656,82657,82658,82664,82668,82670,82671,82672
+70 ;;82677,82679,82681,82693,82696,82705,82710,82715,82725,82726,82728,82731,82735
+71 ;;82746,82747,82757,82759,82760,82775,82776,82777,82784,82785,82787,82800,82803
+72 ;;82805,82810,82820,82930,82938,82941,82943,82945,82946,82947,82948,82950,82951
+73 ;;82952,82955,82960,82962,82963,82965,82977,82978,82979,82985,83001,83002,83003
+74 ;;83006,83009,83010,83012,83013,83014,83015,83018,83020,83021,83026,83030,83033
+75 ;;83036,83037,83045,83050,83051,83060,83065,83068,83069,83070,83080,83088,83090
+76 ;;83150,83491,83497,83498,83500,83505,83516,83518,83519,83520,83521,83525,83527
+77 ;;83528,83529,83540,83550,83570,83582,83586,83593,83605,83615,83625,83630,83631
+78 ;;83632,83633,83655,83661,83662,83663,83664,83670,83690,83695,83698,83700,83701
+79 ;;83704,83718,83719,83721,83722,83727,83735,83775,83785,83789,83825,83835,83857
+80 ;;83861,83864,83872,83873,83874,83876,83880,83883,83885,83915,83916,83918,83919
+81 ;;83921,83930,83935,83937,83945,83950,83951,83970,83986,83987,83992,83993,84030
+82 ;;84035,84060,84066,84075,84078,84080,84081,84085,84087,84100,84105,84106,84110
+83 ;;84112,84119,84120,84126,84132,84133,84134,84135,84138,84140,84143,84144,84145
+84 ;;84146,84150,84152,84153,84154,84155,84156,84157,84160,84163,84165,84166,84181
+85 ;;84182,84202,84203,84206,84207,84210,84220,84228,84233,84234,84235,84238,84244
+86 ;;84252,84255,84260,84270,84275,84285,84295,84300,84302,84305,84307,84311,84315
+87 ;;84375,84376,84377,84378,84379,84392,84402,84403,84410,84425,84430,84431,84432
+88 ;;84436,84437,84439,84442,84443,84445,84446,84449,84450,84460,84466,84478,84479
+89 ;;84480,84481,84482,84484,84485,84488,84490,84510,84512,84520,84525,84540,84545
+90 ;;84550,84560,84577,84578,84580,84583,84585,84586,84588,84590,84591,84597,84600
+91 ;;84620,84630,84681,84702,84703,84704,84830,84999,85002,85004,85007,85008,85009
+92 ;;85013,85014,85018,85025,85027,85032,85041,85044,85045,85046,85048,85049,85055
+93 ;;85060,85097,85130,85170,85175,85210,85220,85230,85240,85244,85245,85246,85247
+94 ;;85250,85260,85270,85280,85290,85291,85292,85293,85300,85301,85302,85303,85305
+95 ;;85306,85307,85335,85337,85345,85347,85348,85360,85362,85366,85370,85378,85379
+96 ;;85380,85384,85385,85390,85396,85397,85400,85410,85415,85420,85421,85441,85445
+97 ;;85460,85461,85475,85520,85525,85530,85536,85540,85547,85549,85555,85557,85576
+98 ;;85597,85598,85610,85611,85612,85613,85635,85651,85652,85660,85670,85675,85705
+99 ;;85730,85732,85810,85999,86000,86001,86003,86005,86008,86015,86021,86022,86023
+100 ;;86036,86037,86038,86039,86051,86052,86053,86060,86063,86077,86078,86079,86140
+101 ;;86141,86146,86147,86148,86152,86153,86155,86156,86157,86160,86161,86162,86171
+102 ;;86200,86215,86225,86226,86231,86235,86255,86256,86258,86277,86280,86294,86300
+103 ;;86301,86304,86305,86308,86309,86310,86316,86317,86318,86320,86325,86327,86328
+104 ;;86329,86331,86332,86334,86335,86336,86337,86340,86341,86343,86344,86352,86353
+105 ;;86355,86356,86357,86359,86360,86361,86362,86363,86364,86367,86376,86381,86382
+106 ;;86384,86386,86403,86406,86408,86409,86413,86430,86431,86480,86481,86485,86486
+107 ;;86490,86510,86580,86590,86592,86593,86596,86602,86603,86606,86609,86611,86612
+108 ;;86615,86617,86618,86619,86622,86625,86628,86631,86632,86635,86638,86641,86644
+109 ;;86645,86648,86651,86652,86653,86654,86658,86663,86664,86665,86666,86668,86671
+110 ;;86674,86677,86682,86684,86687,86688,86689,86692,86694,86695,86696,86698,86701
+111 ;;86702,86703,86704,86705,86706,86707,86708,86709,86710,86711,86713,86717,86720
+112 ;;86723,86727,86732,86735,86738,86741,86744,86747,86750,86753,86756,86757,86759
+113 ;;86762,86765,86768,86769,86771,86774,86777,86778,86780,86784,86787,86788,86789
+114 ;;86790,86793,86794,86800,86803,86804,86805,86806,86807,86808,86812,86813,86816
+115 ;;86817,86821,86825,86826,86828,86829,86830,86831,86832,86833,86834,86835,86849
+116 ;;86850,86860,86870,86880,86885,86886,86890,86891,86900,86901,86902,86904,86905
+117 ;;86906,86910,86911,86920,86921,86922,86923,86927,86930,86931,86932,86940,86941
+118 ;;86945,86950,86960,86965,86970,86971,86972,86975,86976,86977,86978,86985,86999
+119 ;;87003,87015,87040,87045,87046,87070,87071,87073,87075,87076,87077,87081,87084
+120 ;;87086,87088,87101,87102,87103,87106,87107,87109,87110,87116,87118,87140,87143
+121 ;;87147,87149,87150,87152,87153,87154,87158,87164,87166,87168,87169,87172,87176
+122 ;;87177,87181,87184,87185,87186,87187,87188,87190,87197,87205,87206,87207,87209
+123 ;;87210,87220,87230,87250,87252,87253,87254,87255,87260,87265,87267,87269,87270
+124 ;;87271,87272,87273,87274,87275,87276,87278,87279,87280,87281,87283,87285,87290
+125 ;;87299,87300,87301,87305,87320,87324,87327,87328,87329,87332,87335,87336,87337
+126 ;;87338,87339,87340,87341,87350,87380,87385,87389,87390,87391,87400,87420,87425
+127 ;;87426,87427,87428,87430,87449,87450,87451,87471,87472,87475,87476,87480,87481
+128 ;;87482,87483,87485,87486,87487,87490,87491,87492,87493,87495,87496,87497,87498
+129 ;;87500,87501,87502,87503,87505,87506,87507,87510,87511,87512,87516,87517,87520
+130 ;;87521,87522,87525,87526,87527,87528,87529,87530,87531,87532,87533,87534,87535
+131 ;;87536,87537,87538,87539,87540,87541,87542,87550,87551,87552,87555,87556,87557
+132 ;;87560,87561,87562,87563,87580,87581,87582,87590,87591,87592,87623,87624,87625
+133 ;;87631,87632,87633,87634,87635,87636,87637,87640,87641,87650,87651,87652,87653
+134 ;;87660,87661,87662,87797,87798,87799,87800,87801,87802,87803,87804,87806,87807
+135 ;;87808,87809,87810,87811,87850,87880,87899,87900,87901,87902,87903,87904,87905
+136 ;;87906,87910,87912,87999,88000,88005,88007,88012,88014,88016,88020,88025,88027
+137 ;;88028,88029,88036,88037,88040,88045,88099,88104,88106,88108,88112,88120,88121
+138 ;;88125,88130,88140,88141,88142,88143,88147,88148,88150,88152,88153,88155,88160
+139 ;;88161,88162,88164,88165,88166,88167,88172,88173,88174,88175,88177,88182,88184
+140 ;;88185,88187,88188,88189,88199,88230,88233,88235,88237,88239,88240,88241,88245
+141 ;;88248,88249,88261,88262,88263,88264,88267,88269,88271,88272,88273,88274,88275
+142 ;;88280,88283,88285,88289,88291,88299,88300,88302,88304,88305,88307,88309,88311
+143 ;;88312,88313,88314,88319,88321,88323,88325,88329,88331,88332,88333,88334,88341
+144 ;;88342,88344,88346,88348,88350,88355,88356,88358,88360,88361,88362,88363,88364
+145 ;;88365,88366,88367,88368,88369,88371,88372,88373,88374,88375,88377,88380,88381
+146 ;;88387,88388,88399,88720,88738,88740,88741,88749,89049,89050,89051,89055,89060
+147 ;;89125,89160,89190,89220,89230,89240,89250,89251,89253,89254,89255,89257,89258
+148 ;;89259,89260,89261,89264,89268,89272,89280,89281,89290,89291,89300,89310,89320
+149 ;;89321,89322,89325,89329,89330,89331,89335,89337,89342,89343,89344,89346,89352
+150 ;;89353,89354,89356,89398,9001F,9002F,9003F,9004F,9005F,9006F,9007F,90281,90283
+151 ;;90284,90287,90288,90291,90296,90371,90375,90376,90377,90378,90384,90385,90386
+152 ;;90389,90393,90396,90399,90460,90461,90471,90472,90473,90474,90476,90477,90581
+153 ;;90585,90586,90587,90619,90620,90621,90625,90626,90627,90630,90632,90633,90634
+154 ;;90636,90644,90647,90648,90649,90650,90651,90653,90654,90655,90656,90657,90658
+155 ;;90660,90661,90662,90664,90666,90667,90668,90670,90671,90672,90673,90674,90675
+156 ;;90676,90677,90680,90681,90682,90685,90686,90687,90688,90689,90690,90691,90694
+157 ;;90696,90697,90698,90700,90702,90707,90710,90713,90714,90715,90716,90717,90723
+158 ;;90732,90733,90734,90736,90738,90739,90740,90743,90744,90746,90747,90748,90749
+159 ;;90750,90756,90758,90759,90785,90791,90792,90832,90833,90834,90836,90837,90838
+160 ;;90839,90840,90845,90846,90847,90849,90853,90863,90865,90867,90868,90869,90870