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

BGP62Y14.m

Go to the documentation of this file.
BGP62Y14 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"55289-0019-30 ")
 ;;246
 ;;21,"55289-0019-40 ")
 ;;247
 ;;21,"55289-0019-60 ")
 ;;248
 ;;21,"55289-0019-97 ")
 ;;249
 ;;21,"55289-0020-04 ")
 ;;624
 ;;21,"55289-0020-06 ")
 ;;625
 ;;21,"55289-0020-09 ")
 ;;626
 ;;21,"55289-0020-14 ")
 ;;627
 ;;21,"55289-0020-15 ")
 ;;628
 ;;21,"55289-0020-21 ")
 ;;629
 ;;21,"55289-0020-24 ")
 ;;630
 ;;21,"55289-0020-28 ")
 ;;631
 ;;21,"55289-0020-30 ")
 ;;632
 ;;21,"55289-0020-40 ")
 ;;633
 ;;21,"55289-0020-42 ")
 ;;634
 ;;21,"55289-0020-50 ")
 ;;635
 ;;21,"55289-0020-56 ")
 ;;636
 ;;21,"55289-0020-60 ")
 ;;637
 ;;21,"55289-0020-63 ")
 ;;638
 ;;21,"55289-0021-10 ")
 ;;2989
 ;;21,"55289-0021-14 ")
 ;;2990
 ;;21,"55289-0021-20 ")
 ;;2991
 ;;21,"55289-0021-28 ")
 ;;2992
 ;;21,"55289-0025-04 ")
 ;;3329
 ;;21,"55289-0025-20 ")
 ;;3330
 ;;21,"55289-0025-28 ")
 ;;3331
 ;;21,"55289-0025-30 ")
 ;;3332
 ;;21,"55289-0025-40 ")
 ;;3333
 ;;21,"55289-0027-20 ")
 ;;3365
 ;;21,"55289-0033-28 ")
 ;;861
 ;;21,"55289-0033-40 ")
 ;;862
 ;;21,"55289-0043-14 ")
 ;;6030
 ;;21,"55289-0050-40 ")
 ;;3516
 ;;21,"55289-0057-06 ")
 ;;1679
 ;;21,"55289-0057-10 ")
 ;;1680
 ;;21,"55289-0057-15 ")
 ;;1681
 ;;21,"55289-0057-20 ")
 ;;1682
 ;;21,"55289-0057-24 ")
 ;;1683
 ;;21,"55289-0057-28 ")
 ;;1684
 ;;21,"55289-0057-30 ")
 ;;1685
 ;;21,"55289-0057-40 ")
 ;;1686
 ;;21,"55289-0057-97 ")
 ;;1687
 ;;21,"55289-0058-01 ")
 ;;1992
 ;;21,"55289-0058-04 ")
 ;;1993
 ;;21,"55289-0058-08 ")
 ;;1994
 ;;21,"55289-0058-10 ")
 ;;1995
 ;;21,"55289-0058-14 ")
 ;;1996
 ;;21,"55289-0058-17 ")
 ;;1997
 ;;21,"55289-0058-20 ")
 ;;1998
 ;;21,"55289-0058-21 ")
 ;;1999
 ;;21,"55289-0058-24 ")
 ;;2000
 ;;21,"55289-0058-28 ")
 ;;2001
 ;;21,"55289-0058-30 ")
 ;;2002
 ;;21,"55289-0058-40 ")
 ;;2003
 ;;21,"55289-0058-56 ")
 ;;2128
 ;;21,"55289-0072-01 ")
 ;;1688
 ;;21,"55289-0072-40 ")
 ;;1689
 ;;21,"55289-0075-03 ")
 ;;3144
 ;;21,"55289-0075-40 ")
 ;;3145
 ;;21,"55289-0075-56 ")
 ;;3146
 ;;21,"55289-0077-10 ")
 ;;5039
 ;;21,"55289-0081-20 ")
 ;;7023
 ;;21,"55289-0094-10 ")
 ;;4016
 ;;21,"55289-0094-20 ")
 ;;4017
 ;;21,"55289-0094-30 ")
 ;;4018
 ;;21,"55289-0094-40 ")
 ;;4019
 ;;21,"55289-0107-02 ")
 ;;6031
 ;;21,"55289-0107-06 ")
 ;;6032
 ;;21,"55289-0107-10 ")
 ;;6033
 ;;21,"55289-0107-12 ")
 ;;6034
 ;;21,"55289-0107-14 ")
 ;;6035
 ;;21,"55289-0107-20 ")
 ;;6036
 ;;21,"55289-0107-28 ")
 ;;6037
 ;;21,"55289-0107-30 ")
 ;;6038
 ;;21,"55289-0107-40 ")
 ;;6039
 ;;21,"55289-0107-50 ")
 ;;6040
 ;;21,"55289-0107-56 ")
 ;;6041
 ;;21,"55289-0107-60 ")
 ;;6042
 ;;21,"55289-0107-79 ")
 ;;6043
 ;;21,"55289-0107-90 ")
 ;;6044
 ;;21,"55289-0107-93 ")
 ;;6045
 ;;21,"55289-0110-03 ")
 ;;3449
 ;;21,"55289-0110-09 ")
 ;;3450
 ;;21,"55289-0110-20 ")
 ;;3451
 ;;21,"55289-0110-28 ")
 ;;3452
 ;;21,"55289-0110-30 ")
 ;;3453
 ;;21,"55289-0110-40 ")
 ;;3454
 ;;21,"55289-0110-56 ")
 ;;3455
 ;;21,"55289-0112-01 ")
 ;;3517
 ;;21,"55289-0112-04 ")
 ;;3518
 ;;21,"55289-0112-10 ")
 ;;3519
 ;;21,"55289-0112-15 ")
 ;;3520
 ;;21,"55289-0112-20 ")
 ;;3521
 ;;21,"55289-0112-28 ")
 ;;3522
 ;;21,"55289-0112-40 ")
 ;;3523
 ;;21,"55289-0112-56 ")
 ;;3524
 ;;21,"55289-0112-98 ")
 ;;3525
 ;;21,"55289-0182-06 ")
 ;;349
 ;;21,"55289-0182-09 ")
 ;;350
 ;;21,"55289-0182-14 ")
 ;;351
 ;;21,"55289-0182-30 ")
 ;;352
 ;;21,"55289-0182-40 ")
 ;;353
 ;;21,"55289-0201-14 ")
 ;;6452
 ;;21,"55289-0201-20 ")
 ;;6453
 ;;21,"55289-0201-30 ")
 ;;6454
 ;;21,"55289-0202-30 ")
 ;;6524
 ;;21,"55289-0206-10 ")
 ;;3658
 ;;21,"55289-0206-20 ")
 ;;3659
 ;;21,"55289-0206-28 ")
 ;;3660
 ;;21,"55289-0206-30 ")
 ;;3661
 ;;21,"55289-0206-40 ")
 ;;3662
 ;;21,"55289-0206-56 ")
 ;;3663
 ;;21,"55289-0206-97 ")
 ;;3664
 ;;21,"55289-0207-04 ")
 ;;3833
 ;;21,"55289-0207-15 ")
 ;;3834
 ;;21,"55289-0207-20 ")
 ;;3835
 ;;21,"55289-0207-28 ")
 ;;3836
 ;;21,"55289-0207-30 ")
 ;;3837
 ;;21,"55289-0207-40 ")
 ;;3838
 ;;21,"55289-0217-28 ")
 ;;3295
 ;;21,"55289-0217-40 ")
 ;;3296
 ;;21,"55289-0235-60 ")
 ;;6323
 ;;21,"55289-0241-02 ")
 ;;5777
 ;;21,"55289-0241-04 ")
 ;;5778
 ;;21,"55289-0241-06 ")
 ;;5779
 ;;21,"55289-0241-10 ")
 ;;5780
 ;;21,"55289-0241-14 ")
 ;;5781
 ;;21,"55289-0241-15 ")
 ;;5782
 ;;21,"55289-0241-17 ")
 ;;5783
 ;;21,"55289-0241-20 ")
 ;;5784
 ;;21,"55289-0241-28 ")
 ;;5785
 ;;21,"55289-0241-40 ")
 ;;5786
 ;;21,"55289-0241-60 ")
 ;;5787
 ;;21,"55289-0241-93 ")
 ;;5788
 ;;21,"55289-0241-97 ")
 ;;5789
 ;;21,"55289-0274-02 ")
 ;;2819
 ;;21,"55289-0274-03 ")
 ;;2820
 ;;21,"55289-0274-07 ")
 ;;2821
 ;;21,"55289-0310-04 ")
 ;;2700
 ;;21,"55289-0310-06 ")
 ;;2701
 ;;21,"55289-0310-14 ")
 ;;2702
 ;;21,"55289-0371-03 ")
 ;;4529
 ;;21,"55289-0371-06 ")
 ;;4530
 ;;21,"55289-0371-10 ")
 ;;4531
 ;;21,"55289-0371-14 ")
 ;;4532
 ;;21,"55289-0371-15 ")
 ;;4533
 ;;21,"55289-0371-20 ")
 ;;4534
 ;;21,"55289-0371-30 ")
 ;;4535
 ;;21,"55289-0371-40 ")
 ;;4536
 ;;21,"55289-0371-50 ")
 ;;4537
 ;;21,"55289-0371-79 ")
 ;;4538
 ;;21,"55289-0371-97 ")
 ;;4539
 ;;21,"55289-0372-10 ")
 ;;5396
 ;;21,"55289-0372-14 ")
 ;;5397
 ;;21,"55289-0372-20 ")
 ;;5398
 ;;21,"55289-0372-97 ")
 ;;5399
 ;;21,"55289-0385-04 ")
 ;;5400
 ;;21,"55289-0385-30 ")
 ;;5401
 ;;21,"55289-0393-02 ")
 ;;7087
 ;;21,"55289-0394-05 ")
 ;;4984
 ;;21,"55289-0394-07 ")
 ;;4985
 ;;21,"55289-0405-14 ")
 ;;1477
 ;;21,"55289-0405-20 ")
 ;;1478
 ;;21,"55289-0426-21 ")
 ;;3254
 ;;21,"55289-0441-04 ")
 ;;2320
 ;;21,"55289-0441-15 ")
 ;;2321
 ;;21,"55289-0441-17 ")
 ;;2322
 ;;21,"55289-0441-20 ")
 ;;2323
 ;;21,"55289-0441-28 ")
 ;;2324
 ;;21,"55289-0441-30 ")
 ;;2325
 ;;21,"55289-0441-40 ")
 ;;2326
 ;;21,"55289-0441-42 ")
 ;;2327
 ;;21,"55289-0441-56 ")
 ;;2328
 ;;21,"55289-0441-80 ")
 ;;2329
 ;;21,"55289-0441-97 ")
 ;;2330
 ;;21,"55289-0446-01 ")
 ;;6719
 ;;21,"55289-0446-10 ")
 ;;6720
 ;;21,"55289-0446-12 ")
 ;;6721
 ;;21,"55289-0446-14 ")
 ;;6722
 ;;21,"55289-0446-16 ")
 ;;6723
 ;;21,"55289-0446-20 ")
 ;;6724
 ;;21,"55289-0446-28 ")
 ;;6725
 ;;21,"55289-0446-30 ")
 ;;6726
 ;;21,"55289-0446-40 ")
 ;;6727
 ;;21,"55289-0446-56 ")
 ;;6728
 ;;21,"55289-0446-60 ")
 ;;6729
 ;;21,"55289-0457-10 ")
 ;;5597
 ;;21,"55289-0457-20 ")
 ;;5598
 ;;21,"55289-0459-06 ")
 ;;4248
 ;;21,"55289-0459-10 ")
 ;;4249
 ;;21,"55289-0459-12 ")
 ;;4250
 ;;21,"55289-0459-14 ")
 ;;4251
 ;;21,"55289-0502-16 ")
 ;;6324
 ;;21,"55289-0502-30 ")
 ;;6325
 ;;21,"55289-0502-60 ")
 ;;6326
 ;;21,"55289-0525-21 ")
 ;;3212
 ;;21,"55289-0525-30 ")
 ;;3213
 ;;21,"55289-0525-40 ")
 ;;3214
 ;;21,"55289-0525-42 ")
 ;;3215
 ;;21,"55289-0525-63 ")
 ;;3216
 ;;21,"55289-0542-10 ")
 ;;5476
 ;;21,"55289-0589-14 ")
 ;;1479
 ;;21,"55289-0589-20 ")
 ;;1480
 ;;21,"55289-0589-28 ")
 ;;1481
 ;;21,"55289-0592-10 ")
 ;;3942
 ;;21,"55289-0592-20 ")
 ;;3943
 ;;21,"55289-0592-28 ")
 ;;3944
 ;;21,"55289-0592-40 ")
 ;;3945
 ;;21,"55289-0592-97 ")
 ;;3946
 ;;21,"55289-0612-28 ")
 ;;3839
 ;;21,"55289-0612-30 ")
 ;;3840
 ;;21,"55289-0645-20 ")
 ;;3107
 ;;21,"55289-0645-28 ")
 ;;3108
 ;;21,"55289-0645-30 ")
 ;;3109
 ;;21,"55289-0645-40 ")
 ;;3110
 ;;21,"55289-0645-56 ")
 ;;3111
 ;;21,"55289-0645-80 ")
 ;;3112
 ;;21,"55289-0705-02 ")
 ;;3527
 ;;21,"55289-0705-06 ")
 ;;3528
 ;;21,"55289-0705-15 ")
 ;;3529
 ;;21,"55289-0705-16 ")
 ;;3530
 ;;21,"55289-0705-20 ")
 ;;3531
 ;;21,"55289-0705-28 ")
 ;;3532
 ;;21,"55289-0705-30 ")
 ;;3533
 ;;21,"55289-0705-40 ")
 ;;3534
 ;;21,"55289-0705-56 ")
 ;;3535
 ;;21,"55289-0707-20 ")
 ;;747
 ;;21,"55289-0707-28 ")
 ;;748
 ;;21,"55289-0711-07 ")
 ;;4930
 ;;21,"55289-0711-10 ")
 ;;4931
 ;;21,"55289-0711-14 ")
 ;;4932
 ;;21,"55289-0717-10 ")
 ;;4729
 ;;21,"55289-0746-06 ")
 ;;2146
 ;;21,"55289-0746-10 ")
 ;;2147
 ;;21,"55289-0749-30 ")
 ;;5144
 ;;21,"55289-0767-10 ")
 ;;1272
 ;;21,"55289-0767-14 ")
 ;;1273
 ;;21,"55289-0767-20 ")
 ;;1274
 ;;21,"55289-0767-21 ")
 ;;1275
 ;;21,"55289-0767-28 ")
 ;;1276
 ;;21,"55289-0767-30 ")
 ;;1277
 ;;21,"55289-0821-03 ")
 ;;4540
 ;;21,"55289-0821-06 ")
 ;;4541
 ;;21,"55289-0821-10 ")
 ;;4542
 ;;21,"55289-0821-14 ")
 ;;4543
 ;;21,"55289-0821-20 ")
 ;;4544
 ;;21,"55289-0821-30 ")
 ;;4545
 ;;21,"55289-0821-40 ")
 ;;4546
 ;;21,"55289-0821-50 ")
 ;;4547
 ;;21,"55289-0821-79 ")
 ;;4548
 ;;21,"55289-0823-06 ")
 ;;4252
 ;;21,"55289-0823-12 ")
 ;;4253
 ;;21,"55289-0823-14 ")
 ;;4254
 ;;21,"55289-0823-20 ")
 ;;4255
 ;;21,"55289-0826-10 ")
 ;;4730
 ;;21,"55289-0826-20 ")
 ;;4731
 ;;21,"55289-0841-03 ")
 ;;4822
 ;;21,"55289-0841-10 ")
 ;;4823
 ;;21,"55289-0845-06 ")
 ;;1138
 ;;21,"55289-0845-20 ")
 ;;1139
 ;;21,"55289-0845-21 ")
 ;;1140
 ;;21,"55289-0845-28 ")
 ;;1141
 ;;21,"55289-0845-30 ")
 ;;1142
 ;;21,"55289-0866-01 ")
 ;;6212
 ;;21,"55289-0866-02 ")
 ;;6213
 ;;21,"55289-0866-04 ")
 ;;6214
 ;;21,"55289-0866-06 ")
 ;;6215
 ;;21,"55289-0866-08 ")
 ;;6216
 ;;21,"55289-0866-10 ")
 ;;6217
 ;;21,"55289-0866-14 ")
 ;;6218
 ;;21,"55289-0866-20 ")
 ;;6219
 ;;21,"55289-0866-28 ")
 ;;6220
 ;;21,"55289-0866-30 ")
 ;;6221
 ;;21,"55289-0866-60 ")
 ;;6222
 ;;21,"55289-0866-71 ")
 ;;6223
 ;;21,"55289-0866-74 ")
 ;;6224
 ;;21,"55289-0866-85 ")
 ;;6225
 ;;21,"55289-0866-86 ")
 ;;6226
 ;;21,"55289-0866-87 ")
 ;;6227
 ;;21,"55289-0866-90 ")
 ;;6228
 ;;21,"55289-0866-93 ")
 ;;6229
 ;;21,"55289-0866-98 ")
 ;;6230
 ;;21,"55289-0885-08 ")
 ;;1690
 ;;21,"55289-0890-20 ")
 ;;2466
 ;;21,"55289-0890-28 ")
 ;;2467
 ;;21,"55289-0890-30 ")
 ;;2468
 ;;21,"55289-0890-40 ")
 ;;2469
 ;;21,"55289-0890-56 ")
 ;;2470
 ;;21,"55289-0890-90 ")
 ;;2471
 ;;21,"55289-0904-79 ")
 ;;5059
 ;;21,"55289-0909-10 ")
 ;;2993
 ;;21,"55289-0909-14 ")
 ;;2994
 ;;21,"55289-0909-20 ")
 ;;2995
 ;;21,"55289-0909-28 ")
 ;;2996
 ;;21,"55289-0915-06 ")
 ;;3217
 ;;21,"55289-0915-15 ")
 ;;3218
 ;;21,"55289-0915-24 ")
 ;;3219
 ;;21,"55289-0915-30 ")
 ;;3220
 ;;21,"55289-0954-79 ")
 ;;7064
 ;;21,"55289-0964-04 ")
 ;;2703
 ;;21,"55289-0964-14 ")
 ;;2704
 ;;21,"55390-0109-01 ")
 ;;2177
 ;;21,"55390-0110-10 ")
 ;;5898
 ;;21,"55390-0309-10 ")
 ;;6884
 ;;21,"55390-0310-10 ")
 ;;6925
 ;;21,"55390-0311-10 ")
 ;;6806
 ;;21,"55390-0312-10 ")
 ;;6849
 ;;21,"55390-0316-01 ")
 ;;6829
 ;;21,"55648-0961-01 ")
 ;;2705
 ;;21,"55648-0961-02 ")
 ;;2706
 ;;21,"55648-0961-04 ")
 ;;2707
 ;;21,"55648-0961-05 ")
 ;;2708
 ;;21,"55648-0961-06 ")
 ;;2709
 ;;21,"55648-0961-07 ")
 ;;2710
 ;;21,"55648-0961-08 ")
 ;;2711
 ;;21,"55648-0962-01 ")
 ;;2860
 ;;21,"55648-0964-01 ")
 ;;2822
 ;;21,"55648-0964-02 ")
 ;;2823
 ;;21,"55648-0964-03 ")
 ;;2824
 ;;21,"55648-0964-05 ")
 ;;2825
 ;;21,"55648-0964-06 ")
 ;;2826
 ;;21,"55648-0964-07 ")
 ;;2827
 ;;21,"55868-5487-01 ")
 ;;2828
 ;;21,"55887-0071-60 ")
 ;;3456
 ;;21,"55887-0181-15 ")
 ;;2617
 ;;21,"55887-0215-01 ")
 ;;3736
 ;;21,"55887-0216-20 ")
 ;;1012
 ;;21,"55887-0218-01 ")
 ;;3611
 ;;21,"55887-0292-10 ")
 ;;4732
 ;;21,"55887-0292-20 ")
 ;;4733
 ;;21,"55887-0292-28 ")
 ;;4734
 ;;21,"55887-0292-30 ")
 ;;4735
 ;;21,"55887-0306-01 ")
 ;;3400
 ;;21,"55887-0311-15 ")
 ;;2618