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

BGP44P5.m

Go to the documentation of this file.
BGP44P5 ;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,"62584-0975-90 ")
 ;;760
 ;;21,"62584-0976-01 ")
 ;;805
 ;;21,"62584-0976-11 ")
 ;;806
 ;;21,"62584-0976-30 ")
 ;;807
 ;;21,"62584-0976-90 ")
 ;;808
 ;;21,"62584-0977-01 ")
 ;;855
 ;;21,"62584-0977-11 ")
 ;;856
 ;;21,"62584-0977-30 ")
 ;;857
 ;;21,"62584-0977-90 ")
 ;;858
 ;;21,"63304-0435-01 ")
 ;;920
 ;;21,"63304-0436-01 ")
 ;;921
 ;;21,"63304-0437-01 ")
 ;;983
 ;;21,"63304-0499-30 ")
 ;;1875
 ;;21,"63304-0500-30 ")
 ;;1898
 ;;21,"63304-0501-30 ")
 ;;1841
 ;;21,"63304-0502-30 ")
 ;;1845
 ;;21,"63304-0503-30 ")
 ;;1848
 ;;21,"63304-0587-30 ")
 ;;1856
 ;;21,"63304-0588-30 ")
 ;;1862
 ;;21,"63304-0589-30 ")
 ;;1872
 ;;21,"63304-0590-30 ")
 ;;1883
 ;;21,"63304-0591-30 ")
 ;;1890
 ;;21,"63304-0603-30 ")
 ;;1906
 ;;21,"63629-1454-01 ")
 ;;1654
 ;;21,"63629-1559-01 ")
 ;;1174
 ;;21,"63629-1559-02 ")
 ;;1175
 ;;21,"63629-1560-01 ")
 ;;1207
 ;;21,"63629-1561-01 ")
 ;;1241
 ;;21,"63629-1561-02 ")
 ;;1242
 ;;21,"63629-1561-03 ")
 ;;1243
 ;;21,"63629-1561-04 ")
 ;;1244
 ;;21,"63629-1565-01 ")
 ;;399
 ;;21,"63629-1565-02 ")
 ;;400
 ;;21,"63629-1565-03 ")
 ;;401
 ;;21,"63629-1566-01 ")
 ;;224
 ;;21,"63629-1566-02 ")
 ;;225
 ;;21,"63629-1566-03 ")
 ;;226
 ;;21,"63629-1566-04 ")
 ;;227
 ;;21,"63629-1566-05 ")
 ;;228
 ;;21,"63629-1597-01 ")
 ;;936
 ;;21,"63629-3052-01 ")
 ;;1471
 ;;21,"63629-3052-02 ")
 ;;1472
 ;;21,"63629-3564-01 ")
 ;;829
 ;;21,"63629-3649-01 ")
 ;;462
 ;;21,"63629-3678-01 ")
 ;;57
 ;;21,"63629-3750-01 ")
 ;;1080
 ;;21,"63629-4073-01 ")
 ;;1426
 ;;21,"63629-4089-01 ")
 ;;1024
 ;;21,"63629-4337-01 ")
 ;;1315
 ;;21,"63739-0079-10 ")
 ;;436
 ;;21,"63739-0080-10 ")
 ;;464
 ;;21,"63739-0283-10 ")
 ;;726
 ;;21,"63739-0283-31 ")
 ;;725
 ;;21,"63739-0284-10 ")
 ;;781
 ;;21,"63739-0284-31 ")
 ;;761
 ;;21,"63739-0285-04 ")
 ;;812
 ;;21,"63739-0285-10 ")
 ;;835
 ;;21,"63739-0285-31 ")
 ;;814
 ;;21,"63739-0451-10 ")
 ;;1055
 ;;21,"63739-0452-10 ")
 ;;1124
 ;;21,"64455-0771-47 ")
 ;;428
 ;;21,"64455-0771-55 ")
 ;;429
 ;;21,"64455-0772-47 ")
 ;;459
 ;;21,"64455-0791-47 ")
 ;;496
 ;;21,"64455-0792-47 ")
 ;;515
 ;;21,"64455-0795-30 ")
 ;;692
 ;;21,"64455-0795-42 ")
 ;;694
 ;;21,"64455-0795-49 ")
 ;;695
 ;;21,"64455-0796-30 ")
 ;;742
 ;;21,"64455-0796-42 ")
 ;;743
 ;;21,"64455-0796-49 ")
 ;;744
 ;;21,"64455-0796-50 ")
 ;;745
 ;;21,"64455-0797-30 ")
 ;;794
 ;;21,"64455-0797-42 ")
 ;;795
 ;;21,"64455-0797-49 ")
 ;;796
 ;;21,"64455-0798-30 ")
 ;;846
 ;;21,"64455-0798-42 ")
 ;;847
 ;;21,"64455-0799-42 ")
 ;;876
 ;;21,"64679-0421-01 ")
 ;;44
 ;;21,"64679-0422-01 ")
 ;;185
 ;;21,"64679-0422-02 ")
 ;;186
 ;;21,"64679-0423-01 ")
 ;;349
 ;;21,"64679-0423-02 ")
 ;;350
 ;;21,"65084-0412-18 ")
 ;;1060
 ;;21,"65162-0006-09 ")
 ;;39
 ;;21,"65162-0006-50 ")
 ;;40
 ;;21,"65162-0007-09 ")
 ;;143
 ;;21,"65162-0007-50 ")
 ;;144
 ;;21,"65162-0008-09 ")
 ;;309
 ;;21,"65162-0008-50 ")
 ;;310
 ;;21,"65243-0028-09 ")
 ;;927
 ;;21,"65243-0054-09 ")
 ;;1073
 ;;21,"65243-0111-09 ")
 ;;976
 ;;21,"65243-0260-09 ")
 ;;1463
 ;;21,"65243-0311-09 ")
 ;;931
 ;;21,"65243-0312-09 ")
 ;;974
 ;;21,"65243-0312-18 ")
 ;;975
 ;;21,"65243-0317-09 ")
 ;;1064
 ;;21,"65243-0318-09 ")
 ;;1093
 ;;21,"65597-0110-30 ")
 ;;1785
 ;;21,"65597-0110-90 ")
 ;;1786
 ;;21,"65597-0111-30 ")
 ;;1789
 ;;21,"65597-0111-90 ")
 ;;1790
 ;;21,"65597-0112-30 ")
 ;;1787
 ;;21,"65597-0112-90 ")
 ;;1788
 ;;21,"65597-0113-30 ")
 ;;1793
 ;;21,"65597-0113-90 ")
 ;;1794
 ;;21,"65597-0114-30 ")
 ;;1820
 ;;21,"65597-0114-90 ")
 ;;1821
 ;;21,"65597-0115-30 ")
 ;;1822
 ;;21,"65597-0115-90 ")
 ;;1823
 ;;21,"65597-0116-30 ")
 ;;1824
 ;;21,"65597-0116-90 ")
 ;;1825
 ;;21,"65597-0117-30 ")
 ;;1826
 ;;21,"65597-0117-90 ")
 ;;1827
 ;;21,"65597-0118-30 ")
 ;;1828
 ;;21,"65597-0118-90 ")
 ;;1829
 ;;21,"65862-0101-05 ")
 ;;45
 ;;21,"65862-0101-90 ")
 ;;46
 ;;21,"65862-0101-99 ")
 ;;47
 ;;21,"65862-0102-05 ")
 ;;182
 ;;21,"65862-0102-90 ")
 ;;183
 ;;21,"65862-0102-99 ")
 ;;184
 ;;21,"65862-0103-05 ")
 ;;351
 ;;21,"65862-0103-90 ")
 ;;352
 ;;21,"65862-0103-99 ")
 ;;353
 ;;21,"65862-0582-01 ")
 ;;1571
 ;;21,"65862-0582-05 ")
 ;;1572
 ;;21,"65862-0583-01 ")
 ;;1597
 ;;21,"65862-0583-05 ")
 ;;1598
 ;;21,"65862-0584-01 ")
 ;;1641
 ;;21,"65862-0584-05 ")
 ;;1642
 ;;21,"65862-0585-01 ")
 ;;1698
 ;;21,"65862-0585-05 ")
 ;;1699
 ;;21,"65862-0586-01 ")
 ;;1728
 ;;21,"65862-0586-05 ")
 ;;1729
 ;;21,"65862-0587-01 ")
 ;;1761
 ;;21,"65862-0587-05 ")
 ;;1762
 ;;21,"66105-0528-01 ")
 ;;249
 ;;21,"66105-0528-03 ")
 ;;250
 ;;21,"66105-0528-06 ")
 ;;251
 ;;21,"66105-0528-09 ")
 ;;252
 ;;21,"66105-0528-10 ")
 ;;253
 ;;21,"66105-0529-01 ")
 ;;413
 ;;21,"66105-0529-03 ")
 ;;414
 ;;21,"66105-0529-06 ")
 ;;415
 ;;21,"66105-0529-09 ")
 ;;416
 ;;21,"66105-0529-10 ")
 ;;417
 ;;21,"66116-0278-30 ")
 ;;1529
 ;;21,"66116-0468-30 ")
 ;;1442
 ;;21,"66116-0492-30 ")
 ;;1517
 ;;21,"66336-0127-30 ")
 ;;1239
 ;;21,"66336-0255-30 ")
 ;;418
 ;;21,"66336-0296-30 ")
 ;;1338
 ;;21,"66336-0296-90 ")
 ;;1339
 ;;21,"66336-0300-30 ")
 ;;1382
 ;;21,"66336-0348-30 ")
 ;;58
 ;;21,"66336-0348-60 ")
 ;;59
 ;;21,"66336-0348-90 ")
 ;;60
 ;;21,"66336-0424-30 ")
 ;;1212
 ;;21,"66336-0669-14 ")
 ;;809
 ;;21,"66336-0669-30 ")
 ;;810
 ;;21,"66336-0669-90 ")
 ;;811
 ;;21,"66336-0683-30 ")
 ;;1176
 ;;21,"66336-0781-30 ")
 ;;1395
 ;;21,"66336-0781-90 ")
 ;;1406
 ;;21,"66336-0809-30 ")
 ;;219
 ;;21,"66336-0809-90 ")
 ;;220
 ;;21,"66336-0894-30 ")
 ;;338
 ;;21,"66336-0894-90 ")
 ;;339
 ;;21,"66336-0959-30 ")
 ;;1461
 ;;21,"66336-0959-90 ")
 ;;1462
 ;;21,"66993-0472-02 ")
 ;;1266
 ;;21,"66993-0473-02 ")
 ;;1270
 ;;21,"66993-0475-02 ")
 ;;1278
 ;;21,"67286-0813-03 ")
 ;;1009
 ;;21,"67286-0813-04 ")
 ;;1010
 ;;21,"67286-0814-03 ")
 ;;1006
 ;;21,"67544-0071-30 ")
 ;;248
 ;;21,"67544-0086-30 ")
 ;;412
 ;;21,"67544-0110-30 ")
 ;;1012
 ;;21,"67544-0110-60 ")
 ;;1013
 ;;21,"67544-0111-30 ")
 ;;1071
 ;;21,"67544-0111-60 ")
 ;;1072
 ;;21,"67544-0185-60 ")
 ;;1131
 ;;21,"67544-0185-81 ")
 ;;1132
 ;;21,"67544-0185-82 ")
 ;;1133
 ;;21,"67544-0262-30 ")
 ;;595
 ;;21,"67544-0262-60 ")
 ;;596
 ;;21,"67544-0263-30 ")
 ;;614
 ;;21,"67544-0263-60 ")
 ;;615
 ;;21,"67544-0264-30 ")
 ;;636
 ;;21,"67544-0264-60 ")
 ;;637
 ;;21,"67544-0265-30 ")
 ;;655
 ;;21,"67544-0265-60 ")
 ;;656
 ;;21,"67544-0266-30 ")
 ;;677
 ;;21,"67544-0266-60 ")
 ;;678
 ;;21,"67544-0297-60 ")
 ;;1494
 ;;21,"67544-0388-30 ")
 ;;903
 ;;21,"67544-0388-60 ")
 ;;904
 ;;21,"67544-0389-30 ")
 ;;945
 ;;21,"67544-0389-53 ")
 ;;946
 ;;21,"67544-0389-60 ")
 ;;947
 ;;21,"67544-0389-80 ")
 ;;948
 ;;21,"67544-0390-30 ")
 ;;957
 ;;21,"67544-0390-53 ")
 ;;958
 ;;21,"67544-0390-60 ")
 ;;959
 ;;21,"67544-0390-70 ")
 ;;960
 ;;21,"67544-0390-80 ")
 ;;961
 ;;21,"67544-0809-30 ")
 ;;1025
 ;;21,"67544-0809-60 ")
 ;;1026
 ;;21,"67544-0979-15 ")
 ;;139
 ;;21,"67544-0979-30 ")
 ;;140
 ;;21,"67544-0979-45 ")
 ;;141
 ;;21,"67544-0979-60 ")
 ;;142
 ;;21,"67544-0993-30 ")
 ;;308
 ;;21,"67544-1095-30 ")
 ;;405
 ;;21,"67544-1136-60 ")
 ;;1046
 ;;21,"67544-1156-60 ")
 ;;1122
 ;;21,"67544-1287-30 ")
 ;;222
 ;;21,"67544-1287-60 ")
 ;;223
 ;;21,"67544-1330-30 ")
 ;;402
 ;;21,"67544-1330-45 ")
 ;;403
 ;;21,"67767-0151-01 ")
 ;;1125
 ;;21,"67767-0151-05 ")
 ;;1126
 ;;21,"67767-0153-01 ")
 ;;1053
 ;;21,"67767-0153-05 ")
 ;;1054
 ;;21,"67877-0197-05 ")
 ;;80
 ;;21,"67877-0197-10 ")
 ;;81
 ;;21,"67877-0197-90 ")
 ;;82
 ;;21,"67877-0198-05 ")
 ;;201
 ;;21,"67877-0198-10 ")
 ;;202
 ;;21,"67877-0198-90 ")
 ;;203
 ;;21,"67877-0199-05 ")
 ;;384
 ;;21,"67877-0199-10 ")
 ;;385
 ;;21,"67877-0199-90 ")
 ;;386
 ;;21,"68071-0707-30 ")
 ;;365
 ;;21,"68071-0728-30 ")
 ;;190
 ;;21,"68071-1348-00 ")
 ;;191
 ;;21,"68071-1349-00 ")
 ;;364
 ;;21,"68084-0052-01 ")
 ;;714
 ;;21,"68084-0052-11 ")
 ;;715
 ;;21,"68084-0053-01 ")
 ;;774
 ;;21,"68084-0053-11 ")
 ;;775
 ;;21,"68084-0053-30 ")
 ;;776
 ;;21,"68084-0053-90 ")
 ;;777
 ;;21,"68084-0054-01 ")
 ;;823
 ;;21,"68084-0054-11 ")
 ;;824
 ;;21,"68084-0055-01 ")
 ;;866
 ;;21,"68084-0055-11 ")
 ;;867
 ;;21,"68084-0142-01 ")
 ;;1056
 ;;21,"68084-0142-11 ")
 ;;1057
 ;;21,"68084-0142-30 ")
 ;;1058
 ;;21,"68084-0142-90 ")
 ;;1059
 ;;21,"68084-0143-01 ")
 ;;1101
 ;;21,"68084-0143-11 ")
 ;;1102
 ;;21,"68084-0143-30 ")
 ;;1103
 ;;21,"68084-0143-90 ")
 ;;1104
 ;;21,"68084-0237-01 ")
 ;;41
 ;;21,"68084-0237-11 ")
 ;;42
 ;;21,"68084-0238-01 ")
 ;;137
 ;;21,"68084-0238-11 ")
 ;;138
 ;;21,"68084-0239-01 ")
 ;;306
 ;;21,"68084-0239-11 ")
 ;;307
 ;;21,"68084-0349-11 ")
 ;;1616
 ;;21,"68084-0349-21 ")
 ;;1617
 ;;21,"68084-0350-01 ")
 ;;1668
 ;;21,"68084-0350-11 ")
 ;;1669
 ;;21,"68084-0351-11 ")
 ;;1714
 ;;21,"68084-0351-21 ")
 ;;1715
 ;;21,"68084-0498-01 ")
 ;;24
 ;;21,"68084-0498-11 ")
 ;;25
 ;;21,"68084-0505-01 ")
 ;;135
 ;;21,"68084-0505-11 ")
 ;;136
 ;;21,"68084-0506-01 ")
 ;;304
 ;;21,"68084-0506-11 ")
 ;;305
 ;;21,"68084-0597-01 ")
 ;;1166
 ;;21,"68084-0597-11 ")
 ;;1167
 ;;21,"68084-0598-01 ")
 ;;1213
 ;;21,"68084-0598-11 ")
 ;;1214
 ;;21,"68084-0603-11 ")
 ;;1251
 ;;21,"68084-0603-21 ")
 ;;1252
 ;;21,"68180-0750-09 ")
 ;;14
 ;;21,"68180-0751-03 ")
 ;;115
 ;;21,"68180-0751-09 ")
 ;;116
 ;;21,"68180-0752-03 ")
 ;;284
 ;;21,"68180-0752-09 ")
 ;;285
 ;;21,"68180-0755-01 ")
 ;;1567
 ;;21,"68180-0756-01 ")
 ;;1614
 ;;21,"68180-0756-02 ")
 ;;1615
 ;;21,"68180-0757-01 ")
 ;;1661
 ;;21,"68180-0757-02 ")
 ;;1662
 ;;21,"68180-0758-01 ")
 ;;1708
 ;;21,"68180-0758-02 ")
 ;;1709
 ;;21,"68180-0759-01 ")
 ;;1689
 ;;21,"68180-0760-01 ")
 ;;1753
 ;;21,"68258-6014-03 ")
 ;;465
 ;;21,"68258-6014-06 ")
 ;;466
 ;;21,"68258-6024-03 ")
 ;;723
 ;;21,"68258-6024-09 ")
 ;;724
 ;;21,"68258-6025-03 ")
 ;;1734
 ;;21,"68258-6025-06 ")
 ;;1735
 ;;21,"68258-6025-09 ")
 ;;1736
 ;;21,"68258-6046-03 ")
 ;;763
 ;;21,"68258-6046-09 ")
 ;;764
 ;;21,"68258-6051-09 ")
 ;;1374
 ;;21,"68258-6060-03 ")
 ;;1694
 ;;21,"68258-6069-03 ")
 ;;1607
 ;;21,"68258-6069-06 ")
 ;;1608
 ;;21,"68258-6069-09 ")
 ;;1609
 ;;21,"68258-6070-03 ")
 ;;1649
 ;;21,"68258-6070-06 ")
 ;;1650
 ;;21,"68258-6070-09 ")
 ;;1651
 ;;21,"68258-6074-03 ")
 ;;969
 ;;21,"68258-6083-03 ")
 ;;501
 ;;21,"68258-6978-03 ")
 ;;1791
 ;;21,"68382-0121-01 ")
 ;;48
 ;;21,"68382-0121-05 ")
 ;;49
 ;;21,"68382-0121-16 ")
 ;;50
 ;;21,"68382-0122-01 ")
 ;;187
 ;;21,"68382-0122-05 ")
 ;;188
 ;;21,"68382-0122-16 ")
 ;;189
 ;;21,"68382-0123-01 ")
 ;;346
 ;;21,"68382-0123-05 ")
 ;;347
 ;;21,"68382-0123-16 ")
 ;;348
 ;;21,"68462-0210-10 ")
 ;;71
 ;;21,"68462-0211-10 ")
 ;;221
 ;;21,"68462-0212-10 ")
 ;;404
 ;;21,"68462-0233-01 ")
 ;;911
 ;;21,"68462-0234-01 ")
 ;;935
 ;;21,"68462-0235-01 ")
 ;;970
 ;;21,"68462-0260-01 ")
 ;;1501
 ;;21,"68462-0260-05 ")
 ;;1502
 ;;21,"68462-0292-01 ")
 ;;1375
 ;;21,"68462-0293-01 ")
 ;;1413
 ;;21,"68462-0293-05 ")
 ;;1414
 ;;21,"68645-0444-70 ")
 ;;145
 ;;21,"68645-0445-70 ")
 ;;315
 ;;21,"68682-0521-01 ")
 ;;877
 ;;21,"76282-0237-05 ")
 ;;15
 ;;21,"76282-0237-10 ")
 ;;16
 ;;21,"76282-0237-90 ")
 ;;17
 ;;21,"76282-0238-05 ")
 ;;112
 ;;21,"76282-0238-10 ")
 ;;113
 ;;21,"76282-0238-90 ")
 ;;114
 ;;21,"76282-0239-05 ")
 ;;287
 ;;21,"76282-0239-10 ")
 ;;288
 ;;21,"76282-0239-90 ")
 ;;289
 ;;9002226,1197,.01)
 ;;BGP PQA CCB NDC
 ;;9002226,1197,.02)
 ;;@
 ;;9002226,1197,.04)
 ;;n
 ;;9002226,1197,.06)
 ;;@
 ;;9002226,1197,.08)
 ;;@
 ;;9002226,1197,.09)
 ;;3130911
 ;;9002226,1197,.11)
 ;;@
 ;;9002226,1197,.12)
 ;;@
 ;;9002226,1197,.13)
 ;;1
 ;;9002226,1197,.14)
 ;;@
 ;;9002226,1197,.15)
 ;;@
 ;;9002226,1197,.16)
 ;;@
 ;;9002226,1197,.17)
 ;;@
 ;;9002226,1197,3101)
 ;;@
 ;;9002226.02101,"1197,00025-1851-31 ",.01)
 ;;00025-1851-31
 ;;9002226.02101,"1197,00025-1851-31 ",.02)
 ;;00025-1851-31
 ;;9002226.02101,"1197,00025-1861-31 ",.01)
 ;;00025-1861-31
 ;;9002226.02101,"1197,00025-1861-31 ",.02)
 ;;00025-1861-31
 ;;9002226.02101,"1197,00025-1891-31 ",.01)
 ;;00025-1891-31
 ;;9002226.02101,"1197,00025-1891-31 ",.02)
 ;;00025-1891-31
 ;;9002226.02101,"1197,00025-1891-51 ",.01)
 ;;00025-1891-51
 ;;9002226.02101,"1197,00025-1891-51 ",.02)
 ;;00025-1891-51
 ;;9002226.02101,"1197,00025-1901-31 ",.01)
 ;;00025-1901-31
 ;;9002226.02101,"1197,00025-1901-31 ",.02)
 ;;00025-1901-31
 ;;9002226.02101,"1197,00025-1911-31 ",.01)
 ;;00025-1911-31
 ;;9002226.02101,"1197,00025-1911-31 ",.02)
 ;;00025-1911-31
 ;;9002226.02101,"1197,00025-2011-31 ",.01)
 ;;00025-2011-31
 ;;9002226.02101,"1197,00025-2011-31 ",.02)
 ;;00025-2011-31
 ;;9002226.02101,"1197,00025-2021-31 ",.01)
 ;;00025-2021-31
 ;;9002226.02101,"1197,00025-2021-31 ",.02)
 ;;00025-2021-31
 ;;9002226.02101,"1197,00054-0100-22 ",.01)
 ;;00054-0100-22
 ;;9002226.02101,"1197,00054-0100-22 ",.02)
 ;;00054-0100-22