SR215UT2.m

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 ---SR215UT2   11444     printed  Oct 16, 2024@18:39:16                                                                                                                                                                                                   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