- SR215UT3 ;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 ;
- ;;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,90380,90381,90384,90385,90386,90389,90393,90396,90399,90460
- ;;90461,90471,90472,90473,90474,90476,90477,90581,90584,90585,90586,90587,90589
- ;;90611,90619,90620,90621,90622,90623,90625,90626,90627,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,90671,90672,90673,90674,90675
- ;;90676,90677,90678,90679,90680,90681,90682,90683,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,90758,90759,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,91113,91117,91120,91122,91132,91133,91200,91299
- ;;91300,91301,91302,91303,91304,91305,91306,91307,91308,91309,91310,91311,91312
- ;;91313,91314,91315,91316,91317,92002,92004,92012,92014,92015,92018,92019,92020
- ;;92025,92060,92065,92066,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,92562,92563,92565,92567,92568,92570,92571,92572,92575
- ;;92576,92577,92579,92582,92583,92584,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,92622,92623,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,92972,92973,92974,92975,92977,92978,92979,92986,92987,92990
- ;;92997,92998,93000,93005,93010,93015,93016,93017,93018,93024,93025,93040,93041
- ;;93042,93050,93150,93151,93152,93153,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,93319,93320,93321,93325,93350
- ;;93351,93352,93355,93356,93451,93452,93453,93454,93455,93456,93457,93458,93459
- ;;93460,93461,93462,93463,93464,93503,93505,93563,93564,93565,93566,93567,93568
- ;;93569,93571,93572,93573,93574,93575,93580,93581,93582,93583,93584,93585,93586
- ;;93587,93588,93593,93594,93595,93596,93597,93598,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,94375,94450,94452,94453,94610,94617,94618,94619
- ;;94621,94625,94626,94640,94642,94644,94645,94660,94662,94664,94667,94668,94669
- ;;94680,94681,94690,94726,94727,94728,94729,94760,94761,94762,94772,94774,94775
- ;;94776,94777,94780,94781,94799,95004,95012,95017,95018,95024,95027,95028,95044
- ;;95052,95056,95060,95065,95070,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,95919,95921,95922,95923
- ;;95924,95925,95926,95927,95928,95929,95930,95933,95937,95938,95939,95940,95941
- ;;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,96202,96203,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,97037,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,97550,97551,97552,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,98975,98976,98977,98978,98980,98981,99000
- ;;99001,99002,99024,99026,99027,99050,99051,99053,99056,99058,99060,99070,99071
- ;;99072,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,99202,99203,99204,99205,99211,99212,99213,99214,99215
- ;;99221,99222,99223,99231,99232,99233,99234,99235,99236,99238,99239,99242,99243
- ;;99244,99245,99252,99253,99254,99255,99281,99282,99283,99284,99285,99288,99291
- ;;99292,99304,99305,99306,99307,99308,99309,99310,99315,99316,99341,99342,99344
- ;;99345,99347,99348,99349,99350,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,99418,99421,99422,99423,99424,99425,99426,99427
- ;;99429,99437,99439,99441,99442,99443,99446,99447,99448,99449,99450,99451,99452
- ;;99453,99454,99455,99456,99457,99458,99459,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,C7550,C8925,C9738,C9739
- ;;C9740,C9745,C9749,C9752,C9769,C9770,C9771,G0104,G0105,G0121,G2170,S2055,S2117
- ;;S2225,S2900,S4028
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR215UT3 9416 printed Feb 19, 2025@00:05:07 Page 2
- SR215UT3 ;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 ;;88104,88106,88108,88112,88120,88121,88125,88130,88140,88141,88142,88143,88147
- +2 ;;88148,88150,88152,88153,88155,88160,88161,88162,88164,88165,88166,88167,88172
- +3 ;;88173,88174,88175,88177,88182,88184,88185,88187,88188,88189,88199,88230,88233
- +4 ;;88235,88237,88239,88240,88241,88245,88248,88249,88261,88262,88263,88264,88267
- +5 ;;88269,88271,88272,88273,88274,88275,88280,88283,88285,88289,88291,88299,88300
- +6 ;;88302,88304,88305,88307,88309,88311,88312,88313,88314,88319,88321,88323,88325
- +7 ;;88329,88331,88332,88333,88334,88341,88342,88344,88346,88348,88350,88355,88356
- +8 ;;88358,88360,88361,88362,88363,88364,88365,88366,88367,88368,88369,88371,88372
- +9 ;;88373,88374,88375,88377,88380,88381,88387,88388,88399,88720,88738,88740,88741
- +10 ;;88749,89049,89050,89051,89055,89060,89125,89160,89190,89220,89230,89240,89250
- +11 ;;89251,89253,89254,89255,89257,89258,89259,89260,89261,89264,89268,89272,89280
- +12 ;;89281,89290,89291,89300,89310,89320,89321,89322,89325,89329,89330,89331,89335
- +13 ;;89337,89342,89343,89344,89346,89352,89353,89354,89356,89398,9001F,9002F,9003F
- +14 ;;9004F,9005F,9006F,9007F,90281,90283,90284,90287,90288,90291,90296,90371,90375
- +15 ;;90376,90377,90378,90380,90381,90384,90385,90386,90389,90393,90396,90399,90460
- +16 ;;90461,90471,90472,90473,90474,90476,90477,90581,90584,90585,90586,90587,90589
- +17 ;;90611,90619,90620,90621,90622,90623,90625,90626,90627,90630,90632,90633,90634
- +18 ;;90636,90644,90647,90648,90649,90650,90651,90653,90654,90655,90656,90657,90658
- +19 ;;90660,90661,90662,90664,90666,90667,90668,90670,90671,90672,90673,90674,90675
- +20 ;;90676,90677,90678,90679,90680,90681,90682,90683,90685,90686,90687,90688,90689
- +21 ;;90690,90691,90694,90696,90697,90698,90700,90702,90707,90710,90713,90714,90715
- +22 ;;90716,90717,90723,90732,90733,90734,90736,90738,90739,90740,90743,90744,90746
- +23 ;;90747,90748,90749,90750,90756,90758,90759,90785,90791,90792,90832,90833,90834
- +24 ;;90836,90837,90838,90839,90840,90845,90846,90847,90849,90853,90863,90865,90867
- +25 ;;90868,90869,90870,90875,90876,90880,90882,90885,90887,90889,90899,90901,90912
- +26 ;;90913,90935,90937,90940,90945,90947,90951,90952,90953,90954,90955,90956,90957
- +27 ;;90958,90959,90960,90961,90962,90963,90964,90965,90966,90967,90968,90969,90970
- +28 ;;90989,90993,90997,90999,91010,91013,91020,91022,91030,91034,91035,91037,91038
- +29 ;;91040,91065,91110,91111,91112,91113,91117,91120,91122,91132,91133,91200,91299
- +30 ;;91300,91301,91302,91303,91304,91305,91306,91307,91308,91309,91310,91311,91312
- +31 ;;91313,91314,91315,91316,91317,92002,92004,92012,92014,92015,92018,92019,92020
- +32 ;;92025,92060,92065,92066,92071,92072,92081,92082,92083,92100,92132,92133,92134
- +33 ;;92136,92145,92201,92202,92227,92228,92229,92230,92235,92240,92242,92250,92260
- +34 ;;92265,92270,92273,92274,92283,92284,92285,92286,92287,92310,92311,92312,92313
- +35 ;;92314,92315,92316,92317,92325,92326,92340,92341,92342,92352,92353,92354,92355
- +36 ;;92358,92370,92371,92499,92502,92504,92507,92508,92511,92512,92516,92517,92518
- +37 ;;92519,92520,92521,92522,92523,92524,92526,92531,92532,92533,92534,92537,92538
- +38 ;;92540,92541,92542,92544,92545,92546,92547,92548,92549,92550,92551,92552,92553
- +39 ;;92555,92556,92557,92558,92562,92563,92565,92567,92568,92570,92571,92572,92575
- +40 ;;92576,92577,92579,92582,92583,92584,92587,92588,92590,92591,92592,92593,92594
- +41 ;;92595,92596,92597,92601,92602,92603,92604,92605,92606,92607,92608,92609,92610
- +42 ;;92611,92612,92613,92614,92615,92616,92617,92618,92620,92621,92622,92623,92625
- +43 ;;92626,92627,92630,92633,92640,92650,92651,92652,92653,92700,92920,92921,92924
- +44 ;;92925,92928,92929,92933,92934,92937,92938,92941,92943,92944,92950,92953,92960
- +45 ;;92961,92970,92971,92972,92973,92974,92975,92977,92978,92979,92986,92987,92990
- +46 ;;92997,92998,93000,93005,93010,93015,93016,93017,93018,93024,93025,93040,93041
- +47 ;;93042,93050,93150,93151,93152,93153,93224,93225,93226,93227,93228,93229,93241
- +48 ;;93242,93243,93244,93245,93246,93247,93248,93260,93261,93264,93268,93270,93271
- +49 ;;93272,93278,93279,93280,93281,93282,93283,93284,93285,93286,93287,93288,93289
- +50 ;;93290,93291,93292,93293,93294,93295,93296,93297,93298,93303,93304,93306,93307
- +51 ;;93308,93312,93313,93314,93315,93316,93317,93318,93319,93320,93321,93325,93350
- +52 ;;93351,93352,93355,93356,93451,93452,93453,93454,93455,93456,93457,93458,93459
- +53 ;;93460,93461,93462,93463,93464,93503,93505,93563,93564,93565,93566,93567,93568
- +54 ;;93569,93571,93572,93573,93574,93575,93580,93581,93582,93583,93584,93585,93586
- +55 ;;93587,93588,93593,93594,93595,93596,93597,93598,93600,93602,93603,93609,93610
- +56 ;;93612,93613,93615,93616,93618,93619,93620,93621,93622,93623,93624,93631,93640
- +57 ;;93641,93642,93644,93650,93653,93654,93655,93656,93657,93660,93662,93668,93701
- +58 ;;93702,93724,93740,93745,93750,93770,93784,93786,93788,93790,93792,93793,93797
- +59 ;;93798,93799,93880,93882,93886,93888,93890,93892,93893,93895,93922,93923,93924
- +60 ;;93925,93926,93930,93931,93970,93971,93975,93976,93978,93979,93980,93981,93985
- +61 ;;93986,93990,93998,94002,94003,94004,94005,94010,94011,94012,94013,94014,94015
- +62 ;;94016,94060,94070,94150,94200,94375,94450,94452,94453,94610,94617,94618,94619
- +63 ;;94621,94625,94626,94640,94642,94644,94645,94660,94662,94664,94667,94668,94669
- +64 ;;94680,94681,94690,94726,94727,94728,94729,94760,94761,94762,94772,94774,94775
- +65 ;;94776,94777,94780,94781,94799,95004,95012,95017,95018,95024,95027,95028,95044
- +66 ;;95052,95056,95060,95065,95070,95076,95079,95115,95117,95120,95125,95130,95131
- +67 ;;95132,95133,95134,95144,95145,95146,95147,95148,95149,95165,95170,95180,95199
- +68 ;;95249,95250,95251,95700,95705,95706,95707,95708,95709,95710,95711,95712,95713
- +69 ;;95714,95715,95716,95717,95718,95719,95720,95721,95722,95723,95724,95725,95726
- +70 ;;95782,95783,95800,95801,95803,95805,95806,95807,95808,95810,95811,95812,95813
- +71 ;;95816,95819,95822,95824,95829,95830,95836,95851,95852,95857,95860,95861,95863
- +72 ;;95864,95865,95866,95867,95868,95869,95870,95872,95873,95874,95875,95885,95886
- +73 ;;95887,95905,95907,95908,95909,95910,95911,95912,95913,95919,95921,95922,95923
- +74 ;;95924,95925,95926,95927,95928,95929,95930,95933,95937,95938,95939,95940,95941
- +75 ;;95954,95955,95957,95958,95961,95962,95965,95966,95967,95970,95971,95972,95976
- +76 ;;95977,95980,95981,95982,95983,95984,95990,95991,95992,95999,96000,96001,96002
- +77 ;;96003,96004,96020,96040,96105,96110,96112,96113,96116,96121,96125,96127,96130
- +78 ;;96131,96132,96133,96136,96137,96138,96139,96146,96156,96158,96159,96160,96161
- +79 ;;96164,96165,96167,96168,96170,96171,96202,96203,96360,96361,96365,96366,96367
- +80 ;;96368,96369,96370,96371,96372,96373,96374,96375,96376,96377,96379,96401,96402
- +81 ;;96405,96406,96409,96411,96413,96415,96416,96417,96420,96422,96423,96425,96440
- +82 ;;96446,96450,96521,96522,96523,96542,96549,96567,96570,96571,96573,96574,96900
- +83 ;;96902,96904,96910,96912,96913,96920,96921,96922,96931,96932,96933,96934,96935
- +84 ;;96936,96999,97010,97012,97014,97016,97018,97022,97024,97026,97028,97032,97033
- +85 ;;97034,97035,97036,97037,97039,97110,97112,97113,97116,97124,97129,97130,97139
- +86 ;;97140,97150,97151,97152,97153,97154,97155,97156,97157,97158,97161,97162,97163
- +87 ;;97164,97165,97166,97167,97168,97169,97170,97171,97172,97530,97533,97535,97537
- +88 ;;97542,97545,97546,97550,97551,97552,97597,97598,97602,97605,97606,97607,97608
- +89 ;;97610,97750,97755,97760,97761,97763,97799,97802,97803,97804,97810,97811,97813
- +90 ;;97814,98925,98926,98927,98928,98929,98940,98941,98942,98943,98960,98961,98962
- +91 ;;98966,98967,98968,98970,98971,98972,98975,98976,98977,98978,98980,98981,99000
- +92 ;;99001,99002,99024,99026,99027,99050,99051,99053,99056,99058,99060,99070,99071
- +93 ;;99072,99075,99078,99080,99082,99091,99100,99116,99135,99140,99151,99152,99153
- +94 ;;99155,99156,99157,99170,99172,99173,99174,99175,99177,99183,99184,99188,99190
- +95 ;;99191,99192,99195,99199,99202,99203,99204,99205,99211,99212,99213,99214,99215
- +96 ;;99221,99222,99223,99231,99232,99233,99234,99235,99236,99238,99239,99242,99243
- +97 ;;99244,99245,99252,99253,99254,99255,99281,99282,99283,99284,99285,99288,99291
- +98 ;;99292,99304,99305,99306,99307,99308,99309,99310,99315,99316,99341,99342,99344
- +99 ;;99345,99347,99348,99349,99350,99358,99359,99360,99366,99367,99368,99374,99375
- +100 ;;99377,99378,99379,99380,99381,99382,99383,99384,99385,99386,99387,99391,99392
- +101 ;;99393,99394,99395,99396,99397,99401,99402,99403,99404,99406,99407,99408,99409
- +102 ;;99411,99412,99415,99416,99417,99418,99421,99422,99423,99424,99425,99426,99427
- +103 ;;99429,99437,99439,99441,99442,99443,99446,99447,99448,99449,99450,99451,99452
- +104 ;;99453,99454,99455,99456,99457,99458,99459,99460,99461,99462,99463,99464,99465
- +105 ;;99466,99467,99468,99469,99471,99472,99473,99474,99475,99476,99477,99478,99479
- +106 ;;99480,99483,99484,99485,99486,99487,99489,99490,99491,99492,99493,99494,99495
- +107 ;;99496,99497,99498,99499,99500,99501,99502,99503,99504,99505,99506,99507,99509
- +108 ;;99510,99511,99512,99600,99601,99602,99605,99606,99607,C7550,C8925,C9738,C9739
- +109 ;;C9740,C9745,C9749,C9752,C9769,C9770,C9771,G0104,G0105,G0121,G2170,S2055,S2117
- +110 ;;S2225,S2900,S4028