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

BGP51W4.m

Go to the documentation of this file.
BGP51W4 ;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,"51138-0479-30 ")
 ;;2050
 ;;21,"51138-0480-30 ")
 ;;2051
 ;;21,"51138-0481-30 ")
 ;;2066
 ;;21,"51138-0495-20 ")
 ;;2683
 ;;21,"51138-0495-30 ")
 ;;2684
 ;;21,"51138-0496-30 ")
 ;;2691
 ;;21,"51138-0497-30 ")
 ;;2687
 ;;21,"51138-0498-30 ")
 ;;2694
 ;;21,"51138-0499-30 ")
 ;;2311
 ;;21,"51138-0500-30 ")
 ;;2325
 ;;21,"51138-0501-30 ")
 ;;2347
 ;;21,"51138-0526-30 ")
 ;;2378
 ;;21,"51138-0527-30 ")
 ;;2385
 ;;21,"51138-0537-10 ")
 ;;1871
 ;;21,"51138-0537-30 ")
 ;;1872
 ;;21,"51138-0538-10 ")
 ;;1935
 ;;21,"51138-0538-30 ")
 ;;1936
 ;;21,"51138-0539-10 ")
 ;;1873
 ;;21,"51138-0539-30 ")
 ;;1874
 ;;21,"51138-0540-10 ")
 ;;1933
 ;;21,"51138-0540-30 ")
 ;;1934
 ;;21,"51991-0708-10 ")
 ;;2109
 ;;21,"51991-0708-33 ")
 ;;2110
 ;;21,"51991-0708-90 ")
 ;;2111
 ;;21,"51991-0709-10 ")
 ;;2189
 ;;21,"51991-0709-33 ")
 ;;2190
 ;;21,"51991-0709-90 ")
 ;;2191
 ;;21,"51991-0710-10 ")
 ;;2259
 ;;21,"51991-0710-33 ")
 ;;2260
 ;;21,"51991-0710-90 ")
 ;;2261
 ;;21,"52343-0053-05 ")
 ;;2112
 ;;21,"52343-0053-30 ")
 ;;2113
 ;;21,"52343-0053-90 ")
 ;;2114
 ;;21,"52343-0054-05 ")
 ;;2192
 ;;21,"52343-0054-30 ")
 ;;2193
 ;;21,"52343-0054-90 ")
 ;;2194
 ;;21,"52343-0055-05 ")
 ;;2262
 ;;21,"52343-0055-30 ")
 ;;2263
 ;;21,"52343-0055-90 ")
 ;;2264
 ;;21,"52959-0207-00 ")
 ;;1020
 ;;21,"52959-0207-28 ")
 ;;1021
 ;;21,"52959-0207-30 ")
 ;;1022
 ;;21,"52959-0207-60 ")
 ;;1023
 ;;21,"52959-0449-01 ")
 ;;772
 ;;21,"52959-0449-30 ")
 ;;773
 ;;21,"52959-0449-60 ")
 ;;774
 ;;21,"52959-0598-90 ")
 ;;622
 ;;21,"52959-0822-00 ")
 ;;438
 ;;21,"52959-0822-30 ")
 ;;439
 ;;21,"52959-0822-60 ")
 ;;440
 ;;21,"52959-0823-20 ")
 ;;309
 ;;21,"52959-0823-60 ")
 ;;310
 ;;21,"52959-0860-02 ")
 ;;1642
 ;;21,"52959-0860-30 ")
 ;;1643
 ;;21,"52959-0860-60 ")
 ;;1644
 ;;21,"52959-0860-90 ")
 ;;1645
 ;;21,"52959-0888-00 ")
 ;;153
 ;;21,"52959-0888-30 ")
 ;;154
 ;;21,"52959-0896-01 ")
 ;;1380
 ;;21,"52959-0896-60 ")
 ;;1381
 ;;21,"52959-0936-30 ")
 ;;64
 ;;21,"52959-0936-60 ")
 ;;65
 ;;21,"53002-0446-00 ")
 ;;311
 ;;21,"53002-0446-30 ")
 ;;312
 ;;21,"53002-0446-60 ")
 ;;313
 ;;21,"53002-1111-00 ")
 ;;435
 ;;21,"53002-1111-03 ")
 ;;436
 ;;21,"53002-1111-06 ")
 ;;437
 ;;21,"53002-1251-00 ")
 ;;1024
 ;;21,"53002-1251-03 ")
 ;;1025
 ;;21,"53002-1251-06 ")
 ;;1026
 ;;21,"53002-1422-00 ")
 ;;1374
 ;;21,"53002-1422-03 ")
 ;;1375
 ;;21,"53002-1422-06 ")
 ;;1376
 ;;21,"53002-1445-00 ")
 ;;1649
 ;;21,"53002-1445-03 ")
 ;;1650
 ;;21,"53002-1445-06 ")
 ;;1651
 ;;21,"53217-0095-30 ")
 ;;2195
 ;;21,"53217-0095-90 ")
 ;;2196
 ;;21,"53746-0178-01 ")
 ;;1875
 ;;21,"53746-0178-05 ")
 ;;1876
 ;;21,"53746-0178-10 ")
 ;;1877
 ;;21,"53746-0178-90 ")
 ;;1878
 ;;21,"53746-0179-01 ")
 ;;1931
 ;;21,"53746-0179-05 ")
 ;;1932
 ;;21,"53746-0218-01 ")
 ;;1017
 ;;21,"53746-0218-05 ")
 ;;1018
 ;;21,"53746-0218-10 ")
 ;;1019
 ;;21,"53746-0219-01 ")
 ;;1377
 ;;21,"53746-0219-05 ")
 ;;1378
 ;;21,"53746-0219-10 ")
 ;;1379
 ;;21,"53746-0220-01 ")
 ;;1646
 ;;21,"53746-0220-05 ")
 ;;1647
 ;;21,"53746-0220-10 ")
 ;;1648
 ;;21,"54348-0098-30 ")
 ;;963
 ;;21,"54348-0104-30 ")
 ;;771
 ;;21,"54458-0883-10 ")
 ;;2265
 ;;21,"54458-0884-10 ")
 ;;2184
 ;;21,"54458-0885-10 ")
 ;;2104
 ;;21,"54458-0966-10 ")
 ;;132
 ;;21,"54458-0967-10 ")
 ;;82
 ;;21,"54458-0968-10 ")
 ;;43
 ;;21,"54569-3830-00 ")
 ;;656
 ;;21,"54569-3830-02 ")
 ;;657
 ;;21,"54569-3831-00 ")
 ;;766
 ;;21,"54569-3831-01 ")
 ;;767
 ;;21,"54569-3831-02 ")
 ;;768
 ;;21,"54569-3831-08 ")
 ;;769
 ;;21,"54569-3831-09 ")
 ;;770
 ;;21,"54569-3841-00 ")
 ;;333
 ;;21,"54569-3841-01 ")
 ;;334
 ;;21,"54569-3841-02 ")
 ;;335
 ;;21,"54569-3841-03 ")
 ;;336
 ;;21,"54569-3842-00 ")
 ;;411
 ;;21,"54569-3842-01 ")
 ;;412
 ;;21,"54569-3842-02 ")
 ;;413
 ;;21,"54569-3842-04 ")
 ;;414
 ;;21,"54569-3842-05 ")
 ;;415
 ;;21,"54569-3937-00 ")
 ;;550
 ;;21,"54569-3938-00 ")
 ;;609
 ;;21,"54569-4202-02 ")
 ;;979
 ;;21,"54569-4740-00 ")
 ;;1339
 ;;21,"54569-4880-00 ")
 ;;2100
 ;;21,"54569-4881-00 ")
 ;;2180
 ;;21,"54569-4882-00 ")
 ;;2251
 ;;21,"54569-5353-00 ")
 ;;1350
 ;;21,"54569-5353-02 ")
 ;;1351
 ;;21,"54569-5353-03 ")
 ;;1352
 ;;21,"54569-5353-04 ")
 ;;1353
 ;;21,"54569-5353-05 ")
 ;;1354
 ;;21,"54569-5353-06 ")
 ;;1355
 ;;21,"54569-5360-00 ")
 ;;1009
 ;;21,"54569-5360-03 ")
 ;;1010
 ;;21,"54569-5360-04 ")
 ;;1011
 ;;21,"54569-5360-05 ")
 ;;1012
 ;;21,"54569-5360-06 ")
 ;;1013
 ;;21,"54569-5373-00 ")
 ;;1657
 ;;21,"54569-5373-02 ")
 ;;1658
 ;;21,"54569-5373-03 ")
 ;;1659
 ;;21,"54569-5373-04 ")
 ;;1660
 ;;21,"54569-5373-05 ")
 ;;1661
 ;;21,"54569-5546-00 ")
 ;;1867
 ;;21,"54569-5546-01 ")
 ;;1868
 ;;21,"54569-5546-02 ")
 ;;1869
 ;;21,"54569-5546-03 ")
 ;;1870
 ;;21,"54569-5547-00 ")
 ;;511
 ;;21,"54569-5547-02 ")
 ;;512
 ;;21,"54569-5548-00 ")
 ;;596
 ;;21,"54569-5548-01 ")
 ;;597
 ;;21,"54569-5548-02 ")
 ;;598
 ;;21,"54569-5618-00 ")
 ;;2512
 ;;21,"54569-5618-01 ")
 ;;2513
 ;;21,"54569-5618-02 ")
 ;;2514
 ;;21,"54569-5618-03 ")
 ;;2515
 ;;21,"54569-5619-00 ")
 ;;2562
 ;;21,"54569-5619-01 ")
 ;;2563
 ;;21,"54569-5619-02 ")
 ;;2564
 ;;21,"54569-5619-03 ")
 ;;2565
 ;;21,"54569-5619-04 ")
 ;;2566
 ;;21,"54569-5855-00 ")
 ;;128
 ;;21,"54569-5855-01 ")
 ;;129
 ;;21,"54569-5855-02 ")
 ;;130
 ;;21,"54569-5855-03 ")
 ;;131
 ;;21,"54569-5925-00 ")
 ;;2065
 ;;21,"54569-5991-00 ")
 ;;2432
 ;;21,"54569-5992-00 ")
 ;;2433
 ;;21,"54569-5992-01 ")
 ;;2434
 ;;21,"54569-5993-00 ")
 ;;2455
 ;;21,"54569-5993-01 ")
 ;;2456
 ;;21,"54569-6072-00 ")
 ;;83
 ;;21,"54569-6072-01 ")
 ;;84
 ;;21,"54569-6072-02 ")
 ;;85
 ;;21,"54569-6072-03 ")
 ;;86
 ;;21,"54569-6354-00 ")
 ;;2105
 ;;21,"54569-6354-01 ")
 ;;2106
 ;;21,"54569-6355-00 ")
 ;;2185
 ;;21,"54569-6355-01 ")
 ;;2186
 ;;21,"54569-6356-00 ")
 ;;2255
 ;;21,"54569-6356-01 ")
 ;;2256
 ;;21,"54569-6507-00 ")
 ;;11
 ;;21,"54569-6523-00 ")
 ;;1937
 ;;21,"54738-0925-01 ")
 ;;1014
 ;;21,"54738-0925-02 ")
 ;;1015
 ;;21,"54738-0925-03 ")
 ;;1016
 ;;21,"54738-0926-01 ")
 ;;1356
 ;;21,"54738-0926-02 ")
 ;;1357
 ;;21,"54738-0926-03 ")
 ;;1358
 ;;21,"54738-0927-01 ")
 ;;1654
 ;;21,"54738-0927-02 ")
 ;;1655
 ;;21,"54738-0927-03 ")
 ;;1656
 ;;21,"54868-0036-00 ")
 ;;17
 ;;21,"54868-0036-02 ")
 ;;18
 ;;21,"54868-0036-04 ")
 ;;19
 ;;21,"54868-0795-00 ")
 ;;2430
 ;;21,"54868-0830-00 ")
 ;;1974
 ;;21,"54868-0830-01 ")
 ;;1975
 ;;21,"54868-0877-01 ")
 ;;16
 ;;21,"54868-1020-00 ")
 ;;962
 ;;21,"54868-1097-00 ")
 ;;2383
 ;;21,"54868-1097-01 ")
 ;;2384
 ;;21,"54868-1361-01 ")
 ;;972
 ;;21,"54868-2894-00 ")
 ;;1967
 ;;21,"54868-3017-00 ")
 ;;937
 ;;21,"54868-3265-00 ")
 ;;741
 ;;21,"54868-3265-01 ")
 ;;742
 ;;21,"54868-3265-03 ")
 ;;743
 ;;21,"54868-3265-04 ")
 ;;744
 ;;21,"54868-3265-05 ")
 ;;745
 ;;21,"54868-3265-06 ")
 ;;746
 ;;21,"54868-3266-01 ")
 ;;663
 ;;21,"54868-3266-02 ")
 ;;664
 ;;21,"54868-3266-03 ")
 ;;665
 ;;21,"54868-3266-04 ")
 ;;666
 ;;21,"54868-3318-01 ")
 ;;328
 ;;21,"54868-3318-02 ")
 ;;329
 ;;21,"54868-3318-03 ")
 ;;330
 ;;21,"54868-3318-04 ")
 ;;331
 ;;21,"54868-3318-05 ")
 ;;332
 ;;21,"54868-3319-01 ")
 ;;416
 ;;21,"54868-3319-02 ")
 ;;417
 ;;21,"54868-3319-04 ")
 ;;418
 ;;21,"54868-3319-05 ")
 ;;419
 ;;21,"54868-3319-06 ")
 ;;420
 ;;21,"54868-3319-07 ")
 ;;421
 ;;21,"54868-3327-00 ")
 ;;36
 ;;21,"54868-3334-00 ")
 ;;610
 ;;21,"54868-3334-01 ")
 ;;611
 ;;21,"54868-3334-02 ")
 ;;612
 ;;21,"54868-3334-03 ")
 ;;613
 ;;21,"54868-3334-04 ")
 ;;614
 ;;21,"54868-3335-00 ")
 ;;551
 ;;21,"54868-3335-01 ")
 ;;552
 ;;21,"54868-3335-02 ")
 ;;553
 ;;21,"54868-3335-03 ")
 ;;554
 ;;21,"54868-3377-00 ")
 ;;133
 ;;21,"54868-3377-01 ")
 ;;134
 ;;21,"54868-3377-02 ")
 ;;135
 ;;21,"54868-3377-03 ")
 ;;136
 ;;21,"54868-3426-00 ")
 ;;619
 ;;21,"54868-3426-01 ")
 ;;620
 ;;21,"54868-3546-00 ")
 ;;1340
 ;;21,"54868-3546-01 ")
 ;;1341
 ;;21,"54868-3711-00 ")
 ;;958
 ;;21,"54868-3711-01 ")
 ;;959
 ;;21,"54868-4091-00 ")
 ;;920
 ;;21,"54868-4091-01 ")
 ;;921
 ;;21,"54868-4091-02 ")
 ;;922
 ;;21,"54868-4091-03 ")
 ;;923
 ;;21,"54868-4198-00 ")
 ;;2321
 ;;21,"54868-4198-01 ")
 ;;2322
 ;;21,"54868-4221-00 ")
 ;;2350
 ;;21,"54868-4343-00 ")
 ;;2101
 ;;21,"54868-4343-01 ")
 ;;2102
 ;;21,"54868-4354-00 ")
 ;;2181
 ;;21,"54868-4354-01 ")
 ;;2182
 ;;21,"54868-4391-00 ")
 ;;2252
 ;;21,"54868-4391-01 ")
 ;;2253
 ;;21,"54868-4420-00 ")
 ;;508
 ;;21,"54868-4529-00 ")
 ;;2557
 ;;21,"54868-4529-01 ")
 ;;2558
 ;;21,"54868-4529-02 ")
 ;;2559
 ;;21,"54868-4529-03 ")
 ;;2560
 ;;21,"54868-4561-00 ")
 ;;1345
 ;;21,"54868-4561-01 ")
 ;;1346
 ;;21,"54868-4561-02 ")
 ;;1347
 ;;21,"54868-4561-03 ")
 ;;1348
 ;;21,"54868-4561-04 ")
 ;;1349
 ;;21,"54868-4564-00 ")
 ;;1003
 ;;21,"54868-4564-01 ")
 ;;1004
 ;;21,"54868-4564-02 ")
 ;;1005
 ;;21,"54868-4564-03 ")
 ;;1006
 ;;21,"54868-4564-04 ")
 ;;1007
 ;;21,"54868-4564-05 ")
 ;;1008
 ;;21,"54868-4566-00 ")
 ;;1668
 ;;21,"54868-4566-01 ")
 ;;1669
 ;;21,"54868-4566-02 ")
 ;;1670
 ;;21,"54868-4566-03 ")
 ;;1671
 ;;21,"54868-4566-04 ")
 ;;1672
 ;;21,"54868-4609-00 ")
 ;;2503
 ;;21,"54868-4609-01 ")
 ;;2504
 ;;21,"54868-4842-00 ")
 ;;940
 ;;21,"54868-4842-01 ")
 ;;941
 ;;21,"54868-4842-02 ")
 ;;942
 ;;21,"54868-4906-00 ")
 ;;2467
 ;;21,"54868-4965-00 ")
 ;;2680
 ;;21,"54868-4965-01 ")
 ;;2681
 ;;21,"54868-4965-02 ")
 ;;2682
 ;;21,"54868-4988-00 ")
 ;;581
 ;;21,"54868-4988-01 ")
 ;;582
 ;;21,"54868-4988-02 ")
 ;;583
 ;;21,"54868-4988-03 ")
 ;;584
 ;;21,"54868-4988-04 ")
 ;;585
 ;;21,"54868-5148-00 ")
 ;;2505
 ;;21,"54868-5148-01 ")
 ;;2506
 ;;21,"54868-5148-02 ")
 ;;2507
 ;;21,"54868-5148-03 ")
 ;;2508
 ;;21,"54868-5148-04 ")
 ;;2509
 ;;21,"54868-5157-00 ")
 ;;2689
 ;;21,"54868-5157-01 ")
 ;;2690
 ;;21,"54868-5185-00 ")
 ;;2468
 ;;21,"54868-5185-01 ")
 ;;2469
 ;;21,"54868-5185-02 ")
 ;;2470
 ;;21,"54868-5185-03 ")
 ;;2471
 ;;21,"54868-5188-00 ")
 ;;2436
 ;;21,"54868-5188-01 ")
 ;;2437
 ;;21,"54868-5188-02 ")
 ;;2438
 ;;21,"54868-5210-00 ")
 ;;513
 ;;21,"54868-5210-01 ")
 ;;514
 ;;21,"54868-5210-02 ")
 ;;515
 ;;21,"54868-5210-03 ")
 ;;516
 ;;21,"54868-5217-00 ")
 ;;1852
 ;;21,"54868-5217-01 ")
 ;;1853
 ;;21,"54868-5217-02 ")
 ;;1854
 ;;21,"54868-5217-03 ")
 ;;1855
 ;;21,"54868-5217-04 ")
 ;;1856
 ;;21,"54868-5217-05 ")
 ;;1857
 ;;21,"54868-5243-00 ")
 ;;2571
 ;;21,"54868-5243-01 ")
 ;;2572
 ;;21,"54868-5243-02 ")
 ;;2573
 ;;21,"54868-5243-03 ")
 ;;2574
 ;;21,"54868-5243-04 ")
 ;;2575
 ;;21,"54868-5249-00 ")
 ;;2314
 ;;21,"54868-5249-01 ")
 ;;2315
 ;;21,"54868-5262-00 ")
 ;;2695
 ;;21,"54868-5262-01 ")
 ;;2696
 ;;21,"54868-5364-00 ")
 ;;494
 ;;21,"54868-5364-01 ")
 ;;495
 ;;21,"54868-5364-02 ")
 ;;496
 ;;21,"54868-5376-00 ")
 ;;2688
 ;;21,"54868-5380-00 ")
 ;;1993
 ;;21,"54868-5380-01 ")
 ;;1994
 ;;21,"54868-5381-00 ")
 ;;2018
 ;;21,"54868-5381-01 ")
 ;;2019
 ;;21,"54868-5381-02 ")
 ;;2020
 ;;21,"54868-5384-00 ")
 ;;6
 ;;21,"54868-5384-01 ")
 ;;9
 ;;21,"54868-5457-00 ")
 ;;79
 ;;21,"54868-5457-01 ")
 ;;80
 ;;21,"54868-5457-02 ")
 ;;81
 ;;21,"54868-5467-00 ")
 ;;2451
 ;;21,"54868-5467-01 ")
 ;;2452
 ;;21,"54868-5467-02 ")
 ;;2453
 ;;21,"54868-5500-00 ")
 ;;2649
 ;;21,"54868-5500-01 ")
 ;;2650
 ;;21,"54868-5500-02 ")
 ;;2651
 ;;21,"54868-5505-00 ")
 ;;1938
 ;;21,"54868-5505-01 ")
 ;;1939
 ;;21,"54868-5505-02 ")
 ;;1940
 ;;21,"54868-5553-00 ")
 ;;2664
 ;;21,"54868-5553-01 ")
 ;;2665
 ;;21,"54868-5553-02 ")
 ;;2666
 ;;21,"54868-5558-00 ")
 ;;1963
 ;;21,"54868-5558-01 ")
 ;;1964
 ;;21,"54868-5712-00 ")
 ;;912
 ;;21,"54868-5739-00 ")
 ;;2646
 ;;21,"54868-5840-00 ")
 ;;2063
 ;;21,"54868-5840-01 ")
 ;;2064
 ;;21,"54868-5973-00 ")
 ;;2379
 ;;21,"54868-6031-00 ")
 ;;2052
 ;;21,"54868-6031-01 ")
 ;;2053
 ;;21,"54868-6255-00 ")
 ;;1985
 ;;21,"54868-6255-01 ")
 ;;1986
 ;;21,"54868-6309-00 ")
 ;;2045
 ;;21,"55045-2138-01 ")
 ;;738
 ;;21,"55045-2138-08 ")
 ;;739
 ;;21,"55045-2265-01 ")
 ;;326
 ;;21,"55045-2265-08 ")
 ;;327
 ;;21,"55045-2266-01 ")
 ;;422
 ;;21,"55045-2322-01 ")
 ;;740
 ;;21,"55045-2504-01 ")
 ;;1342
 ;;21,"55045-2904-00 ")
 ;;991
 ;;21,"55045-2904-02 ")
 ;;992
 ;;21,"55045-2904-06 ")
 ;;993
 ;;21,"55045-2905-00 ")
 ;;1343
 ;;21,"55045-2905-08 ")
 ;;1344
 ;;21,"55045-2906-00 ")
 ;;1662
 ;;21,"55045-2906-01 ")
 ;;1663
 ;;21,"55045-2906-02 ")
 ;;1664
 ;;21,"55045-2906-06 ")
 ;;1665
 ;;21,"55045-2906-08 ")
 ;;1666
 ;;21,"55045-2906-09 ")
 ;;1667
 ;;21,"55045-3045-01 ")
 ;;980
 ;;21,"55045-3045-06 ")
 ;;981
 ;;21,"55045-3045-08 ")
 ;;982
 ;;21,"55045-3300-01 ")
 ;;586
 ;;21,"55045-3434-08 ")
 ;;493
 ;;21,"55045-3761-08 ")
 ;;990
 ;;21,"55048-0241-30 ")
 ;;77
 ;;21,"55048-0242-30 ")
 ;;37
 ;;21,"55048-0243-30 ")
 ;;140