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

BGP7LXLE.m

Go to the documentation of this file.
BGP7LXLE ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 29, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"60429-0118-40 ")
 ;;726
 ;;21,"60429-0118-90 ")
 ;;727
 ;;21,"60429-0119-90 ")
 ;;889
 ;;21,"60760-0062-30 ")
 ;;1064
 ;;21,"60760-0062-45 ")
 ;;1065
 ;;21,"60760-0062-90 ")
 ;;1066
 ;;21,"60760-0110-20 ")
 ;;431
 ;;21,"60760-0110-30 ")
 ;;1509
 ;;21,"60760-0110-40 ")
 ;;432
 ;;21,"60760-0110-60 ")
 ;;1510
 ;;21,"60760-0110-90 ")
 ;;1511
 ;;21,"60760-0110-92 ")
 ;;1512
 ;;21,"60760-0136-30 ")
 ;;1421
 ;;21,"60760-0290-30 ")
 ;;728
 ;;21,"60760-0347-40 ")
 ;;890
 ;;21,"60760-0418-20 ")
 ;;180
 ;;21,"60760-0418-30 ")
 ;;181
 ;;21,"60760-0418-60 ")
 ;;182
 ;;21,"60760-0810-30 ")
 ;;1293
 ;;21,"60793-0135-01 ")
 ;;1067
 ;;21,"60793-0136-01 ")
 ;;1100
 ;;21,"60793-0136-05 ")
 ;;1101
 ;;21,"60951-0767-70 ")
 ;;183
 ;;21,"60951-0767-90 ")
 ;;184
 ;;21,"60977-0150-01 ")
 ;;616
 ;;21,"61392-0711-30 ")
 ;;433
 ;;21,"61392-0711-31 ")
 ;;434
 ;;21,"61392-0711-32 ")
 ;;435
 ;;21,"61392-0711-39 ")
 ;;436
 ;;21,"61392-0711-45 ")
 ;;437
 ;;21,"61392-0711-51 ")
 ;;438
 ;;21,"61392-0711-54 ")
 ;;439
 ;;21,"61392-0711-60 ")
 ;;440
 ;;21,"61392-0711-90 ")
 ;;441
 ;;21,"61392-0711-91 ")
 ;;442
 ;;21,"61392-0716-30 ")
 ;;185
 ;;21,"61392-0716-31 ")
 ;;186
 ;;21,"61392-0716-32 ")
 ;;187
 ;;21,"61392-0716-39 ")
 ;;188
 ;;21,"61392-0716-45 ")
 ;;189
 ;;21,"61392-0716-51 ")
 ;;190
 ;;21,"61392-0716-54 ")
 ;;191
 ;;21,"61392-0716-60 ")
 ;;192
 ;;21,"61392-0716-90 ")
 ;;193
 ;;21,"61392-0716-91 ")
 ;;194
 ;;21,"61392-0739-30 ")
 ;;729
 ;;21,"61392-0739-31 ")
 ;;730
 ;;21,"61392-0739-32 ")
 ;;731
 ;;21,"61392-0739-39 ")
 ;;732
 ;;21,"61392-0739-45 ")
 ;;733
 ;;21,"61392-0739-51 ")
 ;;734
 ;;21,"61392-0739-54 ")
 ;;735
 ;;21,"61392-0739-60 ")
 ;;736
 ;;21,"61392-0739-90 ")
 ;;737
 ;;21,"61392-0739-91 ")
 ;;738
 ;;21,"61392-0740-30 ")
 ;;891
 ;;21,"61392-0740-31 ")
 ;;892
 ;;21,"61392-0740-32 ")
 ;;893
 ;;21,"61392-0740-39 ")
 ;;894
 ;;21,"61392-0740-45 ")
 ;;895
 ;;21,"61392-0740-51 ")
 ;;896
 ;;21,"61392-0740-54 ")
 ;;897
 ;;21,"61392-0740-60 ")
 ;;898
 ;;21,"61392-0740-90 ")
 ;;899
 ;;21,"61392-0740-91 ")
 ;;900
 ;;21,"62269-0265-24 ")
 ;;1216
 ;;21,"62269-0266-24 ")
 ;;1217
 ;;21,"62269-0266-29 ")
 ;;1218
 ;;21,"62269-0336-24 ")
 ;;1003
 ;;21,"62584-0354-01 ")
 ;;195
 ;;21,"62584-0354-33 ")
 ;;1702
 ;;21,"62584-0644-01 ")
 ;;1513
 ;;21,"62584-0780-01 ")
 ;;739
 ;;21,"62584-0781-01 ")
 ;;901
 ;;21,"63304-0788-05 ")
 ;;1514
 ;;21,"63304-0788-10 ")
 ;;1515
 ;;21,"63739-0049-15 ")
 ;;443
 ;;21,"63739-0066-01 ")
 ;;196
 ;;21,"63739-0066-02 ")
 ;;1703
 ;;21,"63739-0066-03 ")
 ;;197
 ;;21,"63739-0066-15 ")
 ;;198
 ;;21,"63739-0166-15 ")
 ;;740
 ;;21,"63739-0167-15 ")
 ;;902
 ;;21,"63874-0315-01 ")
 ;;199
 ;;21,"63874-0315-02 ")
 ;;200
 ;;21,"63874-0315-04 ")
 ;;1822
 ;;21,"63874-0315-05 ")
 ;;1823
 ;;21,"63874-0315-07 ")
 ;;1824
 ;;21,"63874-0315-10 ")
 ;;1825
 ;;21,"63874-0315-12 ")
 ;;1826
 ;;21,"63874-0315-14 ")
 ;;1827
 ;;21,"63874-0315-15 ")
 ;;201
 ;;21,"63874-0315-18 ")
 ;;1828
 ;;21,"63874-0315-20 ")
 ;;202
 ;;21,"63874-0315-21 ")
 ;;1829
 ;;21,"63874-0315-24 ")
 ;;1830
 ;;21,"63874-0315-25 ")
 ;;1831
 ;;21,"63874-0315-28 ")
 ;;1832
 ;;21,"63874-0315-30 ")
 ;;203
 ;;21,"63874-0315-35 ")
 ;;1833
 ;;21,"63874-0315-40 ")
 ;;1834
 ;;21,"63874-0315-42 ")
 ;;1835
 ;;21,"63874-0315-45 ")
 ;;1836
 ;;21,"63874-0315-50 ")
 ;;1837
 ;;21,"63874-0315-56 ")
 ;;1838
 ;;21,"63874-0315-60 ")
 ;;204
 ;;21,"63874-0315-75 ")
 ;;1839
 ;;21,"63874-0315-76 ")
 ;;1840
 ;;21,"63874-0315-80 ")
 ;;1841
 ;;21,"63874-0315-90 ")
 ;;1842
 ;;21,"63874-0330-01 ")
 ;;1843
 ;;21,"63874-0330-02 ")
 ;;1844
 ;;21,"63874-0330-03 ")
 ;;1845
 ;;21,"63874-0330-04 ")
 ;;1846
 ;;21,"63874-0330-05 ")
 ;;1847
 ;;21,"63874-0330-07 ")
 ;;1848
 ;;21,"63874-0330-10 ")
 ;;1849
 ;;21,"63874-0330-11 ")
 ;;1850
 ;;21,"63874-0330-12 ")
 ;;1851
 ;;21,"63874-0330-14 ")
 ;;1852
 ;;21,"63874-0330-15 ")
 ;;444
 ;;21,"63874-0330-16 ")
 ;;1853
 ;;21,"63874-0330-18 ")
 ;;1854
 ;;21,"63874-0330-20 ")
 ;;445
 ;;21,"63874-0330-21 ")
 ;;1855
 ;;21,"63874-0330-24 ")
 ;;1856
 ;;21,"63874-0330-25 ")
 ;;1857
 ;;21,"63874-0330-28 ")
 ;;1858
 ;;21,"63874-0330-30 ")
 ;;446
 ;;21,"63874-0330-40 ")
 ;;1859
 ;;21,"63874-0330-42 ")
 ;;1860
 ;;21,"63874-0330-45 ")
 ;;1861
 ;;21,"63874-0330-50 ")
 ;;447
 ;;21,"63874-0330-56 ")
 ;;1862
 ;;21,"63874-0330-60 ")
 ;;1863
 ;;21,"63874-0330-72 ")
 ;;1864
 ;;21,"63874-0330-74 ")
 ;;1865
 ;;21,"63874-0330-75 ")
 ;;1866
 ;;21,"63874-0330-77 ")
 ;;1867
 ;;21,"63874-0330-80 ")
 ;;1868
 ;;21,"63874-0330-84 ")
 ;;1869
 ;;21,"63874-0330-90 ")
 ;;1870
 ;;21,"63874-0371-01 ")
 ;;741
 ;;21,"63874-0371-03 ")
 ;;1871
 ;;21,"63874-0371-04 ")
 ;;1872
 ;;21,"63874-0371-12 ")
 ;;1873
 ;;21,"63874-0371-14 ")
 ;;1874
 ;;21,"63874-0371-15 ")
 ;;1875
 ;;21,"63874-0371-20 ")
 ;;742
 ;;21,"63874-0371-24 ")
 ;;1876
 ;;21,"63874-0371-30 ")
 ;;1877
 ;;21,"63874-0371-40 ")
 ;;743
 ;;21,"63874-0371-50 ")
 ;;744
 ;;21,"63874-0371-60 ")
 ;;1878
 ;;21,"63874-0371-73 ")
 ;;1879
 ;;21,"63874-0371-84 ")
 ;;1880
 ;;21,"63874-0372-01 ")
 ;;903
 ;;21,"63874-0372-03 ")
 ;;1881
 ;;21,"63874-0372-04 ")
 ;;1882
 ;;21,"63874-0372-08 ")
 ;;1883
 ;;21,"63874-0372-10 ")
 ;;1884
 ;;21,"63874-0372-12 ")
 ;;1885
 ;;21,"63874-0372-14 ")
 ;;1886
 ;;21,"63874-0372-15 ")
 ;;1887
 ;;21,"63874-0372-20 ")
 ;;904
 ;;21,"63874-0372-21 ")
 ;;1888
 ;;21,"63874-0372-24 ")
 ;;1889
 ;;21,"63874-0372-28 ")
 ;;1890
 ;;21,"63874-0372-30 ")
 ;;905
 ;;21,"63874-0372-40 ")
 ;;906
 ;;21,"63874-0372-42 ")
 ;;1891
 ;;21,"63874-0372-50 ")
 ;;907
 ;;21,"63874-0372-56 ")
 ;;1892
 ;;21,"63874-0372-60 ")
 ;;1893
 ;;21,"63874-0372-90 ")
 ;;1894
 ;;21,"63874-0419-01 ")
 ;;582
 ;;21,"63874-0419-20 ")
 ;;583
 ;;21,"63874-0419-21 ")
 ;;584
 ;;21,"63874-0419-28 ")
 ;;585
 ;;21,"63874-0419-30 ")
 ;;586
 ;;21,"63874-0419-40 ")
 ;;587
 ;;21,"63874-0419-50 ")
 ;;588
 ;;21,"63874-0531-10 ")
 ;;1895
 ;;21,"63874-0531-14 ")
 ;;1896
 ;;21,"63874-0531-30 ")
 ;;1897
 ;;21,"63874-0531-40 ")
 ;;1898
 ;;21,"66116-0141-30 ")
 ;;1704
 ;;21,"66116-0224-30 ")
 ;;1516
 ;;21,"66116-0607-20 ")
 ;;1294
 ;;21,"66116-0613-20 ")
 ;;1517
 ;;21,"66116-0624-20 ")
 ;;1295
 ;;21,"66116-0627-30 ")
 ;;1518
 ;;21,"66116-0628-15 ")
 ;;1705
 ;;21,"66116-0629-30 ")
 ;;1706
 ;;21,"66116-0631-30 ")
 ;;1296
 ;;21,"66116-0701-20 ")
 ;;1297
 ;;21,"66267-0042-12 ")
 ;;448
 ;;21,"66267-0042-15 ")
 ;;449
 ;;21,"66267-0042-20 ")
 ;;450
 ;;21,"66267-0042-30 ")
 ;;451
 ;;21,"66267-0042-40 ")
 ;;452
 ;;21,"66267-0042-60 ")
 ;;453
 ;;21,"66267-0042-90 ")
 ;;454
 ;;21,"66267-0042-91 ")
 ;;455
 ;;21,"66267-0043-12 ")
 ;;456
 ;;21,"66267-0043-15 ")
 ;;457
 ;;21,"66267-0043-20 ")
 ;;458
 ;;21,"66267-0043-30 ")
 ;;459
 ;;21,"66267-0043-40 ")
 ;;460
 ;;21,"66267-0043-42 ")
 ;;1519
 ;;21,"66267-0043-60 ")
 ;;461
 ;;21,"66267-0043-84 ")
 ;;1520
 ;;21,"66267-0043-90 ")
 ;;462
 ;;21,"66267-0043-91 ")
 ;;463
 ;;21,"66267-0055-20 ")
 ;;589
 ;;21,"66267-0055-30 ")
 ;;590
 ;;21,"66267-0055-40 ")
 ;;591
 ;;21,"66267-0055-91 ")
 ;;1298
 ;;21,"66267-0064-10 ")
 ;;205
 ;;21,"66267-0064-15 ")
 ;;206
 ;;21,"66267-0064-20 ")
 ;;207
 ;;21,"66267-0064-30 ")
 ;;208
 ;;21,"66267-0064-40 ")
 ;;209
 ;;21,"66267-0064-45 ")
 ;;1899
 ;;21,"66267-0064-60 ")
 ;;210
 ;;21,"66267-0064-87 ")
 ;;1707
 ;;21,"66267-0064-90 ")
 ;;211
 ;;21,"66267-0064-91 ")
 ;;1708
 ;;21,"66267-0145-20 ")
 ;;745
 ;;21,"66267-0145-30 ")
 ;;746
 ;;21,"66267-0145-40 ")
 ;;747
 ;;21,"66267-0145-60 ")
 ;;748
 ;;21,"66267-0145-90 ")
 ;;749
 ;;21,"66267-0146-12 ")
 ;;908
 ;;21,"66267-0146-20 ")
 ;;909
 ;;21,"66267-0146-30 ")
 ;;910
 ;;21,"66267-0146-40 ")
 ;;911
 ;;21,"66267-0146-60 ")
 ;;912
 ;;21,"66267-0157-14 ")
 ;;1004
 ;;21,"66267-0157-20 ")
 ;;1005
 ;;21,"66267-0158-14 ")
 ;;1299
 ;;21,"66267-0158-15 ")
 ;;1006
 ;;21,"66267-0158-20 ")
 ;;1300
 ;;21,"66267-0158-30 ")
 ;;1007
 ;;21,"66267-0158-60 ")
 ;;1008
 ;;21,"66267-0193-07 ")
 ;;1068
 ;;21,"66267-0193-10 ")
 ;;1069
 ;;21,"66267-0193-14 ")
 ;;1070
 ;;21,"66267-0193-20 ")
 ;;1071
 ;;21,"66267-0193-28 ")
 ;;1072
 ;;21,"66267-0193-30 ")
 ;;1073
 ;;21,"66267-0193-40 ")
 ;;1074
 ;;21,"66267-0611-08 ")
 ;;1102
 ;;21,"66267-0611-15 ")
 ;;1103
 ;;21,"66267-0611-20 ")
 ;;1104
 ;;21,"66267-0611-21 ")
 ;;1105
 ;;21,"66267-0611-30 ")
 ;;1106
 ;;21,"66267-0611-40 ")
 ;;1107
 ;;21,"66267-0611-42 ")
 ;;1108
 ;;21,"66336-0581-15 ")
 ;;212
 ;;21,"66336-0581-20 ")
 ;;213
 ;;21,"66336-0581-30 ")
 ;;214
 ;;21,"68030-0039-02 ")
 ;;1301
 ;;21,"68030-0039-03 ")
 ;;1302
 ;;21,"68030-0111-01 ")
 ;;1709
 ;;21,"68030-0111-02 ")
 ;;1710
 ;;21,"68030-0111-04 ")
 ;;1711
 ;;21,"68030-3435-01 ")
 ;;1521
 ;;21,"68030-3435-03 ")
 ;;1522
 ;;21,"68030-3444-01 ")
 ;;1303
 ;;21,"68030-3444-08 ")
 ;;1304
 ;;21,"68030-3444-09 ")
 ;;1305
 ;;21,"68030-4637-02 ")
 ;;1306
 ;;21,"68030-4637-04 ")
 ;;1307
 ;;21,"68030-4637-05 ")
 ;;1308
 ;;21,"68030-4842-00 ")
 ;;1712
 ;;21,"68030-4842-01 ")
 ;;1713
 ;;21,"68030-4842-05 ")
 ;;1714
 ;;21,"68030-6048-01 ")
 ;;1309
 ;;21,"68030-6058-01 ")
 ;;1310
 ;;21,"68115-0063-00 ")
 ;;464
 ;;21,"68115-0063-12 ")
 ;;465
 ;;21,"68115-0063-15 ")
 ;;466
 ;;21,"68115-0063-20 ")
 ;;467
 ;;21,"68115-0063-28 ")
 ;;468
 ;;21,"68115-0063-30 ")
 ;;469
 ;;21,"68115-0063-40 ")
 ;;470
 ;;21,"68115-0063-45 ")
 ;;471
 ;;21,"68115-0063-50 ")
 ;;1900
 ;;21,"68115-0063-56 ")
 ;;1901
 ;;21,"68115-0063-60 ")
 ;;472
 ;;21,"68115-0063-90 ")
 ;;473
 ;;21,"68115-0063-96 ")
 ;;474
 ;;21,"68115-0063-99 ")
 ;;475
 ;;21,"68115-0077-00 ")
 ;;592
 ;;21,"68115-0077-15 ")
 ;;593
 ;;21,"68115-0077-20 ")
 ;;1311
 ;;21,"68115-0077-30 ")
 ;;594
 ;;21,"68115-0077-40 ")
 ;;595
 ;;21,"68115-0077-60 ")
 ;;596
 ;;21,"68115-0077-90 ")
 ;;597
 ;;21,"68115-0095-12 ")
 ;;215
 ;;21,"68115-0095-15 ")
 ;;216
 ;;21,"68115-0095-20 ")
 ;;217
 ;;21,"68115-0095-30 ")
 ;;218
 ;;21,"68115-0095-40 ")
 ;;219
 ;;21,"68115-0095-45 ")
 ;;220
 ;;21,"68115-0095-60 ")
 ;;221
 ;;21,"68115-0095-90 ")
 ;;222
 ;;21,"68115-0095-99 ")
 ;;223
 ;;21,"68115-0234-20 ")
 ;;750
 ;;21,"68115-0234-30 ")
 ;;751
 ;;21,"68115-0234-40 ")
 ;;752
 ;;21,"68115-0234-60 ")
 ;;753
 ;;21,"68115-0235-20 ")
 ;;913
 ;;21,"68115-0235-30 ")
 ;;914
 ;;21,"68115-0235-60 ")
 ;;915
 ;;21,"68115-0235-90 ")
 ;;916
 ;;21,"68115-0235-99 ")
 ;;917
 ;;21,"68115-0264-30 ")
 ;;1009
 ;;21,"68115-0264-60 ")
 ;;1010
 ;;21,"68115-0318-30 ")
 ;;1075
 ;;21,"68115-0318-40 ")
 ;;1076
 ;;21,"68115-0319-00 ")
 ;;1109
 ;;21,"68115-0319-08 ")
 ;;1110
 ;;21,"68115-0319-15 ")
 ;;1111
 ;;21,"68115-0319-20 ")
 ;;1112
 ;;21,"68115-0319-30 ")
 ;;1113
 ;;21,"68115-0319-90 ")
 ;;1114
 ;;21,"68115-0319-99 ")
 ;;1115
 ;;21,"68115-0440-30 ")
 ;;1902
 ;;21,"68115-0440-90 ")
 ;;1903
 ;;21,"68115-0450-30 ")
 ;;1125
 ;;21,"68387-0375-30 ")
 ;;1312
 ;;21,"68387-0500-30 ")
 ;;1715
 ;;21,"68387-0500-60 ")
 ;;1716
 ;;21,"68387-0500-90 ")
 ;;1717
 ;;21,"68387-0600-30 ")
 ;;1523
 ;;21,"68387-0600-60 ")
 ;;1524
 ;;21,"68387-0600-90 ")
 ;;1525
 ;;9002226,629,.01)
 ;;BGP HEDIS SKL MUSCLE RELAX NDC
 ;;9002226,629,.02)
 ;;@
 ;;9002226,629,.04)
 ;;n
 ;;9002226,629,.06)
 ;;@
 ;;9002226,629,.08)
 ;;@
 ;;9002226,629,.09)
 ;;@
 ;;9002226,629,.11)
 ;;@
 ;;9002226,629,.12)
 ;;@
 ;;9002226,629,.13)
 ;;1
 ;;9002226,629,.14)
 ;;@
 ;;9002226,629,.15)
 ;;@
 ;;9002226,629,.16)
 ;;@
 ;;9002226,629,.17)
 ;;@
 ;;9002226,629,3101)
 ;;@
 ;;9002226.02101,"629,00005-3562-23 ",.01)
 ;;00005-3562-23
 ;;9002226.02101,"629,00005-3562-23 ",.02)
 ;;00005-3562-23
 ;;9002226.02101,"629,00005-3562-31 ",.01)
 ;;00005-3562-31
 ;;9002226.02101,"629,00005-3562-31 ",.02)
 ;;00005-3562-31
 ;;9002226.02101,"629,00005-3563-23 ",.01)
 ;;00005-3563-23
 ;;9002226.02101,"629,00005-3563-23 ",.02)
 ;;00005-3563-23
 ;;9002226.02101,"629,00005-3563-31 ",.01)
 ;;00005-3563-31
 ;;9002226.02101,"629,00005-3563-31 ",.02)
 ;;00005-3563-31
 ;;9002226.02101,"629,00006-0931-28 ",.01)
 ;;00006-0931-28
 ;;9002226.02101,"629,00006-0931-28 ",.02)
 ;;00006-0931-28
 ;;9002226.02101,"629,00006-0931-68 ",.01)
 ;;00006-0931-68
 ;;9002226.02101,"629,00006-0931-68 ",.02)
 ;;00006-0931-68
 ;;9002226.02101,"629,00031-7409-87 ",.01)
 ;;00031-7409-87
 ;;9002226.02101,"629,00031-7409-87 ",.02)
 ;;00031-7409-87
 ;;9002226.02101,"629,00031-7409-94 ",.01)
 ;;00031-7409-94
 ;;9002226.02101,"629,00031-7409-94 ",.02)
 ;;00031-7409-94
 ;;9002226.02101,"629,00031-7429-63 ",.01)
 ;;00031-7429-63
 ;;9002226.02101,"629,00031-7429-63 ",.02)
 ;;00031-7429-63
 ;;9002226.02101,"629,00031-7429-70 ",.01)
 ;;00031-7429-70
 ;;9002226.02101,"629,00031-7429-70 ",.02)
 ;;00031-7429-70
 ;;9002226.02101,"629,00031-7449-63 ",.01)
 ;;00031-7449-63
 ;;9002226.02101,"629,00031-7449-63 ",.02)
 ;;00031-7449-63