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

BGP13Q5.m

Go to the documentation of this file.
BGP13Q5 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"54868-5313-01 ")
 ;;2058
 ;;21,"54868-5346-00 ")
 ;;1133
 ;;21,"54868-5423-00 ")
 ;;2442
 ;;21,"54868-5423-01 ")
 ;;2443
 ;;21,"54868-5469-00 ")
 ;;1134
 ;;21,"54868-5469-01 ")
 ;;1135
 ;;21,"54868-5475-00 ")
 ;;1330
 ;;21,"54868-5503-00 ")
 ;;1030
 ;;21,"54868-5503-01 ")
 ;;1031
 ;;21,"54868-5548-00 ")
 ;;2391
 ;;21,"54868-5690-02 ")
 ;;2089
 ;;21,"54868-5747-00 ")
 ;;90
 ;;21,"54868-5747-01 ")
 ;;91
 ;;21,"54868-5781-00 ")
 ;;138
 ;;21,"54868-5782-00 ")
 ;;139
 ;;21,"54868-5782-04 ")
 ;;140
 ;;21,"54868-5783-00 ")
 ;;2090
 ;;21,"54868-5783-01 ")
 ;;2091
 ;;21,"54868-5787-00 ")
 ;;626
 ;;21,"54868-5792-00 ")
 ;;141
 ;;21,"54868-5842-00 ")
 ;;2337
 ;;21,"54868-5843-00 ")
 ;;2338
 ;;21,"54868-5856-00 ")
 ;;2339
 ;;21,"54868-5896-00 ")
 ;;2340
 ;;21,"55045-2376-00 ")
 ;;522
 ;;21,"55045-2799-00 ")
 ;;819
 ;;21,"55045-2799-01 ")
 ;;820
 ;;21,"55045-2799-02 ")
 ;;821
 ;;21,"55045-2799-06 ")
 ;;822
 ;;21,"55045-2799-09 ")
 ;;823
 ;;21,"55045-2827-00 ")
 ;;824
 ;;21,"55045-2827-04 ")
 ;;825
 ;;21,"55045-2827-06 ")
 ;;826
 ;;21,"55045-2827-08 ")
 ;;827
 ;;21,"55045-2827-09 ")
 ;;828
 ;;21,"55045-2832-08 ")
 ;;829
 ;;21,"55045-2929-00 ")
 ;;1690
 ;;21,"55045-2929-06 ")
 ;;1691
 ;;21,"55045-2929-08 ")
 ;;1692
 ;;21,"55045-2936-00 ")
 ;;1693
 ;;21,"55045-2936-08 ")
 ;;1694
 ;;21,"55045-2937-00 ")
 ;;1695
 ;;21,"55045-2938-00 ")
 ;;1696
 ;;21,"55045-2938-08 ")
 ;;1697
 ;;21,"55045-2975-00 ")
 ;;1698
 ;;21,"55045-2975-06 ")
 ;;1699
 ;;21,"55045-2975-08 ")
 ;;1700
 ;;21,"55045-3059-00 ")
 ;;1701
 ;;21,"55045-3059-08 ")
 ;;1702
 ;;21,"55045-3164-00 ")
 ;;229
 ;;21,"55045-3170-00 ")
 ;;342
 ;;21,"55045-3225-06 ")
 ;;1247
 ;;21,"55045-3373-08 ")
 ;;1032
 ;;21,"55045-3772-08 ")
 ;;1703
 ;;21,"55111-0133-01 ")
 ;;1033
 ;;21,"55111-0134-01 ")
 ;;1034
 ;;21,"55111-0338-01 ")
 ;;142
 ;;21,"55111-0339-01 ")
 ;;143
 ;;21,"55111-0339-05 ")
 ;;144
 ;;21,"55111-0340-01 ")
 ;;145
 ;;21,"55111-0340-05 ")
 ;;146
 ;;21,"55111-0341-01 ")
 ;;147
 ;;21,"55111-0341-05 ")
 ;;148
 ;;21,"55111-0438-90 ")
 ;;2341
 ;;21,"55111-0439-05 ")
 ;;2342
 ;;21,"55111-0439-90 ")
 ;;2343
 ;;21,"55111-0440-05 ")
 ;;2344
 ;;21,"55111-0440-90 ")
 ;;2345
 ;;21,"55111-0441-05 ")
 ;;2346
 ;;21,"55111-0441-90 ")
 ;;2347
 ;;21,"55111-0621-90 ")
 ;;2255
 ;;21,"55111-0622-90 ")
 ;;2256
 ;;21,"55111-0623-90 ")
 ;;2257
 ;;21,"55111-0624-90 ")
 ;;2258
 ;;21,"55175-3964-03 ")
 ;;2559
 ;;21,"55289-0039-30 ")
 ;;2092
 ;;21,"55289-0086-30 ")
 ;;2022
 ;;21,"55289-0086-97 ")
 ;;2023
 ;;21,"55289-0096-30 ")
 ;;2093
 ;;21,"55289-0106-30 ")
 ;;2560
 ;;21,"55289-0109-30 ")
 ;;2024
 ;;21,"55289-0109-97 ")
 ;;2025
 ;;21,"55289-0212-30 ")
 ;;523
 ;;21,"55289-0344-30 ")
 ;;524
 ;;21,"55289-0344-90 ")
 ;;525
 ;;21,"55289-0344-97 ")
 ;;526
 ;;21,"55289-0483-30 ")
 ;;2479
 ;;21,"55289-0484-30 ")
 ;;2446
 ;;21,"55289-0506-30 ")
 ;;398
 ;;21,"55289-0506-97 ")
 ;;399
 ;;21,"55289-0509-30 ")
 ;;2561
 ;;21,"55289-0552-30 ")
 ;;34
 ;;21,"55289-0553-30 ")
 ;;35
 ;;21,"55289-0554-30 ")
 ;;36
 ;;21,"55289-0555-30 ")
 ;;37
 ;;21,"55289-0573-30 ")
 ;;2214
 ;;21,"55289-0577-30 ")
 ;;2187
 ;;21,"55289-0591-30 ")
 ;;830
 ;;21,"55289-0591-90 ")
 ;;831
 ;;21,"55289-0622-03 ")
 ;;2480
 ;;21,"55289-0622-30 ")
 ;;2481
 ;;21,"55289-0638-01 ")
 ;;1704
 ;;21,"55289-0638-12 ")
 ;;1705
 ;;21,"55289-0638-14 ")
 ;;1706
 ;;21,"55289-0638-30 ")
 ;;1707
 ;;21,"55289-0638-90 ")
 ;;1708
 ;;21,"55289-0638-98 ")
 ;;1709
 ;;21,"55289-0694-10 ")
 ;;832
 ;;21,"55289-0694-30 ")
 ;;833
 ;;21,"55289-0694-90 ")
 ;;834
 ;;21,"55289-0696-14 ")
 ;;1710
 ;;21,"55289-0696-30 ")
 ;;1711
 ;;21,"55289-0696-90 ")
 ;;1712
 ;;21,"55289-0696-98 ")
 ;;1713
 ;;21,"55289-0867-30 ")
 ;;92
 ;;21,"55289-0878-30 ")
 ;;1248
 ;;21,"55289-0884-30 ")
 ;;1714
 ;;21,"55289-0884-90 ")
 ;;1715
 ;;21,"55289-0917-30 ")
 ;;1716
 ;;21,"55289-0917-90 ")
 ;;1717
 ;;21,"55289-0929-08 ")
 ;;2188
 ;;21,"55289-0929-30 ")
 ;;2189
 ;;21,"55289-0963-30 ")
 ;;230
 ;;21,"55289-0981-30 ")
 ;;2094
 ;;21,"55289-0984-30 ")
 ;;835
 ;;21,"55390-0712-01 ")
 ;;1035
 ;;21,"55887-0099-30 ")
 ;;836
 ;;21,"55887-0175-30 ")
 ;;343
 ;;21,"55887-0223-30 ")
 ;;231
 ;;21,"55887-0223-90 ")
 ;;232
 ;;21,"55887-0227-30 ")
 ;;837
 ;;21,"55887-0227-60 ")
 ;;838
 ;;21,"55887-0304-30 ")
 ;;1078
 ;;21,"55887-0304-60 ")
 ;;1079
 ;;21,"55887-0304-90 ")
 ;;1080
 ;;21,"55887-0322-30 ")
 ;;233
 ;;21,"55887-0322-60 ")
 ;;234
 ;;21,"55887-0322-90 ")
 ;;235
 ;;21,"55887-0322-92 ")
 ;;236
 ;;21,"55887-0366-30 ")
 ;;344
 ;;21,"55887-0385-30 ")
 ;;237
 ;;21,"55887-0385-90 ")
 ;;238
 ;;21,"55887-0425-30 ")
 ;;1249
 ;;21,"55887-0425-60 ")
 ;;1250
 ;;21,"55887-0425-90 ")
 ;;1251
 ;;21,"55887-0426-20 ")
 ;;1252
 ;;21,"55887-0426-30 ")
 ;;1253
 ;;21,"55887-0426-60 ")
 ;;1254
 ;;21,"55887-0426-90 ")
 ;;1255
 ;;21,"55887-0430-30 ")
 ;;527
 ;;21,"55887-0532-01 ")
 ;;1256
 ;;21,"55887-0532-30 ")
 ;;1257
 ;;21,"55887-0532-60 ")
 ;;1258
 ;;21,"55887-0532-90 ")
 ;;1259
 ;;21,"55887-0558-30 ")
 ;;839
 ;;21,"55887-0558-60 ")
 ;;840
 ;;21,"55887-0558-90 ")
 ;;841
 ;;21,"55887-0569-30 ")
 ;;1718
 ;;21,"55887-0569-60 ")
 ;;1719
 ;;21,"55887-0569-90 ")
 ;;1720
 ;;21,"55887-0581-01 ")
 ;;1721
 ;;21,"55887-0581-30 ")
 ;;1722
 ;;21,"55887-0581-60 ")
 ;;1723
 ;;21,"55887-0581-90 ")
 ;;1724
 ;;21,"55887-0582-01 ")
 ;;528
 ;;21,"55887-0582-30 ")
 ;;529
 ;;21,"55887-0589-30 ")
 ;;1725
 ;;21,"55887-0589-90 ")
 ;;1726
 ;;21,"55887-0590-30 ")
 ;;1727
 ;;21,"55887-0590-60 ")
 ;;1728
 ;;21,"55887-0590-90 ")
 ;;1729
 ;;21,"55887-0591-01 ")
 ;;1730
 ;;21,"55887-0591-10 ")
 ;;1731
 ;;21,"55887-0591-20 ")
 ;;1732
 ;;21,"55887-0591-30 ")
 ;;1733
 ;;21,"55887-0591-60 ")
 ;;1734
 ;;21,"55887-0591-90 ")
 ;;1735
 ;;21,"55887-0594-30 ")
 ;;1036
 ;;21,"55887-0594-90 ")
 ;;1037
 ;;21,"55887-0595-30 ")
 ;;1038
 ;;21,"55887-0595-90 ")
 ;;1039
 ;;21,"55887-0596-01 ")
 ;;842
 ;;21,"55887-0596-30 ")
 ;;843
 ;;21,"55887-0596-60 ")
 ;;844
 ;;21,"55887-0596-90 ")
 ;;845
 ;;21,"55887-0612-01 ")
 ;;846
 ;;21,"55887-0612-30 ")
 ;;847
 ;;21,"55887-0612-60 ")
 ;;848
 ;;21,"55887-0612-90 ")
 ;;849
 ;;21,"55887-0612-92 ")
 ;;850
 ;;21,"55887-0875-30 ")
 ;;239
 ;;21,"55887-0984-30 ")
 ;;851
 ;;21,"55953-0132-80 ")
 ;;530
 ;;21,"55953-0133-40 ")
 ;;531
 ;;21,"57866-0064-09 ")
 ;;2215
 ;;21,"57866-0065-01 ")
 ;;2216
 ;;21,"57866-0274-01 ")
 ;;1081
 ;;21,"57866-0275-02 ")
 ;;1082
 ;;21,"57866-2000-01 ")
 ;;1736
 ;;21,"57866-3138-01 ")
 ;;1083
 ;;21,"57866-4000-01 ")
 ;;1737
 ;;21,"57866-4420-01 ")
 ;;38
 ;;21,"57866-4421-01 ")
 ;;39
 ;;21,"57866-4423-01 ")
 ;;40
 ;;21,"57866-4424-01 ")
 ;;41
 ;;21,"57866-5000-01 ")
 ;;1738
 ;;21,"57866-6103-01 ")
 ;;532
 ;;21,"57866-6103-02 ")
 ;;533
 ;;21,"57866-6103-03 ")
 ;;534
 ;;21,"57866-6103-04 ")
 ;;535
 ;;21,"57866-6106-01 ")
 ;;536
 ;;21,"57866-6106-02 ")
 ;;537
 ;;21,"57866-6106-03 ")
 ;;538
 ;;21,"57866-6106-04 ")
 ;;539
 ;;21,"57866-6705-01 ")
 ;;2190
 ;;21,"57866-6706-01 ")
 ;;2191
 ;;21,"57866-6859-01 ")
 ;;852
 ;;21,"57866-6859-02 ")
 ;;853
 ;;21,"57866-6859-03 ")
 ;;854
 ;;21,"57866-6859-04 ")
 ;;855
 ;;21,"57866-7985-01 ")
 ;;2192
 ;;21,"57866-7989-01 ")
 ;;2193
 ;;21,"57866-7992-01 ")
 ;;2217
 ;;21,"57866-8700-01 ")
 ;;1739
 ;;21,"58016-0065-00 ")
 ;;345
 ;;21,"58016-0065-30 ")
 ;;346
 ;;21,"58016-0065-60 ")
 ;;347
 ;;21,"58016-0065-90 ")
 ;;348
 ;;21,"58016-0069-00 ")
 ;;1740
 ;;21,"58016-0069-30 ")
 ;;1741
 ;;21,"58016-0069-60 ")
 ;;1742
 ;;21,"58016-0069-90 ")
 ;;1743
 ;;21,"58016-0228-00 ")
 ;;1260
 ;;21,"58016-0228-02 ")
 ;;1261
 ;;21,"58016-0228-30 ")
 ;;1262
 ;;21,"58016-0228-60 ")
 ;;1263
 ;;21,"58016-0228-90 ")
 ;;1264
 ;;21,"58016-0363-00 ")
 ;;2562
 ;;21,"58016-0363-14 ")
 ;;2563
 ;;21,"58016-0363-21 ")
 ;;2564
 ;;21,"58016-0363-30 ")
 ;;2565
 ;;21,"58016-0363-60 ")
 ;;2566
 ;;21,"58016-0420-00 ")
 ;;2026
 ;;21,"58016-0420-10 ")
 ;;2027
 ;;21,"58016-0420-30 ")
 ;;2028
 ;;21,"58016-0420-60 ")
 ;;2029
 ;;21,"58016-0420-90 ")
 ;;2030
 ;;21,"58016-0564-00 ")
 ;;2194
 ;;21,"58016-0564-30 ")
 ;;2195
 ;;21,"58016-0564-60 ")
 ;;2196
 ;;21,"58016-0564-90 ")
 ;;2197
 ;;21,"58016-0571-00 ")
 ;;2482
 ;;21,"58016-0571-30 ")
 ;;2483
 ;;21,"58016-0571-60 ")
 ;;2484
 ;;21,"58016-0571-90 ")
 ;;2485
 ;;21,"58016-0579-00 ")
 ;;856
 ;;21,"58016-0579-20 ")
 ;;857
 ;;21,"58016-0579-30 ")
 ;;858
 ;;21,"58016-0579-60 ")
 ;;859
 ;;21,"58016-0580-00 ")
 ;;860
 ;;21,"58016-0580-20 ")
 ;;861
 ;;21,"58016-0580-30 ")
 ;;862
 ;;21,"58016-0580-60 ")
 ;;863
 ;;21,"58016-0581-00 ")
 ;;864
 ;;21,"58016-0581-20 ")
 ;;865
 ;;21,"58016-0581-30 ")
 ;;866
 ;;21,"58016-0581-60 ")
 ;;867
 ;;21,"58016-0646-00 ")
 ;;2198
 ;;21,"58016-0646-30 ")
 ;;2199
 ;;21,"58016-0646-60 ")
 ;;2200
 ;;21,"58016-0646-90 ")
 ;;2201
 ;;21,"58016-0685-00 ")
 ;;2031
 ;;21,"58016-0685-10 ")
 ;;2032
 ;;21,"58016-0685-30 ")
 ;;2033
 ;;21,"58016-0685-60 ")
 ;;2034
 ;;21,"58016-0685-90 ")
 ;;2035
 ;;21,"58016-0686-00 ")
 ;;2036
 ;;21,"58016-0686-10 ")
 ;;2037
 ;;21,"58016-0686-30 ")
 ;;2038
 ;;21,"58016-0686-60 ")
 ;;2039
 ;;21,"58016-0686-90 ")
 ;;2040
 ;;21,"58016-0760-00 ")
 ;;2202
 ;;21,"58016-0760-30 ")
 ;;2203
 ;;21,"58016-0760-60 ")
 ;;2204
 ;;21,"58016-0760-90 ")
 ;;2205
 ;;21,"58016-0917-00 ")
 ;;1744
 ;;21,"58016-0917-30 ")
 ;;1745
 ;;21,"58016-0917-60 ")
 ;;1746
 ;;21,"58016-0917-90 ")
 ;;1747
 ;;21,"58016-0956-00 ")
 ;;2567
 ;;21,"58016-0956-30 ")
 ;;2568
 ;;21,"58016-0956-60 ")
 ;;2569
 ;;21,"58016-0956-90 ")
 ;;2570
 ;;21,"58016-0963-00 ")
 ;;1748
 ;;21,"58016-0963-30 ")
 ;;1749
 ;;21,"58016-0963-60 ")
 ;;1750
 ;;21,"58016-0963-90 ")
 ;;1751
 ;;21,"58016-0998-00 ")
 ;;1752
 ;;21,"58016-0998-30 ")
 ;;1753
 ;;21,"58016-0998-60 ")
 ;;1754
 ;;21,"58016-0998-90 ")
 ;;1755
 ;;21,"58016-2638-90 ")
 ;;2571
 ;;21,"58177-0341-04 ")
 ;;240
 ;;21,"58177-0342-04 ")
 ;;241
 ;;21,"58177-0342-08 ")
 ;;242
 ;;21,"58177-0343-04 ")
 ;;243
 ;;21,"58177-0343-08 ")
 ;;244
 ;;21,"58177-0344-04 ")
 ;;245
 ;;21,"58177-0344-08 ")
 ;;246
 ;;21,"58864-0006-30 ")
 ;;1756
 ;;21,"58864-0066-28 ")
 ;;540
 ;;21,"58864-0104-30 ")
 ;;2145
 ;;21,"58864-0510-15 ")
 ;;2146
 ;;21,"58864-0603-15 ")
 ;;1757
 ;;21,"58864-0603-30 ")
 ;;1758
 ;;21,"58864-0603-90 ")
 ;;1759
 ;;21,"58864-0618-15 ")
 ;;1760
 ;;21,"58864-0618-30 ")
 ;;1761
 ;;21,"58864-0654-30 ")
 ;;2572
 ;;21,"58864-0661-30 ")
 ;;2431
 ;;21,"58864-0667-30 ")
 ;;2147
 ;;21,"58864-0674-30 ")
 ;;93
 ;;21,"58864-0750-30 ")
 ;;1762
 ;;21,"58864-0753-30 ")
 ;;1763
 ;;21,"58864-0753-90 ")
 ;;1764
 ;;21,"58864-0754-30 ")
 ;;868
 ;;21,"58864-0755-30 ")
 ;;869
 ;;21,"58864-0762-30 ")
 ;;870
 ;;21,"58864-0838-30 ")
 ;;2432
 ;;21,"58864-0847-30 ")
 ;;94
 ;;21,"58864-0859-30 ")
 ;;42
 ;;21,"58864-0863-30 ")
 ;;43
 ;;21,"58864-0869-30 ")
 ;;44
 ;;21,"59762-0220-01 ")
 ;;1331
 ;;21,"59762-0222-01 ")
 ;;1332
 ;;21,"59762-0223-01 ")
 ;;1333
 ;;21,"59762-2140-01 ")
 ;;2407
 ;;21,"59762-2140-06 ")
 ;;2408
 ;;21,"59762-2141-01 ")
 ;;2409
 ;;21,"59762-2141-06 ")
 ;;2410
 ;;21,"59762-2142-01 ")
 ;;2411
 ;;21,"59762-2142-06 ")
 ;;2412
 ;;21,"59762-2270-01 ")
 ;;1765
 ;;21,"59762-2270-03 ")
 ;;1766
 ;;21,"59762-2270-07 ")
 ;;1767
 ;;21,"59762-2271-01 ")
 ;;1768
 ;;21,"59762-2271-03 ")
 ;;1769
 ;;21,"59762-2271-07 ")
 ;;1770
 ;;21,"59762-2272-01 ")
 ;;1771
 ;;21,"59762-2272-03 ")
 ;;1772
 ;;21,"59762-2272-07 ")
 ;;1773
 ;;21,"59762-2273-01 ")
 ;;1774
 ;;21,"59762-2273-03 ")
 ;;1775
 ;;21,"59762-2273-07 ")
 ;;1776
 ;;21,"59762-2274-01 ")
 ;;1777
 ;;21,"59762-2274-03 ")
 ;;1778
 ;;21,"59762-2274-07 ")
 ;;1779
 ;;21,"59762-2275-01 ")
 ;;1780
 ;;21,"59762-2275-03 ")
 ;;1781
 ;;21,"59762-2275-07 ")
 ;;1782
 ;;21,"59762-3146-01 ")
 ;;247
 ;;21,"59762-3146-02 ")
 ;;248
 ;;21,"59762-3147-01 ")
 ;;249