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

BGP51W7.m

Go to the documentation of this file.
BGP51W7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"66105-0156-06 ")
 ;;2086
 ;;21,"66105-0156-09 ")
 ;;2087
 ;;21,"66105-0156-15 ")
 ;;2088
 ;;21,"66105-0159-01 ")
 ;;2328
 ;;21,"66105-0159-03 ")
 ;;2329
 ;;21,"66105-0159-06 ")
 ;;2330
 ;;21,"66105-0159-09 ")
 ;;2331
 ;;21,"66105-0159-15 ")
 ;;2332
 ;;21,"66105-0652-03 ")
 ;;2069
 ;;21,"66105-0984-03 ")
 ;;628
 ;;21,"66105-0984-06 ")
 ;;629
 ;;21,"66105-0984-10 ")
 ;;630
 ;;21,"66105-0984-11 ")
 ;;631
 ;;21,"66105-0984-50 ")
 ;;632
 ;;21,"66105-0985-03 ")
 ;;684
 ;;21,"66105-0985-06 ")
 ;;685
 ;;21,"66105-0985-10 ")
 ;;686
 ;;21,"66105-0985-11 ")
 ;;687
 ;;21,"66105-0985-50 ")
 ;;688
 ;;21,"66105-0986-03 ")
 ;;816
 ;;21,"66105-0986-06 ")
 ;;817
 ;;21,"66105-0986-10 ")
 ;;818
 ;;21,"66105-0986-11 ")
 ;;819
 ;;21,"66105-0986-50 ")
 ;;820
 ;;21,"66116-0233-30 ")
 ;;2500
 ;;21,"66116-0282-60 ")
 ;;1075
 ;;21,"66116-0293-30 ")
 ;;1598
 ;;21,"66116-0454-30 ")
 ;;1073
 ;;21,"66116-0695-60 ")
 ;;1074
 ;;21,"66267-0099-30 ")
 ;;488
 ;;21,"66267-0100-30 ")
 ;;299
 ;;21,"66267-0100-60 ")
 ;;300
 ;;21,"66267-0100-90 ")
 ;;301
 ;;21,"66267-0100-91 ")
 ;;302
 ;;21,"66267-0100-92 ")
 ;;303
 ;;21,"66267-0103-30 ")
 ;;821
 ;;21,"66267-0493-14 ")
 ;;1076
 ;;21,"66267-0493-30 ")
 ;;1077
 ;;21,"66267-0493-60 ")
 ;;1078
 ;;21,"66267-0493-90 ")
 ;;1079
 ;;21,"66267-0493-91 ")
 ;;1080
 ;;21,"66267-0493-92 ")
 ;;1081
 ;;21,"66267-0493-93 ")
 ;;1082
 ;;21,"66267-0497-30 ")
 ;;1447
 ;;21,"66267-0553-30 ")
 ;;1597
 ;;21,"66336-0028-30 ")
 ;;690
 ;;21,"66336-0028-90 ")
 ;;691
 ;;21,"66336-0269-30 ")
 ;;599
 ;;21,"66336-0269-90 ")
 ;;600
 ;;21,"66336-0270-30 ")
 ;;1821
 ;;21,"66336-0270-60 ")
 ;;1822
 ;;21,"66336-0270-90 ")
 ;;1823
 ;;21,"66336-0270-94 ")
 ;;1824
 ;;21,"66336-0292-60 ")
 ;;1799
 ;;21,"66336-0319-30 ")
 ;;2554
 ;;21,"66336-0358-30 ")
 ;;1599
 ;;21,"66336-0358-60 ")
 ;;1600
 ;;21,"66336-0358-62 ")
 ;;1601
 ;;21,"66336-0358-90 ")
 ;;1602
 ;;21,"66336-0360-30 ")
 ;;2083
 ;;21,"66336-0361-30 ")
 ;;2242
 ;;21,"66336-0500-30 ")
 ;;1942
 ;;21,"66336-0500-90 ")
 ;;1943
 ;;21,"66336-0534-30 ")
 ;;44
 ;;21,"66336-0534-90 ")
 ;;45
 ;;21,"66336-0535-30 ")
 ;;97
 ;;21,"66336-0535-60 ")
 ;;98
 ;;21,"66336-0535-90 ")
 ;;99
 ;;21,"66336-0573-30 ")
 ;;155
 ;;21,"66336-0573-60 ")
 ;;156
 ;;21,"66336-0573-90 ")
 ;;157
 ;;21,"66336-0662-30 ")
 ;;461
 ;;21,"66336-0662-60 ")
 ;;462
 ;;21,"66336-0662-90 ")
 ;;463
 ;;21,"66336-0662-94 ")
 ;;464
 ;;21,"66336-0712-90 ")
 ;;949
 ;;21,"66336-0730-14 ")
 ;;295
 ;;21,"66336-0730-30 ")
 ;;296
 ;;21,"66336-0730-60 ")
 ;;297
 ;;21,"66336-0730-90 ")
 ;;298
 ;;21,"66336-0784-30 ")
 ;;2593
 ;;21,"66336-0784-60 ")
 ;;2594
 ;;21,"66336-0784-90 ")
 ;;2595
 ;;21,"66336-0850-30 ")
 ;;2530
 ;;21,"66336-0850-60 ")
 ;;2531
 ;;21,"66336-0850-90 ")
 ;;2532
 ;;21,"66336-0857-30 ")
 ;;2118
 ;;21,"66336-0857-90 ")
 ;;2119
 ;;21,"66336-0858-30 ")
 ;;2200
 ;;21,"66336-0858-90 ")
 ;;2201
 ;;21,"66336-0859-30 ")
 ;;2279
 ;;21,"66336-0859-90 ")
 ;;2280
 ;;21,"66336-0883-30 ")
 ;;1460
 ;;21,"66336-0883-60 ")
 ;;1461
 ;;21,"66336-0883-90 ")
 ;;1462
 ;;21,"66336-0884-14 ")
 ;;1165
 ;;21,"66336-0884-28 ")
 ;;1166
 ;;21,"66336-0884-30 ")
 ;;1167
 ;;21,"66336-0884-60 ")
 ;;1168
 ;;21,"66336-0884-62 ")
 ;;1169
 ;;21,"66336-0884-90 ")
 ;;1170
 ;;21,"66336-0938-30 ")
 ;;863
 ;;21,"66336-0938-60 ")
 ;;864
 ;;21,"66336-0938-90 ")
 ;;865
 ;;21,"66780-0210-07 ")
 ;;5
 ;;21,"66780-0212-01 ")
 ;;10
 ;;21,"66780-0219-04 ")
 ;;3
 ;;21,"66780-0226-01 ")
 ;;4
 ;;21,"66993-0162-02 ")
 ;;48
 ;;21,"66993-0163-02 ")
 ;;91
 ;;21,"66993-0164-02 ")
 ;;172
 ;;21,"67253-0460-10 ")
 ;;913
 ;;21,"67253-0461-10 ")
 ;;927
 ;;21,"67253-0461-11 ")
 ;;928
 ;;21,"67253-0461-50 ")
 ;;929
 ;;21,"67253-0462-10 ")
 ;;945
 ;;21,"67253-0462-11 ")
 ;;946
 ;;21,"67253-0462-50 ")
 ;;947
 ;;21,"67544-0047-30 ")
 ;;1155
 ;;21,"67544-0047-53 ")
 ;;1156
 ;;21,"67544-0047-60 ")
 ;;1157
 ;;21,"67544-0047-70 ")
 ;;1158
 ;;21,"67544-0047-75 ")
 ;;1159
 ;;21,"67544-0047-80 ")
 ;;1160
 ;;21,"67544-0047-90 ")
 ;;1161
 ;;21,"67544-0047-92 ")
 ;;1162
 ;;21,"67544-0047-94 ")
 ;;1163
 ;;21,"67544-0047-96 ")
 ;;1164
 ;;21,"67544-0065-30 ")
 ;;2092
 ;;21,"67544-0065-53 ")
 ;;2093
 ;;21,"67544-0065-60 ")
 ;;2094
 ;;21,"67544-0066-30 ")
 ;;2173
 ;;21,"67544-0066-45 ")
 ;;2174
 ;;21,"67544-0066-60 ")
 ;;2175
 ;;21,"67544-0097-53 ")
 ;;482
 ;;21,"67544-0097-60 ")
 ;;483
 ;;21,"67544-0097-70 ")
 ;;484
 ;;21,"67544-0097-80 ")
 ;;485
 ;;21,"67544-0097-92 ")
 ;;486
 ;;21,"67544-0097-94 ")
 ;;487
 ;;21,"67544-0107-53 ")
 ;;1463
 ;;21,"67544-0107-60 ")
 ;;1464
 ;;21,"67544-0107-80 ")
 ;;1465
 ;;21,"67544-0107-92 ")
 ;;1466
 ;;21,"67544-0113-60 ")
 ;;2336
 ;;21,"67544-0113-70 ")
 ;;2337
 ;;21,"67544-0113-80 ")
 ;;2338
 ;;21,"67544-0114-15 ")
 ;;2342
 ;;21,"67544-0114-45 ")
 ;;2343
 ;;21,"67544-0114-60 ")
 ;;2344
 ;;21,"67544-0114-82 ")
 ;;2345
 ;;21,"67544-0129-53 ")
 ;;478
 ;;21,"67544-0129-70 ")
 ;;479
 ;;21,"67544-0129-80 ")
 ;;480
 ;;21,"67544-0129-94 ")
 ;;481
 ;;21,"67544-0163-30 ")
 ;;1614
 ;;21,"67544-0163-45 ")
 ;;1615
 ;;21,"67544-0163-53 ")
 ;;1616
 ;;21,"67544-0163-60 ")
 ;;1617
 ;;21,"67544-0163-80 ")
 ;;1618
 ;;21,"67544-0199-80 ")
 ;;617
 ;;21,"67544-0254-53 ")
 ;;2305
 ;;21,"67544-0296-70 ")
 ;;2553
 ;;21,"67544-0302-32 ")
 ;;241
 ;;21,"67544-0302-45 ")
 ;;242
 ;;21,"67544-0302-60 ")
 ;;243
 ;;21,"67544-0302-73 ")
 ;;244
 ;;21,"67544-0302-80 ")
 ;;245
 ;;21,"67544-0302-92 ")
 ;;246
 ;;21,"67544-0302-98 ")
 ;;247
 ;;21,"67544-0364-70 ")
 ;;2610
 ;;21,"67544-0417-70 ")
 ;;2611
 ;;21,"67544-0421-60 ")
 ;;1457
 ;;21,"67544-0421-80 ")
 ;;1458
 ;;21,"67544-0421-92 ")
 ;;1459
 ;;21,"67544-0422-30 ")
 ;;1831
 ;;21,"67544-0422-53 ")
 ;;1832
 ;;21,"67544-0422-60 ")
 ;;1833
 ;;21,"67544-0422-70 ")
 ;;1834
 ;;21,"67544-0422-75 ")
 ;;1835
 ;;21,"67544-0422-80 ")
 ;;1836
 ;;21,"67544-0422-90 ")
 ;;1837
 ;;21,"67544-0422-92 ")
 ;;1838
 ;;21,"67544-0422-94 ")
 ;;1839
 ;;21,"67544-0422-96 ")
 ;;1840
 ;;21,"67544-0424-30 ")
 ;;1171
 ;;21,"67544-0424-53 ")
 ;;1172
 ;;21,"67544-0424-60 ")
 ;;1173
 ;;21,"67544-0424-70 ")
 ;;1174
 ;;21,"67544-0424-75 ")
 ;;1175
 ;;21,"67544-0424-80 ")
 ;;1176
 ;;21,"67544-0424-90 ")
 ;;1177
 ;;21,"67544-0424-92 ")
 ;;1178
 ;;21,"67544-0424-94 ")
 ;;1179
 ;;21,"67544-0424-96 ")
 ;;1180
 ;;21,"67544-0428-45 ")
 ;;1619
 ;;21,"67544-0428-53 ")
 ;;1620
 ;;21,"67544-0428-60 ")
 ;;1621
 ;;21,"67544-0428-73 ")
 ;;1622
 ;;21,"67544-0428-80 ")
 ;;1623
 ;;21,"67544-0486-53 ")
 ;;1185
 ;;21,"67544-0511-70 ")
 ;;2607
 ;;21,"67544-0511-94 ")
 ;;2608
 ;;21,"67544-0566-53 ")
 ;;839
 ;;21,"67544-0566-60 ")
 ;;840
 ;;21,"67544-0566-70 ")
 ;;841
 ;;21,"67544-0566-80 ")
 ;;842
 ;;21,"67544-0566-90 ")
 ;;843
 ;;21,"67544-0566-92 ")
 ;;844
 ;;21,"67544-0566-94 ")
 ;;845
 ;;21,"67544-0596-53 ")
 ;;1181
 ;;21,"67544-0596-60 ")
 ;;1182
 ;;21,"67544-0596-80 ")
 ;;1183
 ;;21,"67544-0596-96 ")
 ;;1184
 ;;21,"67544-0613-53 ")
 ;;846
 ;;21,"67544-0613-60 ")
 ;;847
 ;;21,"67544-0613-70 ")
 ;;848
 ;;21,"67544-0613-80 ")
 ;;849
 ;;21,"67544-0613-90 ")
 ;;850
 ;;21,"67544-0613-92 ")
 ;;851
 ;;21,"67544-0613-94 ")
 ;;852
 ;;21,"67544-0643-80 ")
 ;;853
 ;;21,"67544-0643-94 ")
 ;;854
 ;;21,"67544-0653-53 ")
 ;;855
 ;;21,"67544-0653-60 ")
 ;;856
 ;;21,"67544-0653-70 ")
 ;;857
 ;;21,"67544-0653-80 ")
 ;;858
 ;;21,"67544-0653-90 ")
 ;;859
 ;;21,"67544-0653-92 ")
 ;;860
 ;;21,"67544-0653-94 ")
 ;;861
 ;;21,"67544-0653-98 ")
 ;;862
 ;;21,"67544-0661-41 ")
 ;;624
 ;;21,"67544-0661-81 ")
 ;;625
 ;;21,"67544-0751-60 ")
 ;;476
 ;;21,"67544-0751-80 ")
 ;;477
 ;;21,"67544-0756-60 ")
 ;;248
 ;;21,"67544-0756-80 ")
 ;;249
 ;;21,"67544-0808-60 ")
 ;;580
 ;;21,"67544-0875-60 ")
 ;;697
 ;;21,"67544-0875-80 ")
 ;;698
 ;;21,"67544-0927-60 ")
 ;;699
 ;;21,"67544-1081-80 ")
 ;;1844
 ;;21,"67544-1081-94 ")
 ;;1845
 ;;21,"67544-1129-70 ")
 ;;2609
 ;;21,"67544-1198-53 ")
 ;;1624
 ;;21,"67544-1198-60 ")
 ;;1625
 ;;21,"67544-1198-80 ")
 ;;1626
 ;;21,"67544-1216-53 ")
 ;;1453
 ;;21,"67544-1216-60 ")
 ;;1454
 ;;21,"67544-1216-80 ")
 ;;1455
 ;;21,"67544-1216-92 ")
 ;;1456
 ;;21,"67544-1379-80 ")
 ;;1186
 ;;21,"67544-1383-60 ")
 ;;1451
 ;;21,"67544-1383-80 ")
 ;;1452
 ;;21,"67877-0159-01 ")
 ;;1841
 ;;21,"67877-0159-05 ")
 ;;1842
 ;;21,"67877-0159-10 ")
 ;;1843
 ;;21,"67877-0217-01 ")
 ;;1187
 ;;21,"67877-0217-05 ")
 ;;1188
 ;;21,"67877-0217-10 ")
 ;;1189
 ;;21,"67877-0218-01 ")
 ;;1448
 ;;21,"67877-0218-05 ")
 ;;1449
 ;;21,"67877-0218-10 ")
 ;;1450
 ;;21,"67877-0221-01 ")
 ;;1787
 ;;21,"67877-0221-05 ")
 ;;1788
 ;;21,"67877-0221-10 ")
 ;;1789
 ;;21,"68001-0177-00 ")
 ;;61
 ;;21,"68001-0178-00 ")
 ;;103
 ;;21,"68001-0179-00 ")
 ;;198
 ;;21,"68012-0002-13 ")
 ;;1972
 ;;21,"68012-0003-16 ")
 ;;1977
 ;;21,"68071-0008-30 ")
 ;;539
 ;;21,"68071-0028-30 ")
 ;;2614
 ;;21,"68071-0028-60 ")
 ;;2615
 ;;21,"68071-0388-30 ")
 ;;197
 ;;21,"68071-0405-15 ")
 ;;2074
 ;;21,"68071-0406-15 ")
 ;;2157
 ;;21,"68071-0407-15 ")
 ;;2235
 ;;21,"68071-0823-30 ")
 ;;104
 ;;21,"68084-0072-01 ")
 ;;1926
 ;;21,"68084-0072-11 ")
 ;;1927
 ;;21,"68084-0111-01 ")
 ;;540
 ;;21,"68084-0111-11 ")
 ;;541
 ;;21,"68084-0112-01 ")
 ;;570
 ;;21,"68084-0112-11 ")
 ;;571
 ;;21,"68084-0136-01 ")
 ;;2497
 ;;21,"68084-0136-11 ")
 ;;2498
 ;;21,"68084-0137-01 ")
 ;;2551
 ;;21,"68084-0137-11 ")
 ;;2552
 ;;21,"68084-0138-01 ")
 ;;2612
 ;;21,"68084-0138-11 ")
 ;;2613
 ;;21,"68084-0295-11 ")
 ;;497
 ;;21,"68084-0295-21 ")
 ;;498
 ;;21,"68084-0326-01 ")
 ;;105
 ;;21,"68084-0326-11 ")
 ;;106
 ;;21,"68084-0327-01 ")
 ;;195
 ;;21,"68084-0327-11 ")
 ;;196
 ;;21,"68084-0458-11 ")
 ;;1978
 ;;21,"68084-0458-21 ")
 ;;1979
 ;;21,"68084-0459-11 ")
 ;;1991
 ;;21,"68084-0459-21 ")
 ;;1992
 ;;21,"68084-0556-11 ")
 ;;966
 ;;21,"68084-0556-21 ")
 ;;967
 ;;21,"68084-0629-01 ")
 ;;2152
 ;;21,"68084-0629-11 ")
 ;;2153
 ;;21,"68084-0630-01 ")
 ;;2232
 ;;21,"68084-0630-11 ")
 ;;2233
 ;;21,"68084-0631-01 ")
 ;;2299
 ;;21,"68084-0631-11 ")
 ;;2300
 ;;21,"68084-0649-01 ")
 ;;2154
 ;;21,"68084-0649-11 ")
 ;;2155
 ;;21,"68084-0652-01 ")
 ;;2230
 ;;21,"68084-0652-11 ")
 ;;2231
 ;;21,"68084-0660-01 ")
 ;;2301
 ;;21,"68084-0660-11 ")
 ;;2302
 ;;21,"68084-0745-25 ")
 ;;2616
 ;;21,"68084-0745-95 ")
 ;;2617
 ;;21,"68180-0336-07 ")
 ;;1965
 ;;21,"68180-0337-07 ")
 ;;1971
 ;;21,"68258-3034-03 ")
 ;;2156
 ;;21,"68258-5230-03 ")
 ;;2075
 ;;21,"68258-5990-03 ")
 ;;2072
 ;;21,"68258-5990-09 ")
 ;;2073
 ;;21,"68258-5991-03 ")
 ;;2234
 ;;21,"68258-6007-03 ")
 ;;2340
 ;;21,"68258-8947-01 ")
 ;;7
 ;;21,"68258-8948-02 ")
 ;;8
 ;;21,"68382-0027-05 ")
 ;;1928
 ;;21,"68382-0028-01 ")
 ;;1321
 ;;21,"68382-0028-05 ")
 ;;1322
 ;;21,"68382-0028-10 ")
 ;;1323
 ;;21,"68382-0029-01 ")
 ;;1472
 ;;21,"68382-0029-05 ")
 ;;1473
 ;;21,"68382-0029-10 ")
 ;;1474
 ;;21,"68382-0030-01 ")
 ;;1784
 ;;21,"68382-0030-05 ")
 ;;1785
 ;;21,"68382-0030-10 ")
 ;;1786
 ;;21,"68382-0039-05 ")
 ;;1961
 ;;21,"68462-0159-01 ")
 ;;1325
 ;;21,"68462-0159-05 ")
 ;;1326
 ;;21,"68462-0159-10 ")
 ;;1327
 ;;21,"68462-0159-18 ")
 ;;1328
 ;;21,"68462-0159-90 ")
 ;;1329
 ;;21,"68462-0160-01 ")
 ;;1467
 ;;21,"68462-0160-05 ")
 ;;1468
 ;;21,"68462-0160-10 ")
 ;;1469
 ;;21,"68462-0160-18 ")
 ;;1470
 ;;21,"68462-0160-90 ")
 ;;1471
 ;;21,"68462-0161-01 ")
 ;;1790
 ;;21,"68462-0161-05 ")
 ;;1791
 ;;21,"68462-0161-10 ")
 ;;1792
 ;;21,"68462-0161-18 ")
 ;;1793
 ;;21,"68462-0161-90 ")
 ;;1794
 ;;21,"68645-0150-54 ")
 ;;200
 ;;21,"68645-0151-59 ")
 ;;396
 ;;21,"68645-0210-54 ")
 ;;722
 ;;21,"68645-0211-54 ")
 ;;909
 ;;21,"68645-0290-59 ")
 ;;1324
 ;;21,"68645-0300-59 ")
 ;;1795
 ;;21,"76439-0123-10 ")
 ;;62
 ;;21,"76439-0124-10 ")
 ;;102
 ;;21,"76439-0125-10 ")
 ;;199
 ;;9002226,1774,.01)
 ;;BGP PQA DIABETES ALL CLASS NDC
 ;;9002226,1774,.02)
 ;;@
 ;;9002226,1774,.04)
 ;;n
 ;;9002226,1774,.06)
 ;;@
 ;;9002226,1774,.08)
 ;;@
 ;;9002226,1774,.09)
 ;;3140819
 ;;9002226,1774,.11)
 ;;@
 ;;9002226,1774,.12)
 ;;@
 ;;9002226,1774,.13)
 ;;1
 ;;9002226,1774,.14)
 ;;@
 ;;9002226,1774,.15)
 ;;50.67
 ;;9002226,1774,.16)
 ;;@
 ;;9002226,1774,.17)
 ;;@
 ;;9002226,1774,3101)
 ;;@
 ;;9002226.02101,"1774,00003-1427-11 ",.01)
 ;;00003-1427-11
 ;;9002226.02101,"1774,00003-1427-11 ",.02)
 ;;00003-1427-11
 ;;9002226.02101,"1774,00003-1428-11 ",.01)
 ;;00003-1428-11
 ;;9002226.02101,"1774,00003-1428-11 ",.02)
 ;;00003-1428-11
 ;;9002226.02101,"1774,00003-4214-11 ",.01)
 ;;00003-4214-11
 ;;9002226.02101,"1774,00003-4214-11 ",.02)
 ;;00003-4214-11
 ;;9002226.02101,"1774,00003-4214-21 ",.01)
 ;;00003-4214-21
 ;;9002226.02101,"1774,00003-4214-21 ",.02)
 ;;00003-4214-21
 ;;9002226.02101,"1774,00003-4215-11 ",.01)
 ;;00003-4215-11