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 ---[H[J[2J[HSR210UT2 10293 printed Dec 13, 2024@02:38: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