SR210UT2.m

SR210UT2 ;HPS/JSG - FY23 CPT EXCLUSION UTILITY, CONTINUED; Mar 28, 2023@09:51

 ;;3.0;Surgery;**206,210**;24 Jun 93;Build 4

 ;

 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 ;

 ;;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

 ;;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,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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SR210UT2   10293     printed  Nov 22, 2024@17:48:31                                                                                                                                                                                                   Page 2

SR210UT2  ;HPS/JSG - FY23 CPT EXCLUSION UTILITY, CONTINUED; Mar 28, 2023@09:51

 +1       ;;3.0;Surgery;**206,210**;24 Jun 93;Build 4

 +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       ;;80157,80158,80159,80161,80162,80163,80164,80165,80167,80168,80169,80170,80171

 +2       ;;80173,80175,80176,80177,80178,80179,80180,80181,80183,80184,80185,80186,80187

 +3       ;;80188,80189,80190,80192,80193,80194,80195,80197,80198,80199,80200,80201,80202

 +4       ;;80203,80204,80210,80220,80230,80235,80280,80285,80299,80305,80306,80307,80320

 +5       ;;80321,80322,80323,80324,80325,80326,80327,80328,80329,80330,80331,80332,80333

 +6       ;;80334,80335,80336,80337,80338,80339,80340,80341,80342,80343,80344,80345,80346

 +7       ;;80347,80348,80349,80350,80351,80352,80353,80354,80355,80356,80357,80358,80359

 +8       ;;80360,80361,80362,80363,80364,80365,80366,80367,80368,80369,80370,80371,80372

 +9       ;;80373,80374,80375,80376,80377,80400,80402,80406,80408,80410,80412,80414,80415

 +10      ;;80416,80417,80418,80420,80422,80424,80426,80428,80430,80432,80434,80435,80436

 +11      ;;80438,80439,80503,80504,80505,80506,81000,81001,81002,81003,81005,81007,81015

 +12      ;;81020,81025,81050,81099,81105,81106,81107,81108,81109,81110,81111,81112,81120

 +13      ;;81121,81161,81162,81163,81164,81165,81166,81167,81168,81170,81171,81172,81173

 +14      ;;81174,81175,81176,81177,81178,81179,81180,81181,81182,81183,81184,81185,81186

 +15      ;;81187,81188,81189,81190,81191,81192,81193,81194,81200,81201,81202,81203,81204

 +16      ;;81205,81206,81207,81208,81209,81210,81212,81215,81216,81217,81218,81219,81220

 +17      ;;81221,81222,81223,81224,81225,81226,81227,81228,81229,81230,81231,81232,81233

 +18      ;;81234,81235,81236,81237,81238,81239,81240,81241,81242,81243,81244,81245,81246

 +19      ;;81247,81248,81249,81250,81251,81252,81253,81254,81255,81256,81257,81258,81259

 +20      ;;81260,81261,81262,81263,81264,81265,81266,81267,81268,81269,81270,81271,81272

 +21      ;;81273,81274,81275,81276,81277,81278,81279,81283,81284,81285,81286,81287,81288

 +22      ;;81289,81290,81291,81292,81293,81294,81295,81296,81297,81298,81299,81300,81301

 +23      ;;81302,81303,81304,81305,81306,81307,81308,81309,81310,81311,81312,81313,81314

 +24      ;;81315,81316,81317,81318,81319,81320,81321,81322,81323,81324,81325,81326,81327

 +25      ;;81328,81329,81330,81331,81332,81333,81334,81335,81336,81337,81338,81339,81340

 +26      ;;81341,81342,81343,81344,81345,81346,81347,81348,81349,81350,81351,81352,81353

 +27      ;;81355,81357,81360,81361,81362,81363,81364,81370,81371,81372,81373,81374,81375

 +28      ;;81376,81377,81378,81379,81380,81381,81382,81383,81400,81401,81402,81403,81404

 +29      ;;81406,81407,81408,81410,81411,81412,81413,81414,81415,81416,81417,81419,81420

 +30      ;;81422,81425,81426,81427,81430,81431,81432,81433,81434,81435,81436,81437,81438

 +31      ;;81439,81440,81442,81443,81445,81448,81450,81455,81460,81465,81470,81471,81479

 +32      ;;81490,81493,81500,81503,81504,81506,81507,81508,81509,81510,81511,81512,81513

 +33      ;;81514,81518,81519,81520,81521,81522,81523,81525,81528,81529,81535,81536,81538

 +34      ;;81539,81540,81541,81542,81546,81551,81552,81554,81560,81595,81596,81599,82009

 +35      ;;82010,82013,82016,82017,82024,82030,82040,82042,82043,82044,82045,82075,82077

 +36      ;;82085,82088,82103,82104,82105,82106,82107,82108,82120,82127,82128,82131,82135

 +37      ;;82136,82139,82140,82143,82150,82154,82157,82160,82163,82164,82172,82175,82180

 +38      ;;82190,82232,82239,82240,82247,82248,82252,82261,82270,82271,82272,82274,82286

 +39      ;;82300,82306,82308,82310,82330,82331,82340,82355,82360,82365,82370,82373,82374

 +40      ;;82375,82376,82378,82379,82380,82382,82383,82384,82387,82390,82397,82415,82435

 +41      ;;82436,82438,82441,82465,82480,82482,82485,82495,82507,82523,82525,82528,82530

 +42      ;;82533,82540,82542,82550,82552,82553,82554,82565,82570,82575,82585,82595,82600

 +43      ;;82607,82608,82610,82615,82626,82627,82633,82634,82638,82642,82652,82653,82656

 +44      ;;82657,82658,82664,82668,82670,82671,82672,82677,82679,82681,82693,82696,82705

 +45      ;;82710,82715,82725,82726,82728,82731,82735,82746,82747,82757,82759,82760,82775

 +46      ;;82776,82777,82784,82785,82787,82800,82803,82805,82810,82820,82930,82938,82941

 +47      ;;82943,82945,82946,82947,82948,82950,82951,82952,82955,82960,82962,82963,82965

 +48      ;;82977,82978,82979,82985,83001,83002,83003,83006,83009,83010,83012,83013,83014

 +49      ;;83015,83018,83020,83021,83026,83030,83033,83036,83037,83045,83050,83051,83060

 +50      ;;83065,83068,83069,83070,83080,83088,83090,83150,83491,83497,83498,83500,83505

 +51      ;;83516,83518,83519,83520,83521,83525,83527,83528,83529,83540,83550,83570,83582

 +52      ;;83586,83593,83605,83615,83625,83630,83631,83632,83633,83655,83661,83662,83663

 +53      ;;83664,83670,83690,83695,83698,83700,83701,83704,83718,83719,83721,83722,83727

 +54      ;;83735,83775,83785,83789,83825,83835,83857,83861,83864,83872,83873,83874,83876

 +55      ;;83880,83883,83885,83915,83916,83918,83919,83921,83930,83935,83937,83945,83950

 +56      ;;83951,83970,83986,83987,83992,83993,84030,84035,84060,84066,84075,84078,84080

 +57      ;;84081,84085,84087,84100,84105,84106,84110,84112,84119,84120,84126,84132,84133

 +58      ;;84134,84135,84138,84140,84143,84144,84145,84146,84150,84152,84153,84154,84155

 +59      ;;84156,84157,84160,84163,84165,84166,84181,84182,84202,84203,84206,84207,84210

 +60      ;;84220,84228,84233,84234,84235,84238,84244,84252,84255,84260,84270,84275,84285

 +61      ;;84295,84300,84302,84305,84307,84311,84315,84375,84376,84377,84378,84379,84392

 +62      ;;84402,84403,84410,84425,84430,84431,84432,84436,84437,84439,84442,84443,84445

 +63      ;;84446,84449,84450,84460,84466,84478,84479,84480,84481,84482,84484,84485,84488

 +64      ;;84490,84510,84512,84520,84525,84540,84545,84550,84560,84577,84578,84580,84583

 +65      ;;84585,84586,84588,84590,84591,84597,84600,84620,84630,84681,84702,84703,84704

 +66      ;;84830,84999,85002,85004,85007,85008,85009,85013,85014,85018,85025,85027,85032

 +67      ;;85041,85044,85045,85046,85048,85049,85055,85060,85097,85130,85170,85175,85210

 +68      ;;85220,85230,85240,85244,85245,85246,85247,85250,85260,85270,85280,85290,85291

 +69      ;;85292,85293,85300,85301,85302,85303,85305,85306,85307,85335,85337,85345,85347

 +70      ;;85348,85360,85362,85366,85370,85378,85379,85380,85384,85385,85390,85396,85397

 +71      ;;85400,85410,85415,85420,85421,85441,85445,85460,85461,85475,85520,85525,85530

 +72      ;;85536,85540,85547,85549,85555,85557,85576,85597,85598,85610,85611,85612,85613

 +73      ;;85635,85651,85652,85660,85670,85675,85705,85730,85732,85810,85999,86000,86001

 +74      ;;86003,86005,86008,86015,86021,86022,86023,86036,86037,86038,86039,86051,86052

 +75      ;;86053,86060,86063,86077,86078,86079,86140,86141,86146,86147,86148,86152,86153

 +76      ;;86155,86156,86157,86160,86161,86162,86171,86200,86215,86225,86226,86231,86235

 +77      ;;86255,86256,86258,86277,86280,86294,86300,86301,86304,86305,86308,86309,86310

 +78      ;;86316,86317,86318,86320,86325,86327,86328,86329,86331,86332,86334,86335,86336

 +79      ;;86337,86340,86341,86343,86344,86352,86353,86355,86356,86357,86359,86360,86361

 +80      ;;86362,86363,86364,86367,86376,86381,86382,86384,86386,86403,86406,86408,86409

 +81      ;;86413,86430,86431,86480,86481,86485,86486,86490,86510,86580,86590,86592,86593

 +82      ;;86596,86602,86603,86606,86609,86611,86612,86615,86617,86618,86619,86622,86625

 +83      ;;86628,86631,86632,86635,86638,86641,86644,86645,86648,86651,86652,86653,86654

 +84      ;;86658,86663,86664,86665,86666,86668,86671,86674,86677,86682,86684,86687,86688

 +85      ;;86689,86692,86694,86695,86696,86698,86701,86702,86703,86704,86705,86706,86707

 +86      ;;86708,86709,86710,86711,86713,86717,86720,86723,86727,86732,86735,86738,86741

 +87      ;;86744,86747,86750,86753,86756,86757,86759,86762,86765,86768,86769,86771,86774

 +88      ;;86777,86778,86780,86784,86787,86788,86789,86790,86793,86794,86800,86803,86804

 +89      ;;86805,86806,86807,86808,86812,86813,86816,86817,86821,86825,86826,86828,86829

 +90      ;;86830,86831,86832,86833,86834,86835,86849,86850,86860,86870,86880,86885,86886

 +91      ;;86890,86891,86900,86901,86902,86904,86905,86906,86910,86911,86920,86921,86922

 +92      ;;86923,86927,86930,86931,86932,86940,86941,86945,86950,86960,86965,86970,86971

 +93      ;;86972,86975,86976,86977,86978,86985,86999,87003,87015,87040,87045,87046,87070

 +94      ;;87071,87073,87075,87076,87077,87081,87084,87086,87088,87101,87102,87103,87106

 +95      ;;87107,87109,87110,87116,87118,87140,87143,87147,87149,87150,87152,87153,87154

 +96      ;;87158,87164,87166,87168,87169,87172,87176,87177,87181,87184,87185,87186,87187

 +97      ;;87188,87190,87197,87205,87206,87207,87209,87210,87220,87230,87250,87252,87253

 +98      ;;87254,87255,87260,87265,87267,87269,87270,87271,87272,87273,87274,87275,87276

 +99      ;;87278,87279,87280,87281,87283,87285,87290,87299,87300,87301,87305,87320,87324

 +100     ;;87327,87328,87329,87332,87335,87336,87337,87338,87339,87340,87341,87350,87380

 +101     ;;87385,87389,87390,87391,87400,87420,87425,87426,87427,87428,87430,87449,87451

 +102     ;;87471,87472,87475,87476,87480,87481,87482,87483,87485,87486,87487,87490,87491

 +103     ;;87492,87493,87495,87496,87497,87498,87500,87501,87502,87503,87505,87506,87507

 +104     ;;87510,87511,87512,87516,87517,87520,87521,87522,87525,87526,87527,87528,87529

 +105     ;;87530,87531,87532,87533,87534,87535,87536,87537,87538,87539,87540,87541,87542

 +106     ;;87550,87551,87552,87555,87556,87557,87560,87561,87562,87563,87580,87581,87582

 +107     ;;87590,87591,87592,87623,87624,87625,87631,87632,87633,87634,87635,87636,87637

 +108     ;;87640,87641,87650,87651,87652,87653,87660,87661,87662,87797,87798,87799,87800

 +109     ;;87801,87802,87803,87804,87806,87807,87808,87809,87810,87811,87850,87880,87899

 +110     ;;87900,87901,87902,87903,87904,87905,87906,87910,87912,87999,88000,88005,88007

 +111     ;;88012,88014,88016,88020,88025,88027,88028,88029,88036,88037,88040,88045,88099

 +112     ;;88104,88106,88108,88112,88120,88121,88125,88130,88140,88141,88142,88143,88147

 +113     ;;88148,88150,88152,88153,88155,88160,88161,88162,88164,88165,88166,88167,88172

 +114     ;;88173,88174,88175,88177,88182,88184,88185,88187,88188,88189,88199,88230,88233

 +115     ;;88235,88237,88239,88240,88241,88245,88248,88249,88261,88262,88263,88264,88267

 +116     ;;88269,88271,88272,88273,88274,88275,88280,88283,88285,88289,88291,88299,88300

 +117     ;;88302,88304,88305,88307,88309,88311,88312,88313,88314,88319,88321,88323,88325

 +118     ;;88329,88331,88332,88333,88334,88341,88342,88344,88346,88348,88350,88355,88356

 +119     ;;88358,88360,88361,88362,88363,88364,88365,88366,88367,88368,88369,88371,88372

 +120     ;;88373,88374,88375,88377,88380,88381,88387,88388,88399,88720,88738,88740,88741