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

BGP44N3.m

Go to the documentation of this file.
BGP44N3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 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,"43547-0256-10 ")
 ;;1762
 ;;21,"43547-0256-50 ")
 ;;1763
 ;;21,"43547-0257-10 ")
 ;;1881
 ;;21,"43547-0257-50 ")
 ;;1882
 ;;21,"43683-0142-30 ")
 ;;2072
 ;;21,"43683-0143-30 ")
 ;;2078
 ;;21,"43683-0144-30 ")
 ;;531
 ;;21,"43683-0146-30 ")
 ;;1205
 ;;21,"47463-0028-30 ")
 ;;401
 ;;21,"47463-0029-30 ")
 ;;566
 ;;21,"47463-0029-90 ")
 ;;567
 ;;21,"47463-0030-30 ")
 ;;729
 ;;21,"47463-0056-30 ")
 ;;1753
 ;;21,"47463-0056-60 ")
 ;;1754
 ;;21,"47463-0057-30 ")
 ;;1643
 ;;21,"47463-0057-60 ")
 ;;1644
 ;;21,"47463-0058-30 ")
 ;;1855
 ;;21,"47463-0058-60 ")
 ;;1856
 ;;21,"47463-0059-30 ")
 ;;1571
 ;;21,"47463-0059-60 ")
 ;;1572
 ;;21,"47463-0519-30 ")
 ;;953
 ;;21,"47463-0519-60 ")
 ;;954
 ;;21,"47463-0520-30 ")
 ;;1029
 ;;21,"47463-0521-30 ")
 ;;883
 ;;21,"47463-0522-30 ")
 ;;1399
 ;;21,"47463-0523-30 ")
 ;;1115
 ;;21,"47463-0524-30 ")
 ;;1228
 ;;21,"47463-0524-60 ")
 ;;1229
 ;;21,"47463-0524-74 ")
 ;;1230
 ;;21,"49884-0122-01 ")
 ;;1965
 ;;21,"49884-0123-01 ")
 ;;2001
 ;;21,"49884-0124-01 ")
 ;;2029
 ;;21,"49884-0404-01 ")
 ;;851
 ;;21,"49884-0404-10 ")
 ;;852
 ;;21,"49884-0405-01 ")
 ;;937
 ;;21,"49884-0405-10 ")
 ;;938
 ;;21,"49884-0406-01 ")
 ;;1021
 ;;21,"49884-0406-10 ")
 ;;1022
 ;;21,"49884-0407-01 ")
 ;;1082
 ;;21,"49884-0407-10 ")
 ;;1083
 ;;21,"49999-0010-00 ")
 ;;1274
 ;;21,"49999-0010-30 ")
 ;;1275
 ;;21,"49999-0010-40 ")
 ;;1254
 ;;21,"49999-0010-60 ")
 ;;1255
 ;;21,"49999-0104-00 ")
 ;;527
 ;;21,"49999-0104-30 ")
 ;;528
 ;;21,"49999-0104-60 ")
 ;;529
 ;;21,"49999-0104-90 ")
 ;;530
 ;;21,"49999-0178-00 ")
 ;;722
 ;;21,"49999-0178-30 ")
 ;;723
 ;;21,"49999-0201-30 ")
 ;;26
 ;;21,"49999-0202-30 ")
 ;;38
 ;;21,"49999-0226-00 ")
 ;;1442
 ;;21,"49999-0226-30 ")
 ;;1443
 ;;21,"49999-0226-60 ")
 ;;1444
 ;;21,"49999-0286-60 ")
 ;;213
 ;;21,"49999-0454-00 ")
 ;;395
 ;;21,"49999-0454-10 ")
 ;;396
 ;;21,"49999-0454-30 ")
 ;;397
 ;;21,"49999-0454-60 ")
 ;;398
 ;;21,"49999-0454-90 ")
 ;;399
 ;;21,"49999-0482-30 ")
 ;;901
 ;;21,"49999-0483-00 ")
 ;;997
 ;;21,"49999-0483-30 ")
 ;;998
 ;;21,"49999-0484-00 ")
 ;;1064
 ;;21,"49999-0484-30 ")
 ;;1065
 ;;21,"49999-0512-30 ")
 ;;2054
 ;;21,"49999-0512-60 ")
 ;;2055
 ;;21,"49999-0512-90 ")
 ;;2056
 ;;21,"49999-0555-60 ")
 ;;146
 ;;21,"49999-0555-90 ")
 ;;147
 ;;21,"49999-0575-10 ")
 ;;1176
 ;;21,"49999-0575-20 ")
 ;;1177
 ;;21,"49999-0575-30 ")
 ;;1178
 ;;21,"49999-0575-60 ")
 ;;1113
 ;;21,"49999-0575-90 ")
 ;;1114
 ;;21,"49999-0577-20 ")
 ;;1625
 ;;21,"49999-0866-00 ")
 ;;806
 ;;21,"49999-0872-30 ")
 ;;1938
 ;;21,"49999-0938-30 ")
 ;;1824
 ;;21,"49999-0939-30 ")
 ;;1721
 ;;21,"49999-0996-00 ")
 ;;1100
 ;;21,"50111-0467-01 ")
 ;;69
 ;;21,"50111-0467-03 ")
 ;;70
 ;;21,"50111-0468-01 ")
 ;;134
 ;;21,"50111-0468-03 ")
 ;;135
 ;;21,"50111-0469-01 ")
 ;;182
 ;;21,"50111-0469-03 ")
 ;;183
 ;;21,"50111-0470-01 ")
 ;;228
 ;;21,"50111-0471-01 ")
 ;;245
 ;;21,"50111-0471-02 ")
 ;;246
 ;;21,"50268-0050-15 ")
 ;;372
 ;;21,"50268-0051-15 ")
 ;;386
 ;;21,"50436-4313-02 ")
 ;;115
 ;;21,"50436-4314-02 ")
 ;;196
 ;;21,"50436-4315-01 ")
 ;;270
 ;;21,"50742-0101-01 ")
 ;;404
 ;;21,"50742-0101-10 ")
 ;;405
 ;;21,"50742-0102-01 ")
 ;;561
 ;;21,"50742-0102-10 ")
 ;;562
 ;;21,"50742-0103-01 ")
 ;;719
 ;;21,"50742-0103-10 ")
 ;;720
 ;;21,"50742-0107-01 ")
 ;;1143
 ;;21,"50742-0107-05 ")
 ;;1144
 ;;21,"50742-0108-01 ")
 ;;1198
 ;;21,"50742-0108-10 ")
 ;;1199
 ;;21,"50742-0109-01 ")
 ;;1435
 ;;21,"50742-0109-10 ")
 ;;1436
 ;;21,"51079-0169-01 ")
 ;;858
 ;;21,"51079-0169-20 ")
 ;;859
 ;;21,"51079-0170-01 ")
 ;;929
 ;;21,"51079-0170-20 ")
 ;;930
 ;;21,"51079-0171-01 ")
 ;;1024
 ;;21,"51079-0171-03 ")
 ;;1025
 ;;21,"51079-0255-01 ")
 ;;1155
 ;;21,"51079-0255-17 ")
 ;;1156
 ;;21,"51079-0255-19 ")
 ;;1157
 ;;21,"51079-0255-20 ")
 ;;1158
 ;;21,"51079-0277-01 ")
 ;;99
 ;;21,"51079-0277-20 ")
 ;;100
 ;;21,"51079-0278-01 ")
 ;;103
 ;;21,"51079-0278-20 ")
 ;;104
 ;;21,"51079-0279-01 ")
 ;;216
 ;;21,"51079-0279-20 ")
 ;;217
 ;;21,"51079-0684-01 ")
 ;;661
 ;;21,"51079-0684-17 ")
 ;;662
 ;;21,"51079-0684-19 ")
 ;;663
 ;;21,"51079-0684-20 ")
 ;;664
 ;;21,"51079-0684-63 ")
 ;;665
 ;;21,"51079-0685-01 ")
 ;;768
 ;;21,"51079-0685-20 ")
 ;;769
 ;;21,"51079-0759-01 ")
 ;;456
 ;;21,"51079-0759-17 ")
 ;;457
 ;;21,"51079-0759-19 ")
 ;;458
 ;;21,"51079-0759-20 ")
 ;;459
 ;;21,"51079-0759-63 ")
 ;;460
 ;;21,"51079-0771-01 ")
 ;;1576
 ;;21,"51079-0771-17 ")
 ;;1577
 ;;21,"51079-0771-19 ")
 ;;1578
 ;;21,"51079-0771-20 ")
 ;;1579
 ;;21,"51079-0801-01 ")
 ;;1268
 ;;21,"51079-0801-17 ")
 ;;1269
 ;;21,"51079-0801-19 ")
 ;;1270
 ;;21,"51079-0801-20 ")
 ;;1271
 ;;21,"51079-0801-30 ")
 ;;1272
 ;;21,"51079-0801-56 ")
 ;;1273
 ;;21,"51079-0802-01 ")
 ;;1511
 ;;21,"51079-0802-17 ")
 ;;1512
 ;;21,"51079-0802-19 ")
 ;;1513
 ;;21,"51079-0802-20 ")
 ;;1514
 ;;21,"51079-0812-01 ")
 ;;11
 ;;21,"51079-0812-20 ")
 ;;12
 ;;21,"51079-0813-01 ")
 ;;30
 ;;21,"51079-0813-20 ")
 ;;31
 ;;21,"51079-0928-01 ")
 ;;1969
 ;;21,"51079-0928-20 ")
 ;;1970
 ;;21,"51079-0929-01 ")
 ;;1999
 ;;21,"51079-0929-20 ")
 ;;2000
 ;;21,"51079-0930-01 ")
 ;;1699
 ;;21,"51079-0930-17 ")
 ;;1700
 ;;21,"51079-0930-19 ")
 ;;1701
 ;;21,"51079-0930-20 ")
 ;;1702
 ;;21,"51079-0931-01 ")
 ;;1810
 ;;21,"51079-0931-17 ")
 ;;1811
 ;;21,"51079-0931-19 ")
 ;;1812
 ;;21,"51079-0931-20 ")
 ;;1813
 ;;21,"51079-0932-01 ")
 ;;1907
 ;;21,"51079-0932-20 ")
 ;;1908
 ;;21,"51138-0009-30 ")
 ;;2098
 ;;21,"51138-0010-30 ")
 ;;2132
 ;;21,"51138-0011-30 ")
 ;;2154
 ;;21,"51138-0096-30 ")
 ;;406
 ;;21,"51138-0097-30 ")
 ;;560
 ;;21,"51138-0098-30 ")
 ;;721
 ;;21,"51138-0105-30 ")
 ;;1146
 ;;21,"51138-0106-30 ")
 ;;1195
 ;;21,"51138-0107-30 ")
 ;;1196
 ;;21,"51138-0108-30 ")
 ;;1438
 ;;21,"51138-0109-30 ")
 ;;1439
 ;;21,"51138-0115-30 ")
 ;;1145
 ;;21,"51138-0116-30 ")
 ;;1197
 ;;21,"51138-0117-30 ")
 ;;1437
 ;;21,"51138-0118-30 ")
 ;;1142
 ;;21,"51138-0119-30 ")
 ;;1200
 ;;21,"51138-0120-30 ")
 ;;1434
 ;;21,"51138-0131-30 ")
 ;;407
 ;;21,"51138-0132-30 ")
 ;;555
 ;;21,"51138-0133-30 ")
 ;;718
 ;;21,"51138-0157-30 ")
 ;;1141
 ;;21,"51138-0158-30 ")
 ;;1201
 ;;21,"51138-0159-30 ")
 ;;1433
 ;;21,"51138-0172-30 ")
 ;;875
 ;;21,"51138-0173-30 ")
 ;;960
 ;;21,"51138-0174-30 ")
 ;;1040
 ;;21,"51138-0175-30 ")
 ;;1099
 ;;21,"51138-0204-30 ")
 ;;876
 ;;21,"51138-0205-30 ")
 ;;959
 ;;21,"51138-0206-30 ")
 ;;1041
 ;;21,"51138-0207-30 ")
 ;;1098
 ;;21,"51138-0373-10 ")
 ;;277
 ;;21,"51138-0373-30 ")
 ;;278
 ;;21,"51138-0374-10 ")
 ;;304
 ;;21,"51138-0374-30 ")
 ;;305
 ;;21,"51138-0375-10 ")
 ;;325
 ;;21,"51138-0375-30 ")
 ;;326
 ;;21,"51138-0376-10 ")
 ;;349
 ;;21,"51138-0383-30 ")
 ;;1561
 ;;21,"51138-0384-30 ")
 ;;1635
 ;;21,"51138-0385-30 ")
 ;;1746
 ;;21,"51138-0386-30 ")
 ;;1838
 ;;21,"51138-0409-10 ")
 ;;275
 ;;21,"51138-0409-30 ")
 ;;276
 ;;21,"51138-0410-10 ")
 ;;306
 ;;21,"51138-0410-30 ")
 ;;307
 ;;21,"51138-0411-10 ")
 ;;323
 ;;21,"51138-0411-30 ")
 ;;324
 ;;21,"51138-0412-10 ")
 ;;350
 ;;21,"51138-0412-30 ")
 ;;351
 ;;21,"51138-0413-30 ")
 ;;101
 ;;21,"51138-0414-30 ")
 ;;102
 ;;21,"51138-0415-30 ")
 ;;218
 ;;21,"51138-0416-20 ")
 ;;219
 ;;21,"51138-0416-30 ")
 ;;220
 ;;21,"51138-0417-30 ")
 ;;258
 ;;21,"51138-0452-30 ")
 ;;1525
 ;;21,"51138-0453-30 ")
 ;;1526
 ;;21,"51138-0454-30 ")
 ;;1542
 ;;21,"51138-0455-30 ")
 ;;1543
 ;;21,"51138-0459-30 ")
 ;;1986
 ;;21,"51138-0459-60 ")
 ;;1987
 ;;21,"51138-0460-30 ")
 ;;2010
 ;;21,"51138-0460-60 ")
 ;;2011
 ;;21,"51138-0461-30 ")
 ;;2043
 ;;21,"51138-0461-60 ")
 ;;2044
 ;;21,"51138-0462-10 ")
 ;;866
 ;;21,"51138-0462-15 ")
 ;;867
 ;;21,"51138-0462-30 ")
 ;;868
 ;;21,"51138-0463-10 ")
 ;;966
 ;;21,"51138-0463-30 ")
 ;;967
 ;;21,"51138-0463-50 ")
 ;;968
 ;;21,"51138-0464-10 ")
 ;;1046
 ;;21,"51138-0464-30 ")
 ;;1047
 ;;21,"51138-0465-10 ")
 ;;1093
 ;;21,"51138-0465-30 ")
 ;;1094
 ;;21,"51138-0466-30 ")
 ;;1619
 ;;21,"51138-0467-30 ")
 ;;1714
 ;;21,"51138-0468-30 ")
 ;;1805
 ;;21,"51138-0469-30 ")
 ;;1895
 ;;21,"51138-0502-30 ")
 ;;2107
 ;;21,"51138-0503-30 ")
 ;;2150
 ;;21,"51138-0504-30 ")
 ;;2172
 ;;21,"51138-0511-30 ")
 ;;1946
 ;;21,"51138-0512-30 ")
 ;;1947
 ;;21,"51138-0513-30 ")
 ;;1955
 ;;21,"51138-0514-30 ")
 ;;1956
 ;;21,"51138-0528-30 ")
 ;;1981
 ;;21,"51138-0529-30 ")
 ;;2002
 ;;21,"51138-0530-30 ")
 ;;2031
 ;;21,"51138-0565-10 ")
 ;;902
 ;;21,"51138-0565-15 ")
 ;;903
 ;;21,"51138-0565-30 ")
 ;;904
 ;;21,"51138-0566-10 ")
 ;;999
 ;;21,"51138-0566-30 ")
 ;;1000
 ;;21,"51138-0566-50 ")
 ;;1001
 ;;21,"51138-0567-10 ")
 ;;1070
 ;;21,"51138-0567-30 ")
 ;;1071
 ;;21,"51138-0568-10 ")
 ;;1111
 ;;21,"51138-0568-30 ")
 ;;1112
 ;;21,"51285-0040-01 ")
 ;;2177
 ;;21,"51285-0047-02 ")
 ;;2117
 ;;21,"51285-0050-02 ")
 ;;2151
 ;;21,"51285-0060-01 ")
 ;;820
 ;;21,"51285-0061-01 ")
 ;;837
 ;;21,"51655-0019-24 ")
 ;;677
 ;;21,"51655-0019-25 ")
 ;;678
 ;;21,"51655-0149-24 ")
 ;;1179
 ;;21,"51655-0149-25 ")
 ;;1180
 ;;21,"51655-0284-24 ")
 ;;1392
 ;;21,"51655-0319-25 ")
 ;;787
 ;;21,"51655-0331-24 ")
 ;;15
 ;;21,"51655-0349-24 ")
 ;;181
 ;;21,"51655-0350-24 ")
 ;;136
 ;;21,"51655-0530-24 ")
 ;;646
 ;;21,"51655-0532-24 ")
 ;;753
 ;;21,"51991-0817-01 ")
 ;;271
 ;;21,"51991-0818-01 ")
 ;;300
 ;;21,"51991-0819-01 ")
 ;;322
 ;;21,"51991-0820-01 ")
 ;;346
 ;;21,"52244-0450-10 ")
 ;;47
 ;;21,"52343-0026-01 ")
 ;;1556
 ;;21,"52343-0026-05 ")
 ;;1557
 ;;21,"52343-0027-01 ")
 ;;1652
 ;;21,"52343-0027-05 ")
 ;;1653
 ;;21,"52343-0028-01 ")
 ;;1755
 ;;21,"52343-0028-05 ")
 ;;1764
 ;;21,"52343-0029-01 ")
 ;;1879
 ;;21,"52343-0029-05 ")
 ;;1880
 ;;21,"52959-0212-01 ")
 ;;152
 ;;21,"52959-0212-10 ")
 ;;153
 ;;21,"52959-0212-20 ")
 ;;154
 ;;21,"52959-0212-45 ")
 ;;155
 ;;21,"52959-0212-50 ")
 ;;156
 ;;21,"52959-0212-60 ")
 ;;157
 ;;21,"52959-0241-30 ")
 ;;2159
 ;;21,"52959-0253-00 ")
 ;;556
 ;;21,"52959-0253-20 ")
 ;;557
 ;;21,"52959-0253-30 ")
 ;;558
 ;;21,"52959-0253-40 ")
 ;;559
 ;;21,"52959-0258-30 ")
 ;;716
 ;;21,"52959-0258-60 ")
 ;;717
 ;;21,"52959-0280-30 ")
 ;;680
 ;;21,"52959-0337-10 ")
 ;;2124
 ;;21,"52959-0337-30 ")
 ;;2125
 ;;21,"52959-0463-01 ")
 ;;483
 ;;21,"52959-0463-30 ")
 ;;484
 ;;21,"52959-0463-60 ")
 ;;485
 ;;21,"52959-0543-30 ")
 ;;328
 ;;21,"52959-0827-30 ")
 ;;60
 ;;21,"52959-0839-30 ")
 ;;1330
 ;;21,"52959-0839-60 ")
 ;;1331
 ;;21,"52959-0895-60 ")
 ;;176
 ;;21,"53002-1004-00 ")
 ;;508
 ;;21,"53002-1004-03 ")
 ;;509
 ;;21,"53002-1004-06 ")
 ;;510
 ;;21,"53002-1108-00 ")
 ;;446
 ;;21,"53002-1108-03 ")
 ;;447
 ;;21,"53002-1108-06 ")
 ;;448
 ;;21,"53002-1138-00 ")
 ;;685
 ;;21,"53002-1138-03 ")
 ;;686
 ;;21,"53002-1138-06 ")
 ;;687
 ;;21,"53489-0529-01 ")
 ;;553
 ;;21,"53489-0529-10 ")
 ;;554
 ;;21,"53489-0530-01 ")
 ;;710
 ;;21,"53489-0530-10 ")
 ;;711
 ;;21,"53489-0531-01 ")
 ;;2064
 ;;21,"53489-0532-01 ")
 ;;2083
 ;;21,"53489-0536-01 ")
 ;;408
 ;;21,"53489-0536-10 ")
 ;;409
 ;;21,"54348-0142-30 ")
 ;;578
 ;;21,"54458-0300-30 ")
 ;;860
 ;;21,"54458-0300-31 ")
 ;;861
 ;;21,"54458-0301-30 ")
 ;;927
 ;;21,"54458-0301-31 ")
 ;;928
 ;;21,"54458-0302-30 ")
 ;;1026
 ;;21,"54458-0302-31 ")
 ;;1027
 ;;21,"54458-0931-05 ")
 ;;617
 ;;21,"54569-0557-01 ")
 ;;55
 ;;21,"54569-0559-01 ")
 ;;150
 ;;21,"54569-0561-01 ")
 ;;173
 ;;21,"54569-3097-00 ")
 ;;310
 ;;21,"54569-3432-00 ")
 ;;548
 ;;21,"54569-3432-01 ")
 ;;549
 ;;21,"54569-3432-04 ")
 ;;550
 ;;21,"54569-3432-07 ")
 ;;551
 ;;21,"54569-3432-08 ")
 ;;552
 ;;21,"54569-3654-00 ")
 ;;712
 ;;21,"54569-3654-03 ")
 ;;713
 ;;21,"54569-3654-04 ")
 ;;714
 ;;21,"54569-3654-05 ")
 ;;715
 ;;21,"54569-3787-00 ")
 ;;1369
 ;;21,"54569-3787-01 ")
 ;;1370
 ;;21,"54569-3787-04 ")
 ;;1188
 ;;21,"54569-3787-05 ")
 ;;1189
 ;;21,"54569-3788-00 ")
 ;;1450
 ;;21,"54569-3788-01 ")
 ;;1451
 ;;21,"54569-3788-03 ")
 ;;1428
 ;;21,"54569-3788-04 ")
 ;;1429
 ;;21,"54569-3885-00 ")
 ;;389
 ;;21,"54569-3885-02 ")
 ;;390
 ;;21,"54569-3885-04 ")
 ;;391
 ;;21,"54569-3885-05 ")
 ;;392
 ;;21,"54569-3885-06 ")
 ;;393
 ;;21,"54569-4441-00 ")
 ;;986
 ;;21,"54569-4442-00 ")
 ;;1054
 ;;21,"54569-5404-00 ")
 ;;2146
 ;;21,"54569-5404-01 ")
 ;;2147
 ;;21,"54569-5417-00 ")
 ;;2114
 ;;21,"54569-5417-01 ")
 ;;2115
 ;;21,"54569-5419-00 ")
 ;;2170
 ;;21,"54569-5419-01 ")
 ;;2171
 ;;21,"54569-5870-00 ")
 ;;854
 ;;21,"54569-5870-01 ")
 ;;855
 ;;21,"54569-5870-02 ")
 ;;856
 ;;21,"54569-5954-00 ")
 ;;931
 ;;21,"54569-5954-01 ")
 ;;932
 ;;21,"54569-5961-00 ")
 ;;1017
 ;;21,"54569-5961-01 ")
 ;;1018
 ;;21,"54569-5961-02 ")
 ;;1019
 ;;21,"54569-5974-00 ")
 ;;1604
 ;;21,"54569-5974-01 ")
 ;;1605
 ;;21,"54569-5975-00 ")
 ;;1689