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

BGP13Q4.m

Go to the documentation of this file.
BGP13Q4 ; 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,"51079-0981-01 ")
 ;;1615
 ;;21,"51079-0981-10 ")
 ;;1616
 ;;21,"51079-0981-20 ")
 ;;1617
 ;;21,"51079-0981-30 ")
 ;;1618
 ;;21,"51079-0981-40 ")
 ;;1619
 ;;21,"51079-0981-56 ")
 ;;1620
 ;;21,"51079-0981-57 ")
 ;;1621
 ;;21,"51079-0981-60 ")
 ;;1622
 ;;21,"51079-0982-01 ")
 ;;1623
 ;;21,"51079-0982-19 ")
 ;;1624
 ;;21,"51079-0982-20 ")
 ;;1625
 ;;21,"51079-0982-30 ")
 ;;1626
 ;;21,"51079-0982-40 ")
 ;;1627
 ;;21,"51079-0982-56 ")
 ;;1628
 ;;21,"51079-0982-57 ")
 ;;1629
 ;;21,"51079-0982-60 ")
 ;;1630
 ;;21,"51079-0983-01 ")
 ;;1631
 ;;21,"51079-0983-19 ")
 ;;1632
 ;;21,"51079-0983-20 ")
 ;;1633
 ;;21,"51079-0983-30 ")
 ;;1634
 ;;21,"51079-0983-40 ")
 ;;1635
 ;;21,"51079-0983-56 ")
 ;;1636
 ;;21,"51079-0983-57 ")
 ;;1637
 ;;21,"51079-0983-60 ")
 ;;1638
 ;;21,"51079-0984-01 ")
 ;;1639
 ;;21,"51079-0984-20 ")
 ;;1640
 ;;21,"51079-0984-40 ")
 ;;1641
 ;;21,"51079-0984-50 ")
 ;;1642
 ;;21,"51655-0244-24 ")
 ;;1643
 ;;21,"51655-0280-24 ")
 ;;1644
 ;;21,"51655-0292-24 ")
 ;;1645
 ;;21,"51655-0620-24 ")
 ;;782
 ;;21,"51655-0975-24 ")
 ;;384
 ;;21,"51672-4037-01 ")
 ;;783
 ;;21,"51672-4037-03 ")
 ;;784
 ;;21,"51672-4038-01 ")
 ;;785
 ;;21,"51672-4038-03 ")
 ;;786
 ;;21,"51672-4039-01 ")
 ;;787
 ;;21,"51672-4039-03 ")
 ;;788
 ;;21,"51672-4040-01 ")
 ;;789
 ;;21,"51672-4040-03 ")
 ;;790
 ;;21,"51672-4045-01 ")
 ;;1026
 ;;21,"51672-4046-01 ")
 ;;1027
 ;;21,"51875-0355-01 ")
 ;;491
 ;;21,"51875-0955-02 ")
 ;;492
 ;;21,"51875-0955-05 ")
 ;;493
 ;;21,"52152-0238-08 ")
 ;;2283
 ;;21,"52152-0238-30 ")
 ;;2284
 ;;21,"52152-0239-08 ")
 ;;2285
 ;;21,"52152-0239-30 ")
 ;;2286
 ;;21,"52152-0240-08 ")
 ;;2287
 ;;21,"52152-0240-30 ")
 ;;2288
 ;;21,"52544-0668-01 ")
 ;;791
 ;;21,"52544-0668-05 ")
 ;;792
 ;;21,"52544-0669-01 ")
 ;;793
 ;;21,"52544-0669-05 ")
 ;;794
 ;;21,"52544-0670-01 ")
 ;;795
 ;;21,"52544-0670-05 ")
 ;;796
 ;;21,"52544-0671-01 ")
 ;;797
 ;;21,"52544-0688-01 ")
 ;;494
 ;;21,"52544-0688-05 ")
 ;;495
 ;;21,"52544-0688-10 ")
 ;;496
 ;;21,"52544-0689-01 ")
 ;;497
 ;;21,"52544-0689-05 ")
 ;;498
 ;;21,"52544-0689-10 ")
 ;;499
 ;;21,"52544-0690-01 ")
 ;;500
 ;;21,"52544-0690-05 ")
 ;;501
 ;;21,"52544-0690-10 ")
 ;;502
 ;;21,"52544-0691-01 ")
 ;;503
 ;;21,"52959-0137-15 ")
 ;;1231
 ;;21,"52959-0498-00 ")
 ;;2512
 ;;21,"52959-0728-15 ")
 ;;1646
 ;;21,"52959-0728-20 ")
 ;;1647
 ;;21,"52959-0728-30 ")
 ;;1648
 ;;21,"52959-0729-30 ")
 ;;1649
 ;;21,"52959-0729-90 ")
 ;;1650
 ;;21,"52959-0753-00 ")
 ;;1651
 ;;21,"52959-0753-30 ")
 ;;1652
 ;;21,"52959-0831-30 ")
 ;;213
 ;;21,"52959-0835-30 ")
 ;;214
 ;;21,"52959-0835-60 ")
 ;;215
 ;;21,"52959-0841-30 ")
 ;;216
 ;;21,"52959-0841-60 ")
 ;;217
 ;;21,"52959-0854-20 ")
 ;;1653
 ;;21,"52959-0854-30 ")
 ;;1654
 ;;21,"52959-0907-30 ")
 ;;336
 ;;21,"52959-0942-30 ")
 ;;798
 ;;21,"52959-0997-30 ")
 ;;1232
 ;;21,"54458-0956-10 ")
 ;;218
 ;;21,"54458-0957-10 ")
 ;;219
 ;;21,"54458-0991-10 ")
 ;;1233
 ;;21,"54458-0992-10 ")
 ;;1234
 ;;21,"54458-0993-09 ")
 ;;1235
 ;;21,"54458-0994-10 ")
 ;;1655
 ;;21,"54458-0995-10 ")
 ;;1656
 ;;21,"54458-0996-10 ")
 ;;1657
 ;;21,"54458-0997-10 ")
 ;;1658
 ;;21,"54458-0998-09 ")
 ;;1659
 ;;21,"54458-0999-09 ")
 ;;1660
 ;;21,"54569-0522-00 ")
 ;;385
 ;;21,"54569-0522-01 ")
 ;;386
 ;;21,"54569-0522-03 ")
 ;;387
 ;;21,"54569-0523-00 ")
 ;;388
 ;;21,"54569-0523-02 ")
 ;;389
 ;;21,"54569-0606-00 ")
 ;;2458
 ;;21,"54569-0606-01 ")
 ;;2459
 ;;21,"54569-0606-02 ")
 ;;2460
 ;;21,"54569-0606-03 ")
 ;;2461
 ;;21,"54569-0607-00 ")
 ;;2462
 ;;21,"54569-0607-01 ")
 ;;2463
 ;;21,"54569-0607-03 ")
 ;;2464
 ;;21,"54569-0612-00 ")
 ;;2465
 ;;21,"54569-1752-03 ")
 ;;2176
 ;;21,"54569-1944-00 ")
 ;;2544
 ;;21,"54569-1944-01 ")
 ;;2545
 ;;21,"54569-1944-02 ")
 ;;2546
 ;;21,"54569-1944-03 ")
 ;;2547
 ;;21,"54569-2051-01 ")
 ;;2177
 ;;21,"54569-2051-02 ")
 ;;2178
 ;;21,"54569-2665-01 ")
 ;;2548
 ;;21,"54569-2665-02 ")
 ;;2549
 ;;21,"54569-3258-01 ")
 ;;2466
 ;;21,"54569-3300-01 ")
 ;;2179
 ;;21,"54569-3359-00 ")
 ;;2007
 ;;21,"54569-3359-01 ")
 ;;2008
 ;;21,"54569-3423-00 ")
 ;;2009
 ;;21,"54569-3423-01 ")
 ;;2010
 ;;21,"54569-3713-00 ")
 ;;81
 ;;21,"54569-3714-00 ")
 ;;82
 ;;21,"54569-3771-00 ")
 ;;2550
 ;;21,"54569-3808-00 ")
 ;;2134
 ;;21,"54569-3809-00 ")
 ;;2135
 ;;21,"54569-3984-00 ")
 ;;21
 ;;21,"54569-3985-00 ")
 ;;22
 ;;21,"54569-4246-00 ")
 ;;504
 ;;21,"54569-4246-01 ")
 ;;505
 ;;21,"54569-4246-03 ")
 ;;506
 ;;21,"54569-4246-04 ")
 ;;507
 ;;21,"54569-4246-05 ")
 ;;508
 ;;21,"54569-4247-00 ")
 ;;509
 ;;21,"54569-4247-02 ")
 ;;510
 ;;21,"54569-4247-03 ")
 ;;511
 ;;21,"54569-4276-00 ")
 ;;2437
 ;;21,"54569-4454-00 ")
 ;;23
 ;;21,"54569-4593-00 ")
 ;;512
 ;;21,"54569-4593-01 ")
 ;;513
 ;;21,"54569-4696-00 ")
 ;;2072
 ;;21,"54569-4788-00 ")
 ;;2011
 ;;21,"54569-4829-00 ")
 ;;2513
 ;;21,"54569-4948-00 ")
 ;;2136
 ;;21,"54569-4990-00 ")
 ;;2438
 ;;21,"54569-5133-00 ")
 ;;799
 ;;21,"54569-5133-01 ")
 ;;800
 ;;21,"54569-5134-00 ")
 ;;801
 ;;21,"54569-5134-01 ")
 ;;802
 ;;21,"54569-5134-02 ")
 ;;803
 ;;21,"54569-5135-00 ")
 ;;804
 ;;21,"54569-5135-01 ")
 ;;805
 ;;21,"54569-5232-00 ")
 ;;2073
 ;;21,"54569-5434-00 ")
 ;;1661
 ;;21,"54569-5434-03 ")
 ;;1662
 ;;21,"54569-5434-04 ")
 ;;1663
 ;;21,"54569-5435-00 ")
 ;;1664
 ;;21,"54569-5435-03 ")
 ;;1665
 ;;21,"54569-5435-04 ")
 ;;1666
 ;;21,"54569-5437-00 ")
 ;;1667
 ;;21,"54569-5438-00 ")
 ;;1668
 ;;21,"54569-5472-00 ")
 ;;1669
 ;;21,"54569-5621-00 ")
 ;;1071
 ;;21,"54569-5668-00 ")
 ;;220
 ;;21,"54569-5668-01 ")
 ;;221
 ;;21,"54569-5669-00 ")
 ;;222
 ;;21,"54569-5670-00 ")
 ;;223
 ;;21,"54569-5685-00 ")
 ;;337
 ;;21,"54569-5709-00 ")
 ;;2243
 ;;21,"54569-5710-00 ")
 ;;2244
 ;;21,"54569-5711-00 ")
 ;;2245
 ;;21,"54569-5728-00 ")
 ;;1670
 ;;21,"54569-5878-00 ")
 ;;2074
 ;;21,"54569-5936-00 ")
 ;;83
 ;;21,"54569-5937-00 ")
 ;;136
 ;;21,"54569-5938-00 ")
 ;;137
 ;;21,"54569-8515-00 ")
 ;;2551
 ;;21,"54569-8527-00 ")
 ;;2552
 ;;21,"54569-8583-00 ")
 ;;2180
 ;;21,"54569-8584-00 ")
 ;;2553
 ;;21,"54569-8592-00 ")
 ;;2137
 ;;21,"54569-8595-00 ")
 ;;2445
 ;;21,"54868-0541-00 ")
 ;;2467
 ;;21,"54868-0541-01 ")
 ;;2468
 ;;21,"54868-0541-03 ")
 ;;2469
 ;;21,"54868-0620-01 ")
 ;;2470
 ;;21,"54868-0620-02 ")
 ;;2471
 ;;21,"54868-0620-03 ")
 ;;2472
 ;;21,"54868-0620-05 ")
 ;;2473
 ;;21,"54868-0669-01 ")
 ;;390
 ;;21,"54868-0669-02 ")
 ;;391
 ;;21,"54868-0669-03 ")
 ;;392
 ;;21,"54868-0669-05 ")
 ;;393
 ;;21,"54868-0669-06 ")
 ;;394
 ;;21,"54868-1001-01 ")
 ;;2554
 ;;21,"54868-1090-01 ")
 ;;2474
 ;;21,"54868-1090-05 ")
 ;;2475
 ;;21,"54868-1090-06 ")
 ;;2476
 ;;21,"54868-1296-01 ")
 ;;2555
 ;;21,"54868-1296-02 ")
 ;;2556
 ;;21,"54868-1415-01 ")
 ;;395
 ;;21,"54868-1501-00 ")
 ;;2181
 ;;21,"54868-1501-01 ")
 ;;2182
 ;;21,"54868-1502-00 ")
 ;;2183
 ;;21,"54868-1775-01 ")
 ;;396
 ;;21,"54868-1775-04 ")
 ;;397
 ;;21,"54868-1802-00 ")
 ;;1329
 ;;21,"54868-1960-00 ")
 ;;2184
 ;;21,"54868-1961-01 ")
 ;;2557
 ;;21,"54868-1961-02 ")
 ;;2558
 ;;21,"54868-1970-01 ")
 ;;2185
 ;;21,"54868-1970-02 ")
 ;;2186
 ;;21,"54868-2280-00 ")
 ;;2477
 ;;21,"54868-2280-02 ")
 ;;2478
 ;;21,"54868-2350-01 ")
 ;;2012
 ;;21,"54868-2350-02 ")
 ;;2013
 ;;21,"54868-2350-03 ")
 ;;2014
 ;;21,"54868-2350-04 ")
 ;;2015
 ;;21,"54868-2351-00 ")
 ;;2016
 ;;21,"54868-2351-02 ")
 ;;2017
 ;;21,"54868-2351-03 ")
 ;;2018
 ;;21,"54868-2352-00 ")
 ;;2019
 ;;21,"54868-2352-01 ")
 ;;2020
 ;;21,"54868-2368-00 ")
 ;;2138
 ;;21,"54868-2368-01 ")
 ;;2139
 ;;21,"54868-2368-02 ")
 ;;2140
 ;;21,"54868-2644-00 ")
 ;;84
 ;;21,"54868-2644-01 ")
 ;;85
 ;;21,"54868-2644-02 ")
 ;;86
 ;;21,"54868-2645-00 ")
 ;;87
 ;;21,"54868-2645-01 ")
 ;;88
 ;;21,"54868-2665-00 ")
 ;;24
 ;;21,"54868-2665-01 ")
 ;;25
 ;;21,"54868-2666-01 ")
 ;;26
 ;;21,"54868-2666-02 ")
 ;;27
 ;;21,"54868-2666-03 ")
 ;;28
 ;;21,"54868-2666-04 ")
 ;;29
 ;;21,"54868-3279-00 ")
 ;;2141
 ;;21,"54868-3279-02 ")
 ;;2142
 ;;21,"54868-3279-03 ")
 ;;2143
 ;;21,"54868-3307-00 ")
 ;;30
 ;;21,"54868-3307-01 ")
 ;;31
 ;;21,"54868-3443-00 ")
 ;;1319
 ;;21,"54868-3445-00 ")
 ;;32
 ;;21,"54868-3445-01 ")
 ;;33
 ;;21,"54868-3690-01 ")
 ;;2021
 ;;21,"54868-3723-01 ")
 ;;514
 ;;21,"54868-3724-01 ")
 ;;515
 ;;21,"54868-3724-02 ")
 ;;516
 ;;21,"54868-3724-03 ")
 ;;517
 ;;21,"54868-3725-01 ")
 ;;518
 ;;21,"54868-3725-02 ")
 ;;519
 ;;21,"54868-3769-00 ")
 ;;402
 ;;21,"54868-3846-00 ")
 ;;89
 ;;21,"54868-3906-00 ")
 ;;338
 ;;21,"54868-3906-01 ")
 ;;339
 ;;21,"54868-4003-00 ")
 ;;2514
 ;;21,"54868-4062-00 ")
 ;;624
 ;;21,"54868-4062-01 ")
 ;;625
 ;;21,"54868-4066-00 ")
 ;;2075
 ;;21,"54868-4066-01 ")
 ;;2076
 ;;21,"54868-4073-00 ")
 ;;2077
 ;;21,"54868-4073-01 ")
 ;;2078
 ;;21,"54868-4073-02 ")
 ;;2079
 ;;21,"54868-4073-03 ")
 ;;2080
 ;;21,"54868-4074-00 ")
 ;;2081
 ;;21,"54868-4074-01 ")
 ;;2082
 ;;21,"54868-4074-02 ")
 ;;2083
 ;;21,"54868-4074-03 ")
 ;;2084
 ;;21,"54868-4074-04 ")
 ;;2085
 ;;21,"54868-4088-00 ")
 ;;2439
 ;;21,"54868-4088-01 ")
 ;;2440
 ;;21,"54868-4088-02 ")
 ;;2441
 ;;21,"54868-4209-00 ")
 ;;2144
 ;;21,"54868-4331-00 ")
 ;;806
 ;;21,"54868-4331-01 ")
 ;;807
 ;;21,"54868-4331-02 ")
 ;;808
 ;;21,"54868-4332-00 ")
 ;;809
 ;;21,"54868-4332-01 ")
 ;;810
 ;;21,"54868-4332-02 ")
 ;;811
 ;;21,"54868-4357-00 ")
 ;;812
 ;;21,"54868-4357-01 ")
 ;;813
 ;;21,"54868-4357-02 ")
 ;;814
 ;;21,"54868-4357-03 ")
 ;;815
 ;;21,"54868-4358-00 ")
 ;;816
 ;;21,"54868-4358-01 ")
 ;;817
 ;;21,"54868-4358-02 ")
 ;;818
 ;;21,"54868-4479-00 ")
 ;;2428
 ;;21,"54868-4479-01 ")
 ;;2429
 ;;21,"54868-4479-02 ")
 ;;2430
 ;;21,"54868-4552-00 ")
 ;;68
 ;;21,"54868-4552-01 ")
 ;;69
 ;;21,"54868-4555-00 ")
 ;;70
 ;;21,"54868-4555-01 ")
 ;;71
 ;;21,"54868-4637-00 ")
 ;;1236
 ;;21,"54868-4637-01 ")
 ;;1237
 ;;21,"54868-4637-02 ")
 ;;1238
 ;;21,"54868-4637-03 ")
 ;;1239
 ;;21,"54868-4646-00 ")
 ;;1671
 ;;21,"54868-4646-01 ")
 ;;1672
 ;;21,"54868-4646-02 ")
 ;;1673
 ;;21,"54868-4646-03 ")
 ;;1674
 ;;21,"54868-4656-00 ")
 ;;1675
 ;;21,"54868-4656-01 ")
 ;;1676
 ;;21,"54868-4657-00 ")
 ;;1677
 ;;21,"54868-4657-01 ")
 ;;1678
 ;;21,"54868-4657-02 ")
 ;;1679
 ;;21,"54868-4657-03 ")
 ;;1680
 ;;21,"54868-4657-04 ")
 ;;1681
 ;;21,"54868-4658-00 ")
 ;;1682
 ;;21,"54868-4658-01 ")
 ;;1683
 ;;21,"54868-4658-02 ")
 ;;1684
 ;;21,"54868-4658-03 ")
 ;;1685
 ;;21,"54868-4678-00 ")
 ;;1686
 ;;21,"54868-4678-01 ")
 ;;1687
 ;;21,"54868-4780-00 ")
 ;;1688
 ;;21,"54868-4780-01 ")
 ;;1689
 ;;21,"54868-4785-00 ")
 ;;1240
 ;;21,"54868-4785-01 ")
 ;;1241
 ;;21,"54868-4785-02 ")
 ;;1242
 ;;21,"54868-4785-03 ")
 ;;1243
 ;;21,"54868-4870-00 ")
 ;;2086
 ;;21,"54868-4870-01 ")
 ;;2087
 ;;21,"54868-4870-02 ")
 ;;2088
 ;;21,"54868-4904-00 ")
 ;;2055
 ;;21,"54868-4904-01 ")
 ;;2056
 ;;21,"54868-4977-00 ")
 ;;1244
 ;;21,"54868-4977-01 ")
 ;;1245
 ;;21,"54868-4977-02 ")
 ;;1246
 ;;21,"54868-5001-00 ")
 ;;224
 ;;21,"54868-5001-01 ")
 ;;225
 ;;21,"54868-5055-00 ")
 ;;1072
 ;;21,"54868-5064-00 ")
 ;;1073
 ;;21,"54868-5064-01 ")
 ;;1074
 ;;21,"54868-5079-00 ")
 ;;226
 ;;21,"54868-5079-01 ")
 ;;227
 ;;21,"54868-5099-00 ")
 ;;2112
 ;;21,"54868-5099-01 ")
 ;;2113
 ;;21,"54868-5100-00 ")
 ;;1028
 ;;21,"54868-5100-01 ")
 ;;1029
 ;;21,"54868-5182-00 ")
 ;;1075
 ;;21,"54868-5182-01 ")
 ;;1076
 ;;21,"54868-5182-02 ")
 ;;1077
 ;;21,"54868-5196-00 ")
 ;;520
 ;;21,"54868-5196-02 ")
 ;;521
 ;;21,"54868-5204-00 ")
 ;;228
 ;;21,"54868-5241-00 ")
 ;;2246
 ;;21,"54868-5241-01 ")
 ;;2247
 ;;21,"54868-5241-02 ")
 ;;2248
 ;;21,"54868-5245-00 ")
 ;;2249
 ;;21,"54868-5245-01 ")
 ;;2250
 ;;21,"54868-5245-02 ")
 ;;2251
 ;;21,"54868-5246-00 ")
 ;;2252
 ;;21,"54868-5246-01 ")
 ;;2253
 ;;21,"54868-5256-00 ")
 ;;340
 ;;21,"54868-5279-00 ")
 ;;2254
 ;;21,"54868-5296-00 ")
 ;;341
 ;;21,"54868-5313-00 ")
 ;;2057