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

BGP62Y19.m

Go to the documentation of this file.
BGP62Y19 ;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,"63874-0107-50 ")
 ;;4623
 ;;21,"63874-0107-60 ")
 ;;4624
 ;;21,"63874-0107-90 ")
 ;;4625
 ;;21,"63874-0108-01 ")
 ;;3963
 ;;21,"63874-0108-10 ")
 ;;3964
 ;;21,"63874-0108-12 ")
 ;;3965
 ;;21,"63874-0108-14 ")
 ;;3966
 ;;21,"63874-0108-15 ")
 ;;3967
 ;;21,"63874-0108-18 ")
 ;;3968
 ;;21,"63874-0108-20 ")
 ;;3969
 ;;21,"63874-0108-24 ")
 ;;3970
 ;;21,"63874-0108-28 ")
 ;;3971
 ;;21,"63874-0108-30 ")
 ;;3972
 ;;21,"63874-0108-40 ")
 ;;3973
 ;;21,"63874-0108-60 ")
 ;;3974
 ;;21,"63874-0109-03 ")
 ;;6091
 ;;21,"63874-0109-10 ")
 ;;6092
 ;;21,"63874-0109-12 ")
 ;;6093
 ;;21,"63874-0109-14 ")
 ;;6094
 ;;21,"63874-0109-15 ")
 ;;6095
 ;;21,"63874-0109-16 ")
 ;;6096
 ;;21,"63874-0109-18 ")
 ;;6097
 ;;21,"63874-0109-20 ")
 ;;6098
 ;;21,"63874-0109-21 ")
 ;;6099
 ;;21,"63874-0109-24 ")
 ;;6100
 ;;21,"63874-0109-28 ")
 ;;6101
 ;;21,"63874-0109-30 ")
 ;;6102
 ;;21,"63874-0109-40 ")
 ;;6103
 ;;21,"63874-0109-50 ")
 ;;6104
 ;;21,"63874-0109-60 ")
 ;;6105
 ;;21,"63874-0110-01 ")
 ;;3480
 ;;21,"63874-0110-20 ")
 ;;3481
 ;;21,"63874-0110-28 ")
 ;;3482
 ;;21,"63874-0110-30 ")
 ;;3483
 ;;21,"63874-0110-40 ")
 ;;3484
 ;;21,"63874-0110-50 ")
 ;;3485
 ;;21,"63874-0111-01 ")
 ;;1733
 ;;21,"63874-0111-03 ")
 ;;1734
 ;;21,"63874-0111-04 ")
 ;;1735
 ;;21,"63874-0111-12 ")
 ;;1736
 ;;21,"63874-0111-14 ")
 ;;1737
 ;;21,"63874-0111-15 ")
 ;;1738
 ;;21,"63874-0111-16 ")
 ;;1739
 ;;21,"63874-0111-20 ")
 ;;1740
 ;;21,"63874-0111-21 ")
 ;;1741
 ;;21,"63874-0111-24 ")
 ;;1742
 ;;21,"63874-0111-28 ")
 ;;1743
 ;;21,"63874-0111-30 ")
 ;;1744
 ;;21,"63874-0111-40 ")
 ;;1745
 ;;21,"63874-0111-50 ")
 ;;1746
 ;;21,"63874-0111-56 ")
 ;;1747
 ;;21,"63874-0111-60 ")
 ;;1748
 ;;21,"63874-0111-72 ")
 ;;1749
 ;;21,"63874-0111-74 ")
 ;;1750
 ;;21,"63874-0111-77 ")
 ;;1751
 ;;21,"63874-0111-80 ")
 ;;1752
 ;;21,"63874-0112-01 ")
 ;;2066
 ;;21,"63874-0112-03 ")
 ;;2067
 ;;21,"63874-0112-04 ")
 ;;2068
 ;;21,"63874-0112-05 ")
 ;;2069
 ;;21,"63874-0112-06 ")
 ;;2070
 ;;21,"63874-0112-08 ")
 ;;2071
 ;;21,"63874-0112-10 ")
 ;;2072
 ;;21,"63874-0112-12 ")
 ;;2073
 ;;21,"63874-0112-14 ")
 ;;2074
 ;;21,"63874-0112-15 ")
 ;;2075
 ;;21,"63874-0112-16 ")
 ;;2076
 ;;21,"63874-0112-18 ")
 ;;2077
 ;;21,"63874-0112-20 ")
 ;;2078
 ;;21,"63874-0112-21 ")
 ;;2079
 ;;21,"63874-0112-24 ")
 ;;2080
 ;;21,"63874-0112-25 ")
 ;;2081
 ;;21,"63874-0112-28 ")
 ;;2082
 ;;21,"63874-0112-30 ")
 ;;2083
 ;;21,"63874-0112-40 ")
 ;;2084
 ;;21,"63874-0112-50 ")
 ;;2085
 ;;21,"63874-0112-56 ")
 ;;2086
 ;;21,"63874-0112-60 ")
 ;;2087
 ;;21,"63874-0112-72 ")
 ;;2088
 ;;21,"63874-0112-74 ")
 ;;2089
 ;;21,"63874-0112-77 ")
 ;;2090
 ;;21,"63874-0113-01 ")
 ;;814
 ;;21,"63874-0113-03 ")
 ;;815
 ;;21,"63874-0113-08 ")
 ;;816
 ;;21,"63874-0113-09 ")
 ;;817
 ;;21,"63874-0113-10 ")
 ;;818
 ;;21,"63874-0113-12 ")
 ;;819
 ;;21,"63874-0113-14 ")
 ;;820
 ;;21,"63874-0113-15 ")
 ;;821
 ;;21,"63874-0113-20 ")
 ;;822
 ;;21,"63874-0113-21 ")
 ;;823
 ;;21,"63874-0113-24 ")
 ;;824
 ;;21,"63874-0113-28 ")
 ;;825
 ;;21,"63874-0113-30 ")
 ;;826
 ;;21,"63874-0113-40 ")
 ;;827
 ;;21,"63874-0113-50 ")
 ;;828
 ;;21,"63874-0114-01 ")
 ;;880
 ;;21,"63874-0114-03 ")
 ;;881
 ;;21,"63874-0114-07 ")
 ;;882
 ;;21,"63874-0114-10 ")
 ;;883
 ;;21,"63874-0114-20 ")
 ;;884
 ;;21,"63874-0114-21 ")
 ;;885
 ;;21,"63874-0114-24 ")
 ;;886
 ;;21,"63874-0114-25 ")
 ;;887
 ;;21,"63874-0114-28 ")
 ;;888
 ;;21,"63874-0114-30 ")
 ;;889
 ;;21,"63874-0114-40 ")
 ;;890
 ;;21,"63874-0114-50 ")
 ;;891
 ;;21,"63874-0115-01 ")
 ;;1157
 ;;21,"63874-0115-08 ")
 ;;1158
 ;;21,"63874-0115-10 ")
 ;;1159
 ;;21,"63874-0115-12 ")
 ;;1160
 ;;21,"63874-0115-14 ")
 ;;1161
 ;;21,"63874-0115-15 ")
 ;;1162
 ;;21,"63874-0115-20 ")
 ;;1163
 ;;21,"63874-0115-21 ")
 ;;1164
 ;;21,"63874-0115-30 ")
 ;;1165
 ;;21,"63874-0118-01 ")
 ;;5855
 ;;21,"63874-0118-03 ")
 ;;5856
 ;;21,"63874-0118-06 ")
 ;;5857
 ;;21,"63874-0118-07 ")
 ;;5858
 ;;21,"63874-0118-10 ")
 ;;5859
 ;;21,"63874-0118-12 ")
 ;;5860
 ;;21,"63874-0118-14 ")
 ;;5861
 ;;21,"63874-0118-15 ")
 ;;5862
 ;;21,"63874-0118-18 ")
 ;;5863
 ;;21,"63874-0118-20 ")
 ;;5864
 ;;21,"63874-0118-21 ")
 ;;5865
 ;;21,"63874-0118-24 ")
 ;;5866
 ;;21,"63874-0118-28 ")
 ;;5867
 ;;21,"63874-0118-30 ")
 ;;5868
 ;;21,"63874-0118-40 ")
 ;;5869
 ;;21,"63874-0118-50 ")
 ;;5870
 ;;21,"63874-0118-60 ")
 ;;5871
 ;;21,"63874-0119-01 ")
 ;;5158
 ;;21,"63874-0119-21 ")
 ;;5159
 ;;21,"63874-0119-30 ")
 ;;5160
 ;;21,"63874-0120-01 ")
 ;;5229
 ;;21,"63874-0120-12 ")
 ;;5230
 ;;21,"63874-0120-20 ")
 ;;5231
 ;;21,"63874-0120-30 ")
 ;;5232
 ;;21,"63874-0123-01 ")
 ;;4036
 ;;21,"63874-0123-12 ")
 ;;4037
 ;;21,"63874-0123-14 ")
 ;;4038
 ;;21,"63874-0123-15 ")
 ;;4039
 ;;21,"63874-0123-20 ")
 ;;4040
 ;;21,"63874-0123-21 ")
 ;;4041
 ;;21,"63874-0123-24 ")
 ;;4042
 ;;21,"63874-0123-28 ")
 ;;4043
 ;;21,"63874-0123-30 ")
 ;;4044
 ;;21,"63874-0123-40 ")
 ;;4045
 ;;21,"63874-0123-50 ")
 ;;4046
 ;;21,"63874-0123-60 ")
 ;;4047
 ;;21,"63874-0124-01 ")
 ;;6742
 ;;21,"63874-0124-02 ")
 ;;6743
 ;;21,"63874-0124-10 ")
 ;;6744
 ;;21,"63874-0124-12 ")
 ;;6745
 ;;21,"63874-0124-14 ")
 ;;6746
 ;;21,"63874-0124-15 ")
 ;;6747
 ;;21,"63874-0124-20 ")
 ;;6748
 ;;21,"63874-0124-21 ")
 ;;6749
 ;;21,"63874-0124-24 ")
 ;;6750
 ;;21,"63874-0124-28 ")
 ;;6751
 ;;21,"63874-0124-30 ")
 ;;6752
 ;;21,"63874-0124-40 ")
 ;;6753
 ;;21,"63874-0124-50 ")
 ;;6754
 ;;21,"63874-0124-60 ")
 ;;6755
 ;;21,"63874-0125-01 ")
 ;;6645
 ;;21,"63874-0125-02 ")
 ;;6646
 ;;21,"63874-0125-10 ")
 ;;6647
 ;;21,"63874-0125-14 ")
 ;;6648
 ;;21,"63874-0125-15 ")
 ;;6649
 ;;21,"63874-0125-20 ")
 ;;6650
 ;;21,"63874-0125-21 ")
 ;;6651
 ;;21,"63874-0125-24 ")
 ;;6652
 ;;21,"63874-0125-28 ")
 ;;6653
 ;;21,"63874-0125-30 ")
 ;;6654
 ;;21,"63874-0125-40 ")
 ;;6655
 ;;21,"63874-0125-60 ")
 ;;6656
 ;;21,"63874-0125-80 ")
 ;;6657
 ;;21,"63874-0126-28 ")
 ;;3153
 ;;21,"63874-0126-30 ")
 ;;3154
 ;;21,"63874-0126-40 ")
 ;;3155
 ;;21,"63874-0127-01 ")
 ;;3232
 ;;21,"63874-0127-05 ")
 ;;3233
 ;;21,"63874-0127-18 ")
 ;;3234
 ;;21,"63874-0127-20 ")
 ;;3235
 ;;21,"63874-0127-21 ")
 ;;3236
 ;;21,"63874-0127-28 ")
 ;;3237
 ;;21,"63874-0127-30 ")
 ;;3238
 ;;21,"63874-0127-40 ")
 ;;3239
 ;;21,"63874-0127-42 ")
 ;;3240
 ;;21,"63874-0143-10 ")
 ;;126
 ;;21,"63874-0143-15 ")
 ;;127
 ;;21,"63874-0143-80 ")
 ;;128
 ;;21,"63874-0144-10 ")
 ;;418
 ;;21,"63874-0144-15 ")
 ;;419
 ;;21,"63874-0146-10 ")
 ;;837
 ;;21,"63874-0146-15 ")
 ;;838
 ;;21,"63874-0146-20 ")
 ;;839
 ;;21,"63874-0147-10 ")
 ;;1003
 ;;21,"63874-0147-15 ")
 ;;1004
 ;;21,"63874-0147-75 ")
 ;;1005
 ;;21,"63874-0148-10 ")
 ;;926
 ;;21,"63874-0148-15 ")
 ;;927
 ;;21,"63874-0148-75 ")
 ;;928
 ;;21,"63874-0150-10 ")
 ;;5570
 ;;21,"63874-0150-20 ")
 ;;5571
 ;;21,"63874-0151-15 ")
 ;;5126
 ;;21,"63874-0151-75 ")
 ;;5127
 ;;21,"63874-0153-15 ")
 ;;5181
 ;;21,"63874-0153-75 ")
 ;;5182
 ;;21,"63874-0155-10 ")
 ;;1802
 ;;21,"63874-0155-20 ")
 ;;1803
 ;;21,"63874-0156-10 ")
 ;;3570
 ;;21,"63874-0156-15 ")
 ;;3571
 ;;21,"63874-0156-20 ")
 ;;3572
 ;;21,"63874-0159-10 ")
 ;;3403
 ;;21,"63874-0159-20 ")
 ;;3404
 ;;21,"63874-0160-10 ")
 ;;3509
 ;;21,"63874-0160-20 ")
 ;;3510
 ;;21,"63874-0160-48 ")
 ;;3511
 ;;21,"63874-0166-10 ")
 ;;1576
 ;;21,"63874-0166-20 ")
 ;;1577
 ;;21,"63874-0170-10 ")
 ;;3739
 ;;21,"63874-0170-20 ")
 ;;3740
 ;;21,"63874-0231-01 ")
 ;;3340
 ;;21,"63874-0231-10 ")
 ;;3341
 ;;21,"63874-0231-12 ")
 ;;3342
 ;;21,"63874-0231-14 ")
 ;;3343
 ;;21,"63874-0231-15 ")
 ;;3344
 ;;21,"63874-0231-20 ")
 ;;3345
 ;;21,"63874-0231-21 ")
 ;;3346
 ;;21,"63874-0231-28 ")
 ;;3347
 ;;21,"63874-0231-30 ")
 ;;3348
 ;;21,"63874-0231-40 ")
 ;;3349
 ;;21,"63874-0232-01 ")
 ;;3699
 ;;21,"63874-0232-02 ")
 ;;3700
 ;;21,"63874-0232-03 ")
 ;;3701
 ;;21,"63874-0232-10 ")
 ;;3702
 ;;21,"63874-0232-12 ")
 ;;3703
 ;;21,"63874-0232-16 ")
 ;;3704
 ;;21,"63874-0232-20 ")
 ;;3705
 ;;21,"63874-0232-21 ")
 ;;3706
 ;;21,"63874-0232-24 ")
 ;;3707
 ;;21,"63874-0232-28 ")
 ;;3708
 ;;21,"63874-0232-30 ")
 ;;3709
 ;;21,"63874-0232-40 ")
 ;;3710
 ;;21,"63874-0232-50 ")
 ;;3711
 ;;21,"63874-0233-01 ")
 ;;3878
 ;;21,"63874-0233-02 ")
 ;;3879
 ;;21,"63874-0233-06 ")
 ;;3880
 ;;21,"63874-0233-10 ")
 ;;3881
 ;;21,"63874-0233-12 ")
 ;;3882
 ;;21,"63874-0233-15 ")
 ;;3883
 ;;21,"63874-0233-16 ")
 ;;3884
 ;;21,"63874-0233-20 ")
 ;;3885
 ;;21,"63874-0233-24 ")
 ;;3886
 ;;21,"63874-0233-28 ")
 ;;3887
 ;;21,"63874-0233-30 ")
 ;;3888
 ;;21,"63874-0233-36 ")
 ;;3889
 ;;21,"63874-0233-40 ")
 ;;3890
 ;;21,"63874-0233-50 ")
 ;;3891
 ;;21,"63874-0233-60 ")
 ;;3892
 ;;21,"63874-0235-01 ")
 ;;2370
 ;;21,"63874-0235-04 ")
 ;;2371
 ;;21,"63874-0235-10 ")
 ;;2372
 ;;21,"63874-0235-12 ")
 ;;2373
 ;;21,"63874-0235-15 ")
 ;;2374
 ;;21,"63874-0235-16 ")
 ;;2375
 ;;21,"63874-0235-20 ")
 ;;2376
 ;;21,"63874-0235-21 ")
 ;;2377
 ;;21,"63874-0235-28 ")
 ;;2378
 ;;21,"63874-0235-30 ")
 ;;2379
 ;;21,"63874-0235-40 ")
 ;;2380
 ;;21,"63874-0235-56 ")
 ;;2381
 ;;21,"63874-0235-80 ")
 ;;2382
 ;;21,"63874-0237-01 ")
 ;;6266
 ;;21,"63874-0237-04 ")
 ;;6267
 ;;21,"63874-0237-05 ")
 ;;6268
 ;;21,"63874-0237-06 ")
 ;;6269
 ;;21,"63874-0237-07 ")
 ;;6270
 ;;21,"63874-0237-10 ")
 ;;6271
 ;;21,"63874-0237-12 ")
 ;;6272
 ;;21,"63874-0237-14 ")
 ;;6273
 ;;21,"63874-0237-15 ")
 ;;6274
 ;;21,"63874-0237-16 ")
 ;;6275
 ;;21,"63874-0237-20 ")
 ;;6276
 ;;21,"63874-0237-21 ")
 ;;6277
 ;;21,"63874-0237-24 ")
 ;;6278
 ;;21,"63874-0237-28 ")
 ;;6279
 ;;21,"63874-0237-30 ")
 ;;6280
 ;;21,"63874-0237-40 ")
 ;;6281
 ;;21,"63874-0237-50 ")
 ;;6282
 ;;21,"63874-0237-60 ")
 ;;6283
 ;;21,"63874-0237-72 ")
 ;;6284
 ;;21,"63874-0237-74 ")
 ;;6285
 ;;21,"63874-0237-77 ")
 ;;6286
 ;;21,"63874-0239-01 ")
 ;;87
 ;;21,"63874-0239-20 ")
 ;;88
 ;;21,"63874-0239-30 ")
 ;;89
 ;;21,"63874-0240-01 ")
 ;;369
 ;;21,"63874-0240-20 ")
 ;;370
 ;;21,"63874-0240-30 ")
 ;;371
 ;;21,"63874-0240-50 ")
 ;;372
 ;;21,"63874-0241-15 ")
 ;;6465
 ;;21,"63874-0241-20 ")
 ;;6466
 ;;21,"63874-0241-30 ")
 ;;6467
 ;;21,"63874-0241-50 ")
 ;;6468
 ;;21,"63874-0241-60 ")
 ;;6469
 ;;21,"63874-0246-00 ")
 ;;2742
 ;;21,"63874-0246-04 ")
 ;;2743
 ;;21,"63874-0246-06 ")
 ;;2744
 ;;21,"63874-0246-10 ")
 ;;2745
 ;;21,"63874-0246-15 ")
 ;;2746
 ;;21,"63874-0523-01 ")
 ;;4829
 ;;21,"63874-0523-03 ")
 ;;4830
 ;;21,"63874-0523-05 ")
 ;;4831
 ;;21,"63874-0523-06 ")
 ;;4832
 ;;21,"63874-0523-07 ")
 ;;4833
 ;;21,"63874-0523-10 ")
 ;;4834
 ;;21,"63874-0523-14 ")
 ;;4835
 ;;21,"63874-0523-20 ")
 ;;4836
 ;;21,"63874-0523-30 ")
 ;;4837
 ;;21,"63874-0533-01 ")
 ;;1506
 ;;21,"63874-0533-04 ")
 ;;1507
 ;;21,"63874-0533-10 ")
 ;;1508
 ;;21,"63874-0533-12 ")
 ;;1509
 ;;21,"63874-0533-14 ")
 ;;1510
 ;;21,"63874-0533-15 ")
 ;;1511
 ;;21,"63874-0533-20 ")
 ;;1512
 ;;21,"63874-0533-25 ")
 ;;1513
 ;;21,"63874-0533-28 ")
 ;;1514
 ;;21,"63874-0533-30 ")
 ;;1515