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

BGP62Y9.m

Go to the documentation of this file.
BGP62Y9 ;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,"43598-0204-51 ")
 ;;987
 ;;21,"43598-0204-52 ")
 ;;988
 ;;21,"43598-0204-53 ")
 ;;989
 ;;21,"43598-0205-01 ")
 ;;576
 ;;21,"43598-0205-05 ")
 ;;577
 ;;21,"43598-0206-14 ")
 ;;1088
 ;;21,"43598-0206-78 ")
 ;;1089
 ;;21,"43598-0207-50 ")
 ;;438
 ;;21,"43598-0207-51 ")
 ;;439
 ;;21,"43598-0207-52 ")
 ;;440
 ;;21,"43598-0208-50 ")
 ;;1032
 ;;21,"43598-0208-51 ")
 ;;1033
 ;;21,"43598-0208-52 ")
 ;;1034
 ;;21,"43598-0209-52 ")
 ;;397
 ;;21,"43598-0209-53 ")
 ;;398
 ;;21,"43598-0209-80 ")
 ;;399
 ;;21,"43598-0213-50 ")
 ;;951
 ;;21,"43598-0213-51 ")
 ;;952
 ;;21,"43598-0213-52 ")
 ;;953
 ;;21,"43598-0218-30 ")
 ;;973
 ;;21,"43598-0219-01 ")
 ;;733
 ;;21,"43598-0219-14 ")
 ;;734
 ;;21,"43598-0220-28 ")
 ;;906
 ;;21,"43598-0220-40 ")
 ;;907
 ;;21,"43598-0221-14 ")
 ;;1242
 ;;21,"43598-0221-78 ")
 ;;1243
 ;;21,"43598-0222-52 ")
 ;;107
 ;;21,"43598-0222-53 ")
 ;;108
 ;;21,"43598-0222-80 ")
 ;;109
 ;;21,"43598-0223-50 ")
 ;;150
 ;;21,"43598-0223-51 ")
 ;;151
 ;;21,"43598-0223-52 ")
 ;;152
 ;;21,"43598-0224-01 ")
 ;;709
 ;;21,"43598-0225-01 ")
 ;;217
 ;;21,"43598-0225-05 ")
 ;;218
 ;;21,"43684-0200-20 ")
 ;;6377
 ;;21,"44009-0801-20 ")
 ;;7037
 ;;21,"44009-0802-20 ")
 ;;7041
 ;;21,"44183-0180-02 ")
 ;;7101
 ;;21,"44183-0400-22 ")
 ;;7103
 ;;21,"44567-0100-10 ")
 ;;63
 ;;21,"44567-0101-10 ")
 ;;76
 ;;21,"44567-0102-10 ")
 ;;15
 ;;21,"44567-0103-10 ")
 ;;52
 ;;21,"44567-0104-10 ")
 ;;29
 ;;21,"44567-0311-10 ")
 ;;3590
 ;;21,"44567-0312-01 ")
 ;;3580
 ;;21,"44567-0700-25 ")
 ;;6918
 ;;21,"44567-0701-25 ")
 ;;6796
 ;;21,"44567-0702-25 ")
 ;;6848
 ;;21,"44567-0703-01 ")
 ;;6828
 ;;21,"44567-0706-25 ")
 ;;1376
 ;;21,"44567-0707-25 ")
 ;;1316
 ;;21,"44567-0708-10 ")
 ;;1347
 ;;21,"44567-0709-10 ")
 ;;1361
 ;;21,"45565-0031-03 ")
 ;;3637
 ;;21,"45809-0401-20 ")
 ;;7104
 ;;21,"45809-0801-12 ")
 ;;7111
 ;;21,"45809-0801-30 ")
 ;;7112
 ;;21,"45809-0801-60 ")
 ;;7113
 ;;21,"45809-0801-90 ")
 ;;7114
 ;;21,"46063-0563-15 ")
 ;;578
 ;;21,"46063-0563-28 ")
 ;;579
 ;;21,"47781-0266-03 ")
 ;;5141
 ;;21,"47781-0267-03 ")
 ;;5208
 ;;21,"47781-0268-30 ")
 ;;5022
 ;;21,"48102-0111-30 ")
 ;;717
 ;;21,"49349-0685-14 ")
 ;;2801
 ;;21,"49884-0007-05 ")
 ;;580
 ;;21,"49884-0041-01 ")
 ;;735
 ;;21,"49884-0041-05 ")
 ;;736
 ;;21,"49884-0041-07 ")
 ;;737
 ;;21,"49884-0073-28 ")
 ;;441
 ;;21,"49884-0073-47 ")
 ;;442
 ;;21,"49884-0091-01 ")
 ;;6406
 ;;21,"49884-0092-01 ")
 ;;6419
 ;;21,"49884-0092-05 ")
 ;;6420
 ;;21,"49884-0093-03 ")
 ;;6378
 ;;21,"49884-0093-04 ")
 ;;6379
 ;;21,"49884-0096-01 ")
 ;;6534
 ;;21,"49884-0097-01 ")
 ;;6555
 ;;21,"49884-0098-03 ")
 ;;6477
 ;;21,"49884-0168-28 ")
 ;;1035
 ;;21,"49884-0168-47 ")
 ;;1036
 ;;21,"49884-0201-49 ")
 ;;1197
 ;;21,"49884-0201-70 ")
 ;;1198
 ;;21,"49884-0236-11 ")
 ;;6393
 ;;21,"49884-0298-07 ")
 ;;1090
 ;;21,"49884-0298-12 ")
 ;;1091
 ;;21,"49884-0299-12 ")
 ;;1244
 ;;21,"49884-0305-02 ")
 ;;6387
 ;;21,"49884-0313-02 ")
 ;;6388
 ;;21,"49884-0369-69 ")
 ;;110
 ;;21,"49884-0511-01 ")
 ;;6535
 ;;21,"49884-0512-01 ")
 ;;6556
 ;;21,"49884-0512-10 ")
 ;;6557
 ;;21,"49884-0513-03 ")
 ;;6478
 ;;21,"49884-0637-05 ")
 ;;4207
 ;;21,"49884-0637-74 ")
 ;;4208
 ;;21,"49884-0638-74 ")
 ;;4444
 ;;21,"49884-0639-05 ")
 ;;4705
 ;;21,"49884-0726-01 ")
 ;;6398
 ;;21,"49884-0727-03 ")
 ;;6360
 ;;21,"49884-0727-04 ")
 ;;6361
 ;;21,"49999-0001-28 ")
 ;;792
 ;;21,"49999-0001-40 ")
 ;;793
 ;;21,"49999-0002-06 ")
 ;;3638
 ;;21,"49999-0002-20 ")
 ;;3639
 ;;21,"49999-0002-24 ")
 ;;3640
 ;;21,"49999-0002-30 ")
 ;;3641
 ;;21,"49999-0002-40 ")
 ;;3642
 ;;21,"49999-0007-00 ")
 ;;1932
 ;;21,"49999-0007-10 ")
 ;;1933
 ;;21,"49999-0007-12 ")
 ;;1934
 ;;21,"49999-0007-14 ")
 ;;1935
 ;;21,"49999-0007-15 ")
 ;;1936
 ;;21,"49999-0007-20 ")
 ;;1937
 ;;21,"49999-0007-21 ")
 ;;1938
 ;;21,"49999-0007-28 ")
 ;;1939
 ;;21,"49999-0007-30 ")
 ;;1940
 ;;21,"49999-0007-40 ")
 ;;1941
 ;;21,"49999-0007-60 ")
 ;;1942
 ;;21,"49999-0007-90 ")
 ;;1943
 ;;21,"49999-0011-00 ")
 ;;2275
 ;;21,"49999-0011-04 ")
 ;;2276
 ;;21,"49999-0011-15 ")
 ;;2277
 ;;21,"49999-0011-18 ")
 ;;2278
 ;;21,"49999-0011-20 ")
 ;;2279
 ;;21,"49999-0011-28 ")
 ;;2280
 ;;21,"49999-0012-00 ")
 ;;3310
 ;;21,"49999-0012-14 ")
 ;;3311
 ;;21,"49999-0012-20 ")
 ;;3312
 ;;21,"49999-0012-28 ")
 ;;3313
 ;;21,"49999-0012-30 ")
 ;;3314
 ;;21,"49999-0012-40 ")
 ;;3315
 ;;21,"49999-0014-00 ")
 ;;3187
 ;;21,"49999-0014-10 ")
 ;;3188
 ;;21,"49999-0014-21 ")
 ;;3189
 ;;21,"49999-0014-30 ")
 ;;3190
 ;;21,"49999-0015-00 ")
 ;;581
 ;;21,"49999-0015-06 ")
 ;;582
 ;;21,"49999-0015-08 ")
 ;;583
 ;;21,"49999-0015-12 ")
 ;;584
 ;;21,"49999-0015-14 ")
 ;;585
 ;;21,"49999-0015-15 ")
 ;;586
 ;;21,"49999-0015-20 ")
 ;;587
 ;;21,"49999-0015-21 ")
 ;;588
 ;;21,"49999-0015-28 ")
 ;;589
 ;;21,"49999-0015-30 ")
 ;;590
 ;;21,"49999-0015-40 ")
 ;;591
 ;;21,"49999-0015-42 ")
 ;;592
 ;;21,"49999-0015-45 ")
 ;;593
 ;;21,"49999-0016-04 ")
 ;;219
 ;;21,"49999-0016-21 ")
 ;;220
 ;;21,"49999-0016-30 ")
 ;;221
 ;;21,"49999-0016-40 ")
 ;;222
 ;;21,"49999-0020-00 ")
 ;;6167
 ;;21,"49999-0020-14 ")
 ;;6168
 ;;21,"49999-0020-20 ")
 ;;6169
 ;;21,"49999-0020-28 ")
 ;;6170
 ;;21,"49999-0020-30 ")
 ;;6171
 ;;21,"49999-0021-14 ")
 ;;1454
 ;;21,"49999-0021-20 ")
 ;;1455
 ;;21,"49999-0023-00 ")
 ;;3130
 ;;21,"49999-0023-20 ")
 ;;3131
 ;;21,"49999-0023-28 ")
 ;;3132
 ;;21,"49999-0023-30 ")
 ;;3133
 ;;21,"49999-0023-40 ")
 ;;3134
 ;;21,"49999-0033-00 ")
 ;;326
 ;;21,"49999-0033-30 ")
 ;;327
 ;;21,"49999-0041-04 ")
 ;;1642
 ;;21,"49999-0041-10 ")
 ;;1643
 ;;21,"49999-0041-12 ")
 ;;1644
 ;;21,"49999-0041-20 ")
 ;;1645
 ;;21,"49999-0041-28 ")
 ;;1646
 ;;21,"49999-0041-30 ")
 ;;1647
 ;;21,"49999-0041-40 ")
 ;;1648
 ;;21,"49999-0050-10 ")
 ;;3798
 ;;21,"49999-0050-12 ")
 ;;3799
 ;;21,"49999-0050-14 ")
 ;;3800
 ;;21,"49999-0050-20 ")
 ;;3801
 ;;21,"49999-0050-21 ")
 ;;3802
 ;;21,"49999-0050-28 ")
 ;;3803
 ;;21,"49999-0050-30 ")
 ;;3804
 ;;21,"49999-0050-40 ")
 ;;3805
 ;;21,"49999-0061-04 ")
 ;;4445
 ;;21,"49999-0061-07 ")
 ;;4446
 ;;21,"49999-0061-10 ")
 ;;4447
 ;;21,"49999-0061-14 ")
 ;;4448
 ;;21,"49999-0061-20 ")
 ;;4449
 ;;21,"49999-0061-25 ")
 ;;4450
 ;;21,"49999-0067-28 ")
 ;;3276
 ;;21,"49999-0067-40 ")
 ;;3277
 ;;21,"49999-0077-06 ")
 ;;5706
 ;;21,"49999-0077-10 ")
 ;;5707
 ;;21,"49999-0077-14 ")
 ;;5708
 ;;21,"49999-0077-20 ")
 ;;5709
 ;;21,"49999-0077-28 ")
 ;;5710
 ;;21,"49999-0077-30 ")
 ;;5711
 ;;21,"49999-0077-60 ")
 ;;5712
 ;;21,"49999-0077-90 ")
 ;;5713
 ;;21,"49999-0080-28 ")
 ;;3430
 ;;21,"49999-0080-30 ")
 ;;3431
 ;;21,"49999-0080-40 ")
 ;;3432
 ;;21,"49999-0096-04 ")
 ;;2667
 ;;21,"49999-0096-06 ")
 ;;2668
 ;;21,"49999-0117-20 ")
 ;;853
 ;;21,"49999-0120-20 ")
 ;;3992
 ;;21,"49999-0120-28 ")
 ;;3993
 ;;21,"49999-0120-40 ")
 ;;3994
 ;;21,"49999-0126-11 ")
 ;;5992
 ;;21,"49999-0126-14 ")
 ;;5993
 ;;21,"49999-0126-20 ")
 ;;5994
 ;;21,"49999-0126-30 ")
 ;;5995
 ;;21,"49999-0126-56 ")
 ;;5996
 ;;21,"49999-0164-10 ")
 ;;5543
 ;;21,"49999-0168-00 ")
 ;;400
 ;;21,"49999-0168-50 ")
 ;;401
 ;;21,"49999-0168-80 ")
 ;;402
 ;;21,"49999-0177-20 ")
 ;;1245
 ;;21,"49999-0191-00 ")
 ;;111
 ;;21,"49999-0191-50 ")
 ;;112
 ;;21,"49999-0191-80 ")
 ;;113
 ;;21,"49999-0199-30 ")
 ;;5142
 ;;21,"49999-0213-20 ")
 ;;1092
 ;;21,"49999-0224-00 ")
 ;;6696
 ;;21,"49999-0224-14 ")
 ;;6697
 ;;21,"49999-0224-30 ")
 ;;6698
 ;;21,"49999-0224-40 ")
 ;;6699
 ;;21,"49999-0246-20 ")
 ;;1093
 ;;21,"49999-0260-15 ")
 ;;2591
 ;;21,"49999-0261-00 ")
 ;;1785
 ;;21,"49999-0261-20 ")
 ;;1786
 ;;21,"49999-0267-28 ")
 ;;3919
 ;;21,"49999-0267-30 ")
 ;;3920
 ;;21,"49999-0267-40 ")
 ;;3921
 ;;21,"49999-0290-06 ")
 ;;2440
 ;;21,"49999-0290-07 ")
 ;;2441
 ;;21,"49999-0290-10 ")
 ;;2442
 ;;21,"49999-0290-20 ")
 ;;2443
 ;;21,"49999-0290-21 ")
 ;;2444
 ;;21,"49999-0290-30 ")
 ;;2445
 ;;21,"49999-0309-20 ")
 ;;5374
 ;;21,"49999-0309-30 ")
 ;;5375
 ;;21,"49999-0315-00 ")
 ;;3553
 ;;21,"49999-0325-50 ")
 ;;5172
 ;;21,"49999-0325-75 ")
 ;;5173
 ;;21,"49999-0332-20 ")
 ;;3726
 ;;21,"49999-0333-06 ")
 ;;4209
 ;;21,"49999-0333-10 ")
 ;;4210
 ;;21,"49999-0333-14 ")
 ;;4211
 ;;21,"49999-0333-20 ")
 ;;4212
 ;;21,"49999-0334-00 ")
 ;;4451
 ;;21,"49999-0334-01 ")
 ;;4452
 ;;21,"49999-0334-06 ")
 ;;4453
 ;;21,"49999-0334-10 ")
 ;;4454
 ;;21,"49999-0334-14 ")
 ;;4455
 ;;21,"49999-0334-20 ")
 ;;4456
 ;;21,"49999-0334-28 ")
 ;;4457
 ;;21,"49999-0334-30 ")
 ;;4458
 ;;21,"49999-0356-00 ")
 ;;954
 ;;21,"49999-0365-50 ")
 ;;990
 ;;21,"49999-0407-20 ")
 ;;2965
 ;;21,"49999-0417-10 ")
 ;;4799
 ;;21,"49999-0418-02 ")
 ;;4889
 ;;21,"49999-0418-07 ")
 ;;4890
 ;;21,"49999-0418-10 ")
 ;;4891
 ;;21,"49999-0418-30 ")
 ;;4892
 ;;21,"49999-0418-50 ")
 ;;4893
 ;;21,"49999-0455-05 ")
 ;;5023
 ;;21,"49999-0455-10 ")
 ;;5024
 ;;21,"49999-0455-30 ")
 ;;5025
 ;;21,"49999-0503-20 ")
 ;;5589
 ;;21,"49999-0504-28 ")
 ;;6517
 ;;21,"49999-0505-07 ")
 ;;6437
 ;;21,"49999-0505-20 ")
 ;;6438
 ;;21,"49999-0505-28 ")
 ;;6439
 ;;21,"49999-0541-00 ")
 ;;6616
 ;;21,"49999-0541-28 ")
 ;;6617
 ;;21,"49999-0556-00 ")
 ;;5188
 ;;21,"49999-0556-50 ")
 ;;5189
 ;;21,"49999-0557-30 ")
 ;;5209
 ;;21,"49999-0557-42 ")
 ;;5210
 ;;21,"49999-0582-15 ")
 ;;2559
 ;;21,"49999-0586-01 ")
 ;;6797
 ;;21,"49999-0586-10 ")
 ;;6798
 ;;21,"49999-0649-10 ")
 ;;5714
 ;;21,"49999-0649-20 ")
 ;;5715
 ;;21,"49999-0649-30 ")
 ;;5716
 ;;21,"49999-0649-60 ")
 ;;5717
 ;;21,"49999-0649-90 ")
 ;;5718
 ;;21,"49999-0651-30 ")
 ;;710
 ;;21,"49999-0713-00 ")
 ;;1561
 ;;21,"49999-0766-20 ")
 ;;738
 ;;21,"49999-0766-28 ")
 ;;739
 ;;21,"49999-0785-20 ")
 ;;5462
 ;;21,"49999-0786-06 ")
 ;;2669
 ;;21,"49999-0810-00 ")
 ;;3392
 ;;21,"49999-0904-14 ")
 ;;2966
 ;;21,"49999-0904-20 ")
 ;;2967
 ;;21,"49999-0983-00 ")
 ;;443
 ;;21,"50111-0767-28 ")
 ;;2592
 ;;21,"50111-0787-10 ")
 ;;2670
 ;;21,"50111-0787-51 ")
 ;;2671
 ;;21,"50111-0787-52 ")
 ;;2672
 ;;21,"50111-0787-66 ")
 ;;2673
 ;;21,"50111-0788-10 ")
 ;;2802
 ;;21,"50111-0788-52 ")
 ;;2803
 ;;21,"50111-0788-55 ")
 ;;2804
 ;;21,"50111-0788-67 ")
 ;;2805
 ;;21,"50111-0789-10 ")
 ;;2858
 ;;21,"50111-0791-20 ")
 ;;2593
 ;;21,"50111-0792-22 ")
 ;;2594
 ;;21,"50111-0793-20 ")
 ;;2560
 ;;21,"50111-0794-78 ")
 ;;2532
 ;;21,"50268-0098-15 ")
 ;;2674
 ;;21,"50268-0099-13 ")
 ;;2806
 ;;21,"50268-0100-15 ")
 ;;2675
 ;;21,"50268-0101-13 ")
 ;;2807
 ;;21,"50268-0151-15 ")
 ;;1649
 ;;21,"50268-0152-15 ")
 ;;1944
 ;;21,"50268-0180-15 ")
 ;;2281
 ;;21,"50268-0181-15 ")
 ;;2446
 ;;21,"50268-0277-15 ")
 ;;6311
 ;;21,"50268-0278-15 ")
 ;;5997
 ;;21,"50268-0279-15 ")
 ;;6172
 ;;21,"50268-0567-11 ")
 ;;6518
 ;;21,"50268-0567-15 ")
 ;;6519
 ;;21,"50268-0569-11 ")
 ;;6440
 ;;21,"50268-0569-13 ")
 ;;6441
 ;;21,"50268-0728-15 ")
 ;;5590
 ;;21,"50268-0729-13 ")
 ;;5719
 ;;21,"50268-0775-15 ")
 ;;2140
 ;;21,"50383-0286-04 ")
 ;;4770
 ;;21,"50383-0286-08 ")
 ;;4771