SR215UT2 ;HPS/JSG - FY24 CPT EXCLUSION UTILITY, CONTINUED; Apr 3, 2024@11:40
;;3.0;Surgery;**206,210,215**;24 Jun 93;Build 7
;
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 ;
;;76978,76979,76981,76982,76983,76984,76987,76988,76989,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,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,81418,81419
;;81420,81422,81425,81426,81427,81430,81431,81432,81433,81434,81435,81436,81437
;;81438,81439,81440,81441,81442,81443,81445,81448,81449,81450,81451,81455,81456
;;81457,81458,81459,81460,81462,81463,81464,81465,81470,81471,81479,81490,81493
;;81500,81503,81504,81506,81507,81508,81509,81510,81511,81512,81513,81514,81517
;;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,82166,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,84433,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,86041
;;86042,86043,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,86366,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,87451,87467,87468,87469,87471,87472,87475,87476,87478
;;87480,87481,87482,87483,87484,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,87523,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,87593,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,87913,87999,88000,88005,88007
;;88012,88014,88016,88020,88025,88027,88028,88029,88036,88037,88040,88045,88099
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR215UT2 11444 printed Nov 22, 2024@17:48:35 Page 2
SR215UT2 ;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 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 ;;76978,76979,76981,76982,76983,76984,76987,76988,76989,76998,76999,77001,77002
+2 ;;77003,77011,77012,77013,77014,77021,77022,77046,77047,77048,77049,77053,77054
+3 ;;77061,77062,77063,77065,77066,77067,77071,77072,77073,77074,77075,77076,77077
+4 ;;77078,77080,77081,77084,77085,77086,77089,77090,77091,77092,77261,77262,77263
+5 ;;77280,77285,77290,77293,77295,77299,77300,77301,77306,77307,77316,77317,77318
+6 ;;77321,77331,77332,77333,77334,77336,77338,77370,77371,77372,77373,77385,77386
+7 ;;77387,77399,77401,77402,77407,77412,77417,77423,77424,77425,77427,77431,77432
+8 ;;77435,77469,77470,77499,77520,77522,77523,77525,77600,77605,77610,77615,77620
+9 ;;77750,77761,77762,77763,77767,77768,77770,77771,77772,77778,77789,77790,77799
+10 ;;78012,78013,78014,78015,78016,78018,78020,78070,78071,78072,78075,78099,78102
+11 ;;78103,78104,78110,78111,78120,78121,78122,78130,78140,78185,78191,78195,78199
+12 ;;78201,78202,78215,78216,78226,78227,78230,78231,78232,78258,78261,78262,78264
+13 ;;78265,78266,78267,78268,78278,78282,78290,78291,78299,78300,78305,78306,78315
+14 ;;78350,78351,78399,78414,78428,78429,78430,78431,78432,78433,78434,78445,78451
+15 ;;78452,78453,78454,78456,78457,78458,78459,78466,78468,78469,78472,78473,78481
+16 ;;78483,78491,78492,78494,78496,78499,78579,78580,78582,78597,78598,78599,78600
+17 ;;78601,78605,78606,78608,78609,78610,78630,78635,78645,78650,78660,78699,78700
+18 ;;78701,78707,78708,78709,78725,78730,78740,78761,78799,78800,78801,78802,78803
+19 ;;78804,78808,78811,78812,78813,78814,78815,78816,78830,78831,78832,78835,78999
+20 ;;79005,79101,79200,79300,79403,79440,79445,79999,80047,80048,80050,80051,80053
+21 ;;80055,80061,80069,80074,80076,80081,80143,80145,80150,80151,80155,80156,80157
+22 ;;80158,80159,80161,80162,80163,80164,80165,80167,80168,80169,80170,80171,80173
+23 ;;80175,80176,80177,80178,80179,80180,80181,80183,80184,80185,80186,80187,80188
+24 ;;80189,80190,80192,80193,80194,80195,80197,80198,80199,80200,80201,80202,80203
+25 ;;80204,80210,80220,80230,80235,80280,80285,80299,80305,80306,80307,80320,80321
+26 ;;80322,80323,80324,80325,80326,80327,80328,80329,80330,80331,80332,80333,80334
+27 ;;80335,80336,80337,80338,80339,80340,80341,80342,80343,80344,80345,80346,80347
+28 ;;80348,80349,80350,80351,80352,80353,80354,80355,80356,80357,80358,80359,80360
+29 ;;80361,80362,80363,80364,80365,80366,80367,80368,80369,80370,80371,80372,80373
+30 ;;80374,80375,80376,80377,80400,80402,80406,80408,80410,80412,80414,80415,80416
+31 ;;80417,80418,80420,80422,80424,80426,80428,80430,80432,80434,80435,80436,80438
+32 ;;80439,80503,80504,80505,80506,81000,81001,81002,81003,81005,81007,81015,81020
+33 ;;81025,81050,81099,81105,81106,81107,81108,81109,81110,81111,81112,81120,81121
+34 ;;81161,81162,81163,81164,81165,81166,81167,81168,81170,81171,81172,81173,81174
+35 ;;81175,81176,81177,81178,81179,81180,81181,81182,81183,81184,81185,81186,81187
+36 ;;81188,81189,81190,81191,81192,81193,81194,81200,81201,81202,81203,81204,81205
+37 ;;81206,81207,81208,81209,81210,81212,81215,81216,81217,81218,81219,81220,81221
+38 ;;81222,81223,81224,81225,81226,81227,81228,81229,81230,81231,81232,81233,81234
+39 ;;81235,81236,81237,81238,81239,81240,81241,81242,81243,81244,81245,81246,81247
+40 ;;81248,81249,81250,81251,81252,81253,81254,81255,81256,81257,81258,81259,81260
+41 ;;81261,81262,81263,81264,81265,81266,81267,81268,81269,81270,81271,81272,81273
+42 ;;81274,81275,81276,81277,81278,81279,81283,81284,81285,81286,81287,81288,81289
+43 ;;81290,81291,81292,81293,81294,81295,81296,81297,81298,81299,81300,81301,81302
+44 ;;81303,81304,81305,81306,81307,81308,81309,81310,81311,81312,81313,81314,81315
+45 ;;81316,81317,81318,81319,81320,81321,81322,81323,81324,81325,81326,81327,81328
+46 ;;81329,81330,81331,81332,81333,81334,81335,81336,81337,81338,81339,81340,81341
+47 ;;81342,81343,81344,81345,81346,81347,81348,81349,81350,81351,81352,81353,81355
+48 ;;81357,81360,81361,81362,81363,81364,81370,81371,81372,81373,81374,81375,81376
+49 ;;81377,81378,81379,81380,81381,81382,81383,81400,81401,81402,81403,81404,81405
+50 ;;81406,81407,81408,81410,81411,81412,81413,81414,81415,81416,81417,81418,81419
+51 ;;81420,81422,81425,81426,81427,81430,81431,81432,81433,81434,81435,81436,81437
+52 ;;81438,81439,81440,81441,81442,81443,81445,81448,81449,81450,81451,81455,81456
+53 ;;81457,81458,81459,81460,81462,81463,81464,81465,81470,81471,81479,81490,81493
+54 ;;81500,81503,81504,81506,81507,81508,81509,81510,81511,81512,81513,81514,81517
+55 ;;81518,81519,81520,81521,81522,81523,81525,81528,81529,81535,81536,81538,81539
+56 ;;81540,81541,81542,81546,81551,81552,81554,81560,81595,81596,81599,82009,82010
+57 ;;82013,82016,82017,82024,82030,82040,82042,82043,82044,82045,82075,82077,82085
+58 ;;82088,82103,82104,82105,82106,82107,82108,82120,82127,82128,82131,82135,82136
+59 ;;82139,82140,82143,82150,82154,82157,82160,82163,82164,82166,82172,82175,82180
+60 ;;82190,82232,82239,82240,82247,82248,82252,82261,82270,82271,82272,82274,82286
+61 ;;82300,82306,82308,82310,82330,82331,82340,82355,82360,82365,82370,82373,82374
+62 ;;82375,82376,82378,82379,82380,82382,82383,82384,82387,82390,82397,82415,82435
+63 ;;82436,82438,82441,82465,82480,82482,82485,82495,82507,82523,82525,82528,82530
+64 ;;82533,82540,82542,82550,82552,82553,82554,82565,82570,82575,82585,82595,82600
+65 ;;82607,82608,82610,82615,82626,82627,82633,82634,82638,82642,82652,82653,82656
+66 ;;82657,82658,82664,82668,82670,82671,82672,82677,82679,82681,82693,82696,82705
+67 ;;82710,82715,82725,82726,82728,82731,82735,82746,82747,82757,82759,82760,82775
+68 ;;82776,82777,82784,82785,82787,82800,82803,82805,82810,82820,82930,82938,82941
+69 ;;82943,82945,82946,82947,82948,82950,82951,82952,82955,82960,82962,82963,82965
+70 ;;82977,82978,82979,82985,83001,83002,83003,83006,83009,83010,83012,83013,83014
+71 ;;83015,83018,83020,83021,83026,83030,83033,83036,83037,83045,83050,83051,83060
+72 ;;83065,83068,83069,83070,83080,83088,83090,83150,83491,83497,83498,83500,83505
+73 ;;83516,83518,83519,83520,83521,83525,83527,83528,83529,83540,83550,83570,83582
+74 ;;83586,83593,83605,83615,83625,83630,83631,83632,83633,83655,83661,83662,83663
+75 ;;83664,83670,83690,83695,83698,83700,83701,83704,83718,83719,83721,83722,83727
+76 ;;83735,83775,83785,83789,83825,83835,83857,83861,83864,83872,83873,83874,83876
+77 ;;83880,83883,83885,83915,83916,83918,83919,83921,83930,83935,83937,83945,83950
+78 ;;83951,83970,83986,83987,83992,83993,84030,84035,84060,84066,84075,84078,84080
+79 ;;84081,84085,84087,84100,84105,84106,84110,84112,84119,84120,84126,84132,84133
+80 ;;84134,84135,84138,84140,84143,84144,84145,84146,84150,84152,84153,84154,84155
+81 ;;84156,84157,84160,84163,84165,84166,84181,84182,84202,84203,84206,84207,84210
+82 ;;84220,84228,84233,84234,84235,84238,84244,84252,84255,84260,84270,84275,84285
+83 ;;84295,84300,84302,84305,84307,84311,84315,84375,84376,84377,84378,84379,84392
+84 ;;84402,84403,84410,84425,84430,84431,84432,84433,84436,84437,84439,84442,84443
+85 ;;84445,84446,84449,84450,84460,84466,84478,84479,84480,84481,84482,84484,84485
+86 ;;84488,84490,84510,84512,84520,84525,84540,84545,84550,84560,84577,84578,84580
+87 ;;84583,84585,84586,84588,84590,84591,84597,84600,84620,84630,84681,84702,84703
+88 ;;84704,84830,84999,85002,85004,85007,85008,85009,85013,85014,85018,85025,85027
+89 ;;85032,85041,85044,85045,85046,85048,85049,85055,85060,85097,85130,85170,85175
+90 ;;85210,85220,85230,85240,85244,85245,85246,85247,85250,85260,85270,85280,85290
+91 ;;85291,85292,85293,85300,85301,85302,85303,85305,85306,85307,85335,85337,85345
+92 ;;85347,85348,85360,85362,85366,85370,85378,85379,85380,85384,85385,85390,85396
+93 ;;85397,85400,85410,85415,85420,85421,85441,85445,85460,85461,85475,85520,85525
+94 ;;85530,85536,85540,85547,85549,85555,85557,85576,85597,85598,85610,85611,85612
+95 ;;85613,85635,85651,85652,85660,85670,85675,85705,85730,85732,85810,85999,86000
+96 ;;86001,86003,86005,86008,86015,86021,86022,86023,86036,86037,86038,86039,86041
+97 ;;86042,86043,86051,86052,86053,86060,86063,86077,86078,86079,86140,86141,86146
+98 ;;86147,86148,86152,86153,86155,86156,86157,86160,86161,86162,86171,86200,86215
+99 ;;86225,86226,86231,86235,86255,86256,86258,86277,86280,86294,86300,86301,86304
+100 ;;86305,86308,86309,86310,86316,86317,86318,86320,86325,86327,86328,86329,86331
+101 ;;86332,86334,86335,86336,86337,86340,86341,86343,86344,86352,86353,86355,86356
+102 ;;86357,86359,86360,86361,86362,86363,86364,86366,86367,86376,86381,86382,86384
+103 ;;86386,86403,86406,86408,86409,86413,86430,86431,86480,86481,86485,86486,86490
+104 ;;86510,86580,86590,86592,86593,86596,86602,86603,86606,86609,86611,86612,86615
+105 ;;86617,86618,86619,86622,86625,86628,86631,86632,86635,86638,86641,86644,86645
+106 ;;86648,86651,86652,86653,86654,86658,86663,86664,86665,86666,86668,86671,86674
+107 ;;86677,86682,86684,86687,86688,86689,86692,86694,86695,86696,86698,86701,86702
+108 ;;86703,86704,86705,86706,86707,86708,86709,86710,86711,86713,86717,86720,86723
+109 ;;86727,86732,86735,86738,86741,86744,86747,86750,86753,86756,86757,86759,86762
+110 ;;86765,86768,86769,86771,86774,86777,86778,86780,86784,86787,86788,86789,86790
+111 ;;86793,86794,86800,86803,86804,86805,86806,86807,86808,86812,86813,86816,86817
+112 ;;86821,86825,86826,86828,86829,86830,86831,86832,86833,86834,86835,86849,86850
+113 ;;86860,86870,86880,86885,86886,86890,86891,86900,86901,86902,86904,86905,86906
+114 ;;86910,86911,86920,86921,86922,86923,86927,86930,86931,86932,86940,86941,86945
+115 ;;86950,86960,86965,86970,86971,86972,86975,86976,86977,86978,86985,86999,87003
+116 ;;87015,87040,87045,87046,87070,87071,87073,87075,87076,87077,87081,87084,87086
+117 ;;87088,87101,87102,87103,87106,87107,87109,87110,87116,87118,87140,87143,87147
+118 ;;87149,87150,87152,87153,87154,87158,87164,87166,87168,87169,87172,87176,87177
+119 ;;87181,87184,87185,87186,87187,87188,87190,87197,87205,87206,87207,87209,87210
+120 ;;87220,87230,87250,87252,87253,87254,87255,87260,87265,87267,87269,87270,87271
+121 ;;87272,87273,87274,87275,87276,87278,87279,87280,87281,87283,87285,87290,87299
+122 ;;87300,87301,87305,87320,87324,87327,87328,87329,87332,87335,87336,87337,87338
+123 ;;87339,87340,87341,87350,87380,87385,87389,87390,87391,87400,87420,87425,87426
+124 ;;87427,87428,87430,87449,87451,87467,87468,87469,87471,87472,87475,87476,87478
+125 ;;87480,87481,87482,87483,87484,87485,87486,87487,87490,87491,87492,87493,87495
+126 ;;87496,87497,87498,87500,87501,87502,87503,87505,87506,87507,87510,87511,87512
+127 ;;87516,87517,87520,87521,87522,87523,87525,87526,87527,87528,87529,87530,87531
+128 ;;87532,87533,87534,87535,87536,87537,87538,87539,87540,87541,87542,87550,87551
+129 ;;87552,87555,87556,87557,87560,87561,87562,87563,87580,87581,87582,87590,87591
+130 ;;87592,87593,87623,87624,87625,87631,87632,87633,87634,87635,87636,87637,87640
+131 ;;87641,87650,87651,87652,87653,87660,87661,87662,87797,87798,87799,87800,87801
+132 ;;87802,87803,87804,87806,87807,87808,87809,87810,87811,87850,87880,87899,87900
+133 ;;87901,87902,87903,87904,87905,87906,87910,87912,87913,87999,88000,88005,88007
+134 ;;88012,88014,88016,88020,88025,88027,88028,88029,88036,88037,88040,88045,88099