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

BGP62Z10.m

Go to the documentation of this file.
BGP62Z10 ;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,"55111-0610-30 ")
 ;;1122
 ;;21,"55289-0016-30 ")
 ;;4435
 ;;21,"55289-0016-60 ")
 ;;4436
 ;;21,"55289-0018-01 ")
 ;;4845
 ;;21,"55289-0018-30 ")
 ;;4846
 ;;21,"55289-0028-21 ")
 ;;1123
 ;;21,"55289-0028-30 ")
 ;;1124
 ;;21,"55289-0036-21 ")
 ;;1055
 ;;21,"55289-0036-30 ")
 ;;1056
 ;;21,"55289-0037-45 ")
 ;;2864
 ;;21,"55289-0037-90 ")
 ;;2865
 ;;21,"55289-0053-45 ")
 ;;3241
 ;;21,"55289-0053-90 ")
 ;;3242
 ;;21,"55289-0060-14 ")
 ;;701
 ;;21,"55289-0060-30 ")
 ;;702
 ;;21,"55289-0064-07 ")
 ;;845
 ;;21,"55289-0064-14 ")
 ;;846
 ;;21,"55289-0064-30 ")
 ;;847
 ;;21,"55289-0064-60 ")
 ;;848
 ;;21,"55289-0064-90 ")
 ;;849
 ;;21,"55289-0099-30 ")
 ;;5163
 ;;21,"55289-0099-50 ")
 ;;5164
 ;;21,"55289-0124-12 ")
 ;;4060
 ;;21,"55289-0124-30 ")
 ;;4061
 ;;21,"55289-0144-30 ")
 ;;4953
 ;;21,"55289-0144-90 ")
 ;;4954
 ;;21,"55289-0215-22 ")
 ;;2558
 ;;21,"55289-0215-30 ")
 ;;2559
 ;;21,"55289-0216-30 ")
 ;;3022
 ;;21,"55289-0223-30 ")
 ;;595
 ;;21,"55289-0223-60 ")
 ;;596
 ;;21,"55289-0223-90 ")
 ;;597
 ;;21,"55289-0258-30 ")
 ;;4892
 ;;21,"55289-0277-30 ")
 ;;1533
 ;;21,"55289-0291-14 ")
 ;;3665
 ;;21,"55289-0291-30 ")
 ;;3666
 ;;21,"55289-0291-60 ")
 ;;3667
 ;;21,"55289-0308-07 ")
 ;;2360
 ;;21,"55289-0308-14 ")
 ;;2361
 ;;21,"55289-0308-30 ")
 ;;2362
 ;;21,"55289-0370-30 ")
 ;;4779
 ;;21,"55289-0378-30 ")
 ;;3525
 ;;21,"55289-0381-30 ")
 ;;3398
 ;;21,"55289-0381-45 ")
 ;;3399
 ;;21,"55289-0381-60 ")
 ;;3400
 ;;21,"55289-0381-90 ")
 ;;3401
 ;;21,"55289-0409-30 ")
 ;;3668
 ;;21,"55289-0409-60 ")
 ;;3669
 ;;21,"55289-0550-15 ")
 ;;3402
 ;;21,"55289-0550-30 ")
 ;;3403
 ;;21,"55289-0586-30 ")
 ;;5083
 ;;21,"55289-0610-28 ")
 ;;2560
 ;;21,"55289-0610-30 ")
 ;;2561
 ;;21,"55289-0610-60 ")
 ;;2562
 ;;21,"55289-0610-90 ")
 ;;2563
 ;;21,"55289-0613-14 ")
 ;;2363
 ;;21,"55289-0613-30 ")
 ;;2364
 ;;21,"55289-0613-60 ")
 ;;2365
 ;;21,"55289-0730-01 ")
 ;;4302
 ;;21,"55289-0730-12 ")
 ;;4303
 ;;21,"55289-0730-25 ")
 ;;4304
 ;;21,"55289-0730-30 ")
 ;;4305
 ;;21,"55289-0730-60 ")
 ;;4306
 ;;21,"55289-0730-90 ")
 ;;4307
 ;;21,"55289-0733-30 ")
 ;;40
 ;;21,"55289-0733-60 ")
 ;;41
 ;;21,"55289-0768-30 ")
 ;;2160
 ;;21,"55289-0827-30 ")
 ;;1875
 ;;21,"55289-0828-30 ")
 ;;2234
 ;;21,"55289-0830-30 ")
 ;;1618
 ;;21,"55289-0869-30 ")
 ;;1340
 ;;21,"55289-0883-14 ")
 ;;1876
 ;;21,"55289-0883-30 ")
 ;;1877
 ;;21,"55289-0883-60 ")
 ;;1878
 ;;21,"55289-0883-90 ")
 ;;1879
 ;;21,"55289-0897-30 ")
 ;;1223
 ;;21,"55289-0900-15 ")
 ;;372
 ;;21,"55289-0900-30 ")
 ;;373
 ;;21,"55289-0905-30 ")
 ;;213
 ;;21,"55289-0922-15 ")
 ;;294
 ;;21,"55289-0922-30 ")
 ;;295
 ;;21,"55289-0972-30 ")
 ;;3023
 ;;21,"55289-0972-60 ")
 ;;3024
 ;;21,"55289-0972-90 ")
 ;;3025
 ;;21,"55864-0708-30 ")
 ;;703
 ;;21,"55887-0125-60 ")
 ;;1619
 ;;21,"55887-0143-30 ")
 ;;4636
 ;;21,"55887-0143-60 ")
 ;;4637
 ;;21,"55887-0143-82 ")
 ;;4638
 ;;21,"55887-0143-90 ")
 ;;4639
 ;;21,"55887-0143-92 ")
 ;;4640
 ;;21,"55887-0144-30 ")
 ;;4597
 ;;21,"55887-0144-60 ")
 ;;4598
 ;;21,"55887-0144-82 ")
 ;;4599
 ;;21,"55887-0144-90 ")
 ;;4600
 ;;21,"55887-0144-92 ")
 ;;4601
 ;;21,"55887-0151-01 ")
 ;;42
 ;;21,"55887-0151-20 ")
 ;;43
 ;;21,"55887-0151-30 ")
 ;;44
 ;;21,"55887-0151-60 ")
 ;;45
 ;;21,"55887-0151-82 ")
 ;;46
 ;;21,"55887-0151-90 ")
 ;;47
 ;;21,"55887-0160-15 ")
 ;;3526
 ;;21,"55887-0160-30 ")
 ;;3527
 ;;21,"55887-0160-60 ")
 ;;3528
 ;;21,"55887-0160-90 ")
 ;;3529
 ;;21,"55887-0168-30 ")
 ;;3670
 ;;21,"55887-0168-60 ")
 ;;3671
 ;;21,"55887-0168-90 ")
 ;;3672
 ;;21,"55887-0193-90 ")
 ;;1224
 ;;21,"55887-0237-30 ")
 ;;2038
 ;;21,"55887-0237-60 ")
 ;;2039
 ;;21,"55887-0237-86 ")
 ;;2040
 ;;21,"55887-0237-90 ")
 ;;2041
 ;;21,"55887-0256-20 ")
 ;;598
 ;;21,"55887-0260-90 ")
 ;;1725
 ;;21,"55887-0261-01 ")
 ;;1880
 ;;21,"55887-0261-90 ")
 ;;1881
 ;;21,"55887-0283-30 ")
 ;;374
 ;;21,"55887-0283-60 ")
 ;;375
 ;;21,"55887-0283-90 ")
 ;;376
 ;;21,"55887-0284-30 ")
 ;;296
 ;;21,"55887-0284-60 ")
 ;;297
 ;;21,"55887-0284-90 ")
 ;;298
 ;;21,"55887-0288-30 ")
 ;;4995
 ;;21,"55887-0289-30 ")
 ;;4847
 ;;21,"55887-0289-60 ")
 ;;4848
 ;;21,"55887-0356-30 ")
 ;;4780
 ;;21,"55887-0356-60 ")
 ;;4781
 ;;21,"55887-0394-90 ")
 ;;3026
 ;;21,"55887-0398-60 ")
 ;;4520
 ;;21,"55887-0433-30 ")
 ;;2866
 ;;21,"55887-0439-30 ")
 ;;5084
 ;;21,"55887-0439-60 ")
 ;;5085
 ;;21,"55887-0439-92 ")
 ;;5086
 ;;21,"55887-0458-60 ")
 ;;2366
 ;;21,"55887-0458-90 ")
 ;;2367
 ;;21,"55887-0490-30 ")
 ;;2927
 ;;21,"55887-0490-60 ")
 ;;2928
 ;;21,"55887-0490-82 ")
 ;;2929
 ;;21,"55887-0490-90 ")
 ;;2930
 ;;21,"55887-0496-30 ")
 ;;214
 ;;21,"55887-0496-90 ")
 ;;215
 ;;21,"55887-0498-30 ")
 ;;5241
 ;;21,"55887-0498-60 ")
 ;;5242
 ;;21,"55887-0502-60 ")
 ;;1726
 ;;21,"55887-0511-20 ")
 ;;3111
 ;;21,"55887-0511-30 ")
 ;;3112
 ;;21,"55887-0511-60 ")
 ;;3113
 ;;21,"55887-0511-82 ")
 ;;3114
 ;;21,"55887-0511-90 ")
 ;;3115
 ;;21,"55887-0518-15 ")
 ;;5165
 ;;21,"55887-0518-30 ")
 ;;5166
 ;;21,"55887-0518-90 ")
 ;;5167
 ;;21,"55887-0549-90 ")
 ;;3027
 ;;21,"55887-0570-40 ")
 ;;4308
 ;;21,"55887-0570-92 ")
 ;;4309
 ;;21,"55887-0572-14 ")
 ;;4062
 ;;21,"55887-0572-90 ")
 ;;4063
 ;;21,"55887-0650-90 ")
 ;;421
 ;;21,"55887-0650-92 ")
 ;;422
 ;;21,"55887-0661-60 ")
 ;;2564
 ;;21,"55887-0661-90 ")
 ;;2565
 ;;21,"55887-0662-30 ")
 ;;1341
 ;;21,"55887-0662-60 ")
 ;;1342
 ;;21,"55887-0663-30 ")
 ;;216
 ;;21,"55887-0663-60 ")
 ;;217
 ;;21,"55887-0663-90 ")
 ;;218
 ;;21,"55887-0745-50 ")
 ;;5168
 ;;21,"55887-0871-30 ")
 ;;704
 ;;21,"55887-0925-30 ")
 ;;3404
 ;;21,"57237-0007-05 ")
 ;;3983
 ;;21,"57237-0007-30 ")
 ;;3984
 ;;21,"57237-0008-05 ")
 ;;3772
 ;;21,"57237-0008-30 ")
 ;;3773
 ;;21,"57237-0009-05 ")
 ;;3864
 ;;21,"57237-0009-30 ")
 ;;3865
 ;;21,"57237-0010-05 ")
 ;;3943
 ;;21,"57237-0010-30 ")
 ;;3944
 ;;21,"57237-0011-06 ")
 ;;3820
 ;;21,"57237-0012-06 ")
 ;;3916
 ;;21,"57237-0013-06 ")
 ;;3977
 ;;21,"57237-0017-60 ")
 ;;1008
 ;;21,"57237-0018-30 ")
 ;;1057
 ;;21,"57237-0018-90 ")
 ;;1058
 ;;21,"57237-0018-99 ")
 ;;1059
 ;;21,"57237-0019-30 ")
 ;;1125
 ;;21,"57237-0019-90 ")
 ;;1126
 ;;21,"57237-0019-99 ")
 ;;1127
 ;;21,"57664-0357-88 ")
 ;;2793
 ;;21,"57664-0361-13 ")
 ;;2806
 ;;21,"57664-0361-88 ")
 ;;2807
 ;;21,"57664-0362-13 ")
 ;;2771
 ;;21,"57664-0362-88 ")
 ;;2772
 ;;21,"57664-0392-88 ")
 ;;1284
 ;;21,"57664-0393-88 ")
 ;;1410
 ;;21,"57664-0394-88 ")
 ;;1460
 ;;21,"57664-0395-88 ")
 ;;1620
 ;;21,"57664-0396-88 ")
 ;;1170
 ;;21,"57664-0421-13 ")
 ;;2867
 ;;21,"57664-0421-83 ")
 ;;2868
 ;;21,"57664-0421-99 ")
 ;;2869
 ;;21,"57664-0422-13 ")
 ;;3028
 ;;21,"57664-0422-18 ")
 ;;3029
 ;;21,"57664-0422-83 ")
 ;;3030
 ;;21,"57664-0422-99 ")
 ;;3031
 ;;21,"57664-0424-13 ")
 ;;3155
 ;;21,"57664-0424-83 ")
 ;;3156
 ;;21,"57664-0424-99 ")
 ;;3157
 ;;21,"57664-0425-13 ")
 ;;3243
 ;;21,"57664-0425-83 ")
 ;;3244
 ;;21,"57664-0425-99 ")
 ;;3245
 ;;21,"57664-0499-18 ")
 ;;3774
 ;;21,"57664-0499-83 ")
 ;;3775
 ;;21,"57664-0500-18 ")
 ;;3866
 ;;21,"57664-0500-83 ")
 ;;3867
 ;;21,"57664-0501-18 ")
 ;;3945
 ;;21,"57664-0501-83 ")
 ;;3946
 ;;21,"57664-0507-13 ")
 ;;1727
 ;;21,"57664-0507-88 ")
 ;;1728
 ;;21,"57664-0508-13 ")
 ;;1882
 ;;21,"57664-0508-18 ")
 ;;1883
 ;;21,"57664-0508-88 ")
 ;;1884
 ;;21,"57664-0509-13 ")
 ;;2042
 ;;21,"57664-0509-18 ")
 ;;2043
 ;;21,"57664-0509-88 ")
 ;;2044
 ;;21,"57664-0510-18 ")
 ;;3985
 ;;21,"57664-0510-83 ")
 ;;3986
 ;;21,"57866-0920-01 ")
 ;;2662
 ;;21,"57866-0920-02 ")
 ;;2663
 ;;21,"57866-0920-03 ")
 ;;2664
 ;;21,"57866-0922-01 ")
 ;;2566
 ;;21,"57866-0922-02 ")
 ;;2567
 ;;21,"57866-0922-03 ")
 ;;2568
 ;;21,"57866-3061-02 ")
 ;;3868
 ;;21,"57866-3071-01 ")
 ;;4064
 ;;21,"57866-3072-01 ")
 ;;4310
 ;;21,"57866-3072-02 ")
 ;;4311
 ;;21,"57866-3072-03 ")
 ;;4312
 ;;21,"57866-3073-01 ")
 ;;4437
 ;;21,"57866-3073-02 ")
 ;;4438
 ;;21,"57866-3073-03 ")
 ;;4439
 ;;21,"57866-3906-01 ")
 ;;4521
 ;;21,"57866-3907-01 ")
 ;;4198
 ;;21,"57866-3930-01 ")
 ;;4955
 ;;21,"57866-3931-01 ")
 ;;4996
 ;;21,"57866-4688-01 ")
 ;;599
 ;;21,"57866-4688-02 ")
 ;;600
 ;;21,"57866-4688-03 ")
 ;;601
 ;;21,"57866-4688-04 ")
 ;;602
 ;;21,"57866-4715-01 ")
 ;;850
 ;;21,"57866-4715-02 ")
 ;;851
 ;;21,"57866-4715-03 ")
 ;;852
 ;;21,"57866-4715-04 ")
 ;;853
 ;;21,"57866-6650-01 ")
 ;;5169
 ;;21,"57866-6650-02 ")
 ;;5170
 ;;21,"57866-6650-03 ")
 ;;5171
 ;;21,"58016-0004-00 ")
 ;;1411
 ;;21,"58016-0004-30 ")
 ;;1412
 ;;21,"58016-0004-60 ")
 ;;1413
 ;;21,"58016-0004-90 ")
 ;;1414
 ;;21,"58016-0009-00 ")
 ;;3405
 ;;21,"58016-0009-30 ")
 ;;3406
 ;;21,"58016-0009-60 ")
 ;;3407
 ;;21,"58016-0009-90 ")
 ;;3408
 ;;21,"58016-0010-00 ")
 ;;3673
 ;;21,"58016-0010-30 ")
 ;;3674
 ;;21,"58016-0010-60 ")
 ;;3675
 ;;21,"58016-0010-90 ")
 ;;3676
 ;;21,"58016-0011-00 ")
 ;;3530
 ;;21,"58016-0011-30 ")
 ;;3531
 ;;21,"58016-0011-60 ")
 ;;3532
 ;;21,"58016-0011-90 ")
 ;;3533
 ;;21,"58016-0024-00 ")
 ;;219
 ;;21,"58016-0024-30 ")
 ;;220
 ;;21,"58016-0024-60 ")
 ;;221
 ;;21,"58016-0024-90 ")
 ;;222
 ;;21,"58016-0027-00 ")
 ;;2268
 ;;21,"58016-0027-30 ")
 ;;2269
 ;;21,"58016-0027-60 ")
 ;;2270
 ;;21,"58016-0027-90 ")
 ;;2271
 ;;21,"58016-0030-00 ")
 ;;1729
 ;;21,"58016-0030-30 ")
 ;;1730
 ;;21,"58016-0030-60 ")
 ;;1731
 ;;21,"58016-0030-90 ")
 ;;1732
 ;;21,"58016-0031-00 ")
 ;;299
 ;;21,"58016-0031-30 ")
 ;;300
 ;;21,"58016-0031-60 ")
 ;;301
 ;;21,"58016-0031-90 ")
 ;;302
 ;;21,"58016-0100-30 ")
 ;;481
 ;;21,"58016-0100-60 ")
 ;;482
 ;;21,"58016-0100-90 ")
 ;;483
 ;;21,"58016-0178-00 ")
 ;;1885
 ;;21,"58016-0178-02 ")
 ;;1886
 ;;21,"58016-0178-04 ")
 ;;1887
 ;;21,"58016-0178-05 ")
 ;;1888
 ;;21,"58016-0178-10 ")
 ;;1889
 ;;21,"58016-0178-12 ")
 ;;1890
 ;;21,"58016-0178-14 ")
 ;;1891
 ;;21,"58016-0178-15 ")
 ;;1892
 ;;21,"58016-0178-20 ")
 ;;1893
 ;;21,"58016-0178-30 ")
 ;;1894
 ;;21,"58016-0178-40 ")
 ;;1895
 ;;21,"58016-0178-50 ")
 ;;1896
 ;;21,"58016-0178-60 ")
 ;;1897
 ;;21,"58016-0178-89 ")
 ;;1898
 ;;21,"58016-0178-90 ")
 ;;1899
 ;;21,"58016-0178-99 ")
 ;;1900
 ;;21,"58016-0220-00 ")
 ;;1171
 ;;21,"58016-0220-30 ")
 ;;1172
 ;;21,"58016-0220-60 ")
 ;;1173
 ;;21,"58016-0220-90 ")
 ;;1174
 ;;21,"58016-0224-00 ")
 ;;2045
 ;;21,"58016-0224-02 ")
 ;;2046
 ;;21,"58016-0224-04 ")
 ;;2047
 ;;21,"58016-0224-05 ")
 ;;2048
 ;;21,"58016-0224-10 ")
 ;;2049
 ;;21,"58016-0224-12 ")
 ;;2050
 ;;21,"58016-0224-14 ")
 ;;2051
 ;;21,"58016-0224-15 ")
 ;;2052
 ;;21,"58016-0224-20 ")
 ;;2053
 ;;21,"58016-0224-30 ")
 ;;2054
 ;;21,"58016-0224-40 ")
 ;;2055
 ;;21,"58016-0224-50 ")
 ;;2056
 ;;21,"58016-0224-60 ")
 ;;2057
 ;;21,"58016-0224-89 ")
 ;;2058
 ;;21,"58016-0224-90 ")
 ;;2059
 ;;21,"58016-0224-99 ")
 ;;2060
 ;;21,"58016-0240-00 ")
 ;;120
 ;;21,"58016-0240-02 ")
 ;;121
 ;;21,"58016-0240-03 ")
 ;;122
 ;;21,"58016-0240-30 ")
 ;;123
 ;;21,"58016-0240-60 ")
 ;;124
 ;;21,"58016-0240-90 ")
 ;;125
 ;;21,"58016-0263-00 ")
 ;;854