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

BGP51Q3.m

Go to the documentation of this file.
BGP51Q3 ;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,"00603-4224-02 ")
 ;;2624
 ;;21,"00603-4224-32 ")
 ;;2625
 ;;21,"00603-4225-02 ")
 ;;2698
 ;;21,"00603-4225-16 ")
 ;;2699
 ;;21,"00603-4225-32 ")
 ;;2700
 ;;21,"00603-4226-02 ")
 ;;2817
 ;;21,"00603-4226-16 ")
 ;;2818
 ;;21,"00603-4226-32 ")
 ;;2819
 ;;21,"00603-4228-02 ")
 ;;3962
 ;;21,"00603-4228-16 ")
 ;;3963
 ;;21,"00603-4228-32 ")
 ;;3964
 ;;21,"00603-4229-02 ")
 ;;4005
 ;;21,"00603-4229-16 ")
 ;;4006
 ;;21,"00603-4229-32 ")
 ;;4007
 ;;21,"00603-4230-02 ")
 ;;4068
 ;;21,"00603-4230-16 ")
 ;;4069
 ;;21,"00603-4230-32 ")
 ;;4070
 ;;21,"00603-5926-16 ")
 ;;4142
 ;;21,"00603-5927-16 ")
 ;;4153
 ;;21,"00603-5928-16 ")
 ;;4160
 ;;21,"00603-6345-02 ")
 ;;4199
 ;;21,"00603-6345-28 ")
 ;;4200
 ;;21,"00603-6346-02 ")
 ;;4266
 ;;21,"00603-6346-28 ")
 ;;4267
 ;;21,"00603-6347-02 ")
 ;;4311
 ;;21,"00603-6347-28 ")
 ;;4312
 ;;21,"00603-6348-02 ")
 ;;4345
 ;;21,"00603-6348-28 ")
 ;;4346
 ;;21,"00603-6349-02 ")
 ;;4376
 ;;21,"00603-6349-28 ")
 ;;4377
 ;;21,"00781-1178-01 ")
 ;;3624
 ;;21,"00781-1665-01 ")
 ;;1161
 ;;21,"00781-1665-92 ")
 ;;1162
 ;;21,"00781-1666-01 ")
 ;;1376
 ;;21,"00781-1666-92 ")
 ;;1377
 ;;21,"00781-1667-01 ")
 ;;1655
 ;;21,"00781-1667-92 ")
 ;;1656
 ;;21,"00781-1668-01 ")
 ;;1843
 ;;21,"00781-1668-92 ")
 ;;1844
 ;;21,"00781-1669-01 ")
 ;;1057
 ;;21,"00781-1673-01 ")
 ;;1761
 ;;21,"00781-1828-01 ")
 ;;261
 ;;21,"00781-1828-10 ")
 ;;262
 ;;21,"00781-1829-01 ")
 ;;310
 ;;21,"00781-1829-10 ")
 ;;311
 ;;21,"00781-1838-01 ")
 ;;388
 ;;21,"00781-1838-10 ")
 ;;389
 ;;21,"00781-1839-01 ")
 ;;455
 ;;21,"00781-1848-01 ")
 ;;3441
 ;;21,"00781-1891-01 ")
 ;;17
 ;;21,"00781-1892-01 ")
 ;;44
 ;;21,"00781-2126-01 ")
 ;;2130
 ;;21,"00781-2127-01 ")
 ;;2161
 ;;21,"00781-2127-05 ")
 ;;2162
 ;;21,"00781-2128-01 ")
 ;;2218
 ;;21,"00781-2128-05 ")
 ;;2219
 ;;21,"00781-2129-01 ")
 ;;2281
 ;;21,"00781-2129-05 ")
 ;;2282
 ;;21,"00781-2271-01 ")
 ;;3024
 ;;21,"00781-2271-64 ")
 ;;3025
 ;;21,"00781-2272-01 ")
 ;;3048
 ;;21,"00781-2272-10 ")
 ;;3049
 ;;21,"00781-2272-64 ")
 ;;3050
 ;;21,"00781-2273-01 ")
 ;;3110
 ;;21,"00781-2273-10 ")
 ;;3111
 ;;21,"00781-2273-64 ")
 ;;3112
 ;;21,"00781-2274-01 ")
 ;;3193
 ;;21,"00781-2274-10 ")
 ;;3194
 ;;21,"00781-2274-64 ")
 ;;3195
 ;;21,"00781-2277-01 ")
 ;;3164
 ;;21,"00781-2279-01 ")
 ;;3238
 ;;21,"00781-5204-10 ")
 ;;3999
 ;;21,"00781-5204-31 ")
 ;;4000
 ;;21,"00781-5204-92 ")
 ;;4001
 ;;21,"00781-5206-10 ")
 ;;3967
 ;;21,"00781-5206-31 ")
 ;;3968
 ;;21,"00781-5206-92 ")
 ;;3969
 ;;21,"00781-5207-10 ")
 ;;4073
 ;;21,"00781-5207-31 ")
 ;;4074
 ;;21,"00781-5207-92 ")
 ;;4075
 ;;21,"00781-5320-01 ")
 ;;2319
 ;;21,"00781-5321-01 ")
 ;;2323
 ;;21,"00781-5322-01 ")
 ;;2347
 ;;21,"00781-5700-10 ")
 ;;2618
 ;;21,"00781-5700-92 ")
 ;;2619
 ;;21,"00781-5701-10 ")
 ;;2714
 ;;21,"00781-5701-31 ")
 ;;2715
 ;;21,"00781-5701-92 ")
 ;;2716
 ;;21,"00781-5702-10 ")
 ;;2801
 ;;21,"00781-5702-31 ")
 ;;2802
 ;;21,"00781-5702-92 ")
 ;;2803
 ;;21,"00781-5805-10 ")
 ;;2620
 ;;21,"00781-5805-92 ")
 ;;2621
 ;;21,"00781-5806-10 ")
 ;;2711
 ;;21,"00781-5806-31 ")
 ;;2712
 ;;21,"00781-5806-92 ")
 ;;2713
 ;;21,"00781-5807-10 ")
 ;;2804
 ;;21,"00781-5807-31 ")
 ;;2805
 ;;21,"00781-5807-92 ")
 ;;2806
 ;;21,"00781-5816-10 ")
 ;;3970
 ;;21,"00781-5816-31 ")
 ;;3971
 ;;21,"00781-5816-92 ")
 ;;3972
 ;;21,"00781-5817-10 ")
 ;;3996
 ;;21,"00781-5817-31 ")
 ;;3997
 ;;21,"00781-5817-92 ")
 ;;3998
 ;;21,"00781-5818-10 ")
 ;;4076
 ;;21,"00781-5818-31 ")
 ;;4077
 ;;21,"00781-5818-92 ")
 ;;4078
 ;;21,"00781-5936-31 ")
 ;;2356
 ;;21,"00781-5937-31 ")
 ;;2362
 ;;21,"00781-5938-31 ")
 ;;2378
 ;;21,"00781-5938-92 ")
 ;;2379
 ;;21,"00781-5939-31 ")
 ;;2390
 ;;21,"00781-5939-92 ")
 ;;2391
 ;;21,"00781-5948-10 ")
 ;;4203
 ;;21,"00781-5948-92 ")
 ;;4204
 ;;21,"00781-5949-10 ")
 ;;4261
 ;;21,"00781-5949-64 ")
 ;;4262
 ;;21,"00781-5949-92 ")
 ;;4263
 ;;21,"00781-5950-10 ")
 ;;4315
 ;;21,"00781-5950-64 ")
 ;;4316
 ;;21,"00781-5950-92 ")
 ;;4317
 ;;21,"00781-5951-10 ")
 ;;4341
 ;;21,"00781-5951-64 ")
 ;;4342
 ;;21,"00781-5951-92 ")
 ;;4343
 ;;21,"00781-5952-10 ")
 ;;4379
 ;;21,"00781-5952-64 ")
 ;;4380
 ;;21,"00781-5952-92 ")
 ;;4381
 ;;21,"00904-5045-61 ")
 ;;260
 ;;21,"00904-5046-61 ")
 ;;312
 ;;21,"00904-5047-61 ")
 ;;387
 ;;21,"00904-5501-60 ")
 ;;517
 ;;21,"00904-5502-61 ")
 ;;578
 ;;21,"00904-5609-61 ")
 ;;518
 ;;21,"00904-5610-61 ")
 ;;685
 ;;21,"00904-5611-61 ")
 ;;786
 ;;21,"00904-5638-89 ")
 ;;1172
 ;;21,"00904-5639-43 ")
 ;;1384
 ;;21,"00904-5639-46 ")
 ;;1385
 ;;21,"00904-5639-48 ")
 ;;1386
 ;;21,"00904-5639-89 ")
 ;;1387
 ;;21,"00904-5640-46 ")
 ;;1676
 ;;21,"00904-5640-48 ")
 ;;1677
 ;;21,"00904-5640-89 ")
 ;;1678
 ;;21,"00904-5642-89 ")
 ;;1853
 ;;21,"00904-5701-61 ")
 ;;579
 ;;21,"00904-5808-43 ")
 ;;1389
 ;;21,"00904-5808-46 ")
 ;;1390
 ;;21,"00904-5808-48 ")
 ;;1391
 ;;21,"00904-5808-61 ")
 ;;1392
 ;;21,"00904-5808-80 ")
 ;;1393
 ;;21,"00904-5808-89 ")
 ;;1394
 ;;21,"00904-5808-93 ")
 ;;1395
 ;;21,"00904-5809-43 ")
 ;;1668
 ;;21,"00904-5809-46 ")
 ;;1669
 ;;21,"00904-5809-48 ")
 ;;1670
 ;;21,"00904-5809-61 ")
 ;;1671
 ;;21,"00904-5809-80 ")
 ;;1672
 ;;21,"00904-5809-89 ")
 ;;1673
 ;;21,"00904-5809-93 ")
 ;;1674
 ;;21,"00904-5810-43 ")
 ;;1855
 ;;21,"00904-5810-46 ")
 ;;1856
 ;;21,"00904-5810-48 ")
 ;;1857
 ;;21,"00904-5810-52 ")
 ;;1858
 ;;21,"00904-5810-61 ")
 ;;1859
 ;;21,"00904-5810-80 ")
 ;;1860
 ;;21,"00904-5810-89 ")
 ;;1861
 ;;21,"00904-5810-93 ")
 ;;1862
 ;;21,"00904-5811-43 ")
 ;;1173
 ;;21,"00904-5811-46 ")
 ;;1174
 ;;21,"00904-5811-61 ")
 ;;1175
 ;;21,"00904-5811-80 ")
 ;;1176
 ;;21,"00904-5811-89 ")
 ;;1177
 ;;21,"00904-5812-40 ")
 ;;1058
 ;;21,"00904-6189-40 ")
 ;;18
 ;;21,"00904-6190-40 ")
 ;;43
 ;;21,"00904-6191-40 ")
 ;;117
 ;;21,"00904-6192-40 ")
 ;;191
 ;;21,"00955-1040-30 ")
 ;;2425
 ;;21,"00955-1040-90 ")
 ;;2426
 ;;21,"00955-1041-30 ")
 ;;2494
 ;;21,"00955-1041-90 ")
 ;;2495
 ;;21,"00955-1042-30 ")
 ;;2553
 ;;21,"00955-1042-90 ")
 ;;2554
 ;;21,"00955-1045-30 ")
 ;;3860
 ;;21,"00955-1045-90 ")
 ;;3861
 ;;21,"00955-1046-30 ")
 ;;3893
 ;;21,"00955-1046-90 ")
 ;;3894
 ;;21,"10544-0170-30 ")
 ;;686
 ;;21,"10544-0237-30 ")
 ;;3625
 ;;21,"10544-0238-60 ")
 ;;1388
 ;;21,"10544-0239-60 ")
 ;;1675
 ;;21,"10544-0240-30 ")
 ;;1854
 ;;21,"10544-0564-30 ")
 ;;3529
 ;;21,"13411-0106-01 ")
 ;;2440
 ;;21,"13411-0106-03 ")
 ;;2441
 ;;21,"13411-0106-06 ")
 ;;2442
 ;;21,"13411-0106-09 ")
 ;;2443
 ;;21,"13411-0106-15 ")
 ;;2444
 ;;21,"13411-0107-01 ")
 ;;2506
 ;;21,"13411-0107-03 ")
 ;;2507
 ;;21,"13411-0107-06 ")
 ;;2524
 ;;21,"13411-0107-09 ")
 ;;2525
 ;;21,"13411-0107-15 ")
 ;;2526
 ;;21,"13411-0142-01 ")
 ;;2938
 ;;21,"13411-0142-02 ")
 ;;2939
 ;;21,"13411-0142-03 ")
 ;;2940
 ;;21,"13411-0142-06 ")
 ;;2941
 ;;21,"13411-0142-09 ")
 ;;2942
 ;;21,"13411-0143-01 ")
 ;;2972
 ;;21,"13411-0143-02 ")
 ;;2973
 ;;21,"13411-0143-03 ")
 ;;2974
 ;;21,"13411-0143-06 ")
 ;;2975
 ;;21,"13411-0143-09 ")
 ;;2976
 ;;21,"13411-0144-01 ")
 ;;4178
 ;;21,"13411-0144-02 ")
 ;;4179
 ;;21,"13411-0144-03 ")
 ;;4180
 ;;21,"13411-0144-06 ")
 ;;4181
 ;;21,"13411-0144-09 ")
 ;;4182
 ;;21,"13411-0145-01 ")
 ;;4220
 ;;21,"13411-0145-02 ")
 ;;4221
 ;;21,"13411-0145-03 ")
 ;;4222
 ;;21,"13411-0145-06 ")
 ;;4223
 ;;21,"13411-0145-09 ")
 ;;4224
 ;;21,"13411-0156-01 ")
 ;;4278
 ;;21,"13411-0156-02 ")
 ;;4279
 ;;21,"13411-0156-03 ")
 ;;4280
 ;;21,"13411-0156-06 ")
 ;;4281
 ;;21,"13411-0156-09 ")
 ;;4282
 ;;21,"13411-0184-02 ")
 ;;413
 ;;21,"13411-0184-03 ")
 ;;414
 ;;21,"13411-0184-06 ")
 ;;415
 ;;21,"13411-0184-09 ")
 ;;416
 ;;21,"13411-0184-10 ")
 ;;417
 ;;21,"13668-0113-10 ")
 ;;2593
 ;;21,"13668-0113-90 ")
 ;;2594
 ;;21,"13668-0114-10 ")
 ;;2685
 ;;21,"13668-0114-30 ")
 ;;2686
 ;;21,"13668-0114-90 ")
 ;;2687
 ;;21,"13668-0115-10 ")
 ;;2764
 ;;21,"13668-0115-30 ")
 ;;2765
 ;;21,"13668-0115-90 ")
 ;;2766
 ;;21,"13668-0116-10 ")
 ;;3939
 ;;21,"13668-0116-30 ")
 ;;3940
 ;;21,"13668-0116-90 ")
 ;;3941
 ;;21,"13668-0117-10 ")
 ;;4024
 ;;21,"13668-0117-30 ")
 ;;4025
 ;;21,"13668-0117-90 ")
 ;;4026
 ;;21,"13668-0118-10 ")
 ;;4093
 ;;21,"13668-0118-30 ")
 ;;4094
 ;;21,"13668-0118-90 ")
 ;;4095
 ;;21,"13668-0159-30 ")
 ;;4141
 ;;21,"13668-0160-30 ")
 ;;4152
 ;;21,"13668-0161-30 ")
 ;;4159
 ;;21,"13668-0343-30 ")
 ;;3792
 ;;21,"13668-0344-30 ")
 ;;3788
 ;;21,"13668-0345-30 ")
 ;;3786
 ;;21,"13668-0346-30 ")
 ;;3782
 ;;21,"13668-0409-10 ")
 ;;2682
 ;;21,"13668-0409-30 ")
 ;;2683
 ;;21,"13668-0409-90 ")
 ;;2684
 ;;21,"13811-0627-10 ")
 ;;4
 ;;21,"13811-0628-10 ")
 ;;62
 ;;21,"13811-0628-50 ")
 ;;63
 ;;21,"13811-0629-10 ")
 ;;133
 ;;21,"13811-0629-50 ")
 ;;134
 ;;21,"13811-0630-10 ")
 ;;214
 ;;21,"13811-0630-50 ")
 ;;215
 ;;21,"15338-0200-30 ")
 ;;493
 ;;21,"15338-0211-30 ")
 ;;564
 ;;21,"15338-0220-30 ")
 ;;663
 ;;21,"15338-0233-30 ")
 ;;772
 ;;21,"16252-0541-30 ")
 ;;2310
 ;;21,"16252-0542-90 ")
 ;;2332
 ;;21,"16252-0543-90 ")
 ;;2348
 ;;21,"16252-0570-30 ")
 ;;2132
 ;;21,"16252-0571-01 ")
 ;;2174
 ;;21,"16252-0571-50 ")
 ;;2175
 ;;21,"16252-0572-01 ")
 ;;2229
 ;;21,"16252-0572-50 ")
 ;;2230
 ;;21,"16252-0573-01 ")
 ;;2301
 ;;21,"16252-0573-50 ")
 ;;2302
 ;;21,"16252-0610-01 ")
 ;;1973
 ;;21,"16252-0611-01 ")
 ;;1980
 ;;21,"16252-0612-01 ")
 ;;3693
 ;;21,"16252-0613-01 ")
 ;;3697
 ;;21,"16252-0614-01 ")
 ;;3705
 ;;21,"16571-0500-50 ")
 ;;2595
 ;;21,"16571-0501-11 ")
 ;;2681
 ;;21,"16571-0502-11 ")
 ;;2767
 ;;21,"16590-0063-30 ")
 ;;2568
 ;;21,"16590-0259-30 ")
 ;;132
 ;;21,"16590-0277-30 ")
 ;;662
 ;;21,"16590-0280-30 ")
 ;;64
 ;;21,"16590-0306-30 ")
 ;;1463
 ;;21,"16590-0306-60 ")
 ;;1464
 ;;21,"16590-0306-90 ")
 ;;1465
 ;;21,"16590-0307-30 ")
 ;;1614
 ;;21,"16590-0307-60 ")
 ;;1615
 ;;21,"16590-0307-90 ")
 ;;1616
 ;;21,"16590-0309-30 ")
 ;;3659
 ;;21,"16590-0309-60 ")
 ;;3660
 ;;21,"16590-0309-72 ")
 ;;3661
 ;;21,"16590-0309-90 ")
 ;;3662
 ;;21,"16590-0312-30 ")
 ;;4183
 ;;21,"16590-0332-30 ")
 ;;4283
 ;;21,"16590-0356-30 ")
 ;;1932
 ;;21,"16590-0356-60 ")
 ;;1933
 ;;21,"16590-0360-30 ")
 ;;1934
 ;;21,"16590-0360-60 ")
 ;;1935
 ;;21,"16590-0360-90 ")
 ;;1936
 ;;21,"16590-0392-30 ")
 ;;773
 ;;21,"16590-0392-60 ")
 ;;774
 ;;21,"16590-0392-90 ")
 ;;775
 ;;21,"16590-0952-90 ")
 ;;2774
 ;;21,"16590-0954-60 ")
 ;;4099
 ;;21,"16714-0224-01 ")
 ;;4022
 ;;21,"16714-0224-02 ")
 ;;4023
 ;;21,"16714-0225-01 ")
 ;;4096
 ;;21,"16714-0225-02 ")
 ;;4097
 ;;21,"16714-0225-04 ")
 ;;4098
 ;;21,"16714-0226-01 ")
 ;;3942
 ;;21,"16714-0226-02 ")
 ;;3943
 ;;21,"16714-0226-04 ")
 ;;3944
 ;;21,"16714-0581-02 ")
 ;;2596
 ;;21,"16714-0581-03 ")
 ;;2597
 ;;21,"16714-0582-01 ")
 ;;2676
 ;;21,"16714-0582-02 ")
 ;;2677
 ;;21,"16714-0582-03 ")
 ;;2678
 ;;21,"16714-0583-01 ")
 ;;2771
 ;;21,"16714-0583-02 ")
 ;;2772
 ;;21,"16714-0583-03 ")
 ;;2773
 ;;21,"16729-0194-01 ")
 ;;1013
 ;;21,"16729-0194-17 ")
 ;;1014
 ;;21,"16729-0195-01 ")
 ;;1239
 ;;21,"16729-0195-17 ")
 ;;1240
 ;;21,"16729-0196-01 ")
 ;;1461
 ;;21,"16729-0196-17 ")
 ;;1462
 ;;21,"16729-0197-01 ")
 ;;1617
 ;;21,"16729-0197-17 ")
 ;;1618
 ;;21,"16729-0198-01 ")
 ;;1766
 ;;21,"16729-0198-17 ")
 ;;1767
 ;;21,"16729-0199-01 ")
 ;;1930
 ;;21,"16729-0199-17 ")
 ;;1931
 ;;21,"21695-0326-30 ")
 ;;65
 ;;21,"21695-0326-60 ")
 ;;66
 ;;21,"21695-0326-90 ")
 ;;67
 ;;21,"21695-0327-30 ")
 ;;129
 ;;21,"21695-0327-60 ")
 ;;130
 ;;21,"21695-0327-90 ")
 ;;131
 ;;21,"21695-0328-30 ")
 ;;1241
 ;;21,"21695-0328-90 ")
 ;;1242
 ;;21,"21695-0329-15 ")
 ;;1457
 ;;21,"21695-0329-30 ")
 ;;1458
 ;;21,"21695-0329-78 ")
 ;;1459
 ;;21,"21695-0329-90 ")
 ;;1460
 ;;21,"21695-0330-20 ")
 ;;1619
 ;;21,"21695-0330-30 ")
 ;;1620
 ;;21,"21695-0330-60 ")
 ;;1621
 ;;21,"21695-0330-90 ")
 ;;1622
 ;;21,"21695-0331-30 ")
 ;;1937
 ;;21,"21695-0331-40 ")
 ;;1938
 ;;21,"21695-0331-60 ")
 ;;1939
 ;;21,"21695-0331-90 ")
 ;;1940
 ;;21,"21695-0345-30 ")
 ;;1011
 ;;21,"21695-0345-90 ")
 ;;1012
 ;;21,"21695-0393-30 ")
 ;;2020
 ;;21,"21695-0394-30 ")
 ;;2051
 ;;21,"21695-0477-30 ")
 ;;350
 ;;21,"21695-0477-78 ")
 ;;351
 ;;21,"21695-0478-30 ")
 ;;412
 ;;21,"21695-0487-30 ")
 ;;565
 ;;21,"21695-0487-90 ")
 ;;566
 ;;21,"21695-0488-30 ")
 ;;659
 ;;21,"21695-0488-60 ")
 ;;660
 ;;21,"21695-0488-90 ")
 ;;661
 ;;21,"21695-0489-30 ")
 ;;776
 ;;21,"21695-0489-90 ")
 ;;777
 ;;21,"21695-0612-90 ")
 ;;5
 ;;21,"21695-0687-30 ")
 ;;3945
 ;;21,"21695-0714-30 ")
 ;;2679
 ;;21,"21695-0714-90 ")
 ;;2680
 ;;21,"21695-0717-30 ")
 ;;2768
 ;;21,"21695-0717-45 ")
 ;;2769
 ;;21,"21695-0717-90 ")
 ;;2770
 ;;21,"21695-0733-30 ")
 ;;3474
 ;;21,"21695-0734-30 ")
 ;;3563
 ;;21,"21695-0734-60 ")
 ;;3564