- 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 Feb 19, 2025@00:05:02 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