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

BGP62Y10.m

Go to the documentation of this file.
  1. BGP62Y10 ;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,"50383-0286-11 ")
  1. ;;4772
  1. ;;21,"50383-0286-16 ")
  1. ;;4773
  1. ;;21,"50383-0286-21 ")
  1. ;;4774
  1. ;;21,"50383-0823-16 ")
  1. ;;5544
  1. ;;21,"50383-0824-16 ")
  1. ;;5545
  1. ;;21,"50383-0824-21 ")
  1. ;;5546
  1. ;;21,"50419-0754-01 ")
  1. ;;4459
  1. ;;21,"50419-0758-01 ")
  1. ;;4213
  1. ;;21,"50419-0759-01 ")
  1. ;;4095
  1. ;;21,"50419-0773-01 ")
  1. ;;4680
  1. ;;21,"50419-0777-01 ")
  1. ;;4318
  1. ;;21,"50419-0788-01 ")
  1. ;;4667
  1. ;;21,"50419-0789-01 ")
  1. ;;4152
  1. ;;21,"50458-0164-20 ")
  1. ;;4104
  1. ;;21,"50458-0165-30 ")
  1. ;;4105
  1. ;;21,"50458-0166-01 ")
  1. ;;4141
  1. ;;21,"50458-0167-01 ")
  1. ;;4118
  1. ;;21,"50458-0168-01 ")
  1. ;;4130
  1. ;;21,"50458-0170-01 ")
  1. ;;4775
  1. ;;21,"50458-0920-10 ")
  1. ;;4800
  1. ;;21,"50458-0920-50 ")
  1. ;;4801
  1. ;;21,"50458-0925-10 ")
  1. ;;4894
  1. ;;21,"50458-0925-50 ")
  1. ;;4895
  1. ;;21,"50458-0930-10 ")
  1. ;;4976
  1. ;;21,"50458-0930-20 ")
  1. ;;4977
  1. ;;21,"50962-0302-20 ")
  1. ;;5547
  1. ;;21,"51079-0016-01 ")
  1. ;;5376
  1. ;;21,"51079-0016-20 ")
  1. ;;5377
  1. ;;21,"51079-0017-01 ")
  1. ;;5463
  1. ;;21,"51079-0017-20 ")
  1. ;;5464
  1. ;;21,"51079-0034-01 ")
  1. ;;4802
  1. ;;21,"51079-0034-20 ")
  1. ;;4803
  1. ;;21,"51079-0035-01 ")
  1. ;;4896
  1. ;;21,"51079-0035-20 ")
  1. ;;4897
  1. ;;21,"51079-0040-01 ")
  1. ;;2676
  1. ;;21,"51079-0040-20 ")
  1. ;;2677
  1. ;;21,"51079-0128-01 ")
  1. ;;5720
  1. ;;21,"51079-0128-08 ")
  1. ;;5721
  1. ;;21,"51079-0128-20 ")
  1. ;;5722
  1. ;;21,"51079-0128-90 ")
  1. ;;5723
  1. ;;21,"51079-0128-92 ")
  1. ;;5724
  1. ;;21,"51079-0181-01 ")
  1. ;;4214
  1. ;;21,"51079-0181-20 ")
  1. ;;4215
  1. ;;21,"51079-0182-01 ")
  1. ;;4460
  1. ;;21,"51079-0182-20 ")
  1. ;;4461
  1. ;;21,"51079-0265-01 ")
  1. ;;1094
  1. ;;21,"51079-0265-20 ")
  1. ;;1095
  1. ;;21,"51079-0267-01 ")
  1. ;;1246
  1. ;;21,"51079-0267-20 ")
  1. ;;1247
  1. ;;21,"51079-0402-01 ")
  1. ;;4216
  1. ;;21,"51079-0402-20 ")
  1. ;;4217
  1. ;;21,"51079-0403-01 ")
  1. ;;4462
  1. ;;21,"51079-0403-20 ")
  1. ;;4463
  1. ;;21,"51079-0591-01 ")
  1. ;;2678
  1. ;;21,"51079-0591-20 ")
  1. ;;2679
  1. ;;21,"51079-0598-01 ")
  1. ;;2282
  1. ;;21,"51079-0598-17 ")
  1. ;;2283
  1. ;;21,"51079-0598-19 ")
  1. ;;2284
  1. ;;21,"51079-0598-20 ")
  1. ;;2285
  1. ;;21,"51079-0601-01 ")
  1. ;;594
  1. ;;21,"51079-0601-20 ")
  1. ;;595
  1. ;;21,"51079-0604-01 ")
  1. ;;1650
  1. ;;21,"51079-0604-20 ")
  1. ;;1651
  1. ;;21,"51079-0605-01 ")
  1. ;;1945
  1. ;;21,"51079-0605-20 ")
  1. ;;1946
  1. ;;21,"51079-0672-01 ")
  1. ;;2895
  1. ;;21,"51079-0672-20 ")
  1. ;;2896
  1. ;;21,"51079-0673-01 ")
  1. ;;2968
  1. ;;21,"51079-0673-06 ")
  1. ;;2969
  1. ;;21,"51285-0445-21 ")
  1. ;;3554
  1. ;;21,"51285-0445-22 ")
  1. ;;3555
  1. ;;21,"51285-0445-23 ")
  1. ;;3556
  1. ;;21,"51655-0009-52 ")
  1. ;;3643
  1. ;;21,"51655-0009-87 ")
  1. ;;3644
  1. ;;21,"51655-0010-24 ")
  1. ;;3806
  1. ;;21,"51655-0010-29 ")
  1. ;;3807
  1. ;;21,"51655-0010-51 ")
  1. ;;3808
  1. ;;21,"51655-0010-52 ")
  1. ;;3809
  1. ;;21,"51655-0024-87 ")
  1. ;;1652
  1. ;;21,"51655-0075-87 ")
  1. ;;223
  1. ;;21,"51655-0097-27 ")
  1. ;;6618
  1. ;;21,"51655-0110-31 ")
  1. ;;1248
  1. ;;21,"51655-0112-31 ")
  1. ;;5725
  1. ;;21,"51655-0112-51 ")
  1. ;;5726
  1. ;;21,"51655-0112-53 ")
  1. ;;5727
  1. ;;21,"51655-0115-84 ")
  1. ;;4218
  1. ;;21,"51655-0115-87 ")
  1. ;;4219
  1. ;;21,"51655-0118-29 ")
  1. ;;4464
  1. ;;21,"51655-0118-47 ")
  1. ;;4465
  1. ;;21,"51655-0118-52 ")
  1. ;;4466
  1. ;;21,"51655-0118-53 ")
  1. ;;4467
  1. ;;21,"51655-0118-84 ")
  1. ;;4468
  1. ;;21,"51655-0118-87 ")
  1. ;;4469
  1. ;;21,"51655-0120-29 ")
  1. ;;3433
  1. ;;21,"51655-0186-29 ")
  1. ;;5998
  1. ;;21,"51655-0194-29 ")
  1. ;;6700
  1. ;;21,"51655-0297-51 ")
  1. ;;3316
  1. ;;21,"51655-0412-24 ")
  1. ;;6173
  1. ;;21,"51655-0480-24 ")
  1. ;;3191
  1. ;;21,"51655-0519-29 ")
  1. ;;3135
  1. ;;21,"51655-0519-51 ")
  1. ;;3136
  1. ;;21,"51655-0537-84 ")
  1. ;;4220
  1. ;;21,"51655-0537-87 ")
  1. ;;4221
  1. ;;21,"51655-0698-28 ")
  1. ;;5143
  1. ;;21,"51655-0917-24 ")
  1. ;;328
  1. ;;21,"51655-0933-24 ")
  1. ;;5211
  1. ;;21,"51655-0964-24 ")
  1. ;;2286
  1. ;;21,"51655-0964-29 ")
  1. ;;2287
  1. ;;21,"51655-0964-52 ")
  1. ;;2288
  1. ;;21,"51655-0964-89 ")
  1. ;;2289
  1. ;;21,"51862-0558-06 ")
  1. ;;6304
  1. ;;21,"51991-0034-52 ")
  1. ;;6442
  1. ;;21,"52343-0062-20 ")
  1. ;;5378
  1. ;;21,"52343-0062-60 ")
  1. ;;5379
  1. ;;21,"52343-0063-20 ")
  1. ;;5465
  1. ;;21,"52343-0063-60 ")
  1. ;;5466
  1. ;;21,"52533-0014-42 ")
  1. ;;1387
  1. ;;21,"52533-0015-14 ")
  1. ;;1355
  1. ;;21,"52555-0771-01 ")
  1. ;;4706
  1. ;;21,"52959-0004-05 ")
  1. ;;5026
  1. ;;21,"52959-0011-20 ")
  1. ;;224
  1. ;;21,"52959-0011-21 ")
  1. ;;225
  1. ;;21,"52959-0011-24 ")
  1. ;;226
  1. ;;21,"52959-0011-30 ")
  1. ;;227
  1. ;;21,"52959-0011-40 ")
  1. ;;228
  1. ;;21,"52959-0011-60 ")
  1. ;;229
  1. ;;21,"52959-0020-00 ")
  1. ;;596
  1. ;;21,"52959-0020-05 ")
  1. ;;597
  1. ;;21,"52959-0020-06 ")
  1. ;;598
  1. ;;21,"52959-0020-18 ")
  1. ;;599
  1. ;;21,"52959-0020-20 ")
  1. ;;600
  1. ;;21,"52959-0020-21 ")
  1. ;;601
  1. ;;21,"52959-0020-24 ")
  1. ;;602
  1. ;;21,"52959-0020-28 ")
  1. ;;603
  1. ;;21,"52959-0020-30 ")
  1. ;;604
  1. ;;21,"52959-0020-40 ")
  1. ;;605
  1. ;;21,"52959-0020-42 ")
  1. ;;606
  1. ;;21,"52959-0020-60 ")
  1. ;;607
  1. ;;21,"52959-0021-01 ")
  1. ;;1096
  1. ;;21,"52959-0021-04 ")
  1. ;;1097
  1. ;;21,"52959-0021-14 ")
  1. ;;1098
  1. ;;21,"52959-0021-20 ")
  1. ;;1099
  1. ;;21,"52959-0021-21 ")
  1. ;;1100
  1. ;;21,"52959-0021-30 ")
  1. ;;1101
  1. ;;21,"52959-0029-20 ")
  1. ;;5380
  1. ;;21,"52959-0029-24 ")
  1. ;;5381
  1. ;;21,"52959-0030-01 ")
  1. ;;1653
  1. ;;21,"52959-0030-08 ")
  1. ;;1654
  1. ;;21,"52959-0030-12 ")
  1. ;;1655
  1. ;;21,"52959-0030-20 ")
  1. ;;1656
  1. ;;21,"52959-0030-24 ")
  1. ;;1657
  1. ;;21,"52959-0030-28 ")
  1. ;;1658
  1. ;;21,"52959-0030-30 ")
  1. ;;1659
  1. ;;21,"52959-0030-40 ")
  1. ;;1660
  1. ;;21,"52959-0030-56 ")
  1. ;;1661
  1. ;;21,"52959-0031-00 ")
  1. ;;1947
  1. ;;21,"52959-0031-02 ")
  1. ;;1948
  1. ;;21,"52959-0031-04 ")
  1. ;;1949
  1. ;;21,"52959-0031-06 ")
  1. ;;1950
  1. ;;21,"52959-0031-08 ")
  1. ;;1951
  1. ;;21,"52959-0031-10 ")
  1. ;;1952
  1. ;;21,"52959-0031-12 ")
  1. ;;1953
  1. ;;21,"52959-0031-14 ")
  1. ;;1954
  1. ;;21,"52959-0031-15 ")
  1. ;;1955
  1. ;;21,"52959-0031-20 ")
  1. ;;1956
  1. ;;21,"52959-0031-21 ")
  1. ;;1957
  1. ;;21,"52959-0031-24 ")
  1. ;;1958
  1. ;;21,"52959-0031-28 ")
  1. ;;1959
  1. ;;21,"52959-0031-30 ")
  1. ;;1960
  1. ;;21,"52959-0031-40 ")
  1. ;;1961
  1. ;;21,"52959-0031-56 ")
  1. ;;1962
  1. ;;21,"52959-0031-60 ")
  1. ;;1963
  1. ;;21,"52959-0036-06 ")
  1. ;;4470
  1. ;;21,"52959-0036-10 ")
  1. ;;4471
  1. ;;21,"52959-0036-14 ")
  1. ;;4472
  1. ;;21,"52959-0036-15 ")
  1. ;;4473
  1. ;;21,"52959-0036-20 ")
  1. ;;4474
  1. ;;21,"52959-0036-28 ")
  1. ;;4475
  1. ;;21,"52959-0036-30 ")
  1. ;;4476
  1. ;;21,"52959-0037-14 ")
  1. ;;4707
  1. ;;21,"52959-0037-20 ")
  1. ;;4708
  1. ;;21,"52959-0046-10 ")
  1. ;;1249
  1. ;;21,"52959-0046-14 ")
  1. ;;1250
  1. ;;21,"52959-0046-20 ")
  1. ;;1251
  1. ;;21,"52959-0048-20 ")
  1. ;;3922
  1. ;;21,"52959-0048-28 ")
  1. ;;3923
  1. ;;21,"52959-0048-30 ")
  1. ;;3924
  1. ;;21,"52959-0048-40 ")
  1. ;;3925
  1. ;;21,"52959-0048-41 ")
  1. ;;3926
  1. ;;21,"52959-0049-20 ")
  1. ;;3995
  1. ;;21,"52959-0049-21 ")
  1. ;;3996
  1. ;;21,"52959-0049-28 ")
  1. ;;3997
  1. ;;21,"52959-0049-30 ")
  1. ;;3998
  1. ;;21,"52959-0049-40 ")
  1. ;;3999
  1. ;;21,"52959-0055-00 ")
  1. ;;5999
  1. ;;21,"52959-0055-02 ")
  1. ;;6000
  1. ;;21,"52959-0055-06 ")
  1. ;;6001
  1. ;;21,"52959-0055-07 ")
  1. ;;6002
  1. ;;21,"52959-0055-10 ")
  1. ;;6003
  1. ;;21,"52959-0055-12 ")
  1. ;;6004
  1. ;;21,"52959-0055-14 ")
  1. ;;6005
  1. ;;21,"52959-0055-15 ")
  1. ;;6006
  1. ;;21,"52959-0055-20 ")
  1. ;;6007
  1. ;;21,"52959-0055-28 ")
  1. ;;6008
  1. ;;21,"52959-0055-30 ")
  1. ;;6009
  1. ;;21,"52959-0055-90 ")
  1. ;;6010
  1. ;;21,"52959-0060-20 ")
  1. ;;3091
  1. ;;21,"52959-0060-28 ")
  1. ;;3092
  1. ;;21,"52959-0060-30 ")
  1. ;;3093
  1. ;;21,"52959-0060-40 ")
  1. ;;3094
  1. ;;21,"52959-0060-56 ")
  1. ;;3095
  1. ;;21,"52959-0061-15 ")
  1. ;;3192
  1. ;;21,"52959-0061-18 ")
  1. ;;3193
  1. ;;21,"52959-0061-20 ")
  1. ;;3194
  1. ;;21,"52959-0061-21 ")
  1. ;;3195
  1. ;;21,"52959-0061-24 ")
  1. ;;3196
  1. ;;21,"52959-0061-28 ")
  1. ;;3197
  1. ;;21,"52959-0061-30 ")
  1. ;;3198
  1. ;;21,"52959-0061-40 ")
  1. ;;3199
  1. ;;21,"52959-0061-42 ")
  1. ;;3200
  1. ;;21,"52959-0062-10 ")
  1. ;;3278
  1. ;;21,"52959-0062-20 ")
  1. ;;3279
  1. ;;21,"52959-0062-21 ")
  1. ;;3280
  1. ;;21,"52959-0062-28 ")
  1. ;;3281
  1. ;;21,"52959-0062-30 ")
  1. ;;3282
  1. ;;21,"52959-0062-40 ")
  1. ;;3283
  1. ;;21,"52959-0062-56 ")
  1. ;;3284
  1. ;;21,"52959-0063-21 ")
  1. ;;3434
  1. ;;21,"52959-0063-28 ")
  1. ;;3435
  1. ;;21,"52959-0063-30 ")
  1. ;;3436
  1. ;;21,"52959-0063-40 ")
  1. ;;3437
  1. ;;21,"52959-0064-28 ")
  1. ;;3096
  1. ;;21,"52959-0087-20 ")
  1. ;;1964
  1. ;;21,"52959-0087-40 ")
  1. ;;1965
  1. ;;21,"52959-0130-03 ")
  1. ;;833
  1. ;;21,"52959-0134-20 ")
  1. ;;7013
  1. ;;21,"52959-0144-00 ")
  1. ;;5728
  1. ;;21,"52959-0144-06 ")
  1. ;;5729
  1. ;;21,"52959-0144-10 ")
  1. ;;5730
  1. ;;21,"52959-0144-14 ")
  1. ;;5731
  1. ;;21,"52959-0144-15 ")
  1. ;;5732
  1. ;;21,"52959-0144-20 ")
  1. ;;5733
  1. ;;21,"52959-0144-21 ")
  1. ;;5734
  1. ;;21,"52959-0144-28 ")
  1. ;;5735
  1. ;;21,"52959-0144-30 ")
  1. ;;5736
  1. ;;21,"52959-0144-40 ")
  1. ;;5737
  1. ;;21,"52959-0144-60 ")
  1. ;;5738
  1. ;;21,"52959-0164-00 ")
  1. ;;3557
  1. ;;21,"52959-0164-03 ")
  1. ;;3558
  1. ;;21,"52959-0164-06 ")
  1. ;;3559
  1. ;;21,"52959-0171-06 ")
  1. ;;4222
  1. ;;21,"52959-0171-10 ")
  1. ;;4223
  1. ;;21,"52959-0171-14 ")
  1. ;;4224
  1. ;;21,"52959-0171-20 ")
  1. ;;4225
  1. ;;21,"52959-0171-28 ")
  1. ;;4226
  1. ;;21,"52959-0181-00 ")
  1. ;;114
  1. ;;21,"52959-0181-80 ")
  1. ;;115
  1. ;;21,"52959-0200-01 ")
  1. ;;1562
  1. ;;21,"52959-0200-02 ")
  1. ;;1563
  1. ;;21,"52959-0213-10 ")
  1. ;;3810
  1. ;;21,"52959-0213-20 ")
  1. ;;3811
  1. ;;21,"52959-0213-24 ")
  1. ;;3812
  1. ;;21,"52959-0213-28 ")
  1. ;;3813
  1. ;;21,"52959-0213-30 ")
  1. ;;3814
  1. ;;21,"52959-0213-40 ")
  1. ;;3815
  1. ;;21,"52959-0230-10 ")
  1. ;;2970
  1. ;;21,"52959-0230-20 ")
  1. ;;2971
  1. ;;21,"52959-0240-10 ")
  1. ;;3361
  1. ;;21,"52959-0242-03 ")
  1. ;;2595
  1. ;;21,"52959-0246-19 ")
  1. ;;329
  1. ;;21,"52959-0246-21 ")
  1. ;;330
  1. ;;21,"52959-0246-30 ")
  1. ;;331
  1. ;;21,"52959-0246-40 ")
  1. ;;332
  1. ;;21,"52959-0283-00 ")
  1. ;;6619
  1. ;;21,"52959-0283-12 ")
  1. ;;6620
  1. ;;21,"52959-0283-20 ")
  1. ;;6621
  1. ;;21,"52959-0283-28 ")
  1. ;;6622
  1. ;;21,"52959-0283-30 ")
  1. ;;6623
  1. ;;21,"52959-0283-40 ")
  1. ;;6624
  1. ;;21,"52959-0294-03 ")
  1. ;;5174
  1. ;;21,"52959-0296-05 ")
  1. ;;444
  1. ;;21,"52959-0300-20 ")
  1. ;;5333
  1. ;;21,"52959-0305-00 ")
  1. ;;3502
  1. ;;21,"52959-0305-01 ")
  1. ;;3503
  1. ;;21,"52959-0313-15 ")
  1. ;;2561
  1. ;;21,"52959-0333-20 ")
  1. ;;3645
  1. ;;21,"52959-0333-24 ")
  1. ;;3646
  1. ;;21,"52959-0333-28 ")
  1. ;;3647
  1. ;;21,"52959-0333-30 ")
  1. ;;3648
  1. ;;21,"52959-0333-40 ")
  1. ;;3649
  1. ;;21,"52959-0336-14 ")
  1. ;;6701
  1. ;;21,"52959-0336-20 ")
  1. ;;6702
  1. ;;21,"52959-0336-28 ")
  1. ;;6703
  1. ;;21,"52959-0336-30 ")
  1. ;;6704
  1. ;;21,"52959-0336-40 ")
  1. ;;6705
  1. ;;21,"52959-0336-56 ")
  1. ;;6706
  1. ;;21,"52959-0336-90 ")
  1. ;;6707
  1. ;;21,"52959-0368-14 ")
  1. ;;5212
  1. ;;21,"52959-0368-20 ")
  1. ;;5213
  1. ;;21,"52959-0368-21 ")
  1. ;;5214
  1. ;;21,"52959-0368-28 ")
  1. ;;5215
  1. ;;21,"52959-0368-30 ")
  1. ;;5216
  1. ;;21,"52959-0368-40 ")
  1. ;;5217
  1. ;;21,"52959-0428-04 ")
  1. ;;1456
  1. ;;21,"52959-0428-14 ")
  1. ;;1457
  1. ;;21,"52959-0428-16 ")
  1. ;;1458
  1. ;;21,"52959-0428-18 ")
  1. ;;1459
  1. ;;21,"52959-0428-20 ")
  1. ;;1460
  1. ;;21,"52959-0428-28 ")
  1. ;;1461
  1. ;;21,"52959-0428-30 ")
  1. ;;1462
  1. ;;21,"52959-0442-10 ")
  1. ;;2897
  1. ;;21,"52959-0442-14 ")
  1. ;;2898
  1. ;;21,"52959-0442-20 ")
  1. ;;2899
  1. ;;21,"52959-0474-14 ")
  1. ;;6174
  1. ;;21,"52959-0474-20 ")
  1. ;;6175
  1. ;;21,"52959-0474-30 ")
  1. ;;6176
  1. ;;21,"52959-0492-01 ")
  1. ;;4898
  1. ;;21,"52959-0492-02 ")
  1. ;;4899
  1. ;;21,"52959-0492-04 ")
  1. ;;4900
  1. ;;21,"52959-0492-06 ")
  1. ;;4901
  1. ;;21,"52959-0492-07 ")
  1. ;;4902
  1. ;;21,"52959-0492-10 ")
  1. ;;4903
  1. ;;21,"52959-0492-12 ")
  1. ;;4904
  1. ;;21,"52959-0492-14 ")
  1. ;;4905
  1. ;;21,"52959-0492-30 ")
  1. ;;4906
  1. ;;21,"52959-0505-06 ")
  1. ;;2680
  1. ;;21,"52959-0560-00 ")
  1. ;;3607
  1. ;;21,"52959-0613-02 ")
  1. ;;403
  1. ;;21,"52959-0613-03 ")
  1. ;;404
  1. ;;21,"52959-0616-00 ")
  1. ;;991
  1. ;;21,"52959-0616-01 ")
  1. ;;992
  1. ;;21,"52959-0616-02 ")
  1. ;;993
  1. ;;21,"52959-0619-03 ")
  1. ;;5175
  1. ;;21,"52959-0620-01 ")
  1. ;;1787