SR202UT2 ;HPS/JSG - FY21 CPT EXCLUSION UTILITY, CONTINUED ;Mar 31, 2021@09:51
;;3.0;Surgery;**202**;24 Jun 93;Build 2
;
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 ;
;;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,87427,87430,87449,87450,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,87640,87641,87650,87651
;;87652,87653,87660,87661,87662,87797,87798,87799,87800,87801,87802,87803,87804
;;87806,87807,87808,87809,87810,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,88749,89049,89050,89051,89055
;;89060,89125,89160,89190,89220,89230,89240,89250,89251,89253,89254,89255,89257
;;89258,89259,89260,89261,89264,89268,89272,89280,89281,89290,89291,89300,89310
;;89320,89321,89322,89325,89329,89330,89331,89335,89337,89342,89343,89344,89346
;;89352,89353,89354,89356,89398,9001F,9002F,9003F,9004F,9005F,9006F,9007F,90281
;;90283,90284,90287,90288,90291,90296,90371,90375,90376,90377,90378,90384,90385
;;90386,90389,90393,90396,90399,90460,90461,90471,90472,90473,90474,90476,90477
;;90581,90585,90586,90587,90619,90620,90621,90625,90630,90632,90633,90634,90636
;;90644,90647,90648,90649,90650,90651,90653,90654,90655,90656,90657,90658,90660
;;90661,90662,90664,90666,90667,90668,90670,90672,90673,90674,90675,90676,90680
;;90681,90682,90685,90686,90687,90688,90689,90690,90691,90694,90696,90697,90698
;;90700,90702,90707,90710,90713,90714,90715,90716,90717,90723,90732,90733,90734
;;90736,90738,90739,90740,90743,90744,90746,90747,90748,90749,90750,90756,90785
;;90791,90792,90832,90833,90834,90836,90837,90838,90839,90840,90845,90846,90847
;;90849,90853,90863,90865,90867,90868,90869,90870,90875,90876,90880,90882,90885
;;90887,90889,90899,90901,90912,90913,90935,90937,90940,90945,90947,90951,90952
;;90953,90954,90955,90956,90957,90958,90959,90960,90961,90962,90963,90964,90965
;;90966,90967,90968,90969,90970,90989,90993,90997,90999,91010,91013,91020,91022
;;91030,91034,91035,91037,91038,91040,91065,91110,91111,91112,91117,91120,91122
;;91132,91133,91200,91299,92002,92004,92012,92014,92015,92018,92019,92020,92025
;;92060,92065,92071,92072,92081,92082,92083,92100,92132,92133,92134,92136,92145
;;92201,92202,92227,92228,92229,92230,92235,92240,92242,92250,92260,92265,92270
;;92273,92274,92283,92284,92285,92286,92287,92310,92311,92312,92313,92314,92315
;;92316,92317,92325,92326,92340,92341,92342,92352,92353,92354,92355,92358,92370
;;92371,92499,92502,92504,92507,92508,92511,92512,92516,92517,92518,92519,92520
;;92521,92522,92523,92524,92526,92531,92532,92533,92534,92537,92538,92540,92541
;;92542,92544,92545,92546,92547,92548,92549,92550,92551,92552,92553,92555,92556
;;92557,92558,92559,92560,92561,92562,92563,92564,92565,92567,92568,92570,92571
;;92572,92575,92576,92577,92579,92582,92583,92584,92585,92586,92587,92588,92590
;;92591,92592,92593,92594,92595,92596,92597,92601,92602,92603,92604,92605,92606
;;92607,92608,92609,92610,92611,92612,92613,92614,92615,92616,92617,92618,92620
;;92621,92625,92626,92627,92630,92633,92640,92650,92651,92652,92653,92700,92920
;;92921,92924,92925,92928,92929,92933,92934,92937,92938,92941,92943,92944,92950
;;92953,92960,92961,92970,92971,92973,92974,92975,92977,92978,92979,92986,92987
;;92990,92992,92993,92997,92998,93000,93005,93010,93015,93016,93017,93018,93024
;;93025,93040,93041,93042,93050,93224,93225,93226,93227,93228,93229,93241,93242
;;93243,93244,93245,93246,93247,93248,93260,93261,93264,93268,93270,93271,93272
;;93278,93279,93280,93281,93282,93283,93284,93285,93286,93287,93288,93289,93290
;;93291,93292,93293,93294,93295,93296,93297,93298,93303,93304,93306,93307,93308
;;93312,93313,93314,93315,93316,93317,93318,93320,93321,93325,93350,93351,93352
;;93355,93356,93451,93452,93453,93454,93455,93456,93457,93458,93459,93460,93461
;;93462,93463,93464,93503,93505,93530,93531,93532,93533,93561,93562,93563,93564
;;93565,93566,93567,93568,93571,93572,93580,93581,93582,93583,93600,93602,93603
;;93609,93610,93612,93613,93615,93616,93618,93619,93620,93621,93622,93623,93624
;;93631,93640,93641,93642,93644,93650,93653,93654,93655,93656,93657,93660,93662
;;93668,93701,93702,93724,93740,93745,93750,93770,93784,93786,93788,93790,93792
;;93793,93797,93798,93799,93880,93882,93886,93888,93890,93892,93893,93895,93922
;;93923,93924,93925,93926,93930,93931,93970,93971,93975,93976,93978,93979,93980
;;93981,93985,93986,93990,93998,94002,94003,94004,94005,94010,94011,94012,94013
;;94014,94015,94016,94060,94070,94150,94200,94250,94375,94400,94450,94452,94453
;;94610,94617,94618,94619,94621,94640,94642,94644,94645,94660,94662,94664,94667
;;94668,94669,94680,94681,94690,94726,94727,94728,94729,94750,94760,94761,94762
;;94770,94772,94774,94775,94776,94777,94780,94781,94799,95004,95012,95017,95018
;;95024,95027,95028,95044,95052,95056,95060,95065,95070,95071,95076,95079,95115
;;95117,95120,95125,95130,95131,95132,95133,95134,95144,95145,95146,95147,95148
;;95149,95165,95170,95180,95199,95249,95250,95251,95700,95705,95706,95707,95708
;;95709,95710,95711,95712,95713,95714,95715,95716,95717,95718,95719,95720,95721
;;95722,95723,95724,95725,95726,95782,95783,95800,95801,95803,95805,95806,95807
;;95808,95810,95811,95812,95813,95816,95819,95822,95824,95829,95830,95836,95851
;;95852,95857,95860,95861,95863,95864,95865,95866,95867,95868,95869,95870,95872
;;95873,95874,95875,95885,95886,95887,95905,95907,95908,95909,95910,95911,95912
;;95913,95921,95922,95923,95924,95925,95926,95927,95928,95929,95930,95933,95937
;;95938,95939,95940,95941,95943,95954,95955,95957,95958,95961,95962,95965,95966
;;95967,95970,95971,95972,95976,95977,95980,95981,95982,95983,95984,95990,95991
;;95992,95999,96000,96001,96002,96003,96004,96020,96040,96105,96110,96112,96113
;;96116,96121,96125,96127,96130,96131,96132,96133,96136,96137,96138,96139,96146
;;96156,96158,96159,96160,96161,96164,96165,96167,96168,96170,96171,96360,96361
;;96365,96366,96367,96368,96369,96370,96371,96372,96373,96374,96375,96376,96377
;;96379,96401,96402,96405,96406,96409,96411,96413,96415,96416,96417,96420,96422
;;96423,96425,96440,96446,96450,96521,96522,96523,96542,96549,96567,96570,96571
;;96573,96574,96900,96902,96904,96910,96912,96913,96920,96921,96922,96931,96932
;;96933,96934,96935,96936,96999,97010,97012,97014,97016,97018,97022,97024,97026
;;97028,97032,97033,97034,97035,97036,97039,97110,97112,97113,97116,97124,97129
;;97130,97139,97140,97150,97151,97152,97153,97154,97155,97156,97157,97158,97161
;;97162,97163,97164,97165,97166,97167,97168,97169,97170,97171,97172,97530,97533
;;97535,97537,97542,97545,97546,97597,97598,97602,97605,97606,97607,97608,97610
;;97750,97755,97760,97761,97763,97799,97802,97803,97804,97810,97811,97813,97814
;;98925,98926,98927,98928,98929,98940,98941,98942,98943,98960,98961,98962,98966
;;98967,98968,98970,98971,98972,99000,99001,99002,99024,99026,99027,99050,99051
;;99053,99056,99058,99060,99070,99071,99075,99078,99080,99082,99091,99100,99116
;;99135,99140,99151,99152,99153,99155,99156,99157,99170,99172,99173,99174,99175
;;99177,99183,99184,99188,99190,99191,99192,99195,99199,99201,99202,99203,99204
;;99205,99211,99212,99213,99214,99215,99217,99218,99219,99220,99221,99222,99223
;;99224,99225,99226,99231,99232,99233,99234,99235,99236,99238,99239,99241,99242
;;99243,99244,99245,99251,99252,99253,99254,99255,99281,99282,99283,99284,99285
;;99288,99291,99292,99304,99305,99306,99307,99308,99309,99310,99315,99316,99318
;;99324,99325,99326,99327,99328,99334,99335,99336,99337,99339,99340,99341,99342
;;99343,99344,99345,99347,99348,99349,99350,99354,99355,99356,99357,99358,99359
;;99360,99366,99367,99368,99374,99375,99377,99378,99379,99380,99381,99382,99383
;;99384,99385,99386,99387,99391,99392,99393,99394,99395,99396,99397,99401,99402
;;99403,99404,99406,99407,99408,99409,99411,99412,99415,99416,99417,99420,99421
;;99422,99423,99429,99439,99441,99442,99443,99446,99447,99448,99449,99450,99451
;;99452,99453,99454,99455,99456,99457,99458,99460,99461,99462,99463,99464,99465
;;99466,99467,99468,99469,99471,99472,99473,99474,99475,99476,99477,99478,99479
;;99480,99483,99484,99485,99486,99487,99489,99490,99491,99492,99493,99494,99495
;;99496,99497,99498,99499,99500,99501,99502,99503,99504,99505,99506,99507,99509
;;99510,99511,99512,99600,99601,99602,99605,99606,99607
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR202UT2 10183 printed Dec 13, 2024@02:38:22 Page 2
SR202UT2 ;HPS/JSG - FY21 CPT EXCLUSION UTILITY, CONTINUED ;Mar 31, 2021@09:51
+1 ;;3.0;Surgery;**202**;24 Jun 93;Build 2
+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 ;;87255,87260,87265,87267,87269,87270,87271,87272,87273,87274,87275,87276,87278
+2 ;;87279,87280,87281,87283,87285,87290,87299,87300,87301,87305,87320,87324,87327
+3 ;;87328,87329,87332,87335,87336,87337,87338,87339,87340,87341,87350,87380,87385
+4 ;;87389,87390,87391,87400,87420,87425,87427,87430,87449,87450,87451,87471,87472
+5 ;;87475,87476,87480,87481,87482,87483,87485,87486,87487,87490,87491,87492,87493
+6 ;;87495,87496,87497,87498,87500,87501,87502,87503,87505,87506,87507,87510,87511
+7 ;;87512,87516,87517,87520,87521,87522,87525,87526,87527,87528,87529,87530,87531
+8 ;;87532,87533,87534,87535,87536,87537,87538,87539,87540,87541,87542,87550,87551
+9 ;;87552,87555,87556,87557,87560,87561,87562,87563,87580,87581,87582,87590,87591
+10 ;;87592,87623,87624,87625,87631,87632,87633,87634,87635,87640,87641,87650,87651
+11 ;;87652,87653,87660,87661,87662,87797,87798,87799,87800,87801,87802,87803,87804
+12 ;;87806,87807,87808,87809,87810,87850,87880,87899,87900,87901,87902,87903,87904
+13 ;;87905,87906,87910,87912,87999,88000,88005,88007,88012,88014,88016,88020,88025
+14 ;;88027,88028,88029,88036,88037,88040,88045,88099,88104,88106,88108,88112,88120
+15 ;;88121,88125,88130,88140,88141,88142,88143,88147,88148,88150,88152,88153,88155
+16 ;;88160,88161,88162,88164,88165,88166,88167,88172,88173,88174,88175,88177,88182
+17 ;;88184,88185,88187,88188,88189,88199,88230,88233,88235,88237,88239,88240,88241
+18 ;;88245,88248,88249,88261,88262,88263,88264,88267,88269,88271,88272,88273,88274
+19 ;;88275,88280,88283,88285,88289,88291,88299,88300,88302,88304,88305,88307,88309
+20 ;;88311,88312,88313,88314,88319,88321,88323,88325,88329,88331,88332,88333,88334
+21 ;;88341,88342,88344,88346,88348,88350,88355,88356,88358,88360,88361,88362,88363
+22 ;;88364,88365,88366,88367,88368,88369,88371,88372,88373,88374,88375,88377,88380
+23 ;;88381,88387,88388,88399,88720,88738,88740,88741,88749,89049,89050,89051,89055
+24 ;;89060,89125,89160,89190,89220,89230,89240,89250,89251,89253,89254,89255,89257
+25 ;;89258,89259,89260,89261,89264,89268,89272,89280,89281,89290,89291,89300,89310
+26 ;;89320,89321,89322,89325,89329,89330,89331,89335,89337,89342,89343,89344,89346
+27 ;;89352,89353,89354,89356,89398,9001F,9002F,9003F,9004F,9005F,9006F,9007F,90281
+28 ;;90283,90284,90287,90288,90291,90296,90371,90375,90376,90377,90378,90384,90385
+29 ;;90386,90389,90393,90396,90399,90460,90461,90471,90472,90473,90474,90476,90477
+30 ;;90581,90585,90586,90587,90619,90620,90621,90625,90630,90632,90633,90634,90636
+31 ;;90644,90647,90648,90649,90650,90651,90653,90654,90655,90656,90657,90658,90660
+32 ;;90661,90662,90664,90666,90667,90668,90670,90672,90673,90674,90675,90676,90680
+33 ;;90681,90682,90685,90686,90687,90688,90689,90690,90691,90694,90696,90697,90698
+34 ;;90700,90702,90707,90710,90713,90714,90715,90716,90717,90723,90732,90733,90734
+35 ;;90736,90738,90739,90740,90743,90744,90746,90747,90748,90749,90750,90756,90785
+36 ;;90791,90792,90832,90833,90834,90836,90837,90838,90839,90840,90845,90846,90847
+37 ;;90849,90853,90863,90865,90867,90868,90869,90870,90875,90876,90880,90882,90885
+38 ;;90887,90889,90899,90901,90912,90913,90935,90937,90940,90945,90947,90951,90952
+39 ;;90953,90954,90955,90956,90957,90958,90959,90960,90961,90962,90963,90964,90965
+40 ;;90966,90967,90968,90969,90970,90989,90993,90997,90999,91010,91013,91020,91022
+41 ;;91030,91034,91035,91037,91038,91040,91065,91110,91111,91112,91117,91120,91122
+42 ;;91132,91133,91200,91299,92002,92004,92012,92014,92015,92018,92019,92020,92025
+43 ;;92060,92065,92071,92072,92081,92082,92083,92100,92132,92133,92134,92136,92145
+44 ;;92201,92202,92227,92228,92229,92230,92235,92240,92242,92250,92260,92265,92270
+45 ;;92273,92274,92283,92284,92285,92286,92287,92310,92311,92312,92313,92314,92315
+46 ;;92316,92317,92325,92326,92340,92341,92342,92352,92353,92354,92355,92358,92370
+47 ;;92371,92499,92502,92504,92507,92508,92511,92512,92516,92517,92518,92519,92520
+48 ;;92521,92522,92523,92524,92526,92531,92532,92533,92534,92537,92538,92540,92541
+49 ;;92542,92544,92545,92546,92547,92548,92549,92550,92551,92552,92553,92555,92556
+50 ;;92557,92558,92559,92560,92561,92562,92563,92564,92565,92567,92568,92570,92571
+51 ;;92572,92575,92576,92577,92579,92582,92583,92584,92585,92586,92587,92588,92590
+52 ;;92591,92592,92593,92594,92595,92596,92597,92601,92602,92603,92604,92605,92606
+53 ;;92607,92608,92609,92610,92611,92612,92613,92614,92615,92616,92617,92618,92620
+54 ;;92621,92625,92626,92627,92630,92633,92640,92650,92651,92652,92653,92700,92920
+55 ;;92921,92924,92925,92928,92929,92933,92934,92937,92938,92941,92943,92944,92950
+56 ;;92953,92960,92961,92970,92971,92973,92974,92975,92977,92978,92979,92986,92987
+57 ;;92990,92992,92993,92997,92998,93000,93005,93010,93015,93016,93017,93018,93024
+58 ;;93025,93040,93041,93042,93050,93224,93225,93226,93227,93228,93229,93241,93242
+59 ;;93243,93244,93245,93246,93247,93248,93260,93261,93264,93268,93270,93271,93272
+60 ;;93278,93279,93280,93281,93282,93283,93284,93285,93286,93287,93288,93289,93290
+61 ;;93291,93292,93293,93294,93295,93296,93297,93298,93303,93304,93306,93307,93308
+62 ;;93312,93313,93314,93315,93316,93317,93318,93320,93321,93325,93350,93351,93352
+63 ;;93355,93356,93451,93452,93453,93454,93455,93456,93457,93458,93459,93460,93461
+64 ;;93462,93463,93464,93503,93505,93530,93531,93532,93533,93561,93562,93563,93564
+65 ;;93565,93566,93567,93568,93571,93572,93580,93581,93582,93583,93600,93602,93603
+66 ;;93609,93610,93612,93613,93615,93616,93618,93619,93620,93621,93622,93623,93624
+67 ;;93631,93640,93641,93642,93644,93650,93653,93654,93655,93656,93657,93660,93662
+68 ;;93668,93701,93702,93724,93740,93745,93750,93770,93784,93786,93788,93790,93792
+69 ;;93793,93797,93798,93799,93880,93882,93886,93888,93890,93892,93893,93895,93922
+70 ;;93923,93924,93925,93926,93930,93931,93970,93971,93975,93976,93978,93979,93980
+71 ;;93981,93985,93986,93990,93998,94002,94003,94004,94005,94010,94011,94012,94013
+72 ;;94014,94015,94016,94060,94070,94150,94200,94250,94375,94400,94450,94452,94453
+73 ;;94610,94617,94618,94619,94621,94640,94642,94644,94645,94660,94662,94664,94667
+74 ;;94668,94669,94680,94681,94690,94726,94727,94728,94729,94750,94760,94761,94762
+75 ;;94770,94772,94774,94775,94776,94777,94780,94781,94799,95004,95012,95017,95018
+76 ;;95024,95027,95028,95044,95052,95056,95060,95065,95070,95071,95076,95079,95115
+77 ;;95117,95120,95125,95130,95131,95132,95133,95134,95144,95145,95146,95147,95148
+78 ;;95149,95165,95170,95180,95199,95249,95250,95251,95700,95705,95706,95707,95708
+79 ;;95709,95710,95711,95712,95713,95714,95715,95716,95717,95718,95719,95720,95721
+80 ;;95722,95723,95724,95725,95726,95782,95783,95800,95801,95803,95805,95806,95807
+81 ;;95808,95810,95811,95812,95813,95816,95819,95822,95824,95829,95830,95836,95851
+82 ;;95852,95857,95860,95861,95863,95864,95865,95866,95867,95868,95869,95870,95872
+83 ;;95873,95874,95875,95885,95886,95887,95905,95907,95908,95909,95910,95911,95912
+84 ;;95913,95921,95922,95923,95924,95925,95926,95927,95928,95929,95930,95933,95937
+85 ;;95938,95939,95940,95941,95943,95954,95955,95957,95958,95961,95962,95965,95966
+86 ;;95967,95970,95971,95972,95976,95977,95980,95981,95982,95983,95984,95990,95991
+87 ;;95992,95999,96000,96001,96002,96003,96004,96020,96040,96105,96110,96112,96113
+88 ;;96116,96121,96125,96127,96130,96131,96132,96133,96136,96137,96138,96139,96146
+89 ;;96156,96158,96159,96160,96161,96164,96165,96167,96168,96170,96171,96360,96361
+90 ;;96365,96366,96367,96368,96369,96370,96371,96372,96373,96374,96375,96376,96377
+91 ;;96379,96401,96402,96405,96406,96409,96411,96413,96415,96416,96417,96420,96422
+92 ;;96423,96425,96440,96446,96450,96521,96522,96523,96542,96549,96567,96570,96571
+93 ;;96573,96574,96900,96902,96904,96910,96912,96913,96920,96921,96922,96931,96932
+94 ;;96933,96934,96935,96936,96999,97010,97012,97014,97016,97018,97022,97024,97026
+95 ;;97028,97032,97033,97034,97035,97036,97039,97110,97112,97113,97116,97124,97129
+96 ;;97130,97139,97140,97150,97151,97152,97153,97154,97155,97156,97157,97158,97161
+97 ;;97162,97163,97164,97165,97166,97167,97168,97169,97170,97171,97172,97530,97533
+98 ;;97535,97537,97542,97545,97546,97597,97598,97602,97605,97606,97607,97608,97610
+99 ;;97750,97755,97760,97761,97763,97799,97802,97803,97804,97810,97811,97813,97814
+100 ;;98925,98926,98927,98928,98929,98940,98941,98942,98943,98960,98961,98962,98966
+101 ;;98967,98968,98970,98971,98972,99000,99001,99002,99024,99026,99027,99050,99051
+102 ;;99053,99056,99058,99060,99070,99071,99075,99078,99080,99082,99091,99100,99116
+103 ;;99135,99140,99151,99152,99153,99155,99156,99157,99170,99172,99173,99174,99175
+104 ;;99177,99183,99184,99188,99190,99191,99192,99195,99199,99201,99202,99203,99204
+105 ;;99205,99211,99212,99213,99214,99215,99217,99218,99219,99220,99221,99222,99223
+106 ;;99224,99225,99226,99231,99232,99233,99234,99235,99236,99238,99239,99241,99242
+107 ;;99243,99244,99245,99251,99252,99253,99254,99255,99281,99282,99283,99284,99285
+108 ;;99288,99291,99292,99304,99305,99306,99307,99308,99309,99310,99315,99316,99318
+109 ;;99324,99325,99326,99327,99328,99334,99335,99336,99337,99339,99340,99341,99342
+110 ;;99343,99344,99345,99347,99348,99349,99350,99354,99355,99356,99357,99358,99359
+111 ;;99360,99366,99367,99368,99374,99375,99377,99378,99379,99380,99381,99382,99383
+112 ;;99384,99385,99386,99387,99391,99392,99393,99394,99395,99396,99397,99401,99402
+113 ;;99403,99404,99406,99407,99408,99409,99411,99412,99415,99416,99417,99420,99421
+114 ;;99422,99423,99429,99439,99441,99442,99443,99446,99447,99448,99449,99450,99451
+115 ;;99452,99453,99454,99455,99456,99457,99458,99460,99461,99462,99463,99464,99465
+116 ;;99466,99467,99468,99469,99471,99472,99473,99474,99475,99476,99477,99478,99479
+117 ;;99480,99483,99484,99485,99486,99487,99489,99490,99491,99492,99493,99494,99495
+118 ;;99496,99497,99498,99499,99500,99501,99502,99503,99504,99505,99506,99507,99509
+119 ;;99510,99511,99512,99600,99601,99602,99605,99606,99607
