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

BGP33I9.m

Go to the documentation of this file.
BGP33I9 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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-0024-30 ")
 ;;738
 ;;21,"58016-0024-60 ")
 ;;739
 ;;21,"58016-0024-90 ")
 ;;740
 ;;21,"58016-0027-00 ")
 ;;1936
 ;;21,"58016-0027-30 ")
 ;;1937
 ;;21,"58016-0027-60 ")
 ;;1938
 ;;21,"58016-0027-90 ")
 ;;1939
 ;;21,"58016-0030-00 ")
 ;;1023
 ;;21,"58016-0030-30 ")
 ;;1024
 ;;21,"58016-0030-60 ")
 ;;1025
 ;;21,"58016-0030-90 ")
 ;;1026
 ;;21,"58016-0031-00 ")
 ;;813
 ;;21,"58016-0031-30 ")
 ;;814
 ;;21,"58016-0031-60 ")
 ;;815
 ;;21,"58016-0031-90 ")
 ;;816
 ;;21,"58016-0100-00 ")
 ;;2906
 ;;21,"58016-0100-30 ")
 ;;2907
 ;;21,"58016-0100-60 ")
 ;;2908
 ;;21,"58016-0100-90 ")
 ;;2909
 ;;21,"58016-0178-00 ")
 ;;1159
 ;;21,"58016-0178-02 ")
 ;;1160
 ;;21,"58016-0178-04 ")
 ;;1161
 ;;21,"58016-0178-05 ")
 ;;1162
 ;;21,"58016-0178-10 ")
 ;;1163
 ;;21,"58016-0178-12 ")
 ;;1164
 ;;21,"58016-0178-14 ")
 ;;1165
 ;;21,"58016-0178-15 ")
 ;;1166
 ;;21,"58016-0178-20 ")
 ;;1167
 ;;21,"58016-0178-30 ")
 ;;1168
 ;;21,"58016-0178-40 ")
 ;;1169
 ;;21,"58016-0178-50 ")
 ;;1170
 ;;21,"58016-0178-60 ")
 ;;1171
 ;;21,"58016-0178-89 ")
 ;;1172
 ;;21,"58016-0178-90 ")
 ;;1173
 ;;21,"58016-0178-99 ")
 ;;1174
 ;;21,"58016-0220-00 ")
 ;;4538
 ;;21,"58016-0220-30 ")
 ;;4539
 ;;21,"58016-0220-60 ")
 ;;4540
 ;;21,"58016-0220-90 ")
 ;;4541
 ;;21,"58016-0224-00 ")
 ;;1294
 ;;21,"58016-0224-02 ")
 ;;1295
 ;;21,"58016-0224-04 ")
 ;;1296
 ;;21,"58016-0224-05 ")
 ;;1297
 ;;21,"58016-0224-10 ")
 ;;1298
 ;;21,"58016-0224-12 ")
 ;;1299
 ;;21,"58016-0224-14 ")
 ;;1300
 ;;21,"58016-0224-15 ")
 ;;1301
 ;;21,"58016-0224-20 ")
 ;;1302
 ;;21,"58016-0224-30 ")
 ;;1303
 ;;21,"58016-0224-40 ")
 ;;1304
 ;;21,"58016-0224-50 ")
 ;;1305
 ;;21,"58016-0224-60 ")
 ;;1306
 ;;21,"58016-0224-89 ")
 ;;1307
 ;;21,"58016-0224-90 ")
 ;;1308
 ;;21,"58016-0224-99 ")
 ;;1309
 ;;21,"58016-0240-00 ")
 ;;648
 ;;21,"58016-0240-02 ")
 ;;649
 ;;21,"58016-0240-03 ")
 ;;650
 ;;21,"58016-0240-30 ")
 ;;651
 ;;21,"58016-0240-60 ")
 ;;652
 ;;21,"58016-0240-90 ")
 ;;653
 ;;21,"58016-0263-00 ")
 ;;4453
 ;;21,"58016-0263-02 ")
 ;;4454
 ;;21,"58016-0263-03 ")
 ;;4455
 ;;21,"58016-0263-10 ")
 ;;4456
 ;;21,"58016-0263-12 ")
 ;;4457
 ;;21,"58016-0263-15 ")
 ;;4458
 ;;21,"58016-0263-20 ")
 ;;4459
 ;;21,"58016-0263-28 ")
 ;;4460
 ;;21,"58016-0263-30 ")
 ;;4461
 ;;21,"58016-0263-60 ")
 ;;4462
 ;;21,"58016-0263-73 ")
 ;;4463
 ;;21,"58016-0263-89 ")
 ;;4464
 ;;21,"58016-0263-90 ")
 ;;4465
 ;;21,"58016-0282-00 ")
 ;;2853
 ;;21,"58016-0282-30 ")
 ;;2854
 ;;21,"58016-0282-60 ")
 ;;2855
 ;;21,"58016-0282-90 ")
 ;;2856
 ;;21,"58016-0323-00 ")
 ;;4968
 ;;21,"58016-0323-10 ")
 ;;4969
 ;;21,"58016-0323-14 ")
 ;;4970
 ;;21,"58016-0323-15 ")
 ;;4971
 ;;21,"58016-0323-20 ")
 ;;4972
 ;;21,"58016-0323-21 ")
 ;;4973
 ;;21,"58016-0323-28 ")
 ;;4974
 ;;21,"58016-0323-30 ")
 ;;4975
 ;;21,"58016-0323-40 ")
 ;;4976
 ;;21,"58016-0323-50 ")
 ;;4977
 ;;21,"58016-0323-60 ")
 ;;4978
 ;;21,"58016-0323-90 ")
 ;;4979
 ;;21,"58016-0336-00 ")
 ;;2939
 ;;21,"58016-0336-30 ")
 ;;2940
 ;;21,"58016-0336-60 ")
 ;;2941
 ;;21,"58016-0336-90 ")
 ;;2942
 ;;21,"58016-0349-00 ")
 ;;4769
 ;;21,"58016-0349-10 ")
 ;;4770
 ;;21,"58016-0349-14 ")
 ;;4771
 ;;21,"58016-0349-15 ")
 ;;4772
 ;;21,"58016-0349-20 ")
 ;;4773
 ;;21,"58016-0349-21 ")
 ;;4774
 ;;21,"58016-0349-30 ")
 ;;4775
 ;;21,"58016-0349-40 ")
 ;;4776
 ;;21,"58016-0349-50 ")
 ;;4777
 ;;21,"58016-0349-60 ")
 ;;4778
 ;;21,"58016-0349-90 ")
 ;;4779
 ;;21,"58016-0350-00 ")
 ;;4647
 ;;21,"58016-0350-10 ")
 ;;4648
 ;;21,"58016-0350-14 ")
 ;;4649
 ;;21,"58016-0350-15 ")
 ;;4650
 ;;21,"58016-0350-20 ")
 ;;4651
 ;;21,"58016-0350-21 ")
 ;;4652
 ;;21,"58016-0350-28 ")
 ;;4653
 ;;21,"58016-0350-30 ")
 ;;4654
 ;;21,"58016-0350-40 ")
 ;;4655
 ;;21,"58016-0350-50 ")
 ;;4656
 ;;21,"58016-0350-60 ")
 ;;4657
 ;;21,"58016-0350-90 ")
 ;;4658
 ;;21,"58016-0351-00 ")
 ;;4811
 ;;21,"58016-0351-10 ")
 ;;4812
 ;;21,"58016-0351-14 ")
 ;;4813
 ;;21,"58016-0351-15 ")
 ;;4814
 ;;21,"58016-0351-20 ")
 ;;4815
 ;;21,"58016-0351-21 ")
 ;;4816
 ;;21,"58016-0351-28 ")
 ;;4817
 ;;21,"58016-0351-30 ")
 ;;4818
 ;;21,"58016-0351-40 ")
 ;;4819
 ;;21,"58016-0351-50 ")
 ;;4820
 ;;21,"58016-0351-60 ")
 ;;4821
 ;;21,"58016-0351-90 ")
 ;;4822
 ;;21,"58016-0366-00 ")
 ;;4098
 ;;21,"58016-0366-30 ")
 ;;4099
 ;;21,"58016-0366-60 ")
 ;;4100
 ;;21,"58016-0366-90 ")
 ;;4101
 ;;21,"58016-0485-00 ")
 ;;3420
 ;;21,"58016-0485-02 ")
 ;;3421
 ;;21,"58016-0485-10 ")
 ;;3422
 ;;21,"58016-0485-12 ")
 ;;3423
 ;;21,"58016-0485-15 ")
 ;;3424
 ;;21,"58016-0485-20 ")
 ;;3425
 ;;21,"58016-0485-25 ")
 ;;3426
 ;;21,"58016-0485-30 ")
 ;;3427
 ;;21,"58016-0485-40 ")
 ;;3428
 ;;21,"58016-0485-50 ")
 ;;3429
 ;;21,"58016-0485-60 ")
 ;;3430
 ;;21,"58016-0485-70 ")
 ;;3431
 ;;21,"58016-0485-80 ")
 ;;3432
 ;;21,"58016-0485-90 ")
 ;;3433
 ;;21,"58016-0491-00 ")
 ;;3098
 ;;21,"58016-0491-02 ")
 ;;3099
 ;;21,"58016-0491-15 ")
 ;;3100
 ;;21,"58016-0491-20 ")
 ;;3101
 ;;21,"58016-0491-25 ")
 ;;3102
 ;;21,"58016-0491-30 ")
 ;;3103
 ;;21,"58016-0491-40 ")
 ;;3104
 ;;21,"58016-0491-50 ")
 ;;3105
 ;;21,"58016-0491-60 ")
 ;;3106
 ;;21,"58016-0491-70 ")
 ;;3107
 ;;21,"58016-0491-80 ")
 ;;3108
 ;;21,"58016-0491-90 ")
 ;;3109
 ;;21,"58016-0502-00 ")
 ;;1397
 ;;21,"58016-0502-15 ")
 ;;1398
 ;;21,"58016-0502-28 ")
 ;;1399
 ;;21,"58016-0502-30 ")
 ;;1400
 ;;21,"58016-0502-50 ")
 ;;1401
 ;;21,"58016-0502-60 ")
 ;;1402
 ;;21,"58016-0508-00 ")
 ;;3166
 ;;21,"58016-0508-15 ")
 ;;3167
 ;;21,"58016-0508-30 ")
 ;;3168
 ;;21,"58016-0508-60 ")
 ;;3169
 ;;21,"58016-0519-00 ")
 ;;3006
 ;;21,"58016-0519-02 ")
 ;;3007
 ;;21,"58016-0519-12 ")
 ;;3008
 ;;21,"58016-0519-15 ")
 ;;3009
 ;;21,"58016-0519-20 ")
 ;;3010
 ;;21,"58016-0519-30 ")
 ;;3011
 ;;21,"58016-0519-40 ")
 ;;3012
 ;;21,"58016-0519-50 ")
 ;;3013
 ;;21,"58016-0519-60 ")
 ;;3014
 ;;21,"58016-0519-70 ")
 ;;3015
 ;;21,"58016-0519-80 ")
 ;;3016
 ;;21,"58016-0519-90 ")
 ;;3017
 ;;21,"58016-0519-99 ")
 ;;3018
 ;;21,"58016-0546-00 ")
 ;;2921
 ;;21,"58016-0546-30 ")
 ;;2922
 ;;21,"58016-0546-60 ")
 ;;2923
 ;;21,"58016-0546-90 ")
 ;;2924
 ;;21,"58016-0584-00 ")
 ;;568
 ;;21,"58016-0584-02 ")
 ;;569
 ;;21,"58016-0584-03 ")
 ;;570
 ;;21,"58016-0584-10 ")
 ;;571
 ;;21,"58016-0584-12 ")
 ;;572
 ;;21,"58016-0584-15 ")
 ;;573
 ;;21,"58016-0584-20 ")
 ;;574
 ;;21,"58016-0584-25 ")
 ;;575
 ;;21,"58016-0584-30 ")
 ;;576
 ;;21,"58016-0584-40 ")
 ;;577
 ;;21,"58016-0584-50 ")
 ;;578
 ;;21,"58016-0584-60 ")
 ;;579
 ;;21,"58016-0584-70 ")
 ;;580
 ;;21,"58016-0584-73 ")
 ;;581
 ;;21,"58016-0584-80 ")
 ;;582
 ;;21,"58016-0584-89 ")
 ;;583
 ;;21,"58016-0584-90 ")
 ;;584
 ;;21,"58016-0593-00 ")
 ;;1027
 ;;21,"58016-0593-30 ")
 ;;1028
 ;;21,"58016-0593-60 ")
 ;;1029
 ;;21,"58016-0593-90 ")
 ;;1030
 ;;21,"58016-0598-00 ")
 ;;1175
 ;;21,"58016-0598-30 ")
 ;;1176
 ;;21,"58016-0598-60 ")
 ;;1177
 ;;21,"58016-0598-90 ")
 ;;1178
 ;;21,"58016-0599-00 ")
 ;;741
 ;;21,"58016-0599-30 ")
 ;;742
 ;;21,"58016-0599-60 ")
 ;;743
 ;;21,"58016-0599-90 ")
 ;;744
 ;;21,"58016-0600-00 ")
 ;;2857
 ;;21,"58016-0600-30 ")
 ;;2858
 ;;21,"58016-0600-60 ")
 ;;2859
 ;;21,"58016-0600-90 ")
 ;;2860
 ;;21,"58016-0615-00 ")
 ;;4876
 ;;21,"58016-0615-30 ")
 ;;4877
 ;;21,"58016-0615-60 ")
 ;;4878
 ;;21,"58016-0615-90 ")
 ;;4879
 ;;21,"58016-0616-00 ")
 ;;4588
 ;;21,"58016-0616-30 ")
 ;;4589
 ;;21,"58016-0616-60 ")
 ;;4590
 ;;21,"58016-0616-90 ")
 ;;4591
 ;;21,"58016-0624-00 ")
 ;;2685
 ;;21,"58016-0624-30 ")
 ;;2686
 ;;21,"58016-0624-60 ")
 ;;2687
 ;;21,"58016-0624-90 ")
 ;;2688
 ;;21,"58016-0661-00 ")
 ;;3259
 ;;21,"58016-0661-30 ")
 ;;3260
 ;;21,"58016-0661-60 ")
 ;;3261
 ;;21,"58016-0661-90 ")
 ;;3262
 ;;21,"58016-0663-00 ")
 ;;1539
 ;;21,"58016-0663-30 ")
 ;;1540
 ;;21,"58016-0663-60 ")
 ;;1541
 ;;21,"58016-0663-90 ")
 ;;1542
 ;;21,"58016-0664-00 ")
 ;;3959
 ;;21,"58016-0664-30 ")
 ;;3960
 ;;21,"58016-0664-60 ")
 ;;3961
 ;;21,"58016-0664-90 ")
 ;;3962
 ;;21,"58016-0668-00 ")
 ;;3837
 ;;21,"58016-0668-30 ")
 ;;3838
 ;;21,"58016-0668-60 ")
 ;;3839
 ;;21,"58016-0668-90 ")
 ;;3840
 ;;21,"58016-0671-00 ")
 ;;883
 ;;21,"58016-0671-02 ")
 ;;884
 ;;21,"58016-0671-03 ")
 ;;885
 ;;21,"58016-0671-30 ")
 ;;886
 ;;21,"58016-0671-60 ")
 ;;887
 ;;21,"58016-0671-90 ")
 ;;888
 ;;21,"58016-0701-00 ")
 ;;4355
 ;;21,"58016-0701-12 ")
 ;;4356
 ;;21,"58016-0701-15 ")
 ;;4357
 ;;21,"58016-0701-20 ")
 ;;4358
 ;;21,"58016-0701-30 ")
 ;;4359
 ;;21,"58016-0701-50 ")
 ;;4360
 ;;21,"58016-0701-60 ")
 ;;4361
 ;;21,"58016-0701-90 ")
 ;;4362
 ;;21,"58016-0704-00 ")
 ;;2401
 ;;21,"58016-0704-02 ")
 ;;2402
 ;;21,"58016-0704-03 ")
 ;;2403
 ;;21,"58016-0704-30 ")
 ;;2404
 ;;21,"58016-0704-60 ")
 ;;2405
 ;;21,"58016-0704-73 ")
 ;;2406
 ;;21,"58016-0704-89 ")
 ;;2407
 ;;21,"58016-0704-90 ")
 ;;2408
 ;;21,"58016-0710-00 ")
 ;;189
 ;;21,"58016-0710-30 ")
 ;;190
 ;;21,"58016-0710-60 ")
 ;;191
 ;;21,"58016-0710-90 ")
 ;;192
 ;;21,"58016-0710-99 ")
 ;;193
 ;;21,"58016-0722-00 ")
 ;;928
 ;;21,"58016-0722-02 ")
 ;;929
 ;;21,"58016-0722-03 ")
 ;;930
 ;;21,"58016-0722-20 ")
 ;;931
 ;;21,"58016-0722-30 ")
 ;;932
 ;;21,"58016-0722-40 ")
 ;;933
 ;;21,"58016-0722-50 ")
 ;;934
 ;;21,"58016-0722-60 ")
 ;;935
 ;;21,"58016-0722-70 ")
 ;;936
 ;;21,"58016-0722-73 ")
 ;;937
 ;;21,"58016-0722-80 ")
 ;;938
 ;;21,"58016-0722-89 ")
 ;;939
 ;;21,"58016-0722-90 ")
 ;;940
 ;;21,"58016-0723-00 ")
 ;;2773
 ;;21,"58016-0723-30 ")
 ;;2774
 ;;21,"58016-0723-60 ")
 ;;2775
 ;;21,"58016-0723-90 ")
 ;;2776
 ;;21,"58016-0731-00 ")
 ;;3636
 ;;21,"58016-0731-30 ")
 ;;3637
 ;;21,"58016-0731-60 ")
 ;;3638
 ;;21,"58016-0731-90 ")
 ;;3639
 ;;21,"58016-0732-00 ")
 ;;1784
 ;;21,"58016-0732-30 ")
 ;;1785
 ;;21,"58016-0732-60 ")
 ;;1786
 ;;21,"58016-0732-90 ")
 ;;1787
 ;;21,"58016-0735-00 ")
 ;;1756
 ;;21,"58016-0735-30 ")
 ;;1757
 ;;21,"58016-0735-60 ")
 ;;1758
 ;;21,"58016-0735-90 ")
 ;;1759
 ;;21,"58016-0742-00 ")
 ;;1826
 ;;21,"58016-0742-30 ")
 ;;1827
 ;;21,"58016-0742-60 ")
 ;;1828
 ;;21,"58016-0742-90 ")
 ;;1829
 ;;21,"58016-0749-00 ")
 ;;3548
 ;;21,"58016-0749-02 ")
 ;;3549
 ;;21,"58016-0749-30 ")
 ;;3550
 ;;21,"58016-0749-60 ")
 ;;3551
 ;;21,"58016-0749-90 ")
 ;;3552
 ;;21,"58016-0761-00 ")
 ;;3507
 ;;21,"58016-0761-30 ")
 ;;3508
 ;;21,"58016-0761-60 ")
 ;;3509
 ;;21,"58016-0761-90 ")
 ;;3510
 ;;21,"58016-0765-00 ")
 ;;4699
 ;;21,"58016-0765-30 ")
 ;;4700
 ;;21,"58016-0765-60 ")
 ;;4701
 ;;21,"58016-0765-90 ")
 ;;4702
 ;;21,"58016-0797-00 ")
 ;;1736
 ;;21,"58016-0797-30 ")
 ;;1737
 ;;21,"58016-0797-60 ")
 ;;1738
 ;;21,"58016-0797-90 ")
 ;;1739
 ;;21,"58016-0806-00 ")
 ;;3553
 ;;21,"58016-0806-30 ")
 ;;3554
 ;;21,"58016-0806-60 ")
 ;;3555
 ;;21,"58016-0806-90 ")
 ;;3556
 ;;21,"58016-0808-00 ")
 ;;481
 ;;21,"58016-0808-30 ")
 ;;482
 ;;21,"58016-0808-60 ")
 ;;483
 ;;21,"58016-0808-90 ")
 ;;484
 ;;21,"58016-0813-00 ")
 ;;71
 ;;21,"58016-0813-02 ")
 ;;72
 ;;21,"58016-0813-03 ")
 ;;73
 ;;21,"58016-0813-10 ")
 ;;74
 ;;21,"58016-0813-12 ")
 ;;75
 ;;21,"58016-0813-15 ")
 ;;76
 ;;21,"58016-0813-20 ")
 ;;77
 ;;21,"58016-0813-24 ")
 ;;78
 ;;21,"58016-0813-30 ")
 ;;79
 ;;21,"58016-0813-50 ")
 ;;80
 ;;21,"58016-0813-60 ")
 ;;81
 ;;21,"58016-0813-73 ")
 ;;82
 ;;21,"58016-0813-89 ")
 ;;83
 ;;21,"58016-0813-90 ")
 ;;84
 ;;21,"58016-0813-99 ")
 ;;85
 ;;21,"58016-0814-00 ")
 ;;295
 ;;21,"58016-0814-02 ")
 ;;296
 ;;21,"58016-0814-15 ")
 ;;297
 ;;21,"58016-0814-20 ")
 ;;298
 ;;21,"58016-0814-25 ")
 ;;299
 ;;21,"58016-0814-30 ")
 ;;300
 ;;21,"58016-0814-40 ")
 ;;301
 ;;21,"58016-0814-45 ")
 ;;302
 ;;21,"58016-0814-50 ")
 ;;303
 ;;21,"58016-0814-60 ")
 ;;304
 ;;21,"58016-0814-89 ")
 ;;305
 ;;21,"58016-0814-90 ")
 ;;306
 ;;21,"58016-0814-99 ")
 ;;307
 ;;21,"58016-0815-00 ")
 ;;415
 ;;21,"58016-0815-15 ")
 ;;416
 ;;21,"58016-0815-20 ")
 ;;417
 ;;21,"58016-0815-21 ")
 ;;418
 ;;21,"58016-0815-28 ")
 ;;419
 ;;21,"58016-0815-30 ")
 ;;420
 ;;21,"58016-0815-60 ")
 ;;421
 ;;21,"58016-0815-90 ")
 ;;422
 ;;21,"58016-0815-99 ")
 ;;423
 ;;21,"58016-0817-00 ")
 ;;3263
 ;;21,"58016-0817-02 ")
 ;;3264
 ;;21,"58016-0817-03 ")
 ;;3265
 ;;21,"58016-0817-30 ")
 ;;3266
 ;;21,"58016-0817-60 ")
 ;;3267
 ;;21,"58016-0817-90 ")
 ;;3268
 ;;21,"58016-0818-00 ")
 ;;3434
 ;;21,"58016-0818-02 ")
 ;;3435
 ;;21,"58016-0818-03 ")
 ;;3436
 ;;21,"58016-0818-30 ")
 ;;3437
 ;;21,"58016-0818-60 ")
 ;;3438
 ;;21,"58016-0818-90 ")
 ;;3439
 ;;21,"58016-0818-99 ")
 ;;3440
 ;;21,"58016-0828-10 ")
 ;;2243
 ;;21,"58016-0828-20 ")
 ;;2244
 ;;21,"58016-0828-30 ")
 ;;2245
 ;;21,"58016-0828-40 ")
 ;;2246
 ;;21,"58016-0828-60 ")
 ;;2247
 ;;21,"58016-0828-90 ")
 ;;2248
 ;;21,"58016-0833-00 ")
 ;;1617