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

BGP47X8.m

Go to the documentation of this file.
BGP47X8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;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,"66336-0523-60 ")
 ;;1857
 ;;21,"66336-0523-62 ")
 ;;1760
 ;;21,"66336-0523-90 ")
 ;;1855
 ;;21,"66336-0587-00 ")
 ;;709
 ;;21,"66336-0587-30 ")
 ;;710
 ;;21,"66336-0587-60 ")
 ;;711
 ;;21,"66336-0587-90 ")
 ;;679
 ;;21,"66336-0612-30 ")
 ;;2987
 ;;21,"66336-0612-90 ")
 ;;2988
 ;;21,"66336-0719-30 ")
 ;;1016
 ;;21,"66336-0719-60 ")
 ;;927
 ;;21,"66336-0719-90 ")
 ;;928
 ;;21,"66336-0772-30 ")
 ;;2411
 ;;21,"66336-0772-60 ")
 ;;2412
 ;;21,"66336-0772-62 ")
 ;;2413
 ;;21,"66336-0772-90 ")
 ;;2414
 ;;21,"66336-0808-30 ")
 ;;2325
 ;;21,"66336-0808-60 ")
 ;;2326
 ;;21,"66336-0808-62 ")
 ;;2327
 ;;21,"66336-0808-90 ")
 ;;2328
 ;;21,"66336-0811-90 ")
 ;;2821
 ;;21,"66336-0837-30 ")
 ;;2535
 ;;21,"66336-0837-60 ")
 ;;2536
 ;;21,"66336-0837-62 ")
 ;;2537
 ;;21,"66336-0837-90 ")
 ;;2538
 ;;21,"66336-0914-30 ")
 ;;1080
 ;;21,"66336-0914-60 ")
 ;;1081
 ;;21,"66336-0914-90 ")
 ;;1082
 ;;21,"67253-0420-09 ")
 ;;783
 ;;21,"67253-0420-10 ")
 ;;784
 ;;21,"67253-0420-11 ")
 ;;785
 ;;21,"67253-0421-09 ")
 ;;841
 ;;21,"67253-0421-10 ")
 ;;842
 ;;21,"67253-0421-11 ")
 ;;843
 ;;21,"67253-0422-09 ")
 ;;1105
 ;;21,"67253-0422-10 ")
 ;;1106
 ;;21,"67253-0422-11 ")
 ;;1107
 ;;21,"67263-0399-01 ")
 ;;2785
 ;;21,"67286-4177-01 ")
 ;;641
 ;;21,"67286-4179-01 ")
 ;;650
 ;;21,"67544-0043-30 ")
 ;;2249
 ;;21,"67544-0043-53 ")
 ;;2250
 ;;21,"67544-0043-60 ")
 ;;2251
 ;;21,"67544-0043-80 ")
 ;;2252
 ;;21,"67544-0076-30 ")
 ;;1791
 ;;21,"67544-0076-45 ")
 ;;1792
 ;;21,"67544-0076-53 ")
 ;;1793
 ;;21,"67544-0076-60 ")
 ;;1794
 ;;21,"67544-0076-70 ")
 ;;1795
 ;;21,"67544-0076-73 ")
 ;;1796
 ;;21,"67544-0076-80 ")
 ;;1797
 ;;21,"67544-0076-86 ")
 ;;1798
 ;;21,"67544-0076-92 ")
 ;;1799
 ;;21,"67544-0076-94 ")
 ;;1800
 ;;21,"67544-0077-53 ")
 ;;2121
 ;;21,"67544-0077-60 ")
 ;;2122
 ;;21,"67544-0077-70 ")
 ;;2123
 ;;21,"67544-0077-80 ")
 ;;2124
 ;;21,"67544-0087-30 ")
 ;;1008
 ;;21,"67544-0087-45 ")
 ;;1009
 ;;21,"67544-0087-53 ")
 ;;1010
 ;;21,"67544-0087-60 ")
 ;;1011
 ;;21,"67544-0087-70 ")
 ;;1012
 ;;21,"67544-0087-73 ")
 ;;1013
 ;;21,"67544-0087-80 ")
 ;;1014
 ;;21,"67544-0087-92 ")
 ;;1015
 ;;21,"67544-0122-30 ")
 ;;1899
 ;;21,"67544-0122-45 ")
 ;;1900
 ;;21,"67544-0122-53 ")
 ;;1901
 ;;21,"67544-0122-60 ")
 ;;1902
 ;;21,"67544-0122-70 ")
 ;;1903
 ;;21,"67544-0122-73 ")
 ;;1904
 ;;21,"67544-0122-80 ")
 ;;1905
 ;;21,"67544-0122-86 ")
 ;;1906
 ;;21,"67544-0122-92 ")
 ;;1907
 ;;21,"67544-0130-30 ")
 ;;2058
 ;;21,"67544-0130-45 ")
 ;;2059
 ;;21,"67544-0130-53 ")
 ;;2060
 ;;21,"67544-0130-60 ")
 ;;2061
 ;;21,"67544-0130-70 ")
 ;;2062
 ;;21,"67544-0130-80 ")
 ;;2063
 ;;21,"67544-0143-30 ")
 ;;2376
 ;;21,"67544-0143-53 ")
 ;;2377
 ;;21,"67544-0143-60 ")
 ;;2378
 ;;21,"67544-0143-70 ")
 ;;2379
 ;;21,"67544-0143-80 ")
 ;;2380
 ;;21,"67544-0161-30 ")
 ;;810
 ;;21,"67544-0161-45 ")
 ;;811
 ;;21,"67544-0161-60 ")
 ;;812
 ;;21,"67544-0161-80 ")
 ;;813
 ;;21,"67544-0161-92 ")
 ;;814
 ;;21,"67544-0208-30 ")
 ;;2623
 ;;21,"67544-0208-53 ")
 ;;2624
 ;;21,"67544-0208-60 ")
 ;;2625
 ;;21,"67544-0208-80 ")
 ;;2626
 ;;21,"67544-0208-87 ")
 ;;2627
 ;;21,"67544-0240-30 ")
 ;;724
 ;;21,"67544-0240-45 ")
 ;;725
 ;;21,"67544-0240-60 ")
 ;;726
 ;;21,"67544-0240-80 ")
 ;;727
 ;;21,"67544-0272-30 ")
 ;;1880
 ;;21,"67544-0272-45 ")
 ;;1881
 ;;21,"67544-0272-53 ")
 ;;1882
 ;;21,"67544-0272-60 ")
 ;;1883
 ;;21,"67544-0272-70 ")
 ;;1884
 ;;21,"67544-0272-73 ")
 ;;1885
 ;;21,"67544-0272-80 ")
 ;;1886
 ;;21,"67544-0272-86 ")
 ;;1887
 ;;21,"67544-0272-92 ")
 ;;1888
 ;;21,"67544-0272-94 ")
 ;;1889
 ;;21,"67544-0282-30 ")
 ;;1469
 ;;21,"67544-0282-45 ")
 ;;1470
 ;;21,"67544-0282-82 ")
 ;;1471
 ;;21,"67544-0282-99 ")
 ;;1472
 ;;21,"67544-0305-30 ")
 ;;2488
 ;;21,"67544-0305-53 ")
 ;;2489
 ;;21,"67544-0305-60 ")
 ;;2490
 ;;21,"67544-0326-15 ")
 ;;959
 ;;21,"67544-0326-30 ")
 ;;960
 ;;21,"67544-0326-45 ")
 ;;961
 ;;21,"67544-0326-60 ")
 ;;962
 ;;21,"67544-0326-73 ")
 ;;963
 ;;21,"67544-0326-80 ")
 ;;964
 ;;21,"67544-0332-60 ")
 ;;1173
 ;;21,"67544-0376-30 ")
 ;;1044
 ;;21,"67544-0376-45 ")
 ;;1045
 ;;21,"67544-0376-60 ")
 ;;1046
 ;;21,"67544-0376-70 ")
 ;;1047
 ;;21,"67544-0376-73 ")
 ;;1048
 ;;21,"67544-0376-80 ")
 ;;1049
 ;;21,"67544-0387-30 ")
 ;;1667
 ;;21,"67544-0387-60 ")
 ;;1668
 ;;21,"67544-0387-80 ")
 ;;1669
 ;;21,"67544-0491-45 ")
 ;;1494
 ;;21,"67544-0491-53 ")
 ;;1548
 ;;21,"67544-0491-60 ")
 ;;1549
 ;;21,"67544-0491-80 ")
 ;;1550
 ;;21,"67544-0491-82 ")
 ;;1551
 ;;21,"67544-0491-99 ")
 ;;1552
 ;;21,"67544-0565-60 ")
 ;;815
 ;;21,"67544-0567-30 ")
 ;;1627
 ;;21,"67544-0567-53 ")
 ;;1628
 ;;21,"67544-0567-60 ")
 ;;1674
 ;;21,"67544-0567-70 ")
 ;;1624
 ;;21,"67544-0567-80 ")
 ;;1675
 ;;21,"67544-0567-92 ")
 ;;1625
 ;;21,"67544-0567-98 ")
 ;;1626
 ;;21,"67544-0573-82 ")
 ;;1605
 ;;21,"67544-0573-99 ")
 ;;1606
 ;;21,"67544-0627-53 ")
 ;;2014
 ;;21,"67544-0627-60 ")
 ;;2015
 ;;21,"67544-0627-80 ")
 ;;2016
 ;;21,"67544-0911-30 ")
 ;;1737
 ;;21,"67544-0911-45 ")
 ;;1738
 ;;21,"67544-0911-53 ")
 ;;1739
 ;;21,"67544-0911-60 ")
 ;;1740
 ;;21,"67544-0911-70 ")
 ;;1741
 ;;21,"67544-0911-73 ")
 ;;1742
 ;;21,"67544-0911-80 ")
 ;;1743
 ;;21,"67544-0911-92 ")
 ;;1744
 ;;21,"67544-0911-94 ")
 ;;1745
 ;;21,"67544-0911-98 ")
 ;;1746
 ;;21,"67544-0929-60 ")
 ;;311
 ;;21,"67544-1055-30 ")
 ;;2966
 ;;21,"67544-1123-53 ")
 ;;2575
 ;;21,"67544-1135-30 ")
 ;;2576
 ;;21,"67544-1135-53 ")
 ;;2577
 ;;21,"67544-1135-60 ")
 ;;2578
 ;;21,"67544-1143-53 ")
 ;;2266
 ;;21,"67544-1143-60 ")
 ;;2267
 ;;21,"67544-1143-80 ")
 ;;2268
 ;;21,"67544-1145-53 ")
 ;;2194
 ;;21,"67544-1145-60 ")
 ;;2195
 ;;21,"67544-1146-30 ")
 ;;2455
 ;;21,"67544-1146-60 ")
 ;;2456
 ;;21,"67544-1159-30 ")
 ;;2571
 ;;21,"67544-1159-53 ")
 ;;2572
 ;;21,"67544-1159-60 ")
 ;;2573
 ;;21,"67544-1159-80 ")
 ;;2574
 ;;21,"67544-1160-82 ")
 ;;1484
 ;;21,"67544-1182-53 ")
 ;;2263
 ;;21,"67544-1182-80 ")
 ;;2264
 ;;21,"67544-1187-30 ")
 ;;2452
 ;;21,"67544-1187-53 ")
 ;;2453
 ;;21,"67544-1187-60 ")
 ;;2454
 ;;21,"67544-1199-99 ")
 ;;1575
 ;;21,"67544-1200-30 ")
 ;;1407
 ;;21,"67544-1200-42 ")
 ;;1408
 ;;21,"67544-1200-45 ")
 ;;1409
 ;;21,"67857-0700-01 ")
 ;;640
 ;;21,"67857-0701-01 ")
 ;;649
 ;;21,"68001-0119-00 ")
 ;;1537
 ;;21,"68001-0119-03 ")
 ;;1538
 ;;21,"68001-0120-00 ")
 ;;1585
 ;;21,"68001-0120-03 ")
 ;;1586
 ;;21,"68001-0121-00 ")
 ;;1325
 ;;21,"68001-0121-03 ")
 ;;1326
 ;;21,"68001-0122-00 ")
 ;;1442
 ;;21,"68001-0122-03 ")
 ;;1443
 ;;21,"68071-0288-30 ")
 ;;1646
 ;;21,"68071-0841-30 ")
 ;;2285
 ;;21,"68071-0856-30 ")
 ;;2603
 ;;21,"68084-0209-01 ")
 ;;468
 ;;21,"68084-0209-11 ")
 ;;469
 ;;21,"68084-0210-01 ")
 ;;532
 ;;21,"68084-0210-11 ")
 ;;533
 ;;21,"68084-0211-01 ")
 ;;549
 ;;21,"68084-0211-11 ")
 ;;550
 ;;21,"68084-0212-01 ")
 ;;586
 ;;21,"68084-0212-11 ")
 ;;587
 ;;21,"68084-0261-01 ")
 ;;2227
 ;;21,"68084-0261-11 ")
 ;;2228
 ;;21,"68084-0262-01 ")
 ;;2353
 ;;21,"68084-0262-11 ")
 ;;2354
 ;;21,"68084-0263-01 ")
 ;;2427
 ;;21,"68084-0263-11 ")
 ;;2428
 ;;21,"68084-0264-01 ")
 ;;2557
 ;;21,"68084-0264-11 ")
 ;;2558
 ;;21,"68084-0301-01 ")
 ;;1512
 ;;21,"68084-0301-11 ")
 ;;1513
 ;;21,"68084-0302-11 ")
 ;;1573
 ;;21,"68084-0302-21 ")
 ;;1574
 ;;21,"68084-0303-01 ")
 ;;1319
 ;;21,"68084-0303-11 ")
 ;;1320
 ;;21,"68084-0304-01 ")
 ;;1405
 ;;21,"68084-0304-11 ")
 ;;1406
 ;;21,"68084-0456-01 ")
 ;;2738
 ;;21,"68084-0456-11 ")
 ;;2739
 ;;21,"68084-0457-01 ")
 ;;2792
 ;;21,"68084-0457-11 ")
 ;;2793
 ;;21,"68084-0487-11 ")
 ;;1224
 ;;21,"68084-0487-21 ")
 ;;1225
 ;;21,"68084-0503-01 ")
 ;;482
 ;;21,"68084-0503-11 ")
 ;;483
 ;;21,"68084-0504-01 ")
 ;;511
 ;;21,"68084-0504-11 ")
 ;;512
 ;;21,"68115-0038-30 ")
 ;;1202
 ;;21,"68115-0039-30 ")
 ;;651
 ;;21,"68115-0039-60 ")
 ;;652
 ;;21,"68115-0039-90 ")
 ;;653
 ;;21,"68115-0040-15 ")
 ;;844
 ;;21,"68115-0040-30 ")
 ;;845
 ;;21,"68115-0040-60 ")
 ;;846
 ;;21,"68115-0040-90 ")
 ;;847
 ;;21,"68115-0238-00 ")
 ;;2083
 ;;21,"68115-0238-30 ")
 ;;2084
 ;;21,"68115-0238-60 ")
 ;;2085
 ;;21,"68115-0238-90 ")
 ;;2086
 ;;21,"68115-0239-30 ")
 ;;1858
 ;;21,"68115-0239-60 ")
 ;;1859
 ;;21,"68115-0239-90 ")
 ;;1860
 ;;21,"68115-0239-97 ")
 ;;1861
 ;;21,"68115-0307-30 ")
 ;;164
 ;;21,"68115-0307-60 ")
 ;;165
 ;;21,"68115-0308-60 ")
 ;;261
 ;;21,"68115-0308-99 ")
 ;;262
 ;;21,"68115-0309-30 ")
 ;;352
 ;;21,"68115-0309-60 ")
 ;;353
 ;;21,"68115-0309-90 ")
 ;;354
 ;;21,"68115-0310-30 ")
 ;;441
 ;;21,"68115-0310-60 ")
 ;;442
 ;;21,"68115-0419-30 ")
 ;;1351
 ;;21,"68115-0458-30 ")
 ;;2854
 ;;21,"68115-0551-00 ")
 ;;2372
 ;;21,"68115-0629-00 ")
 ;;394
 ;;21,"68115-0629-30 ")
 ;;395
 ;;21,"68115-0715-00 ")
 ;;1599
 ;;21,"68115-0727-00 ")
 ;;2618
 ;;21,"68115-0727-30 ")
 ;;2619
 ;;21,"68115-0741-00 ")
 ;;1355
 ;;21,"68258-1005-01 ")
 ;;1017
 ;;21,"68258-1075-01 ")
 ;;1186
 ;;21,"68258-1078-01 ")
 ;;678
 ;;21,"68258-1082-01 ")
 ;;1806
 ;;21,"68258-1083-01 ")
 ;;2115
 ;;21,"68258-6010-01 ")
 ;;206
 ;;21,"68258-6010-03 ")
 ;;207
 ;;21,"68258-6010-09 ")
 ;;208
 ;;21,"68258-6011-03 ")
 ;;307
 ;;21,"68258-6011-09 ")
 ;;308
 ;;21,"68258-6015-03 ")
 ;;2189
 ;;21,"68258-6015-08 ")
 ;;2190
 ;;21,"68258-6018-03 ")
 ;;1278
 ;;21,"68258-6018-09 ")
 ;;1279
 ;;21,"68258-6019-03 ")
 ;;1367
 ;;21,"68258-6019-06 ")
 ;;1368
 ;;21,"68258-6019-09 ")
 ;;1369
 ;;21,"68258-6020-03 ")
 ;;1478
 ;;21,"68258-6020-09 ")
 ;;1479
 ;;21,"68258-6026-03 ")
 ;;2685
 ;;21,"68258-6026-09 ")
 ;;2686
 ;;21,"68258-6033-03 ")
 ;;1649
 ;;21,"68258-6033-06 ")
 ;;1650
 ;;21,"68258-6033-09 ")
 ;;1651
 ;;21,"68258-6034-03 ")
 ;;47
 ;;21,"68258-6039-03 ")
 ;;583
 ;;21,"68258-6047-03 ")
 ;;2754
 ;;21,"68258-6047-09 ")
 ;;2755
 ;;21,"68258-6057-06 ")
 ;;158
 ;;21,"68258-6062-03 ")
 ;;526
 ;;21,"68258-6063-03 ")
 ;;2915
 ;;21,"68258-6064-03 ")
 ;;2927
 ;;21,"68258-6091-03 ")
 ;;490
 ;;21,"68258-6092-03 ")
 ;;1243
 ;;21,"68258-6093-03 ")
 ;;1257
 ;;21,"68258-6104-03 ")
 ;;3026
 ;;21,"68258-6104-09 ")
 ;;3027
 ;;21,"68258-6964-03 ")
 ;;2138
 ;;21,"68258-6982-30 ")
 ;;2159
 ;;21,"68258-6987-03 ")
 ;;2152
 ;;21,"68258-6988-03 ")
 ;;2143
 ;;21,"68258-9004-01 ")
 ;;2487
 ;;21,"68258-9005-01 ")
 ;;2620
 ;;21,"68258-9006-01 ")
 ;;2254
 ;;21,"68258-9007-01 ")
 ;;2375
 ;;21,"68258-9023-01 ")
 ;;1216
 ;;21,"68258-9037-01 ")
 ;;1209
 ;;21,"68258-9150-01 ")
 ;;1678
 ;;21,"68382-0022-01 ")
 ;;747
 ;;21,"68382-0022-10 ")
 ;;748
 ;;21,"68382-0023-01 ")
 ;;884
 ;;21,"68382-0023-10 ")
 ;;885
 ;;21,"68382-0024-01 ")
 ;;1125
 ;;21,"68382-0024-10 ")
 ;;1126
 ;;21,"68382-0092-01 ")
 ;;2237
 ;;21,"68382-0092-05 ")
 ;;2238
 ;;21,"68382-0092-17 ")
 ;;2239
 ;;21,"68382-0093-01 ")
 ;;2335
 ;;21,"68382-0093-05 ")
 ;;2336
 ;;21,"68382-0093-17 ")
 ;;2337
 ;;21,"68382-0094-01 ")
 ;;2441
 ;;21,"68382-0094-05 ")
 ;;2442
 ;;21,"68382-0094-17 ")
 ;;2443
 ;;21,"68382-0095-01 ")
 ;;2539
 ;;21,"68382-0095-05 ")
 ;;2540
 ;;21,"68382-0095-17 ")
 ;;2541
 ;;21,"68387-0538-30 ")
 ;;1018
 ;;21,"68387-0539-30 ")
 ;;1185
 ;;21,"68462-0162-01 ")
 ;;2220
 ;;21,"68462-0162-05 ")
 ;;2221
 ;;21,"68462-0163-01 ")
 ;;2333
 ;;21,"68462-0163-05 ")
 ;;2334
 ;;21,"68462-0164-01 ")
 ;;2419
 ;;21,"68462-0164-05 ")
 ;;2420
 ;;21,"68462-0165-01 ")
 ;;2533
 ;;21,"68462-0165-05 ")
 ;;2534
 ;;21,"68645-0190-59 ")
 ;;1923
 ;;21,"68645-0191-59 ")
 ;;2076
 ;;21,"68645-0310-54 ")
 ;;892
 ;;21,"68645-0350-59 ")
 ;;2269
 ;;21,"68645-0351-59 ")
 ;;2457
 ;;21,"68645-0352-59 ")
 ;;2570
 ;;21,"68645-0468-59 ")
 ;;2598
 ;;9002226,1195,.01)
 ;;BGP PQA BETA BLOCKER NDC
 ;;9002226,1195,.02)
 ;;@
 ;;9002226,1195,.04)
 ;;n
 ;;9002226,1195,.06)
 ;;@
 ;;9002226,1195,.08)
 ;;@
 ;;9002226,1195,.09)
 ;;3140317
 ;;9002226,1195,.11)
 ;;@
 ;;9002226,1195,.12)
 ;;@
 ;;9002226,1195,.13)
 ;;1
 ;;9002226,1195,.14)
 ;;@
 ;;9002226,1195,.15)
 ;;@
 ;;9002226,1195,.16)
 ;;@
 ;;9002226,1195,.17)
 ;;@
 ;;9002226,1195,3101)
 ;;@
 ;;9002226.02101,"1195,00003-0207-50 ",.01)
 ;;00003-0207-50
 ;;9002226.02101,"1195,00003-0207-50 ",.02)
 ;;00003-0207-50
 ;;9002226.02101,"1195,00003-0207-76 ",.01)
 ;;00003-0207-76
 ;;9002226.02101,"1195,00003-0207-76 ",.02)
 ;;00003-0207-76
 ;;9002226.02101,"1195,00003-0208-50 ",.01)
 ;;00003-0208-50
 ;;9002226.02101,"1195,00003-0208-50 ",.02)
 ;;00003-0208-50
 ;;9002226.02101,"1195,00003-0232-50 ",.01)
 ;;00003-0232-50
 ;;9002226.02101,"1195,00003-0232-50 ",.02)
 ;;00003-0232-50
 ;;9002226.02101,"1195,00003-0241-50 ",.01)
 ;;00003-0241-50
 ;;9002226.02101,"1195,00003-0241-50 ",.02)
 ;;00003-0241-50
 ;;9002226.02101,"1195,00003-0241-76 ",.01)
 ;;00003-0241-76
 ;;9002226.02101,"1195,00003-0241-76 ",.02)
 ;;00003-0241-76
 ;;9002226.02101,"1195,00003-0246-49 ",.01)
 ;;00003-0246-49