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

BGP51J2.m

Go to the documentation of this file.
BGP51J2 ;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,"16590-0351-20 ")
 ;;630
 ;;21,"16590-0351-30 ")
 ;;631
 ;;21,"16590-0351-60 ")
 ;;632
 ;;21,"16590-0351-72 ")
 ;;633
 ;;21,"16590-0351-90 ")
 ;;634
 ;;21,"16590-0436-06 ")
 ;;2542
 ;;21,"16590-0436-10 ")
 ;;2543
 ;;21,"16590-0436-20 ")
 ;;2544
 ;;21,"16590-0436-25 ")
 ;;2545
 ;;21,"16590-0436-28 ")
 ;;2546
 ;;21,"16590-0436-30 ")
 ;;2547
 ;;21,"16590-0436-60 ")
 ;;2548
 ;;21,"16590-0436-90 ")
 ;;2549
 ;;21,"16590-0437-30 ")
 ;;549
 ;;21,"16590-0437-45 ")
 ;;550
 ;;21,"16590-0437-60 ")
 ;;551
 ;;21,"16590-0437-72 ")
 ;;552
 ;;21,"16590-0437-90 ")
 ;;553
 ;;21,"16590-0470-20 ")
 ;;1035
 ;;21,"16590-0470-30 ")
 ;;1036
 ;;21,"16590-0470-60 ")
 ;;1037
 ;;21,"16590-0470-90 ")
 ;;1038
 ;;21,"16590-0485-30 ")
 ;;1275
 ;;21,"16590-0485-60 ")
 ;;1276
 ;;21,"16590-0500-25 ")
 ;;1399
 ;;21,"16590-0500-28 ")
 ;;1400
 ;;21,"16590-0500-30 ")
 ;;1401
 ;;21,"16590-0500-60 ")
 ;;1402
 ;;21,"16590-0500-72 ")
 ;;1403
 ;;21,"16590-0500-90 ")
 ;;1404
 ;;21,"16590-0501-25 ")
 ;;1353
 ;;21,"16590-0501-28 ")
 ;;1354
 ;;21,"16590-0501-30 ")
 ;;1355
 ;;21,"16590-0501-60 ")
 ;;1356
 ;;21,"16590-0501-72 ")
 ;;1357
 ;;21,"16590-0501-90 ")
 ;;1358
 ;;21,"16590-0502-30 ")
 ;;1320
 ;;21,"16590-0502-60 ")
 ;;1321
 ;;21,"16590-0502-72 ")
 ;;1322
 ;;21,"16590-0502-90 ")
 ;;1323
 ;;21,"16590-0522-30 ")
 ;;1804
 ;;21,"16590-0522-60 ")
 ;;1805
 ;;21,"16590-0522-72 ")
 ;;1806
 ;;21,"16590-0522-90 ")
 ;;1807
 ;;21,"16590-0527-10 ")
 ;;2371
 ;;21,"16590-0527-14 ")
 ;;2372
 ;;21,"16590-0527-15 ")
 ;;2373
 ;;21,"16590-0527-20 ")
 ;;2374
 ;;21,"16590-0527-25 ")
 ;;2375
 ;;21,"16590-0527-28 ")
 ;;2376
 ;;21,"16590-0527-30 ")
 ;;2377
 ;;21,"16590-0527-40 ")
 ;;2378
 ;;21,"16590-0527-45 ")
 ;;2379
 ;;21,"16590-0527-60 ")
 ;;2380
 ;;21,"16590-0527-71 ")
 ;;2381
 ;;21,"16590-0527-90 ")
 ;;2382
 ;;21,"16590-0527-93 ")
 ;;2383
 ;;21,"16590-0528-10 ")
 ;;2065
 ;;21,"16590-0528-15 ")
 ;;2066
 ;;21,"16590-0528-20 ")
 ;;2067
 ;;21,"16590-0528-25 ")
 ;;2068
 ;;21,"16590-0528-30 ")
 ;;2069
 ;;21,"16590-0528-40 ")
 ;;2070
 ;;21,"16590-0528-56 ")
 ;;2071
 ;;21,"16590-0528-60 ")
 ;;2072
 ;;21,"16590-0528-71 ")
 ;;2073
 ;;21,"16590-0528-90 ")
 ;;2074
 ;;21,"16590-0541-30 ")
 ;;449
 ;;21,"16590-0541-60 ")
 ;;450
 ;;21,"16590-0541-72 ")
 ;;451
 ;;21,"16590-0541-90 ")
 ;;452
 ;;21,"16590-0562-15 ")
 ;;2487
 ;;21,"16590-0562-25 ")
 ;;2488
 ;;21,"16590-0562-28 ")
 ;;2489
 ;;21,"16590-0562-30 ")
 ;;2490
 ;;21,"16590-0562-60 ")
 ;;2491
 ;;21,"16590-0562-90 ")
 ;;2492
 ;;21,"16590-0565-30 ")
 ;;563
 ;;21,"16590-0565-60 ")
 ;;564
 ;;21,"16590-0565-72 ")
 ;;565
 ;;21,"16590-0565-90 ")
 ;;566
 ;;21,"16590-0567-30 ")
 ;;1173
 ;;21,"16590-0567-60 ")
 ;;1174
 ;;21,"16590-0567-90 ")
 ;;1175
 ;;21,"16590-0577-30 ")
 ;;1478
 ;;21,"16590-0577-60 ")
 ;;1479
 ;;21,"16590-0577-90 ")
 ;;1480
 ;;21,"16590-0581-30 ")
 ;;895
 ;;21,"16590-0581-60 ")
 ;;896
 ;;21,"16590-0581-72 ")
 ;;897
 ;;21,"16590-0581-90 ")
 ;;898
 ;;21,"16590-0629-28 ")
 ;;1813
 ;;21,"16590-0629-30 ")
 ;;1814
 ;;21,"16590-0629-90 ")
 ;;1815
 ;;21,"16590-0631-30 ")
 ;;1142
 ;;21,"16590-0631-60 ")
 ;;1143
 ;;21,"16590-0661-30 ")
 ;;1755
 ;;21,"16590-0661-60 ")
 ;;1756
 ;;21,"16590-0661-90 ")
 ;;1757
 ;;21,"16590-0709-60 ")
 ;;620
 ;;21,"16590-0709-90 ")
 ;;621
 ;;21,"16590-0764-30 ")
 ;;1282
 ;;21,"16590-0772-60 ")
 ;;907
 ;;21,"16590-0800-30 ")
 ;;585
 ;;21,"16590-0804-30 ")
 ;;1508
 ;;21,"16590-0804-72 ")
 ;;1509
 ;;21,"16590-0858-60 ")
 ;;653
 ;;21,"16590-0858-90 ")
 ;;654
 ;;21,"16590-0911-30 ")
 ;;933
 ;;21,"16590-0911-72 ")
 ;;934
 ;;21,"16590-0943-25 ")
 ;;2509
 ;;21,"16590-0943-28 ")
 ;;2510
 ;;21,"16590-0943-30 ")
 ;;2511
 ;;21,"16590-0943-56 ")
 ;;2512
 ;;21,"16590-0943-60 ")
 ;;2513
 ;;21,"16590-0943-72 ")
 ;;2514
 ;;21,"16590-0943-90 ")
 ;;2515
 ;;21,"16590-0955-25 ")
 ;;2599
 ;;21,"16590-0955-28 ")
 ;;2600
 ;;21,"16590-0955-30 ")
 ;;2601
 ;;21,"16590-0955-60 ")
 ;;2602
 ;;21,"16590-0955-72 ")
 ;;2603
 ;;21,"16590-0955-90 ")
 ;;2604
 ;;21,"16714-0551-02 ")
 ;;1758
 ;;21,"16714-0561-02 ")
 ;;1812
 ;;21,"16714-0621-01 ")
 ;;2081
 ;;21,"16714-0621-02 ")
 ;;2082
 ;;21,"16714-0622-01 ")
 ;;2393
 ;;21,"16714-0622-02 ")
 ;;2394
 ;;21,"17856-0423-01 ")
 ;;1608
 ;;21,"17856-0423-03 ")
 ;;1609
 ;;21,"17856-0423-05 ")
 ;;1610
 ;;21,"21695-0105-14 ")
 ;;1816
 ;;21,"21695-0105-30 ")
 ;;1817
 ;;21,"21695-0105-60 ")
 ;;1818
 ;;21,"21695-0139-60 ")
 ;;935
 ;;21,"21695-0209-00 ")
 ;;655
 ;;21,"21695-0209-20 ")
 ;;656
 ;;21,"21695-0209-30 ")
 ;;657
 ;;21,"21695-0209-60 ")
 ;;658
 ;;21,"21695-0209-72 ")
 ;;659
 ;;21,"21695-0209-90 ")
 ;;660
 ;;21,"21695-0211-15 ")
 ;;1873
 ;;21,"21695-0211-30 ")
 ;;1874
 ;;21,"21695-0212-15 ")
 ;;2146
 ;;21,"21695-0212-30 ")
 ;;2147
 ;;21,"21695-0212-45 ")
 ;;2148
 ;;21,"21695-0213-15 ")
 ;;2540
 ;;21,"21695-0213-30 ")
 ;;2541
 ;;21,"21695-0225-30 ")
 ;;1359
 ;;21,"21695-0226-15 ")
 ;;1397
 ;;21,"21695-0226-30 ")
 ;;1398
 ;;21,"21695-0251-20 ")
 ;;148
 ;;21,"21695-0251-30 ")
 ;;149
 ;;21,"21695-0251-60 ")
 ;;150
 ;;21,"21695-0251-90 ")
 ;;151
 ;;21,"21695-0252-30 ")
 ;;409
 ;;21,"21695-0252-60 ")
 ;;410
 ;;21,"21695-0252-90 ")
 ;;411
 ;;21,"21695-0253-30 ")
 ;;546
 ;;21,"21695-0253-60 ")
 ;;547
 ;;21,"21695-0253-90 ")
 ;;548
 ;;21,"21695-0257-08 ")
 ;;891
 ;;21,"21695-0257-28 ")
 ;;892
 ;;21,"21695-0257-30 ")
 ;;893
 ;;21,"21695-0257-60 ")
 ;;894
 ;;21,"21695-0258-28 ")
 ;;1032
 ;;21,"21695-0258-30 ")
 ;;1033
 ;;21,"21695-0258-60 ")
 ;;1034
 ;;21,"21695-0319-30 ")
 ;;2493
 ;;21,"21695-0351-16 ")
 ;;1602
 ;;21,"21695-0354-60 ")
 ;;1021
 ;;21,"21695-0376-30 ")
 ;;1750
 ;;21,"21695-0376-60 ")
 ;;1751
 ;;21,"21695-0441-30 ")
 ;;1141
 ;;21,"21695-0446-30 ")
 ;;1
 ;;21,"21695-0446-60 ")
 ;;2
 ;;21,"21695-0446-90 ")
 ;;3
 ;;21,"21695-0506-07 ")
 ;;2075
 ;;21,"21695-0506-10 ")
 ;;2076
 ;;21,"21695-0506-15 ")
 ;;2077
 ;;21,"21695-0506-30 ")
 ;;2078
 ;;21,"21695-0506-60 ")
 ;;2079
 ;;21,"21695-0506-90 ")
 ;;2080
 ;;21,"21695-0507-04 ")
 ;;2384
 ;;21,"21695-0507-07 ")
 ;;2385
 ;;21,"21695-0507-10 ")
 ;;2386
 ;;21,"21695-0507-14 ")
 ;;2387
 ;;21,"21695-0507-15 ")
 ;;2388
 ;;21,"21695-0507-20 ")
 ;;2389
 ;;21,"21695-0507-30 ")
 ;;2390
 ;;21,"21695-0507-60 ")
 ;;2391
 ;;21,"21695-0507-90 ")
 ;;2392
 ;;21,"21695-0594-16 ")
 ;;1621
 ;;21,"21695-0843-60 ")
 ;;908
 ;;21,"21695-0890-30 ")
 ;;1568
 ;;21,"21695-0943-30 ")
 ;;1245
 ;;21,"21695-0970-16 ")
 ;;1622
 ;;21,"23155-0128-01 ")
 ;;1546
 ;;21,"23155-0129-01 ")
 ;;1553
 ;;21,"23490-5047-00 ")
 ;;49
 ;;21,"23490-5047-01 ")
 ;;50
 ;;21,"23490-5047-02 ")
 ;;51
 ;;21,"23490-5047-03 ")
 ;;52
 ;;21,"23490-5047-04 ")
 ;;53
 ;;21,"23490-5050-00 ")
 ;;206
 ;;21,"23490-5050-01 ")
 ;;207
 ;;21,"23490-5050-04 ")
 ;;208
 ;;21,"23490-5050-05 ")
 ;;209
 ;;21,"23490-5050-06 ")
 ;;210
 ;;21,"23490-5050-08 ")
 ;;211
 ;;21,"23490-5050-09 ")
 ;;212
 ;;21,"23490-5051-01 ")
 ;;382
 ;;21,"23490-5051-02 ")
 ;;383
 ;;21,"23490-5051-03 ")
 ;;384
 ;;21,"23490-5052-03 ")
 ;;466
 ;;21,"23490-5179-03 ")
 ;;643
 ;;21,"23490-5180-00 ")
 ;;702
 ;;21,"23490-5180-01 ")
 ;;703
 ;;21,"23490-5180-02 ")
 ;;704
 ;;21,"23490-5180-03 ")
 ;;705
 ;;21,"23490-5181-08 ")
 ;;887
 ;;21,"23490-5182-01 ")
 ;;913
 ;;21,"23490-5183-01 ")
 ;;955
 ;;21,"23490-5183-02 ")
 ;;956
 ;;21,"23490-5183-03 ")
 ;;957
 ;;21,"23490-5183-06 ")
 ;;958
 ;;21,"23490-5183-09 ")
 ;;959
 ;;21,"23490-5480-03 ")
 ;;1195
 ;;21,"23490-6489-01 ")
 ;;2453
 ;;21,"23490-6489-06 ")
 ;;2454
 ;;21,"23490-6489-09 ")
 ;;2455
 ;;21,"23490-6825-03 ")
 ;;1070
 ;;21,"23490-7867-00 ")
 ;;706
 ;;21,"23490-7867-03 ")
 ;;707
 ;;21,"23490-7867-06 ")
 ;;708
 ;;21,"23490-9070-00 ")
 ;;709
 ;;21,"29300-0131-01 ")
 ;;1764
 ;;21,"29300-0132-01 ")
 ;;1828
 ;;21,"33261-0008-00 ")
 ;;710
 ;;21,"33261-0008-02 ")
 ;;711
 ;;21,"33261-0008-03 ")
 ;;712
 ;;21,"33261-0008-10 ")
 ;;713
 ;;21,"33261-0008-14 ")
 ;;714
 ;;21,"33261-0008-20 ")
 ;;715
 ;;21,"33261-0008-21 ")
 ;;716
 ;;21,"33261-0008-28 ")
 ;;717
 ;;21,"33261-0008-30 ")
 ;;718
 ;;21,"33261-0008-56 ")
 ;;719
 ;;21,"33261-0008-60 ")
 ;;720
 ;;21,"33261-0008-84 ")
 ;;721
 ;;21,"33261-0008-90 ")
 ;;722
 ;;21,"33261-0040-00 ")
 ;;1196
 ;;21,"33261-0040-30 ")
 ;;1197
 ;;21,"33261-0040-60 ")
 ;;1198
 ;;21,"33261-0040-90 ")
 ;;1199
 ;;21,"33261-0172-07 ")
 ;;2050
 ;;21,"33261-0172-14 ")
 ;;2051
 ;;21,"33261-0172-21 ")
 ;;2052
 ;;21,"33261-0172-28 ")
 ;;2053
 ;;21,"33261-0172-30 ")
 ;;2054
 ;;21,"33261-0172-60 ")
 ;;2055
 ;;21,"33261-0172-90 ")
 ;;2056
 ;;21,"33261-0173-07 ")
 ;;2443
 ;;21,"33261-0173-12 ")
 ;;2444
 ;;21,"33261-0173-14 ")
 ;;2445
 ;;21,"33261-0173-15 ")
 ;;2446
 ;;21,"33261-0173-21 ")
 ;;2447
 ;;21,"33261-0173-28 ")
 ;;2448
 ;;21,"33261-0173-30 ")
 ;;2449
 ;;21,"33261-0173-42 ")
 ;;2450
 ;;21,"33261-0173-60 ")
 ;;2451
 ;;21,"33261-0173-90 ")
 ;;2452
 ;;21,"33261-0177-00 ")
 ;;945
 ;;21,"33261-0177-02 ")
 ;;946
 ;;21,"33261-0177-07 ")
 ;;947
 ;;21,"33261-0177-14 ")
 ;;948
 ;;21,"33261-0177-20 ")
 ;;949
 ;;21,"33261-0177-21 ")
 ;;950
 ;;21,"33261-0177-28 ")
 ;;951
 ;;21,"33261-0177-30 ")
 ;;952
 ;;21,"33261-0177-60 ")
 ;;953
 ;;21,"33261-0177-90 ")
 ;;954
 ;;21,"33261-0358-00 ")
 ;;371
 ;;21,"33261-0358-02 ")
 ;;372
 ;;21,"33261-0358-03 ")
 ;;373
 ;;21,"33261-0358-07 ")
 ;;374
 ;;21,"33261-0358-14 ")
 ;;375
 ;;21,"33261-0358-20 ")
 ;;376
 ;;21,"33261-0358-21 ")
 ;;377
 ;;21,"33261-0358-28 ")
 ;;378
 ;;21,"33261-0358-30 ")
 ;;379
 ;;21,"33261-0358-60 ")
 ;;380
 ;;21,"33261-0358-90 ")
 ;;381
 ;;21,"33261-0363-30 ")
 ;;467
 ;;21,"33261-0363-60 ")
 ;;468
 ;;21,"33261-0363-90 ")
 ;;469
 ;;21,"33261-0454-02 ")
 ;;1824
 ;;21,"33261-0454-30 ")
 ;;1825
 ;;21,"33261-0454-60 ")
 ;;1826
 ;;21,"33261-0454-90 ")
 ;;1827
 ;;21,"33261-0459-02 ")
 ;;45
 ;;21,"33261-0459-30 ")
 ;;46
 ;;21,"33261-0459-60 ")
 ;;47
 ;;21,"33261-0459-90 ")
 ;;48
 ;;21,"33261-0486-30 ")
 ;;1761
 ;;21,"33261-0486-60 ")
 ;;1762
 ;;21,"33261-0486-90 ")
 ;;1763
 ;;21,"33261-0626-30 ")
 ;;523
 ;;21,"33261-0626-60 ")
 ;;524
 ;;21,"33261-0626-90 ")
 ;;525
 ;;21,"33261-0652-07 ")
 ;;2526
 ;;21,"33261-0652-14 ")
 ;;2527
 ;;21,"33261-0652-30 ")
 ;;2528
 ;;21,"33261-0652-60 ")
 ;;2529
 ;;21,"33261-0669-30 ")
 ;;884
 ;;21,"33261-0669-60 ")
 ;;885
 ;;21,"33261-0669-90 ")
 ;;886
 ;;21,"33261-0682-02 ")
 ;;1214
 ;;21,"33261-0682-07 ")
 ;;1215
 ;;21,"33261-0682-14 ")
 ;;1216
 ;;21,"33261-0682-20 ")
 ;;1217
 ;;21,"33261-0682-21 ")
 ;;1218
 ;;21,"33261-0682-28 ")
 ;;1219
 ;;21,"33261-0682-30 ")
 ;;1220
 ;;21,"33261-0682-60 ")
 ;;1221
 ;;21,"33261-0682-90 ")
 ;;1222
 ;;21,"33261-0853-00 ")
 ;;1712
 ;;21,"33261-0853-30 ")
 ;;1713
 ;;21,"33261-0853-60 ")
 ;;1714
 ;;21,"33261-0853-90 ")
 ;;1715
 ;;21,"33261-0854-00 ")
 ;;1723
 ;;21,"33261-0854-30 ")
 ;;1724
 ;;21,"33261-0854-60 ")
 ;;1725
 ;;21,"33261-0854-90 ")
 ;;1726
 ;;21,"33261-0922-00 ")
 ;;914
 ;;21,"33261-0922-30 ")
 ;;915
 ;;21,"33261-0922-60 ")
 ;;916
 ;;21,"33261-0922-90 ")
 ;;917
 ;;21,"33358-0022-15 ")
 ;;42
 ;;21,"33358-0022-30 ")
 ;;43
 ;;21,"33358-0022-60 ")
 ;;44
 ;;21,"33358-0023-00 ")
 ;;213
 ;;21,"33358-0023-20 ")
 ;;214
 ;;21,"33358-0023-30 ")
 ;;215
 ;;21,"33358-0023-60 ")
 ;;216
 ;;21,"33358-0024-00 ")
 ;;368
 ;;21,"33358-0024-30 ")
 ;;369
 ;;21,"33358-0024-60 ")
 ;;370
 ;;21,"33358-0045-30 ")
 ;;1580
 ;;21,"33358-0046-04 ")
 ;;1603
 ;;21,"33358-0058-30 ")
 ;;614
 ;;21,"33358-0059-20 ")
 ;;723
 ;;21,"33358-0059-30 ")
 ;;724
 ;;21,"33358-0059-60 ")
 ;;725
 ;;21,"33358-0060-30 ")
 ;;883
 ;;21,"33358-0061-30 ")
 ;;1028
 ;;21,"33358-0061-90 ")
 ;;1029
 ;;21,"33358-0117-30 ")
 ;;1138
 ;;21,"33358-0117-60 ")
 ;;1139
 ;;21,"33358-0118-30 ")
 ;;1191
 ;;21,"33358-0118-60 ")
 ;;1192
 ;;21,"33358-0119-30 ")
 ;;1212
 ;;21,"33358-0119-60 ")
 ;;1213
 ;;21,"33358-0189-30 ")
 ;;1468
 ;;21,"33358-0189-60 ")
 ;;1469
 ;;21,"33358-0190-30 ")
 ;;1518
 ;;21,"33358-0190-60 ")
 ;;1519
 ;;21,"33358-0191-30 ")
 ;;1526
 ;;21,"33358-0227-30 ")
 ;;1411
 ;;21,"33358-0326-30 ")
 ;;1803
 ;;21,"35356-0005-00 ")
 ;;842
 ;;21,"35356-0424-30 ")
 ;;1193
 ;;21,"35356-0424-60 ")
 ;;1194
 ;;21,"35356-0572-30 ")
 ;;1759
 ;;21,"35356-0572-60 ")
 ;;1760
 ;;21,"35356-0573-30 ")
 ;;1829
 ;;21,"35356-0573-60 ")
 ;;1830
 ;;21,"35356-0574-30 ")
 ;;1742
 ;;21,"35356-0574-60 ")
 ;;1743
 ;;21,"35356-0592-30 ")
 ;;1521
 ;;21,"35356-0615-60 ")
 ;;909
 ;;21,"35356-0645-30 ")
 ;;2046
 ;;21,"35356-0645-60 ")
 ;;2047
 ;;21,"35356-0650-30 ")
 ;;1137
 ;;21,"35356-0656-30 ")
 ;;1831
 ;;21,"35356-0712-00 ")
 ;;222
 ;;21,"35356-0741-30 ")
 ;;520
 ;;21,"35356-0742-30 ")
 ;;363
 ;;21,"35356-0742-60 ")
 ;;364