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

BGP62Z11.m

Go to the documentation of this file.
BGP62Z11 ;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,"58016-0263-02 ")
 ;;855
 ;;21,"58016-0263-03 ")
 ;;856
 ;;21,"58016-0263-10 ")
 ;;857
 ;;21,"58016-0263-12 ")
 ;;858
 ;;21,"58016-0263-15 ")
 ;;859
 ;;21,"58016-0263-20 ")
 ;;860
 ;;21,"58016-0263-28 ")
 ;;861
 ;;21,"58016-0263-30 ")
 ;;862
 ;;21,"58016-0263-60 ")
 ;;863
 ;;21,"58016-0263-73 ")
 ;;864
 ;;21,"58016-0263-89 ")
 ;;865
 ;;21,"58016-0263-90 ")
 ;;866
 ;;21,"58016-0282-00 ")
 ;;3947
 ;;21,"58016-0282-30 ")
 ;;3948
 ;;21,"58016-0282-60 ")
 ;;3949
 ;;21,"58016-0282-90 ")
 ;;3950
 ;;21,"58016-0323-00 ")
 ;;1621
 ;;21,"58016-0323-10 ")
 ;;1622
 ;;21,"58016-0323-14 ")
 ;;1623
 ;;21,"58016-0323-15 ")
 ;;1624
 ;;21,"58016-0323-20 ")
 ;;1625
 ;;21,"58016-0323-21 ")
 ;;1626
 ;;21,"58016-0323-28 ")
 ;;1627
 ;;21,"58016-0323-30 ")
 ;;1628
 ;;21,"58016-0323-40 ")
 ;;1629
 ;;21,"58016-0323-50 ")
 ;;1630
 ;;21,"58016-0323-60 ")
 ;;1631
 ;;21,"58016-0323-90 ")
 ;;1632
 ;;21,"58016-0336-00 ")
 ;;510
 ;;21,"58016-0336-30 ")
 ;;511
 ;;21,"58016-0336-60 ")
 ;;512
 ;;21,"58016-0336-90 ")
 ;;513
 ;;21,"58016-0349-00 ")
 ;;1415
 ;;21,"58016-0349-10 ")
 ;;1416
 ;;21,"58016-0349-14 ")
 ;;1417
 ;;21,"58016-0349-15 ")
 ;;1418
 ;;21,"58016-0349-20 ")
 ;;1419
 ;;21,"58016-0349-21 ")
 ;;1420
 ;;21,"58016-0349-30 ")
 ;;1421
 ;;21,"58016-0349-40 ")
 ;;1422
 ;;21,"58016-0349-50 ")
 ;;1423
 ;;21,"58016-0349-60 ")
 ;;1424
 ;;21,"58016-0349-90 ")
 ;;1425
 ;;21,"58016-0350-00 ")
 ;;1285
 ;;21,"58016-0350-10 ")
 ;;1286
 ;;21,"58016-0350-14 ")
 ;;1287
 ;;21,"58016-0350-15 ")
 ;;1288
 ;;21,"58016-0350-20 ")
 ;;1289
 ;;21,"58016-0350-21 ")
 ;;1290
 ;;21,"58016-0350-28 ")
 ;;1291
 ;;21,"58016-0350-30 ")
 ;;1292
 ;;21,"58016-0350-40 ")
 ;;1293
 ;;21,"58016-0350-50 ")
 ;;1294
 ;;21,"58016-0350-60 ")
 ;;1295
 ;;21,"58016-0350-90 ")
 ;;1296
 ;;21,"58016-0351-00 ")
 ;;1461
 ;;21,"58016-0351-10 ")
 ;;1462
 ;;21,"58016-0351-14 ")
 ;;1463
 ;;21,"58016-0351-15 ")
 ;;1464
 ;;21,"58016-0351-20 ")
 ;;1465
 ;;21,"58016-0351-21 ")
 ;;1466
 ;;21,"58016-0351-28 ")
 ;;1467
 ;;21,"58016-0351-30 ")
 ;;1468
 ;;21,"58016-0351-40 ")
 ;;1469
 ;;21,"58016-0351-50 ")
 ;;1470
 ;;21,"58016-0351-60 ")
 ;;1471
 ;;21,"58016-0351-90 ")
 ;;1472
 ;;21,"58016-0366-00 ")
 ;;3677
 ;;21,"58016-0366-30 ")
 ;;3678
 ;;21,"58016-0366-60 ")
 ;;3679
 ;;21,"58016-0366-90 ")
 ;;3680
 ;;21,"58016-0485-00 ")
 ;;3032
 ;;21,"58016-0485-02 ")
 ;;3033
 ;;21,"58016-0485-10 ")
 ;;3034
 ;;21,"58016-0485-12 ")
 ;;3035
 ;;21,"58016-0485-15 ")
 ;;3036
 ;;21,"58016-0485-20 ")
 ;;3037
 ;;21,"58016-0485-25 ")
 ;;3038
 ;;21,"58016-0485-30 ")
 ;;3039
 ;;21,"58016-0485-40 ")
 ;;3040
 ;;21,"58016-0485-50 ")
 ;;3041
 ;;21,"58016-0485-60 ")
 ;;3042
 ;;21,"58016-0485-70 ")
 ;;3043
 ;;21,"58016-0485-80 ")
 ;;3044
 ;;21,"58016-0485-90 ")
 ;;3045
 ;;21,"58016-0491-00 ")
 ;;5172
 ;;21,"58016-0491-02 ")
 ;;5173
 ;;21,"58016-0491-15 ")
 ;;5174
 ;;21,"58016-0491-20 ")
 ;;5175
 ;;21,"58016-0491-25 ")
 ;;5176
 ;;21,"58016-0491-30 ")
 ;;5177
 ;;21,"58016-0491-40 ")
 ;;5178
 ;;21,"58016-0491-50 ")
 ;;5179
 ;;21,"58016-0491-60 ")
 ;;5180
 ;;21,"58016-0491-70 ")
 ;;5181
 ;;21,"58016-0491-80 ")
 ;;5182
 ;;21,"58016-0491-90 ")
 ;;5183
 ;;21,"58016-0502-00 ")
 ;;4602
 ;;21,"58016-0502-15 ")
 ;;4603
 ;;21,"58016-0502-28 ")
 ;;4604
 ;;21,"58016-0502-30 ")
 ;;4605
 ;;21,"58016-0502-50 ")
 ;;4606
 ;;21,"58016-0502-60 ")
 ;;4607
 ;;21,"58016-0508-00 ")
 ;;5243
 ;;21,"58016-0508-15 ")
 ;;5244
 ;;21,"58016-0508-30 ")
 ;;5245
 ;;21,"58016-0508-60 ")
 ;;5246
 ;;21,"58016-0519-00 ")
 ;;5087
 ;;21,"58016-0519-02 ")
 ;;5088
 ;;21,"58016-0519-12 ")
 ;;5089
 ;;21,"58016-0519-15 ")
 ;;5090
 ;;21,"58016-0519-20 ")
 ;;5091
 ;;21,"58016-0519-30 ")
 ;;5092
 ;;21,"58016-0519-40 ")
 ;;5093
 ;;21,"58016-0519-50 ")
 ;;5094
 ;;21,"58016-0519-60 ")
 ;;5095
 ;;21,"58016-0519-70 ")
 ;;5096
 ;;21,"58016-0519-80 ")
 ;;5097
 ;;21,"58016-0519-90 ")
 ;;5098
 ;;21,"58016-0519-99 ")
 ;;5099
 ;;21,"58016-0546-00 ")
 ;;494
 ;;21,"58016-0546-30 ")
 ;;495
 ;;21,"58016-0546-60 ")
 ;;496
 ;;21,"58016-0546-90 ")
 ;;497
 ;;21,"58016-0584-00 ")
 ;;48
 ;;21,"58016-0584-02 ")
 ;;49
 ;;21,"58016-0584-03 ")
 ;;50
 ;;21,"58016-0584-10 ")
 ;;51
 ;;21,"58016-0584-12 ")
 ;;52
 ;;21,"58016-0584-15 ")
 ;;53
 ;;21,"58016-0584-20 ")
 ;;54
 ;;21,"58016-0584-25 ")
 ;;55
 ;;21,"58016-0584-30 ")
 ;;56
 ;;21,"58016-0584-40 ")
 ;;57
 ;;21,"58016-0584-50 ")
 ;;58
 ;;21,"58016-0584-60 ")
 ;;59
 ;;21,"58016-0584-70 ")
 ;;60
 ;;21,"58016-0584-73 ")
 ;;61
 ;;21,"58016-0584-80 ")
 ;;62
 ;;21,"58016-0584-89 ")
 ;;63
 ;;21,"58016-0584-90 ")
 ;;64
 ;;21,"58016-0593-00 ")
 ;;1733
 ;;21,"58016-0593-30 ")
 ;;1734
 ;;21,"58016-0593-60 ")
 ;;1735
 ;;21,"58016-0593-90 ")
 ;;1736
 ;;21,"58016-0598-00 ")
 ;;1901
 ;;21,"58016-0598-30 ")
 ;;1902
 ;;21,"58016-0598-60 ")
 ;;1903
 ;;21,"58016-0598-90 ")
 ;;1904
 ;;21,"58016-0599-00 ")
 ;;223
 ;;21,"58016-0599-30 ")
 ;;224
 ;;21,"58016-0599-60 ")
 ;;225
 ;;21,"58016-0599-90 ")
 ;;226
 ;;21,"58016-0600-00 ")
 ;;3951
 ;;21,"58016-0600-30 ")
 ;;3952
 ;;21,"58016-0600-60 ")
 ;;3953
 ;;21,"58016-0600-90 ")
 ;;3954
 ;;21,"58016-0615-00 ")
 ;;1534
 ;;21,"58016-0615-30 ")
 ;;1535
 ;;21,"58016-0615-60 ")
 ;;1536
 ;;21,"58016-0615-90 ")
 ;;1537
 ;;21,"58016-0616-00 ")
 ;;1225
 ;;21,"58016-0616-30 ")
 ;;1226
 ;;21,"58016-0616-60 ")
 ;;1227
 ;;21,"58016-0616-90 ")
 ;;1228
 ;;21,"58016-0624-00 ")
 ;;3776
 ;;21,"58016-0624-30 ")
 ;;3777
 ;;21,"58016-0624-60 ")
 ;;3778
 ;;21,"58016-0624-90 ")
 ;;3779
 ;;21,"58016-0661-00 ")
 ;;2870
 ;;21,"58016-0661-30 ")
 ;;2871
 ;;21,"58016-0661-60 ")
 ;;2872
 ;;21,"58016-0661-90 ")
 ;;2873
 ;;21,"58016-0663-00 ")
 ;;4717
 ;;21,"58016-0663-30 ")
 ;;4718
 ;;21,"58016-0663-60 ")
 ;;4719
 ;;21,"58016-0663-90 ")
 ;;4720
 ;;21,"58016-0664-00 ")
 ;;3534
 ;;21,"58016-0664-30 ")
 ;;3535
 ;;21,"58016-0664-60 ")
 ;;3536
 ;;21,"58016-0664-90 ")
 ;;3537
 ;;21,"58016-0668-00 ")
 ;;3409
 ;;21,"58016-0668-30 ")
 ;;3410
 ;;21,"58016-0668-60 ")
 ;;3411
 ;;21,"58016-0668-90 ")
 ;;3412
 ;;21,"58016-0671-00 ")
 ;;377
 ;;21,"58016-0671-02 ")
 ;;378
 ;;21,"58016-0671-03 ")
 ;;379
 ;;21,"58016-0671-30 ")
 ;;380
 ;;21,"58016-0671-60 ")
 ;;381
 ;;21,"58016-0671-90 ")
 ;;382
 ;;21,"58016-0701-00 ")
 ;;751
 ;;21,"58016-0701-12 ")
 ;;752
 ;;21,"58016-0701-15 ")
 ;;753
 ;;21,"58016-0701-20 ")
 ;;754
 ;;21,"58016-0701-30 ")
 ;;755
 ;;21,"58016-0701-50 ")
 ;;756
 ;;21,"58016-0701-60 ")
 ;;757
 ;;21,"58016-0701-90 ")
 ;;758
 ;;21,"58016-0704-00 ")
 ;;2726
 ;;21,"58016-0704-02 ")
 ;;2727
 ;;21,"58016-0704-03 ")
 ;;2728
 ;;21,"58016-0704-30 ")
 ;;2729
 ;;21,"58016-0704-60 ")
 ;;2730
 ;;21,"58016-0704-73 ")
 ;;2731
 ;;21,"58016-0704-89 ")
 ;;2732
 ;;21,"58016-0704-90 ")
 ;;2733
 ;;21,"58016-0710-00 ")
 ;;4199
 ;;21,"58016-0710-30 ")
 ;;4200
 ;;21,"58016-0710-60 ")
 ;;4201
 ;;21,"58016-0710-90 ")
 ;;4202
 ;;21,"58016-0710-99 ")
 ;;4203
 ;;21,"58016-0722-00 ")
 ;;423
 ;;21,"58016-0722-02 ")
 ;;424
 ;;21,"58016-0722-03 ")
 ;;425
 ;;21,"58016-0722-20 ")
 ;;426
 ;;21,"58016-0722-30 ")
 ;;427
 ;;21,"58016-0722-40 ")
 ;;428
 ;;21,"58016-0722-50 ")
 ;;429
 ;;21,"58016-0722-60 ")
 ;;430
 ;;21,"58016-0722-70 ")
 ;;431
 ;;21,"58016-0722-73 ")
 ;;432
 ;;21,"58016-0722-80 ")
 ;;433
 ;;21,"58016-0722-89 ")
 ;;434
 ;;21,"58016-0722-90 ")
 ;;435
 ;;21,"58016-0723-00 ")
 ;;3869
 ;;21,"58016-0723-30 ")
 ;;3870
 ;;21,"58016-0723-60 ")
 ;;3871
 ;;21,"58016-0723-90 ")
 ;;3872
 ;;21,"58016-0731-00 ")
 ;;3246
 ;;21,"58016-0731-30 ")
 ;;3247
 ;;21,"58016-0731-60 ")
 ;;3248
 ;;21,"58016-0731-90 ")
 ;;3249
 ;;21,"58016-0732-00 ")
 ;;1060
 ;;21,"58016-0732-30 ")
 ;;1061
 ;;21,"58016-0732-60 ")
 ;;1062
 ;;21,"58016-0732-90 ")
 ;;1063
 ;;21,"58016-0735-00 ")
 ;;1009
 ;;21,"58016-0735-30 ")
 ;;1010
 ;;21,"58016-0735-60 ")
 ;;1011
 ;;21,"58016-0735-90 ")
 ;;1012
 ;;21,"58016-0742-00 ")
 ;;1128
 ;;21,"58016-0742-30 ")
 ;;1129
 ;;21,"58016-0742-60 ")
 ;;1130
 ;;21,"58016-0742-90 ")
 ;;1131
 ;;21,"58016-0749-00 ")
 ;;3158
 ;;21,"58016-0749-02 ")
 ;;3159
 ;;21,"58016-0749-30 ")
 ;;3160
 ;;21,"58016-0749-60 ")
 ;;3161
 ;;21,"58016-0749-90 ")
 ;;3162
 ;;21,"58016-0761-00 ")
 ;;3116
 ;;21,"58016-0761-30 ")
 ;;3117
 ;;21,"58016-0761-60 ")
 ;;3118
 ;;21,"58016-0761-90 ")
 ;;3119
 ;;21,"58016-0765-00 ")
 ;;1343
 ;;21,"58016-0765-30 ")
 ;;1344
 ;;21,"58016-0765-60 ")
 ;;1345
 ;;21,"58016-0765-90 ")
 ;;1346
 ;;21,"58016-0797-00 ")
 ;;4893
 ;;21,"58016-0797-30 ")
 ;;4894
 ;;21,"58016-0797-60 ")
 ;;4895
 ;;21,"58016-0797-90 ")
 ;;4896
 ;;21,"58016-0806-00 ")
 ;;3163
 ;;21,"58016-0806-30 ")
 ;;3164
 ;;21,"58016-0806-60 ")
 ;;3165
 ;;21,"58016-0806-90 ")
 ;;3166
 ;;21,"58016-0808-00 ")
 ;;4522
 ;;21,"58016-0808-30 ")
 ;;4523
 ;;21,"58016-0808-60 ")
 ;;4524
 ;;21,"58016-0808-90 ")
 ;;4525
 ;;21,"58016-0813-00 ")
 ;;4065
 ;;21,"58016-0813-02 ")
 ;;4066
 ;;21,"58016-0813-03 ")
 ;;4067
 ;;21,"58016-0813-10 ")
 ;;4068
 ;;21,"58016-0813-12 ")
 ;;4069
 ;;21,"58016-0813-15 ")
 ;;4070
 ;;21,"58016-0813-20 ")
 ;;4071
 ;;21,"58016-0813-24 ")
 ;;4072
 ;;21,"58016-0813-30 ")
 ;;4073
 ;;21,"58016-0813-50 ")
 ;;4074
 ;;21,"58016-0813-60 ")
 ;;4075
 ;;21,"58016-0813-73 ")
 ;;4076
 ;;21,"58016-0813-89 ")
 ;;4077
 ;;21,"58016-0813-90 ")
 ;;4078
 ;;21,"58016-0813-99 ")
 ;;4079
 ;;21,"58016-0814-00 ")
 ;;4313
 ;;21,"58016-0814-02 ")
 ;;4314
 ;;21,"58016-0814-15 ")
 ;;4315
 ;;21,"58016-0814-20 ")
 ;;4316
 ;;21,"58016-0814-25 ")
 ;;4317
 ;;21,"58016-0814-30 ")
 ;;4318
 ;;21,"58016-0814-40 ")
 ;;4319
 ;;21,"58016-0814-45 ")
 ;;4320
 ;;21,"58016-0814-50 ")
 ;;4321
 ;;21,"58016-0814-60 ")
 ;;4322
 ;;21,"58016-0814-89 ")
 ;;4323
 ;;21,"58016-0814-90 ")
 ;;4324
 ;;21,"58016-0814-99 ")
 ;;4325
 ;;21,"58016-0815-00 ")
 ;;4440
 ;;21,"58016-0815-15 ")
 ;;4441
 ;;21,"58016-0815-20 ")
 ;;4442
 ;;21,"58016-0815-21 ")
 ;;4443
 ;;21,"58016-0815-28 ")
 ;;4444
 ;;21,"58016-0815-30 ")
 ;;4445
 ;;21,"58016-0815-60 ")
 ;;4446
 ;;21,"58016-0815-90 ")
 ;;4447
 ;;21,"58016-0815-99 ")
 ;;4448
 ;;21,"58016-0817-00 ")
 ;;2874
 ;;21,"58016-0817-02 ")
 ;;2875
 ;;21,"58016-0817-03 ")
 ;;2876
 ;;21,"58016-0817-30 ")
 ;;2877
 ;;21,"58016-0817-60 ")
 ;;2878
 ;;21,"58016-0817-90 ")
 ;;2879
 ;;21,"58016-0818-00 ")
 ;;3046
 ;;21,"58016-0818-02 ")
 ;;3047
 ;;21,"58016-0818-03 ")
 ;;3048
 ;;21,"58016-0818-30 ")
 ;;3049
 ;;21,"58016-0818-60 ")
 ;;3050
 ;;21,"58016-0818-90 ")
 ;;3051
 ;;21,"58016-0818-99 ")
 ;;3052
 ;;21,"58016-0828-10 ")
 ;;2569
 ;;21,"58016-0828-20 ")
 ;;2570
 ;;21,"58016-0828-30 ")
 ;;2571
 ;;21,"58016-0828-40 ")
 ;;2572
 ;;21,"58016-0828-60 ")
 ;;2573
 ;;21,"58016-0828-90 ")
 ;;2574
 ;;21,"58016-0833-00 ")
 ;;4782
 ;;21,"58016-0833-10 ")
 ;;4783
 ;;21,"58016-0833-12 ")
 ;;4784
 ;;21,"58016-0833-14 ")
 ;;4785
 ;;21,"58016-0833-15 ")
 ;;4786
 ;;21,"58016-0833-20 ")
 ;;4787
 ;;21,"58016-0833-21 ")
 ;;4788
 ;;21,"58016-0833-30 ")
 ;;4789
 ;;21,"58016-0833-40 ")
 ;;4790