Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGP44I4

BGP44I4.m

Go to the documentation of this file.
BGP44I4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 06, 2013;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+1
 F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X=""  S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;21,"54569-6356-00 ")
 ;;1989
 ;;21,"54569-6356-01 ")
 ;;1990
 ;;21,"54738-0925-01 ")
 ;;1114
 ;;21,"54738-0925-02 ")
 ;;1115
 ;;21,"54738-0925-03 ")
 ;;1116
 ;;21,"54738-0926-01 ")
 ;;1328
 ;;21,"54738-0926-02 ")
 ;;1329
 ;;21,"54738-0926-03 ")
 ;;1330
 ;;21,"54738-0927-01 ")
 ;;1577
 ;;21,"54738-0927-02 ")
 ;;1578
 ;;21,"54738-0927-03 ")
 ;;1579
 ;;21,"54868-0036-00 ")
 ;;17
 ;;21,"54868-0036-02 ")
 ;;18
 ;;21,"54868-0036-04 ")
 ;;19
 ;;21,"54868-0795-00 ")
 ;;2128
 ;;21,"54868-0830-00 ")
 ;;1764
 ;;21,"54868-0830-01 ")
 ;;1765
 ;;21,"54868-0877-01 ")
 ;;13
 ;;21,"54868-1020-00 ")
 ;;885
 ;;21,"54868-1097-00 ")
 ;;2099
 ;;21,"54868-1097-01 ")
 ;;2100
 ;;21,"54868-1361-01 ")
 ;;887
 ;;21,"54868-2894-00 ")
 ;;1761
 ;;21,"54868-3017-00 ")
 ;;856
 ;;21,"54868-3265-00 ")
 ;;788
 ;;21,"54868-3265-01 ")
 ;;789
 ;;21,"54868-3265-03 ")
 ;;790
 ;;21,"54868-3265-04 ")
 ;;791
 ;;21,"54868-3265-05 ")
 ;;792
 ;;21,"54868-3265-06 ")
 ;;793
 ;;21,"54868-3266-01 ")
 ;;640
 ;;21,"54868-3266-02 ")
 ;;641
 ;;21,"54868-3266-03 ")
 ;;642
 ;;21,"54868-3266-04 ")
 ;;643
 ;;21,"54868-3318-01 ")
 ;;181
 ;;21,"54868-3318-02 ")
 ;;182
 ;;21,"54868-3318-03 ")
 ;;183
 ;;21,"54868-3318-04 ")
 ;;184
 ;;21,"54868-3318-05 ")
 ;;214
 ;;21,"54868-3319-01 ")
 ;;329
 ;;21,"54868-3319-02 ")
 ;;330
 ;;21,"54868-3319-04 ")
 ;;331
 ;;21,"54868-3319-05 ")
 ;;332
 ;;21,"54868-3319-06 ")
 ;;333
 ;;21,"54868-3319-07 ")
 ;;334
 ;;21,"54868-3327-00 ")
 ;;47
 ;;21,"54868-3334-00 ")
 ;;553
 ;;21,"54868-3334-01 ")
 ;;554
 ;;21,"54868-3334-02 ")
 ;;555
 ;;21,"54868-3334-03 ")
 ;;556
 ;;21,"54868-3334-04 ")
 ;;557
 ;;21,"54868-3335-00 ")
 ;;503
 ;;21,"54868-3335-01 ")
 ;;504
 ;;21,"54868-3335-02 ")
 ;;505
 ;;21,"54868-3335-03 ")
 ;;506
 ;;21,"54868-3377-00 ")
 ;;151
 ;;21,"54868-3377-01 ")
 ;;152
 ;;21,"54868-3377-02 ")
 ;;153
 ;;21,"54868-3377-03 ")
 ;;154
 ;;21,"54868-3426-00 ")
 ;;581
 ;;21,"54868-3426-01 ")
 ;;582
 ;;21,"54868-3546-00 ")
 ;;1208
 ;;21,"54868-3546-01 ")
 ;;1209
 ;;21,"54868-3711-00 ")
 ;;876
 ;;21,"54868-3711-01 ")
 ;;877
 ;;21,"54868-4091-00 ")
 ;;850
 ;;21,"54868-4091-01 ")
 ;;851
 ;;21,"54868-4091-02 ")
 ;;852
 ;;21,"54868-4091-03 ")
 ;;853
 ;;21,"54868-4198-00 ")
 ;;2051
 ;;21,"54868-4198-01 ")
 ;;2052
 ;;21,"54868-4221-00 ")
 ;;2072
 ;;21,"54868-4343-00 ")
 ;;1846
 ;;21,"54868-4343-01 ")
 ;;1847
 ;;21,"54868-4354-00 ")
 ;;1922
 ;;21,"54868-4354-01 ")
 ;;1923
 ;;21,"54868-4391-00 ")
 ;;1980
 ;;21,"54868-4391-01 ")
 ;;1981
 ;;21,"54868-4420-00 ")
 ;;463
 ;;21,"54868-4529-00 ")
 ;;2240
 ;;21,"54868-4529-01 ")
 ;;2241
 ;;21,"54868-4529-02 ")
 ;;2242
 ;;21,"54868-4529-03 ")
 ;;2243
 ;;21,"54868-4561-00 ")
 ;;1231
 ;;21,"54868-4561-01 ")
 ;;1232
 ;;21,"54868-4561-02 ")
 ;;1233
 ;;21,"54868-4561-03 ")
 ;;1234
 ;;21,"54868-4561-04 ")
 ;;1235
 ;;21,"54868-4564-00 ")
 ;;962
 ;;21,"54868-4564-01 ")
 ;;963
 ;;21,"54868-4564-02 ")
 ;;964
 ;;21,"54868-4564-03 ")
 ;;965
 ;;21,"54868-4564-04 ")
 ;;966
 ;;21,"54868-4564-05 ")
 ;;967
 ;;21,"54868-4566-00 ")
 ;;1437
 ;;21,"54868-4566-01 ")
 ;;1438
 ;;21,"54868-4566-02 ")
 ;;1439
 ;;21,"54868-4566-03 ")
 ;;1440
 ;;21,"54868-4566-04 ")
 ;;1441
 ;;21,"54868-4609-00 ")
 ;;2194
 ;;21,"54868-4609-01 ")
 ;;2193
 ;;21,"54868-4842-00 ")
 ;;863
 ;;21,"54868-4842-01 ")
 ;;864
 ;;21,"54868-4842-02 ")
 ;;865
 ;;21,"54868-4906-00 ")
 ;;2164
 ;;21,"54868-4965-00 ")
 ;;2357
 ;;21,"54868-4965-01 ")
 ;;2358
 ;;21,"54868-4965-02 ")
 ;;2359
 ;;21,"54868-4988-00 ")
 ;;525
 ;;21,"54868-4988-01 ")
 ;;526
 ;;21,"54868-4988-02 ")
 ;;527
 ;;21,"54868-4988-03 ")
 ;;528
 ;;21,"54868-4988-04 ")
 ;;529
 ;;21,"54868-5148-00 ")
 ;;2229
 ;;21,"54868-5148-01 ")
 ;;2230
 ;;21,"54868-5148-02 ")
 ;;2231
 ;;21,"54868-5148-03 ")
 ;;2217
 ;;21,"54868-5148-04 ")
 ;;2218
 ;;21,"54868-5156-00 ")
 ;;893
 ;;21,"54868-5156-01 ")
 ;;894
 ;;21,"54868-5157-00 ")
 ;;2368
 ;;21,"54868-5157-01 ")
 ;;2369
 ;;21,"54868-5185-00 ")
 ;;2184
 ;;21,"54868-5185-01 ")
 ;;2185
 ;;21,"54868-5185-02 ")
 ;;2186
 ;;21,"54868-5185-03 ")
 ;;2187
 ;;21,"54868-5188-00 ")
 ;;2142
 ;;21,"54868-5188-01 ")
 ;;2143
 ;;21,"54868-5188-02 ")
 ;;2144
 ;;21,"54868-5210-00 ")
 ;;478
 ;;21,"54868-5210-01 ")
 ;;479
 ;;21,"54868-5210-02 ")
 ;;480
 ;;21,"54868-5210-03 ")
 ;;481
 ;;21,"54868-5217-00 ")
 ;;1653
 ;;21,"54868-5217-01 ")
 ;;1654
 ;;21,"54868-5217-02 ")
 ;;1655
 ;;21,"54868-5217-03 ")
 ;;1656
 ;;21,"54868-5217-04 ")
 ;;1657
 ;;21,"54868-5217-05 ")
 ;;1658
 ;;21,"54868-5243-00 ")
 ;;2300
 ;;21,"54868-5243-01 ")
 ;;2301
 ;;21,"54868-5243-02 ")
 ;;2302
 ;;21,"54868-5243-03 ")
 ;;2303
 ;;21,"54868-5243-04 ")
 ;;2304
 ;;21,"54868-5249-00 ")
 ;;2036
 ;;21,"54868-5249-01 ")
 ;;2037
 ;;21,"54868-5262-00 ")
 ;;2371
 ;;21,"54868-5262-01 ")
 ;;2372
 ;;21,"54868-5364-00 ")
 ;;448
 ;;21,"54868-5364-01 ")
 ;;449
 ;;21,"54868-5364-02 ")
 ;;450
 ;;21,"54868-5376-00 ")
 ;;2364
 ;;21,"54868-5380-00 ")
 ;;898
 ;;21,"54868-5380-01 ")
 ;;899
 ;;21,"54868-5381-00 ")
 ;;1786
 ;;21,"54868-5381-01 ")
 ;;1787
 ;;21,"54868-5381-02 ")
 ;;1788
 ;;21,"54868-5384-00 ")
 ;;6
 ;;21,"54868-5384-01 ")
 ;;4
 ;;21,"54868-5457-00 ")
 ;;108
 ;;21,"54868-5457-01 ")
 ;;109
 ;;21,"54868-5457-02 ")
 ;;110
 ;;21,"54868-5467-00 ")
 ;;2158
 ;;21,"54868-5467-01 ")
 ;;2159
 ;;21,"54868-5467-02 ")
 ;;2160
 ;;21,"54868-5500-00 ")
 ;;2329
 ;;21,"54868-5500-01 ")
 ;;2330
 ;;21,"54868-5500-02 ")
 ;;2328
 ;;21,"54868-5505-00 ")
 ;;1739
 ;;21,"54868-5505-01 ")
 ;;1740
 ;;21,"54868-5505-02 ")
 ;;1741
 ;;21,"54868-5553-00 ")
 ;;2341
 ;;21,"54868-5553-01 ")
 ;;2342
 ;;21,"54868-5553-02 ")
 ;;2343
 ;;21,"54868-5558-00 ")
 ;;1755
 ;;21,"54868-5558-01 ")
 ;;1756
 ;;21,"54868-5712-00 ")
 ;;836
 ;;21,"54868-5739-00 ")
 ;;2324
 ;;21,"54868-5840-00 ")
 ;;1820
 ;;21,"54868-5840-01 ")
 ;;1821
 ;;21,"54868-5973-00 ")
 ;;2088
 ;;21,"54868-6031-00 ")
 ;;1807
 ;;21,"54868-6031-01 ")
 ;;1808
 ;;21,"54868-6309-00 ")
 ;;1801
 ;;21,"55045-2138-01 ")
 ;;754
 ;;21,"55045-2138-08 ")
 ;;755
 ;;21,"55045-2265-01 ")
 ;;293
 ;;21,"55045-2265-08 ")
 ;;294
 ;;21,"55045-2266-01 ")
 ;;405
 ;;21,"55045-2322-01 ")
 ;;677
 ;;21,"55045-2504-01 ")
 ;;1215
 ;;21,"55045-2904-00 ")
 ;;993
 ;;21,"55045-2904-02 ")
 ;;994
 ;;21,"55045-2904-06 ")
 ;;995
 ;;21,"55045-2905-00 ")
 ;;1273
 ;;21,"55045-2905-08 ")
 ;;1274
 ;;21,"55045-2906-00 ")
 ;;1442
 ;;21,"55045-2906-01 ")
 ;;1443
 ;;21,"55045-2906-02 ")
 ;;1444
 ;;21,"55045-2906-06 ")
 ;;1445
 ;;21,"55045-2906-08 ")
 ;;1446
 ;;21,"55045-2906-09 ")
 ;;1447
 ;;21,"55045-3045-01 ")
 ;;901
 ;;21,"55045-3045-06 ")
 ;;902
 ;;21,"55045-3045-08 ")
 ;;903
 ;;21,"55045-3300-01 ")
 ;;538
 ;;21,"55045-3434-08 ")
 ;;457
 ;;21,"55045-3761-08 ")
 ;;942
 ;;21,"55048-0241-30 ")
 ;;89
 ;;21,"55048-0242-30 ")
 ;;48
 ;;21,"55048-0243-30 ")
 ;;156
 ;;21,"55048-0243-60 ")
 ;;157
 ;;21,"55048-0244-30 ")
 ;;211
 ;;21,"55048-0245-30 ")
 ;;507
 ;;21,"55048-0245-60 ")
 ;;508
 ;;21,"55048-0246-30 ")
 ;;2141
 ;;21,"55048-0247-30 ")
 ;;2156
 ;;21,"55048-0248-30 ")
 ;;780
 ;;21,"55048-0248-90 ")
 ;;781
 ;;21,"55048-0269-30 ")
 ;;650
 ;;21,"55048-0270-30 ")
 ;;327
 ;;21,"55048-0273-60 ")
 ;;2252
 ;;21,"55048-0273-71 ")
 ;;2253
 ;;21,"55048-0288-60 ")
 ;;90
 ;;21,"55048-0289-60 ")
 ;;155
 ;;21,"55048-0434-60 ")
 ;;2097
 ;;21,"55048-0437-60 ")
 ;;2087
 ;;21,"55048-0508-30 ")
 ;;1400
 ;;21,"55048-0508-60 ")
 ;;1401
 ;;21,"55048-0509-30 ")
 ;;925
 ;;21,"55048-0509-60 ")
 ;;926
 ;;21,"55048-0509-71 ")
 ;;927
 ;;21,"55048-0509-74 ")
 ;;928
 ;;21,"55048-0509-90 ")
 ;;929
 ;;21,"55048-0510-30 ")
 ;;1670
 ;;21,"55048-0510-60 ")
 ;;1671
 ;;21,"55048-0510-71 ")
 ;;1672
 ;;21,"55048-0510-74 ")
 ;;1673
 ;;21,"55048-0510-90 ")
 ;;1674
 ;;21,"55048-0583-30 ")
 ;;1848
 ;;21,"55048-0584-30 ")
 ;;1921
 ;;21,"55048-0585-30 ")
 ;;1982
 ;;21,"55048-0611-60 ")
 ;;1552
 ;;21,"55048-0611-74 ")
 ;;1553
 ;;21,"55048-0612-30 ")
 ;;1345
 ;;21,"55048-0629-60 ")
 ;;1072
 ;;21,"55048-0629-71 ")
 ;;1073
 ;;21,"55048-0630-60 ")
 ;;1074
 ;;21,"55048-0630-71 ")
 ;;1075
 ;;21,"55048-0631-60 ")
 ;;1659
 ;;21,"55048-0631-71 ")
 ;;1660
 ;;21,"55048-0632-60 ")
 ;;1661
 ;;21,"55048-0632-71 ")
 ;;1662
 ;;21,"55048-0764-60 ")
 ;;2027
 ;;21,"55048-0765-30 ")
 ;;2053
 ;;21,"55048-0766-30 ")
 ;;2064
 ;;21,"55048-0777-30 ")
 ;;1818
 ;;21,"55111-0320-01 ")
 ;;58
 ;;21,"55111-0320-05 ")
 ;;59
 ;;21,"55111-0321-01 ")
 ;;74
 ;;21,"55111-0321-05 ")
 ;;75
 ;;21,"55111-0322-01 ")
 ;;172
 ;;21,"55111-0322-05 ")
 ;;173
 ;;21,"55111-0328-90 ")
 ;;891
 ;;21,"55111-0329-90 ")
 ;;895
 ;;21,"55111-0695-01 ")
 ;;2167
 ;;21,"55111-0696-01 ")
 ;;2201
 ;;21,"55111-0696-10 ")
 ;;2202
 ;;21,"55111-0697-01 ")
 ;;2280
 ;;21,"55111-0697-10 ")
 ;;2281
 ;;21,"55289-0066-90 ")
 ;;14
 ;;21,"55289-0125-30 ")
 ;;445
 ;;21,"55289-0211-60 ")
 ;;908
 ;;21,"55289-0265-90 ")
 ;;881
 ;;21,"55289-0281-30 ")
 ;;2265
 ;;21,"55289-0281-60 ")
 ;;2266
 ;;21,"55289-0281-86 ")
 ;;2267
 ;;21,"55289-0281-90 ")
 ;;2292
 ;;21,"55289-0301-93 ")
 ;;524
 ;;21,"55289-0384-30 ")
 ;;1663
 ;;21,"55289-0384-60 ")
 ;;1615
 ;;21,"55289-0384-86 ")
 ;;1616
 ;;21,"55289-0384-90 ")
 ;;1617
 ;;21,"55289-0384-93 ")
 ;;1618
 ;;21,"55289-0384-94 ")
 ;;1619
 ;;21,"55289-0424-30 ")
 ;;315
 ;;21,"55289-0606-30 ")
 ;;646
 ;;21,"55289-0606-90 ")
 ;;647
 ;;21,"55289-0615-14 ")
 ;;1086
 ;;21,"55289-0615-30 ")
 ;;1087
 ;;21,"55289-0615-60 ")
 ;;1088
 ;;21,"55289-0615-86 ")
 ;;1089
 ;;21,"55289-0615-90 ")
 ;;1090
 ;;21,"55289-0615-93 ")
 ;;1091
 ;;21,"55289-0615-94 ")
 ;;1092
 ;;21,"55289-0615-98 ")
 ;;1093
 ;;21,"55289-0779-07 ")
 ;;467
 ;;21,"55289-0806-14 ")
 ;;295
 ;;21,"55289-0806-30 ")
 ;;296
 ;;21,"55289-0806-60 ")
 ;;297
 ;;21,"55289-0806-86 ")
 ;;298
 ;;21,"55289-0806-90 ")
 ;;299
 ;;21,"55289-0892-01 ")
 ;;709
 ;;21,"55289-0892-14 ")
 ;;710
 ;;21,"55289-0892-15 ")
 ;;711
 ;;21,"55289-0892-30 ")
 ;;712
 ;;21,"55289-0892-60 ")
 ;;713
 ;;21,"55289-0892-86 ")
 ;;714
 ;;21,"55289-0892-90 ")
 ;;715
 ;;21,"55289-0892-93 ")
 ;;716
 ;;21,"55289-0892-98 ")
 ;;717
 ;;21,"55289-0919-30 ")
 ;;1410
 ;;21,"55289-0919-60 ")
 ;;1411
 ;;21,"55289-0919-90 ")
 ;;1412
 ;;21,"55289-0919-93 ")
 ;;1413
 ;;21,"55289-0919-94 ")
 ;;1414
 ;;21,"55289-0919-98 ")
 ;;1415
 ;;21,"55289-0934-30 ")
 ;;1252
 ;;21,"55289-0934-60 ")
 ;;1227
 ;;21,"55289-0934-93 ")
 ;;1228
 ;;21,"55289-0934-94 ")
 ;;1229
 ;;21,"55289-0934-98 ")
 ;;1230
 ;;21,"55289-0976-01 ")
 ;;428
 ;;21,"55289-0976-14 ")
 ;;429
 ;;21,"55289-0976-30 ")
 ;;430
 ;;21,"55289-0976-60 ")
 ;;431
 ;;21,"55289-0976-93 ")
 ;;432
 ;;21,"57664-0397-13 ")
 ;;1076
 ;;21,"57664-0397-18 ")
 ;;1077
 ;;21,"57664-0397-51 ")
 ;;1078
 ;;21,"57664-0397-53 ")
 ;;1079
 ;;21,"57664-0397-58 ")
 ;;1080
 ;;21,"57664-0397-88 ")
 ;;1081
 ;;21,"57664-0397-99 ")
 ;;1082
 ;;21,"57664-0398-13 ")
 ;;195
 ;;21,"57664-0398-18 ")
 ;;196
 ;;21,"57664-0398-88 ")
 ;;197
 ;;21,"57664-0399-13 ")
 ;;350
 ;;21,"57664-0399-18 ")
 ;;351
 ;;21,"57664-0399-88 ")
 ;;352
 ;;21,"57664-0435-13 ")
 ;;1346
 ;;21,"57664-0435-18 ")
 ;;1347
 ;;21,"57664-0435-51 ")
 ;;1348
 ;;21,"57664-0435-53 ")
 ;;1349
 ;;21,"57664-0435-58 ")
 ;;1350
 ;;21,"57664-0435-88 ")
 ;;1351
 ;;21,"57664-0435-99 ")
 ;;1352
 ;;21,"57664-0474-13 ")
 ;;1549
 ;;21,"57664-0474-18 ")
 ;;1550
 ;;21,"57664-0474-51 ")
 ;;1551
 ;;21,"57664-0474-53 ")
 ;;1508
 ;;21,"57664-0474-58 ")
 ;;1509
 ;;21,"57664-0474-88 ")
 ;;1510
 ;;21,"57664-0474-99 ")
 ;;1511
 ;;21,"57664-0724-88 ")
 ;;2157
 ;;21,"57664-0725-88 ")
 ;;2140
 ;;21,"57664-0727-88 ")
 ;;2135
 ;;21,"58016-0005-00 ")
 ;;98
 ;;21,"58016-0005-30 ")
 ;;99
 ;;21,"58016-0005-60 ")
 ;;100
 ;;21,"58016-0005-90 ")
 ;;101
 ;;21,"58016-0058-00 ")
 ;;2180
 ;;21,"58016-0058-30 ")
 ;;2181
 ;;21,"58016-0058-60 ")
 ;;2182
 ;;21,"58016-0058-90 ")
 ;;2183
 ;;21,"58016-0081-00 ")
 ;;2068
 ;;21,"58016-0081-30 ")
 ;;2069
 ;;21,"58016-0081-60 ")
 ;;2070
 ;;21,"58016-0081-90 ")
 ;;2071
 ;;21,"58016-0082-00 ")
 ;;2032
 ;;21,"58016-0082-30 ")
 ;;2033
 ;;21,"58016-0082-60 ")
 ;;2034
 ;;21,"58016-0082-90 ")
 ;;2035
 ;;21,"58016-0213-00 ")
 ;;904
 ;;21,"58016-0213-10 ")
 ;;905
 ;;21,"58016-0213-30 ")
 ;;906
 ;;21,"58016-0213-60 ")
 ;;907
 ;;21,"58016-0334-00 ")
 ;;484
 ;;21,"58016-0334-02 ")
 ;;485
 ;;21,"58016-0334-30 ")
 ;;486
 ;;21,"58016-0334-60 ")
 ;;487
 ;;21,"58016-0334-90 ")
 ;;488
 ;;21,"58016-0376-00 ")
 ;;328
 ;;21,"58016-0376-02 ")
 ;;353
 ;;21,"58016-0376-30 ")
 ;;354
 ;;21,"58016-0376-60 ")
 ;;355
 ;;21,"58016-0376-90 ")
 ;;356
 ;;21,"58016-0376-99 ")
 ;;357
 ;;21,"58016-0378-00 ")
 ;;805
 ;;21,"58016-0378-02 ")
 ;;806
 ;;21,"58016-0378-30 ")
 ;;807