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

BGP51J7.m

Go to the documentation of this file.
BGP51J7 ;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,"66116-0648-30 ")
 ;;796
 ;;21,"66213-0421-10 ")
 ;;1600
 ;;21,"66213-0421-50 ")
 ;;1601
 ;;21,"66213-0422-04 ")
 ;;1611
 ;;21,"66213-0422-16 ")
 ;;1612
 ;;21,"66213-0423-04 ")
 ;;1613
 ;;21,"66213-0423-16 ")
 ;;1614
 ;;21,"66213-0425-10 ")
 ;;1581
 ;;21,"66213-0425-11 ")
 ;;1582
 ;;21,"66267-0016-10 ")
 ;;2182
 ;;21,"66267-0016-12 ")
 ;;2183
 ;;21,"66267-0016-20 ")
 ;;2184
 ;;21,"66267-0016-28 ")
 ;;2185
 ;;21,"66267-0016-30 ")
 ;;2186
 ;;21,"66267-0016-60 ")
 ;;2187
 ;;21,"66267-0017-10 ")
 ;;1902
 ;;21,"66267-0017-30 ")
 ;;1903
 ;;21,"66267-0018-30 ")
 ;;80
 ;;21,"66267-0018-60 ")
 ;;81
 ;;21,"66267-0018-90 ")
 ;;82
 ;;21,"66267-0019-14 ")
 ;;285
 ;;21,"66267-0019-30 ")
 ;;286
 ;;21,"66267-0019-60 ")
 ;;287
 ;;21,"66267-0019-90 ")
 ;;288
 ;;21,"66267-0019-91 ")
 ;;289
 ;;21,"66267-0020-30 ")
 ;;320
 ;;21,"66267-0020-60 ")
 ;;321
 ;;21,"66267-0020-90 ")
 ;;322
 ;;21,"66267-0032-15 ")
 ;;1565
 ;;21,"66267-0032-20 ")
 ;;1566
 ;;21,"66267-0032-30 ")
 ;;1567
 ;;21,"66267-0038-15 ")
 ;;1091
 ;;21,"66267-0039-12 ")
 ;;791
 ;;21,"66267-0039-30 ")
 ;;792
 ;;21,"66267-0039-60 ")
 ;;793
 ;;21,"66267-0039-90 ")
 ;;794
 ;;21,"66267-0084-30 ")
 ;;1170
 ;;21,"66267-0266-30 ")
 ;;1449
 ;;21,"66267-0560-90 ")
 ;;499
 ;;21,"66267-0680-30 ")
 ;;1250
 ;;21,"66267-0723-30 ")
 ;;1740
 ;;21,"66267-1006-00 ")
 ;;279
 ;;21,"66336-0027-30 ")
 ;;280
 ;;21,"66336-0027-60 ")
 ;;281
 ;;21,"66336-0027-62 ")
 ;;282
 ;;21,"66336-0027-90 ")
 ;;283
 ;;21,"66336-0027-94 ")
 ;;284
 ;;21,"66336-0056-30 ")
 ;;1766
 ;;21,"66336-0056-60 ")
 ;;1767
 ;;21,"66336-0102-30 ")
 ;;1845
 ;;21,"66336-0224-30 ")
 ;;497
 ;;21,"66336-0224-60 ")
 ;;498
 ;;21,"66336-0231-90 ")
 ;;873
 ;;21,"66336-0314-30 ")
 ;;1079
 ;;21,"66336-0314-90 ")
 ;;1080
 ;;21,"66336-0354-30 ")
 ;;83
 ;;21,"66336-0354-60 ")
 ;;84
 ;;21,"66336-0354-62 ")
 ;;85
 ;;21,"66336-0354-90 ")
 ;;86
 ;;21,"66336-0460-03 ")
 ;;1928
 ;;21,"66336-0460-10 ")
 ;;1929
 ;;21,"66336-0460-20 ")
 ;;1930
 ;;21,"66336-0460-30 ")
 ;;1931
 ;;21,"66336-0460-60 ")
 ;;1932
 ;;21,"66336-0553-30 ")
 ;;1171
 ;;21,"66336-0553-40 ")
 ;;1172
 ;;21,"66336-0619-30 ")
 ;;795
 ;;21,"66336-0673-30 ")
 ;;323
 ;;21,"66336-0673-50 ")
 ;;324
 ;;21,"66336-0673-60 ")
 ;;325
 ;;21,"66336-0673-90 ")
 ;;326
 ;;21,"66336-0703-30 ")
 ;;797
 ;;21,"66336-0703-60 ")
 ;;798
 ;;21,"66336-0703-90 ")
 ;;799
 ;;21,"66336-0703-94 ")
 ;;800
 ;;21,"66336-0718-02 ")
 ;;2198
 ;;21,"66336-0718-10 ")
 ;;2199
 ;;21,"66336-0718-15 ")
 ;;2200
 ;;21,"66336-0718-30 ")
 ;;2201
 ;;21,"66336-0718-60 ")
 ;;2202
 ;;21,"66336-0718-90 ")
 ;;2203
 ;;21,"66336-0791-30 ")
 ;;2592
 ;;21,"66647-2051-11 ")
 ;;1555
 ;;21,"66647-4340-20 ")
 ;;1558
 ;;21,"66647-4340-50 ")
 ;;1559
 ;;21,"66993-0716-02 ")
 ;;2197
 ;;21,"67544-0009-07 ")
 ;;1904
 ;;21,"67544-0009-14 ")
 ;;1905
 ;;21,"67544-0009-15 ")
 ;;1906
 ;;21,"67544-0009-20 ")
 ;;1907
 ;;21,"67544-0009-30 ")
 ;;1908
 ;;21,"67544-0009-53 ")
 ;;1909
 ;;21,"67544-0010-07 ")
 ;;2188
 ;;21,"67544-0010-10 ")
 ;;2189
 ;;21,"67544-0010-15 ")
 ;;2190
 ;;21,"67544-0010-20 ")
 ;;2191
 ;;21,"67544-0010-21 ")
 ;;2192
 ;;21,"67544-0010-30 ")
 ;;2193
 ;;21,"67544-0010-45 ")
 ;;2194
 ;;21,"67544-0010-53 ")
 ;;2195
 ;;21,"67544-0010-60 ")
 ;;2196
 ;;21,"67544-0011-30 ")
 ;;983
 ;;21,"67544-0011-50 ")
 ;;984
 ;;21,"67544-0011-53 ")
 ;;985
 ;;21,"67544-0011-60 ")
 ;;986
 ;;21,"67544-0011-70 ")
 ;;987
 ;;21,"67544-0031-30 ")
 ;;1683
 ;;21,"67544-0057-30 ")
 ;;1658
 ;;21,"67544-0057-53 ")
 ;;1659
 ;;21,"67544-0057-60 ")
 ;;1660
 ;;21,"67544-0057-70 ")
 ;;1661
 ;;21,"67544-0057-75 ")
 ;;1662
 ;;21,"67544-0057-80 ")
 ;;1663
 ;;21,"67544-0057-92 ")
 ;;1664
 ;;21,"67544-0057-94 ")
 ;;1665
 ;;21,"67544-0085-30 ")
 ;;273
 ;;21,"67544-0085-53 ")
 ;;274
 ;;21,"67544-0085-60 ")
 ;;275
 ;;21,"67544-0085-70 ")
 ;;276
 ;;21,"67544-0085-75 ")
 ;;277
 ;;21,"67544-0085-80 ")
 ;;278
 ;;21,"67544-0121-30 ")
 ;;1644
 ;;21,"67544-0121-53 ")
 ;;1645
 ;;21,"67544-0121-60 ")
 ;;1646
 ;;21,"67544-0121-70 ")
 ;;1647
 ;;21,"67544-0121-75 ")
 ;;1648
 ;;21,"67544-0139-30 ")
 ;;813
 ;;21,"67544-0139-53 ")
 ;;814
 ;;21,"67544-0139-60 ")
 ;;815
 ;;21,"67544-0139-70 ")
 ;;816
 ;;21,"67544-0206-30 ")
 ;;87
 ;;21,"67544-0206-60 ")
 ;;88
 ;;21,"67544-0253-30 ")
 ;;327
 ;;21,"67544-0253-53 ")
 ;;328
 ;;21,"67544-0253-60 ")
 ;;329
 ;;21,"67544-0253-70 ")
 ;;330
 ;;21,"67544-0267-30 ")
 ;;1686
 ;;21,"67544-0343-30 ")
 ;;801
 ;;21,"67544-0343-53 ")
 ;;802
 ;;21,"67544-0343-60 ")
 ;;803
 ;;21,"67544-0343-70 ")
 ;;804
 ;;21,"67544-0383-30 ")
 ;;805
 ;;21,"67544-0383-53 ")
 ;;806
 ;;21,"67544-0383-60 ")
 ;;807
 ;;21,"67544-0383-70 ")
 ;;808
 ;;21,"67544-0394-30 ")
 ;;809
 ;;21,"67544-0394-53 ")
 ;;810
 ;;21,"67544-0394-60 ")
 ;;811
 ;;21,"67544-0394-70 ")
 ;;812
 ;;21,"67544-0759-53 ")
 ;;1682
 ;;21,"67544-0996-10 ")
 ;;2220
 ;;21,"67544-0996-14 ")
 ;;2221
 ;;21,"67544-0996-15 ")
 ;;2222
 ;;21,"67544-0996-20 ")
 ;;2223
 ;;21,"67544-0996-21 ")
 ;;2224
 ;;21,"67544-0996-28 ")
 ;;2225
 ;;21,"67544-0996-30 ")
 ;;2226
 ;;21,"67544-0996-40 ")
 ;;2227
 ;;21,"67544-0996-45 ")
 ;;2228
 ;;21,"67544-0996-53 ")
 ;;2229
 ;;21,"67544-0996-59 ")
 ;;2230
 ;;21,"67544-0996-60 ")
 ;;2231
 ;;21,"67544-0996-62 ")
 ;;2232
 ;;21,"67544-1000-30 ")
 ;;1912
 ;;21,"67544-1002-07 ")
 ;;1913
 ;;21,"67544-1002-14 ")
 ;;1914
 ;;21,"67544-1015-07 ")
 ;;2210
 ;;21,"67544-1015-10 ")
 ;;2211
 ;;21,"67544-1015-15 ")
 ;;2212
 ;;21,"67544-1015-20 ")
 ;;2213
 ;;21,"67544-1015-21 ")
 ;;2214
 ;;21,"67544-1015-30 ")
 ;;2215
 ;;21,"67544-1015-53 ")
 ;;2216
 ;;21,"67544-1027-07 ")
 ;;1915
 ;;21,"67544-1027-14 ")
 ;;1916
 ;;21,"67544-1027-15 ")
 ;;1917
 ;;21,"67544-1027-30 ")
 ;;1918
 ;;21,"67544-1045-30 ")
 ;;981
 ;;21,"67544-1045-53 ")
 ;;982
 ;;21,"67544-1141-30 ")
 ;;2209
 ;;21,"67544-1184-30 ")
 ;;1910
 ;;21,"67544-1201-30 ")
 ;;1911
 ;;21,"67544-1202-15 ")
 ;;2217
 ;;21,"67544-1202-30 ")
 ;;2218
 ;;21,"67544-1202-53 ")
 ;;2219
 ;;21,"67877-0210-01 ")
 ;;1773
 ;;21,"67877-0211-01 ")
 ;;1837
 ;;21,"68032-0395-16 ")
 ;;1624
 ;;21,"68071-0304-30 ")
 ;;1339
 ;;21,"68071-0305-30 ")
 ;;1382
 ;;21,"68071-0361-30 ")
 ;;2557
 ;;21,"68071-0414-30 ")
 ;;1796
 ;;21,"68071-0421-30 ")
 ;;611
 ;;21,"68071-0421-60 ")
 ;;612
 ;;21,"68071-0421-90 ")
 ;;613
 ;;21,"68071-0553-30 ")
 ;;877
 ;;21,"68071-0698-10 ")
 ;;2204
 ;;21,"68071-0698-14 ")
 ;;2205
 ;;21,"68071-0698-20 ")
 ;;2206
 ;;21,"68071-0698-30 ")
 ;;2207
 ;;21,"68071-0698-60 ")
 ;;2208
 ;;21,"68071-0703-14 ")
 ;;1919
 ;;21,"68071-0703-30 ")
 ;;1920
 ;;21,"68071-0703-45 ")
 ;;1921
 ;;21,"68071-0703-60 ")
 ;;1922
 ;;21,"68071-0788-30 ")
 ;;1772
 ;;21,"68071-0789-30 ")
 ;;1836
 ;;21,"68071-2007-03 ")
 ;;1838
 ;;21,"68071-2007-06 ")
 ;;1839
 ;;21,"68084-0189-01 ")
 ;;1925
 ;;21,"68084-0200-01 ")
 ;;2233
 ;;21,"68084-0225-01 ")
 ;;1923
 ;;21,"68084-0225-11 ")
 ;;1924
 ;;21,"68084-0226-01 ")
 ;;2234
 ;;21,"68084-0226-11 ")
 ;;2235
 ;;21,"68084-0396-01 ")
 ;;817
 ;;21,"68084-0396-11 ")
 ;;818
 ;;21,"68084-0523-11 ")
 ;;2610
 ;;21,"68084-0523-21 ")
 ;;2611
 ;;21,"68180-0311-01 ")
 ;;1442
 ;;21,"68180-0312-01 ")
 ;;1466
 ;;21,"68180-0313-01 ")
 ;;1520
 ;;21,"68180-0314-06 ")
 ;;1525
 ;;21,"68180-0315-06 ")
 ;;1531
 ;;21,"68180-0316-06 ")
 ;;1535
 ;;21,"68180-0317-06 ")
 ;;1539
 ;;21,"68180-0322-01 ")
 ;;1310
 ;;21,"68180-0323-01 ")
 ;;1328
 ;;21,"68180-0324-01 ")
 ;;1369
 ;;21,"68180-0779-01 ")
 ;;2523
 ;;21,"68180-0780-01 ")
 ;;2609
 ;;21,"68258-2012-03 ")
 ;;1026
 ;;21,"68258-2012-09 ")
 ;;1027
 ;;21,"68258-4993-01 ")
 ;;1607
 ;;21,"68258-7048-03 ")
 ;;1360
 ;;21,"68258-7049-03 ")
 ;;1409
 ;;21,"68258-7083-01 ")
 ;;2518
 ;;21,"68258-7083-02 ")
 ;;2519
 ;;21,"68258-7083-03 ")
 ;;2520
 ;;21,"68258-7083-06 ")
 ;;2521
 ;;21,"68258-7119-03 ")
 ;;471
 ;;21,"68258-7119-09 ")
 ;;472
 ;;21,"68258-7125-06 ")
 ;;1467
 ;;21,"68258-7143-03 ")
 ;;1136
 ;;21,"68258-7145-03 ")
 ;;2480
 ;;21,"68258-7160-03 ")
 ;;568
 ;;21,"68308-0219-01 ")
 ;;647
 ;;21,"68308-0220-01 ")
 ;;843
 ;;21,"68308-0554-10 ")
 ;;649
 ;;21,"68387-0335-15 ")
 ;;217
 ;;21,"68387-0335-24 ")
 ;;218
 ;;21,"68387-0335-30 ")
 ;;219
 ;;21,"68387-0335-60 ")
 ;;220
 ;;21,"68387-0335-90 ")
 ;;221
 ;;21,"68387-0336-30 ")
 ;;40
 ;;21,"68387-0336-90 ")
 ;;41
 ;;21,"68387-0337-24 ")
 ;;366
 ;;21,"68387-0337-30 ")
 ;;367
 ;;21,"68387-0338-30 ")
 ;;470
 ;;21,"68387-0339-30 ")
 ;;522
 ;;21,"68387-0485-15 ")
 ;;2122
 ;;21,"68387-0485-30 ")
 ;;2123
 ;;21,"68387-0486-15 ")
 ;;2524
 ;;21,"68387-0486-30 ")
 ;;2525
 ;;21,"68387-0487-30 ")
 ;;1410
 ;;21,"68387-0520-12 ")
 ;;697
 ;;21,"68387-0520-20 ")
 ;;698
 ;;21,"68387-0520-30 ")
 ;;699
 ;;21,"68387-0520-60 ")
 ;;700
 ;;21,"68387-0520-90 ")
 ;;701
 ;;21,"68405-0023-26 ")
 ;;2618
 ;;21,"68405-0044-26 ")
 ;;2617
 ;;21,"68405-0053-26 ")
 ;;580
 ;;21,"68453-0170-10 ")
 ;;652
 ;;21,"68462-0279-01 ")
 ;;2048
 ;;21,"68462-0279-05 ")
 ;;2049
 ;;21,"68462-0280-01 ")
 ;;2440
 ;;21,"68462-0280-05 ")
 ;;2441
 ;;21,"68462-0382-01 ")
 ;;1309
 ;;21,"68462-0383-01 ")
 ;;1329
 ;;21,"68462-0384-01 ")
 ;;1368
 ;;21,"68645-0230-59 ")
 ;;1598
 ;;21,"76478-0501-20 ")
 ;;1556
 ;;21,"76478-0501-50 ")
 ;;1557
 ;;9002226,730,.01)
 ;;BGP HEDIS CENTRAL NERVOUS NDC
 ;;9002226,730,.02)
 ;;@
 ;;9002226,730,.04)
 ;;n
 ;;9002226,730,.06)
 ;;@
 ;;9002226,730,.08)
 ;;@
 ;;9002226,730,.09)
 ;;3140819
 ;;9002226,730,.11)
 ;;@
 ;;9002226,730,.12)
 ;;@
 ;;9002226,730,.13)
 ;;1
 ;;9002226,730,.14)
 ;;@
 ;;9002226,730,.15)
 ;;50.67
 ;;9002226,730,.16)
 ;;@
 ;;9002226,730,.17)
 ;;@
 ;;9002226,730,3101)
 ;;@
 ;;9002226.02101,"730,00024-5401-31 ",.01)
 ;;00024-5401-31
 ;;9002226.02101,"730,00024-5401-31 ",.02)
 ;;00024-5401-31
 ;;9002226.02101,"730,00024-5401-50 ",.01)
 ;;00024-5401-50
 ;;9002226.02101,"730,00024-5401-50 ",.02)
 ;;00024-5401-50
 ;;9002226.02101,"730,00024-5421-31 ",.01)
 ;;00024-5421-31
 ;;9002226.02101,"730,00024-5421-31 ",.02)
 ;;00024-5421-31
 ;;9002226.02101,"730,00024-5421-50 ",.01)
 ;;00024-5421-50
 ;;9002226.02101,"730,00024-5421-50 ",.02)
 ;;00024-5421-50
 ;;9002226.02101,"730,00024-5501-10 ",.01)
 ;;00024-5501-10
 ;;9002226.02101,"730,00024-5501-10 ",.02)
 ;;00024-5501-10
 ;;9002226.02101,"730,00024-5501-31 ",.01)
 ;;00024-5501-31
 ;;9002226.02101,"730,00024-5501-31 ",.02)
 ;;00024-5501-31
 ;;9002226.02101,"730,00024-5501-50 ",.01)
 ;;00024-5501-50
 ;;9002226.02101,"730,00024-5501-50 ",.02)
 ;;00024-5501-50
 ;;9002226.02101,"730,00024-5521-10 ",.01)
 ;;00024-5521-10
 ;;9002226.02101,"730,00024-5521-10 ",.02)
 ;;00024-5521-10
 ;;9002226.02101,"730,00024-5521-31 ",.01)
 ;;00024-5521-31
 ;;9002226.02101,"730,00024-5521-31 ",.02)
 ;;00024-5521-31
 ;;9002226.02101,"730,00024-5521-34 ",.01)
 ;;00024-5521-34
 ;;9002226.02101,"730,00024-5521-34 ",.02)
 ;;00024-5521-34
 ;;9002226.02101,"730,00024-5521-50 ",.01)
 ;;00024-5521-50
 ;;9002226.02101,"730,00024-5521-50 ",.02)
 ;;00024-5521-50
 ;;9002226.02101,"730,00037-0110-16 ",.01)
 ;;00037-0110-16
 ;;9002226.02101,"730,00037-0110-16 ",.02)
 ;;00037-0110-16
 ;;9002226.02101,"730,00037-0113-60 ",.01)
 ;;00037-0113-60
 ;;9002226.02101,"730,00037-0113-60 ",.02)
 ;;00037-0113-60
 ;;9002226.02101,"730,00037-0114-60 ",.01)
 ;;00037-0114-60
 ;;9002226.02101,"730,00037-0114-60 ",.02)
 ;;00037-0114-60
 ;;9002226.02101,"730,00037-6010-30 ",.01)
 ;;00037-6010-30
 ;;9002226.02101,"730,00037-6010-30 ",.02)
 ;;00037-6010-30
 ;;9002226.02101,"730,00037-6050-30 ",.01)
 ;;00037-6050-30
 ;;9002226.02101,"730,00037-6050-30 ",.02)
 ;;00037-6050-30
 ;;9002226.02101,"730,00054-0084-25 ",.01)
 ;;00054-0084-25
 ;;9002226.02101,"730,00054-0084-25 ",.02)
 ;;00054-0084-25
 ;;9002226.02101,"730,00054-0085-25 ",.01)
 ;;00054-0085-25
 ;;9002226.02101,"730,00054-0085-25 ",.02)
 ;;00054-0085-25
 ;;9002226.02101,"730,00054-0086-25 ",.01)
 ;;00054-0086-25
 ;;9002226.02101,"730,00054-0086-25 ",.02)
 ;;00054-0086-25
 ;;9002226.02101,"730,00054-0086-29 ",.01)
 ;;00054-0086-29
 ;;9002226.02101,"730,00054-0086-29 ",.02)
 ;;00054-0086-29
 ;;9002226.02101,"730,00054-0087-25 ",.01)
 ;;00054-0087-25
 ;;9002226.02101,"730,00054-0087-25 ",.02)
 ;;00054-0087-25
 ;;9002226.02101,"730,00054-0087-29 ",.01)
 ;;00054-0087-29
 ;;9002226.02101,"730,00054-0087-29 ",.02)
 ;;00054-0087-29
 ;;9002226.02101,"730,00054-0273-13 ",.01)
 ;;00054-0273-13
 ;;9002226.02101,"730,00054-0273-13 ",.02)
 ;;00054-0273-13
 ;;9002226.02101,"730,00054-0274-13 ",.01)
 ;;00054-0274-13
 ;;9002226.02101,"730,00054-0274-13 ",.02)
 ;;00054-0274-13
 ;;9002226.02101,"730,00054-0275-13 ",.01)
 ;;00054-0275-13
 ;;9002226.02101,"730,00054-0275-13 ",.02)
 ;;00054-0275-13
 ;;9002226.02101,"730,00054-0276-13 ",.01)
 ;;00054-0276-13
 ;;9002226.02101,"730,00054-0276-13 ",.02)
 ;;00054-0276-13
 ;;9002226.02101,"730,00054-0290-13 ",.01)
 ;;00054-0290-13