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