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