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

BGP44I3.m

Go to the documentation of this file.
BGP44I3 ;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,"43353-0349-30 ")
 ;;1580
 ;;21,"43353-0349-45 ")
 ;;1581
 ;;21,"43353-0349-53 ")
 ;;1582
 ;;21,"43353-0349-60 ")
 ;;1583
 ;;21,"43353-0349-73 ")
 ;;1584
 ;;21,"43353-0349-80 ")
 ;;1585
 ;;21,"43353-0349-86 ")
 ;;1586
 ;;21,"43353-0369-53 ")
 ;;362
 ;;21,"43353-0369-60 ")
 ;;363
 ;;21,"43353-0369-70 ")
 ;;364
 ;;21,"43353-0369-80 ")
 ;;365
 ;;21,"43353-0369-92 ")
 ;;366
 ;;21,"43353-0369-94 ")
 ;;367
 ;;21,"43353-0379-60 ")
 ;;215
 ;;21,"43353-0379-73 ")
 ;;216
 ;;21,"43353-0379-80 ")
 ;;217
 ;;21,"43353-0379-92 ")
 ;;218
 ;;21,"43353-0379-98 ")
 ;;219
 ;;21,"43353-0477-30 ")
 ;;1177
 ;;21,"43353-0477-53 ")
 ;;1178
 ;;21,"43353-0477-60 ")
 ;;1179
 ;;21,"43353-0477-70 ")
 ;;1180
 ;;21,"43353-0477-80 ")
 ;;1181
 ;;21,"43353-0477-92 ")
 ;;1182
 ;;21,"43353-0477-94 ")
 ;;1183
 ;;21,"43353-0477-96 ")
 ;;1184
 ;;21,"43353-0514-30 ")
 ;;1536
 ;;21,"43353-0514-45 ")
 ;;1537
 ;;21,"43353-0514-53 ")
 ;;1538
 ;;21,"43353-0514-60 ")
 ;;1539
 ;;21,"43353-0514-73 ")
 ;;1540
 ;;21,"43353-0514-80 ")
 ;;1541
 ;;21,"43353-0514-86 ")
 ;;1542
 ;;21,"43353-0520-60 ")
 ;;1543
 ;;21,"43353-0520-80 ")
 ;;1544
 ;;21,"43353-0530-60 ")
 ;;1354
 ;;21,"43353-0530-80 ")
 ;;1355
 ;;21,"43353-0582-80 ")
 ;;653
 ;;21,"43353-0585-94 ")
 ;;1637
 ;;21,"43353-0589-30 ")
 ;;1132
 ;;21,"43353-0589-53 ")
 ;;1133
 ;;21,"43353-0589-60 ")
 ;;1134
 ;;21,"43353-0589-70 ")
 ;;1135
 ;;21,"43353-0589-75 ")
 ;;1136
 ;;21,"43353-0589-80 ")
 ;;1137
 ;;21,"43353-0589-92 ")
 ;;1138
 ;;21,"43353-0589-94 ")
 ;;1139
 ;;21,"43353-0589-96 ")
 ;;1140
 ;;21,"43353-0656-53 ")
 ;;744
 ;;21,"43353-0656-60 ")
 ;;745
 ;;21,"43353-0656-70 ")
 ;;746
 ;;21,"43353-0656-80 ")
 ;;747
 ;;21,"43353-0656-90 ")
 ;;748
 ;;21,"43353-0656-92 ")
 ;;749
 ;;21,"43353-0656-94 ")
 ;;750
 ;;21,"43353-0659-60 ")
 ;;657
 ;;21,"43353-0659-80 ")
 ;;658
 ;;21,"43353-0811-53 ")
 ;;1258
 ;;21,"43547-0248-10 ")
 ;;976
 ;;21,"43547-0248-11 ")
 ;;977
 ;;21,"43547-0248-50 ")
 ;;978
 ;;21,"43547-0249-10 ")
 ;;1263
 ;;21,"43547-0249-11 ")
 ;;1264
 ;;21,"43547-0249-50 ")
 ;;1265
 ;;21,"43547-0250-10 ")
 ;;1476
 ;;21,"43547-0250-11 ")
 ;;1477
 ;;21,"43547-0250-50 ")
 ;;1478
 ;;21,"43547-0320-11 ")
 ;;984
 ;;21,"43547-0321-50 ")
 ;;1259
 ;;21,"43547-0322-50 ")
 ;;1483
 ;;21,"43683-0123-60 ")
 ;;123
 ;;21,"43683-0124-30 ")
 ;;497
 ;;21,"43683-0131-30 ")
 ;;1484
 ;;21,"43683-0131-60 ")
 ;;1485
 ;;21,"43683-0132-30 ")
 ;;985
 ;;21,"43683-0132-60 ")
 ;;986
 ;;21,"45802-0770-78 ")
 ;;40
 ;;21,"45802-0822-78 ")
 ;;73
 ;;21,"45802-0947-78 ")
 ;;124
 ;;21,"45963-0753-02 ")
 ;;2258
 ;;21,"47463-0241-30 ")
 ;;87
 ;;21,"47463-0242-30 ")
 ;;50
 ;;21,"47463-0243-30 ")
 ;;160
 ;;21,"47463-0243-60 ")
 ;;161
 ;;21,"47463-0244-30 ")
 ;;201
 ;;21,"47463-0245-30 ")
 ;;520
 ;;21,"47463-0245-60 ")
 ;;521
 ;;21,"47463-0246-30 ")
 ;;2146
 ;;21,"47463-0247-30 ")
 ;;2154
 ;;21,"47463-0248-90 ")
 ;;828
 ;;21,"47463-0434-60 ")
 ;;2098
 ;;21,"47463-0435-60 ")
 ;;2085
 ;;21,"47463-0508-30 ")
 ;;1548
 ;;21,"47463-0509-30 ")
 ;;1067
 ;;21,"47463-0509-60 ")
 ;;1068
 ;;21,"47463-0509-74 ")
 ;;1069
 ;;21,"47463-0509-90 ")
 ;;1070
 ;;21,"47463-0510-30 ")
 ;;1664
 ;;21,"47463-0510-60 ")
 ;;1665
 ;;21,"47463-0510-71 ")
 ;;1666
 ;;21,"47463-0510-74 ")
 ;;1667
 ;;21,"47463-0510-90 ")
 ;;1668
 ;;21,"47463-0583-30 ")
 ;;1837
 ;;21,"47463-0584-30 ")
 ;;1908
 ;;21,"47463-0585-30 ")
 ;;1970
 ;;21,"47463-0611-60 ")
 ;;1524
 ;;21,"47463-0611-74 ")
 ;;1525
 ;;21,"47463-0612-30 ")
 ;;1365
 ;;21,"47463-0764-60 ")
 ;;2030
 ;;21,"47463-0765-30 ")
 ;;2049
 ;;21,"47463-0766-30 ")
 ;;2066
 ;;21,"47463-0777-30 ")
 ;;1819
 ;;21,"49884-0984-01 ")
 ;;890
 ;;21,"49884-0985-01 ")
 ;;896
 ;;21,"49999-0106-00 ")
 ;;987
 ;;21,"49999-0106-01 ")
 ;;988
 ;;21,"49999-0106-28 ")
 ;;989
 ;;21,"49999-0106-30 ")
 ;;990
 ;;21,"49999-0106-60 ")
 ;;991
 ;;21,"49999-0106-90 ")
 ;;992
 ;;21,"49999-0107-00 ")
 ;;414
 ;;21,"49999-0107-20 ")
 ;;415
 ;;21,"49999-0107-30 ")
 ;;416
 ;;21,"49999-0107-60 ")
 ;;417
 ;;21,"49999-0107-90 ")
 ;;418
 ;;21,"49999-0108-00 ")
 ;;286
 ;;21,"49999-0108-30 ")
 ;;287
 ;;21,"49999-0108-60 ")
 ;;288
 ;;21,"49999-0108-90 ")
 ;;289
 ;;21,"49999-0113-00 ")
 ;;685
 ;;21,"49999-0113-01 ")
 ;;686
 ;;21,"49999-0113-30 ")
 ;;687
 ;;21,"49999-0113-60 ")
 ;;688
 ;;21,"49999-0113-90 ")
 ;;689
 ;;21,"49999-0116-00 ")
 ;;1486
 ;;21,"49999-0116-30 ")
 ;;1487
 ;;21,"49999-0116-60 ")
 ;;1488
 ;;21,"49999-0304-30 ")
 ;;2048
 ;;21,"49999-0401-30 ")
 ;;2296
 ;;21,"49999-0401-60 ")
 ;;2297
 ;;21,"49999-0401-90 ")
 ;;2257
 ;;21,"49999-0449-15 ")
 ;;1844
 ;;21,"49999-0449-30 ")
 ;;1845
 ;;21,"49999-0450-30 ")
 ;;1909
 ;;21,"49999-0451-30 ")
 ;;1971
 ;;21,"49999-0451-90 ")
 ;;1972
 ;;21,"49999-0495-30 ")
 ;;1366
 ;;21,"49999-0495-60 ")
 ;;1367
 ;;21,"49999-0514-30 ")
 ;;454
 ;;21,"49999-0571-60 ")
 ;;874
 ;;21,"49999-0660-30 ")
 ;;2247
 ;;21,"49999-0660-60 ")
 ;;2248
 ;;21,"49999-0781-00 ")
 ;;111
 ;;21,"49999-0781-30 ")
 ;;112
 ;;21,"49999-0781-60 ")
 ;;113
 ;;21,"49999-0807-00 ")
 ;;135
 ;;21,"49999-0807-30 ")
 ;;136
 ;;21,"49999-0807-60 ")
 ;;137
 ;;21,"49999-0807-90 ")
 ;;138
 ;;21,"49999-0808-00 ")
 ;;849
 ;;21,"49999-0820-60 ")
 ;;1642
 ;;21,"49999-0935-30 ")
 ;;2073
 ;;21,"50268-0531-15 ")
 ;;1675
 ;;21,"51079-0172-01 ")
 ;;1112
 ;;21,"51079-0172-20 ")
 ;;1113
 ;;21,"51079-0173-01 ")
 ;;1331
 ;;21,"51079-0173-08 ")
 ;;1332
 ;;21,"51079-0174-01 ")
 ;;1575
 ;;21,"51079-0174-20 ")
 ;;1576
 ;;21,"51079-0425-01 ")
 ;;91
 ;;21,"51079-0425-20 ")
 ;;92
 ;;21,"51079-0426-01 ")
 ;;149
 ;;21,"51079-0426-20 ")
 ;;150
 ;;21,"51079-0513-01 ")
 ;;1894
 ;;21,"51079-0513-20 ")
 ;;1895
 ;;21,"51079-0514-01 ")
 ;;1960
 ;;21,"51079-0514-20 ")
 ;;1961
 ;;21,"51079-0515-01 ")
 ;;2019
 ;;21,"51079-0515-20 ")
 ;;2020
 ;;21,"51079-0810-01 ")
 ;;251
 ;;21,"51079-0810-17 ")
 ;;252
 ;;21,"51079-0810-19 ")
 ;;253
 ;;21,"51079-0810-20 ")
 ;;254
 ;;21,"51079-0811-01 ")
 ;;319
 ;;21,"51079-0811-17 ")
 ;;320
 ;;21,"51079-0811-19 ")
 ;;321
 ;;21,"51079-0811-20 ")
 ;;322
 ;;21,"51079-0872-01 ")
 ;;627
 ;;21,"51079-0872-20 ")
 ;;628
 ;;21,"51079-0873-01 ")
 ;;693
 ;;21,"51079-0873-17 ")
 ;;694
 ;;21,"51079-0873-19 ")
 ;;695
 ;;21,"51079-0873-20 ")
 ;;696
 ;;21,"51079-0972-01 ")
 ;;930
 ;;21,"51079-0972-17 ")
 ;;931
 ;;21,"51079-0972-19 ")
 ;;932
 ;;21,"51079-0972-20 ")
 ;;933
 ;;21,"51079-0972-30 ")
 ;;934
 ;;21,"51079-0972-56 ")
 ;;935
 ;;21,"51079-0973-01 ")
 ;;1221
 ;;21,"51079-0973-20 ")
 ;;1222
 ;;21,"51079-0995-01 ")
 ;;1546
 ;;21,"51079-0995-20 ")
 ;;1547
 ;;21,"51138-0074-30 ")
 ;;1066
 ;;21,"51138-0075-30 ")
 ;;1353
 ;;21,"51138-0076-30 ")
 ;;1545
 ;;21,"51138-0083-30 ")
 ;;1071
 ;;21,"51138-0084-30 ")
 ;;1344
 ;;21,"51138-0085-30 ")
 ;;1554
 ;;21,"51138-0214-15 ")
 ;;1830
 ;;21,"51138-0214-30 ")
 ;;1831
 ;;21,"51138-0215-15 ")
 ;;1899
 ;;21,"51138-0215-30 ")
 ;;1902
 ;;21,"51138-0216-15 ")
 ;;1967
 ;;21,"51138-0216-30 ")
 ;;1968
 ;;21,"51138-0251-30 ")
 ;;256
 ;;21,"51138-0252-30 ")
 ;;440
 ;;21,"51138-0265-30 ")
 ;;458
 ;;21,"51138-0266-30 ")
 ;;472
 ;;21,"51138-0267-30 ")
 ;;543
 ;;21,"51138-0268-30 ")
 ;;473
 ;;21,"51138-0269-30 ")
 ;;542
 ;;21,"51138-0270-30 ")
 ;;257
 ;;21,"51138-0271-30 ")
 ;;439
 ;;21,"51138-0337-30 ")
 ;;41
 ;;21,"51138-0338-30 ")
 ;;70
 ;;21,"51138-0339-30 ")
 ;;133
 ;;21,"51138-0367-30 ")
 ;;832
 ;;21,"51138-0368-30 ")
 ;;840
 ;;21,"51138-0369-30 ")
 ;;862
 ;;21,"51138-0370-30 ")
 ;;585
 ;;21,"51138-0371-30 ")
 ;;638
 ;;21,"51138-0372-10 ")
 ;;803
 ;;21,"51138-0372-30 ")
 ;;804
 ;;21,"51138-0470-30 ")
 ;;2169
 ;;21,"51138-0471-30 ")
 ;;2203
 ;;21,"51138-0472-30 ")
 ;;2283
 ;;21,"51138-0473-30 ")
 ;;2168
 ;;21,"51138-0474-30 ")
 ;;2204
 ;;21,"51138-0475-30 ")
 ;;2282
 ;;21,"51138-0479-30 ")
 ;;1804
 ;;21,"51138-0480-30 ")
 ;;1806
 ;;21,"51138-0481-30 ")
 ;;1822
 ;;21,"51138-0495-20 ")
 ;;2360
 ;;21,"51138-0495-30 ")
 ;;2361
 ;;21,"51138-0496-30 ")
 ;;2366
 ;;21,"51138-0497-30 ")
 ;;2365
 ;;21,"51138-0498-30 ")
 ;;2373
 ;;21,"51138-0499-30 ")
 ;;2021
 ;;21,"51138-0500-30 ")
 ;;2057
 ;;21,"51138-0501-30 ")
 ;;2059
 ;;21,"51138-0526-30 ")
 ;;2089
 ;;21,"51138-0527-30 ")
 ;;2096
 ;;21,"51138-0537-10 ")
 ;;1713
 ;;21,"51138-0537-30 ")
 ;;1714
 ;;21,"51138-0538-10 ")
 ;;1738
 ;;21,"51138-0538-30 ")
 ;;1754
 ;;21,"51138-0539-10 ")
 ;;1606
 ;;21,"51138-0539-30 ")
 ;;1607
 ;;21,"51138-0540-10 ")
 ;;1752
 ;;21,"51138-0540-30 ")
 ;;1753
 ;;21,"51655-0289-24 ")
 ;;447
 ;;21,"51655-0297-24 ")
 ;;34
 ;;21,"51655-0753-24 ")
 ;;637
 ;;21,"51655-0758-77 ")
 ;;590
 ;;21,"51655-0904-25 ")
 ;;825
 ;;21,"51655-0947-24 ")
 ;;826
 ;;21,"51655-0947-25 ")
 ;;827
 ;;21,"51991-0708-10 ")
 ;;1882
 ;;21,"51991-0708-33 ")
 ;;1883
 ;;21,"51991-0708-90 ")
 ;;1884
 ;;21,"51991-0709-10 ")
 ;;1948
 ;;21,"51991-0709-33 ")
 ;;1949
 ;;21,"51991-0709-90 ")
 ;;1950
 ;;21,"51991-0710-10 ")
 ;;2004
 ;;21,"51991-0710-33 ")
 ;;2005
 ;;21,"51991-0710-90 ")
 ;;2006
 ;;21,"52959-0207-00 ")
 ;;1126
 ;;21,"52959-0207-28 ")
 ;;1127
 ;;21,"52959-0207-30 ")
 ;;1128
 ;;21,"52959-0207-60 ")
 ;;1129
 ;;21,"52959-0449-01 ")
 ;;690
 ;;21,"52959-0449-30 ")
 ;;691
 ;;21,"52959-0449-60 ")
 ;;692
 ;;21,"52959-0598-90 ")
 ;;569
 ;;21,"52959-0822-00 ")
 ;;335
 ;;21,"52959-0822-30 ")
 ;;336
 ;;21,"52959-0822-60 ")
 ;;337
 ;;21,"52959-0823-20 ")
 ;;212
 ;;21,"52959-0823-60 ")
 ;;213
 ;;21,"52959-0860-02 ")
 ;;1433
 ;;21,"52959-0860-30 ")
 ;;1434
 ;;21,"52959-0860-60 ")
 ;;1435
 ;;21,"52959-0860-90 ")
 ;;1436
 ;;21,"52959-0888-00 ")
 ;;131
 ;;21,"52959-0888-30 ")
 ;;132
 ;;21,"52959-0896-01 ")
 ;;1236
 ;;21,"52959-0896-60 ")
 ;;1237
 ;;21,"52959-0936-30 ")
 ;;71
 ;;21,"52959-0936-60 ")
 ;;72
 ;;21,"53002-0446-00 ")
 ;;202
 ;;21,"53002-0446-30 ")
 ;;203
 ;;21,"53002-0446-60 ")
 ;;204
 ;;21,"53002-1111-00 ")
 ;;346
 ;;21,"53002-1111-03 ")
 ;;347
 ;;21,"53002-1111-06 ")
 ;;348
 ;;21,"53002-1251-00 ")
 ;;1109
 ;;21,"53002-1251-03 ")
 ;;1110
 ;;21,"53002-1251-06 ")
 ;;1111
 ;;21,"53002-1422-00 ")
 ;;1333
 ;;21,"53002-1422-03 ")
 ;;1334
 ;;21,"53002-1422-06 ")
 ;;1335
 ;;21,"53002-1445-00 ")
 ;;1572
 ;;21,"53002-1445-03 ")
 ;;1573
 ;;21,"53002-1445-06 ")
 ;;1574
 ;;21,"53746-0178-01 ")
 ;;1676
 ;;21,"53746-0178-05 ")
 ;;1677
 ;;21,"53746-0178-10 ")
 ;;1678
 ;;21,"53746-0178-90 ")
 ;;1679
 ;;21,"53746-0179-01 ")
 ;;1728
 ;;21,"53746-0179-05 ")
 ;;1729
 ;;21,"54348-0098-30 ")
 ;;880
 ;;21,"54348-0104-30 ")
 ;;702
 ;;21,"54458-0966-10 ")
 ;;119
 ;;21,"54458-0967-10 ")
 ;;61
 ;;21,"54458-0968-10 ")
 ;;36
 ;;21,"54569-3830-00 ")
 ;;644
 ;;21,"54569-3830-02 ")
 ;;645
 ;;21,"54569-3831-00 ")
 ;;784
 ;;21,"54569-3831-01 ")
 ;;785
 ;;21,"54569-3831-02 ")
 ;;786
 ;;21,"54569-3831-08 ")
 ;;787
 ;;21,"54569-3841-00 ")
 ;;192
 ;;21,"54569-3841-01 ")
 ;;193
 ;;21,"54569-3841-02 ")
 ;;194
 ;;21,"54569-3842-00 ")
 ;;358
 ;;21,"54569-3842-01 ")
 ;;359
 ;;21,"54569-3842-02 ")
 ;;360
 ;;21,"54569-3842-04 ")
 ;;361
 ;;21,"54569-3937-00 ")
 ;;502
 ;;21,"54569-3938-00 ")
 ;;558
 ;;21,"54569-4202-02 ")
 ;;909
 ;;21,"54569-4740-00 ")
 ;;1214
 ;;21,"54569-4880-00 ")
 ;;1829
 ;;21,"54569-4881-00 ")
 ;;1900
 ;;21,"54569-4882-00 ")
 ;;1963
 ;;21,"54569-5353-00 ")
 ;;1383
 ;;21,"54569-5353-02 ")
 ;;1384
 ;;21,"54569-5353-03 ")
 ;;1385
 ;;21,"54569-5353-04 ")
 ;;1386
 ;;21,"54569-5353-05 ")
 ;;1387
 ;;21,"54569-5353-06 ")
 ;;1388
 ;;21,"54569-5360-00 ")
 ;;1130
 ;;21,"54569-5360-03 ")
 ;;1131
 ;;21,"54569-5373-00 ")
 ;;1493
 ;;21,"54569-5373-02 ")
 ;;1494
 ;;21,"54569-5546-00 ")
 ;;1638
 ;;21,"54569-5546-01 ")
 ;;1639
 ;;21,"54569-5546-02 ")
 ;;1640
 ;;21,"54569-5546-03 ")
 ;;1641
 ;;21,"54569-5547-00 ")
 ;;474
 ;;21,"54569-5547-02 ")
 ;;475
 ;;21,"54569-5548-00 ")
 ;;540
 ;;21,"54569-5548-01 ")
 ;;541
 ;;21,"54569-5548-02 ")
 ;;545
 ;;21,"54569-5618-00 ")
 ;;2236
 ;;21,"54569-5618-01 ")
 ;;2237
 ;;21,"54569-5618-02 ")
 ;;2211
 ;;21,"54569-5618-03 ")
 ;;2212
 ;;21,"54569-5619-00 ")
 ;;2289
 ;;21,"54569-5619-01 ")
 ;;2290
 ;;21,"54569-5619-02 ")
 ;;2272
 ;;21,"54569-5619-03 ")
 ;;2273
 ;;21,"54569-5619-04 ")
 ;;2274
 ;;21,"54569-5855-00 ")
 ;;165
 ;;21,"54569-5855-01 ")
 ;;166
 ;;21,"54569-5855-02 ")
 ;;167
 ;;21,"54569-5855-03 ")
 ;;168
 ;;21,"54569-5925-00 ")
 ;;1815
 ;;21,"54569-5992-00 ")
 ;;2138
 ;;21,"54569-5992-01 ")
 ;;2139
 ;;21,"54569-5993-00 ")
 ;;2161
 ;;21,"54569-5993-01 ")
 ;;2162
 ;;21,"54569-6072-00 ")
 ;;64
 ;;21,"54569-6072-01 ")
 ;;65
 ;;21,"54569-6072-02 ")
 ;;66
 ;;21,"54569-6072-03 ")
 ;;67
 ;;21,"54569-6354-00 ")
 ;;1864
 ;;21,"54569-6354-01 ")
 ;;1865
 ;;21,"54569-6355-00 ")
 ;;1930
 ;;21,"54569-6355-01 ")
 ;;1931