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

BGP62Y16.m

Go to the documentation of this file.
  1. BGP62Y16 ;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,"58016-0123-30 ")
  1. ;;3083
  1. ;;21,"58016-0123-40 ")
  1. ;;3084
  1. ;;21,"58016-0126-00 ")
  1. ;;3221
  1. ;;21,"58016-0126-15 ")
  1. ;;3222
  1. ;;21,"58016-0126-18 ")
  1. ;;3223
  1. ;;21,"58016-0126-20 ")
  1. ;;3224
  1. ;;21,"58016-0126-21 ")
  1. ;;3225
  1. ;;21,"58016-0126-28 ")
  1. ;;3226
  1. ;;21,"58016-0126-30 ")
  1. ;;3227
  1. ;;21,"58016-0126-42 ")
  1. ;;3228
  1. ;;21,"58016-0126-60 ")
  1. ;;3229
  1. ;;21,"58016-0126-99 ")
  1. ;;3230
  1. ;;21,"58016-0127-06 ")
  1. ;;3462
  1. ;;21,"58016-0127-08 ")
  1. ;;3463
  1. ;;21,"58016-0127-10 ")
  1. ;;3464
  1. ;;21,"58016-0127-14 ")
  1. ;;3465
  1. ;;21,"58016-0127-20 ")
  1. ;;3466
  1. ;;21,"58016-0127-21 ")
  1. ;;3467
  1. ;;21,"58016-0127-24 ")
  1. ;;3468
  1. ;;21,"58016-0127-28 ")
  1. ;;3469
  1. ;;21,"58016-0127-30 ")
  1. ;;3470
  1. ;;21,"58016-0127-40 ")
  1. ;;3471
  1. ;;21,"58016-0127-42 ")
  1. ;;3472
  1. ;;21,"58016-0127-50 ")
  1. ;;3473
  1. ;;21,"58016-0127-60 ")
  1. ;;3474
  1. ;;21,"58016-0137-00 ")
  1. ;;4269
  1. ;;21,"58016-0137-02 ")
  1. ;;4270
  1. ;;21,"58016-0137-10 ")
  1. ;;4271
  1. ;;21,"58016-0137-12 ")
  1. ;;4272
  1. ;;21,"58016-0137-15 ")
  1. ;;4273
  1. ;;21,"58016-0137-20 ")
  1. ;;4274
  1. ;;21,"58016-0137-30 ")
  1. ;;4275
  1. ;;21,"58016-0137-60 ")
  1. ;;4276
  1. ;;21,"58016-0137-90 ")
  1. ;;4277
  1. ;;21,"58016-0138-00 ")
  1. ;;1698
  1. ;;21,"58016-0138-02 ")
  1. ;;1699
  1. ;;21,"58016-0138-03 ")
  1. ;;1700
  1. ;;21,"58016-0138-12 ")
  1. ;;1701
  1. ;;21,"58016-0138-14 ")
  1. ;;1702
  1. ;;21,"58016-0138-15 ")
  1. ;;1703
  1. ;;21,"58016-0138-20 ")
  1. ;;1704
  1. ;;21,"58016-0138-21 ")
  1. ;;1705
  1. ;;21,"58016-0138-24 ")
  1. ;;1706
  1. ;;21,"58016-0138-28 ")
  1. ;;1707
  1. ;;21,"58016-0138-30 ")
  1. ;;1708
  1. ;;21,"58016-0138-40 ")
  1. ;;1709
  1. ;;21,"58016-0138-56 ")
  1. ;;1710
  1. ;;21,"58016-0138-60 ")
  1. ;;1711
  1. ;;21,"58016-0138-73 ")
  1. ;;1712
  1. ;;21,"58016-0138-89 ")
  1. ;;1713
  1. ;;21,"58016-0139-00 ")
  1. ;;2015
  1. ;;21,"58016-0139-02 ")
  1. ;;2016
  1. ;;21,"58016-0139-03 ")
  1. ;;2017
  1. ;;21,"58016-0139-04 ")
  1. ;;2018
  1. ;;21,"58016-0139-05 ")
  1. ;;2019
  1. ;;21,"58016-0139-06 ")
  1. ;;2020
  1. ;;21,"58016-0139-08 ")
  1. ;;2021
  1. ;;21,"58016-0139-10 ")
  1. ;;2022
  1. ;;21,"58016-0139-12 ")
  1. ;;2023
  1. ;;21,"58016-0139-14 ")
  1. ;;2024
  1. ;;21,"58016-0139-15 ")
  1. ;;2025
  1. ;;21,"58016-0139-18 ")
  1. ;;2026
  1. ;;21,"58016-0139-20 ")
  1. ;;2027
  1. ;;21,"58016-0139-21 ")
  1. ;;2028
  1. ;;21,"58016-0139-24 ")
  1. ;;2029
  1. ;;21,"58016-0139-28 ")
  1. ;;2030
  1. ;;21,"58016-0139-30 ")
  1. ;;2031
  1. ;;21,"58016-0139-40 ")
  1. ;;2032
  1. ;;21,"58016-0139-50 ")
  1. ;;2033
  1. ;;21,"58016-0139-56 ")
  1. ;;2034
  1. ;;21,"58016-0139-60 ")
  1. ;;2035
  1. ;;21,"58016-0139-73 ")
  1. ;;2036
  1. ;;21,"58016-0139-89 ")
  1. ;;2037
  1. ;;21,"58016-0145-18 ")
  1. ;;3255
  1. ;;21,"58016-0146-00 ")
  1. ;;3673
  1. ;;21,"58016-0146-02 ")
  1. ;;3674
  1. ;;21,"58016-0146-03 ")
  1. ;;3675
  1. ;;21,"58016-0146-10 ")
  1. ;;3676
  1. ;;21,"58016-0146-12 ")
  1. ;;3677
  1. ;;21,"58016-0146-16 ")
  1. ;;3678
  1. ;;21,"58016-0146-20 ")
  1. ;;3679
  1. ;;21,"58016-0146-21 ")
  1. ;;3680
  1. ;;21,"58016-0146-24 ")
  1. ;;3681
  1. ;;21,"58016-0146-28 ")
  1. ;;3682
  1. ;;21,"58016-0146-30 ")
  1. ;;3683
  1. ;;21,"58016-0146-40 ")
  1. ;;3684
  1. ;;21,"58016-0146-60 ")
  1. ;;3685
  1. ;;21,"58016-0146-73 ")
  1. ;;3686
  1. ;;21,"58016-0146-89 ")
  1. ;;3687
  1. ;;21,"58016-0146-90 ")
  1. ;;3688
  1. ;;21,"58016-0147-00 ")
  1. ;;3848
  1. ;;21,"58016-0147-02 ")
  1. ;;3849
  1. ;;21,"58016-0147-03 ")
  1. ;;3850
  1. ;;21,"58016-0147-06 ")
  1. ;;3851
  1. ;;21,"58016-0147-10 ")
  1. ;;3852
  1. ;;21,"58016-0147-12 ")
  1. ;;3853
  1. ;;21,"58016-0147-15 ")
  1. ;;3854
  1. ;;21,"58016-0147-16 ")
  1. ;;3855
  1. ;;21,"58016-0147-20 ")
  1. ;;3856
  1. ;;21,"58016-0147-21 ")
  1. ;;3857
  1. ;;21,"58016-0147-24 ")
  1. ;;3858
  1. ;;21,"58016-0147-28 ")
  1. ;;3859
  1. ;;21,"58016-0147-30 ")
  1. ;;3860
  1. ;;21,"58016-0147-40 ")
  1. ;;3861
  1. ;;21,"58016-0147-50 ")
  1. ;;3862
  1. ;;21,"58016-0147-60 ")
  1. ;;3863
  1. ;;21,"58016-0147-73 ")
  1. ;;3864
  1. ;;21,"58016-0147-89 ")
  1. ;;3865
  1. ;;21,"58016-0147-90 ")
  1. ;;3866
  1. ;;21,"58016-0148-00 ")
  1. ;;796
  1. ;;21,"58016-0148-08 ")
  1. ;;797
  1. ;;21,"58016-0148-09 ")
  1. ;;798
  1. ;;21,"58016-0148-10 ")
  1. ;;799
  1. ;;21,"58016-0148-12 ")
  1. ;;800
  1. ;;21,"58016-0148-14 ")
  1. ;;801
  1. ;;21,"58016-0148-15 ")
  1. ;;802
  1. ;;21,"58016-0148-20 ")
  1. ;;803
  1. ;;21,"58016-0148-24 ")
  1. ;;804
  1. ;;21,"58016-0148-28 ")
  1. ;;805
  1. ;;21,"58016-0148-30 ")
  1. ;;806
  1. ;;21,"58016-0148-40 ")
  1. ;;807
  1. ;;21,"58016-0148-50 ")
  1. ;;808
  1. ;;21,"58016-0149-00 ")
  1. ;;865
  1. ;;21,"58016-0149-07 ")
  1. ;;866
  1. ;;21,"58016-0149-10 ")
  1. ;;867
  1. ;;21,"58016-0149-20 ")
  1. ;;868
  1. ;;21,"58016-0149-21 ")
  1. ;;869
  1. ;;21,"58016-0149-24 ")
  1. ;;870
  1. ;;21,"58016-0149-25 ")
  1. ;;871
  1. ;;21,"58016-0149-28 ")
  1. ;;872
  1. ;;21,"58016-0149-30 ")
  1. ;;873
  1. ;;21,"58016-0149-40 ")
  1. ;;874
  1. ;;21,"58016-0156-00 ")
  1. ;;6236
  1. ;;21,"58016-0156-02 ")
  1. ;;6237
  1. ;;21,"58016-0156-03 ")
  1. ;;6238
  1. ;;21,"58016-0156-06 ")
  1. ;;6239
  1. ;;21,"58016-0156-07 ")
  1. ;;6240
  1. ;;21,"58016-0156-10 ")
  1. ;;6241
  1. ;;21,"58016-0156-12 ")
  1. ;;6242
  1. ;;21,"58016-0156-14 ")
  1. ;;6243
  1. ;;21,"58016-0156-15 ")
  1. ;;6244
  1. ;;21,"58016-0156-16 ")
  1. ;;6245
  1. ;;21,"58016-0156-20 ")
  1. ;;6246
  1. ;;21,"58016-0156-21 ")
  1. ;;6247
  1. ;;21,"58016-0156-24 ")
  1. ;;6248
  1. ;;21,"58016-0156-28 ")
  1. ;;6249
  1. ;;21,"58016-0156-30 ")
  1. ;;6250
  1. ;;21,"58016-0156-40 ")
  1. ;;6251
  1. ;;21,"58016-0156-60 ")
  1. ;;6252
  1. ;;21,"58016-0156-73 ")
  1. ;;6253
  1. ;;21,"58016-0156-89 ")
  1. ;;6254
  1. ;;21,"58016-0161-10 ")
  1. ;;6048
  1. ;;21,"58016-0161-12 ")
  1. ;;6049
  1. ;;21,"58016-0161-14 ")
  1. ;;6050
  1. ;;21,"58016-0161-15 ")
  1. ;;6051
  1. ;;21,"58016-0161-16 ")
  1. ;;6052
  1. ;;21,"58016-0161-18 ")
  1. ;;6053
  1. ;;21,"58016-0161-20 ")
  1. ;;6054
  1. ;;21,"58016-0161-21 ")
  1. ;;6055
  1. ;;21,"58016-0161-24 ")
  1. ;;6056
  1. ;;21,"58016-0161-28 ")
  1. ;;6057
  1. ;;21,"58016-0161-30 ")
  1. ;;6058
  1. ;;21,"58016-0161-40 ")
  1. ;;6059
  1. ;;21,"58016-0161-50 ")
  1. ;;6060
  1. ;;21,"58016-0161-60 ")
  1. ;;6061
  1. ;;21,"58016-0162-28 ")
  1. ;;3115
  1. ;;21,"58016-0162-30 ")
  1. ;;3116
  1. ;;21,"58016-0162-40 ")
  1. ;;3117
  1. ;;21,"58016-0167-00 ")
  1. ;;3475
  1. ;;21,"58016-0167-20 ")
  1. ;;3476
  1. ;;21,"58016-0167-40 ")
  1. ;;3477
  1. ;;21,"58016-0171-20 ")
  1. ;;5599
  1. ;;21,"58016-0171-30 ")
  1. ;;5600
  1. ;;21,"58016-0204-00 ")
  1. ;;5411
  1. ;;21,"58016-0204-30 ")
  1. ;;5412
  1. ;;21,"58016-0204-60 ")
  1. ;;5413
  1. ;;21,"58016-0204-90 ")
  1. ;;5414
  1. ;;21,"58016-0284-15 ")
  1. ;;6458
  1. ;;21,"58016-0284-20 ")
  1. ;;6459
  1. ;;21,"58016-0284-30 ")
  1. ;;6460
  1. ;;21,"58016-0284-50 ")
  1. ;;6461
  1. ;;21,"58016-0299-00 ")
  1. ;;2999
  1. ;;21,"58016-0299-30 ")
  1. ;;3000
  1. ;;21,"58016-0299-60 ")
  1. ;;3001
  1. ;;21,"58016-0299-90 ")
  1. ;;3002
  1. ;;21,"58016-0339-30 ")
  1. ;;5222
  1. ;;21,"58016-0391-00 ")
  1. ;;2716
  1. ;;21,"58016-0391-01 ")
  1. ;;2717
  1. ;;21,"58016-0391-06 ")
  1. ;;2718
  1. ;;21,"58016-0391-10 ")
  1. ;;2719
  1. ;;21,"58016-0391-15 ")
  1. ;;2720
  1. ;;21,"58016-0391-18 ")
  1. ;;2721
  1. ;;21,"58016-0391-20 ")
  1. ;;2722
  1. ;;21,"58016-0391-28 ")
  1. ;;2723
  1. ;;21,"58016-0391-30 ")
  1. ;;2724
  1. ;;21,"58016-0391-60 ")
  1. ;;2725
  1. ;;21,"58016-0391-90 ")
  1. ;;2726
  1. ;;21,"58016-0453-00 ")
  1. ;;2338
  1. ;;21,"58016-0453-12 ")
  1. ;;2339
  1. ;;21,"58016-0453-15 ")
  1. ;;2340
  1. ;;21,"58016-0453-20 ")
  1. ;;2341
  1. ;;21,"58016-0453-21 ")
  1. ;;2342
  1. ;;21,"58016-0453-30 ")
  1. ;;2343
  1. ;;21,"58016-0453-40 ")
  1. ;;2344
  1. ;;21,"58016-0550-10 ")
  1. ;;3003
  1. ;;21,"58016-0550-12 ")
  1. ;;3004
  1. ;;21,"58016-0550-14 ")
  1. ;;3005
  1. ;;21,"58016-0550-15 ")
  1. ;;3006
  1. ;;21,"58016-0550-20 ")
  1. ;;3007
  1. ;;21,"58016-0550-30 ")
  1. ;;3008
  1. ;;21,"58016-0550-40 ")
  1. ;;3009
  1. ;;21,"58016-0573-00 ")
  1. ;;4935
  1. ;;21,"58016-0573-07 ")
  1. ;;4936
  1. ;;21,"58016-0573-10 ")
  1. ;;4937
  1. ;;21,"58016-0573-20 ")
  1. ;;4938
  1. ;;21,"58016-0573-30 ")
  1. ;;4939
  1. ;;21,"58016-0573-60 ")
  1. ;;4940
  1. ;;21,"58016-0573-90 ")
  1. ;;4941
  1. ;;21,"58016-0633-00 ")
  1. ;;2038
  1. ;;21,"58016-0633-30 ")
  1. ;;2039
  1. ;;21,"58016-0633-60 ")
  1. ;;2040
  1. ;;21,"58016-0633-90 ")
  1. ;;2041
  1. ;;21,"58016-0634-00 ")
  1. ;;2480
  1. ;;21,"58016-0634-30 ")
  1. ;;2481
  1. ;;21,"58016-0634-60 ")
  1. ;;2482
  1. ;;21,"58016-0634-90 ")
  1. ;;2483
  1. ;;21,"58016-0643-00 ")
  1. ;;752
  1. ;;21,"58016-0643-02 ")
  1. ;;753
  1. ;;21,"58016-0643-04 ")
  1. ;;754
  1. ;;21,"58016-0643-09 ")
  1. ;;755
  1. ;;21,"58016-0643-12 ")
  1. ;;756
  1. ;;21,"58016-0643-15 ")
  1. ;;757
  1. ;;21,"58016-0643-18 ")
  1. ;;758
  1. ;;21,"58016-0643-20 ")
  1. ;;759
  1. ;;21,"58016-0643-21 ")
  1. ;;760
  1. ;;21,"58016-0643-24 ")
  1. ;;761
  1. ;;21,"58016-0643-30 ")
  1. ;;762
  1. ;;21,"58016-0643-40 ")
  1. ;;763
  1. ;;21,"58016-0643-50 ")
  1. ;;764
  1. ;;21,"58016-0643-60 ")
  1. ;;765
  1. ;;21,"58016-0643-89 ")
  1. ;;766
  1. ;;21,"58016-0643-90 ")
  1. ;;767
  1. ;;21,"58016-0643-99 ")
  1. ;;768
  1. ;;21,"58016-0872-12 ")
  1. ;;5147
  1. ;;21,"58016-0872-15 ")
  1. ;;5148
  1. ;;21,"58016-0872-18 ")
  1. ;;5149
  1. ;;21,"58016-0872-20 ")
  1. ;;5150
  1. ;;21,"58016-0872-24 ")
  1. ;;5151
  1. ;;21,"58016-0872-30 ")
  1. ;;5152
  1. ;;21,"58016-0873-00 ")
  1. ;;6526
  1. ;;21,"58016-0873-15 ")
  1. ;;6527
  1. ;;21,"58016-0873-20 ")
  1. ;;6528
  1. ;;21,"58016-0873-30 ")
  1. ;;6529
  1. ;;21,"58016-0924-00 ")
  1. ;;4824
  1. ;;21,"58016-0924-30 ")
  1. ;;4825
  1. ;;21,"58016-0924-60 ")
  1. ;;4826
  1. ;;21,"58016-0924-90 ")
  1. ;;4827
  1. ;;21,"58016-0953-00 ")
  1. ;;4573
  1. ;;21,"58016-0953-02 ")
  1. ;;4574
  1. ;;21,"58016-0953-10 ")
  1. ;;4575
  1. ;;21,"58016-0953-12 ")
  1. ;;4576
  1. ;;21,"58016-0953-15 ")
  1. ;;4577
  1. ;;21,"58016-0953-20 ")
  1. ;;4578
  1. ;;21,"58016-0953-30 ")
  1. ;;4579
  1. ;;21,"58016-0953-60 ")
  1. ;;4580
  1. ;;21,"58016-0953-90 ")
  1. ;;4581
  1. ;;21,"58016-0955-00 ")
  1. ;;5920
  1. ;;21,"58016-0955-30 ")
  1. ;;5921
  1. ;;21,"58016-0955-60 ")
  1. ;;5922
  1. ;;21,"58016-0955-90 ")
  1. ;;5923
  1. ;;21,"58016-0957-00 ")
  1. ;;4743
  1. ;;21,"58016-0957-02 ")
  1. ;;4744
  1. ;;21,"58016-0957-10 ")
  1. ;;4745
  1. ;;21,"58016-0957-12 ")
  1. ;;4746
  1. ;;21,"58016-0957-15 ")
  1. ;;4747
  1. ;;21,"58016-0957-20 ")
  1. ;;4748
  1. ;;21,"58016-0957-30 ")
  1. ;;4749
  1. ;;21,"58016-0957-60 ")
  1. ;;4750
  1. ;;21,"58016-0957-90 ")
  1. ;;4751
  1. ;;21,"58016-0964-00 ")
  1. ;;5484
  1. ;;21,"58016-0964-30 ")
  1. ;;5485
  1. ;;21,"58016-0964-60 ")
  1. ;;5486
  1. ;;21,"58016-0964-90 ")
  1. ;;5487
  1. ;;21,"58016-0975-00 ")
  1. ;;4987
  1. ;;21,"58016-0975-30 ")
  1. ;;4988
  1. ;;21,"58016-0975-60 ")
  1. ;;4989
  1. ;;21,"58016-0975-90 ")
  1. ;;4990
  1. ;;21,"58016-1004-01 ")
  1. ;;125
  1. ;;21,"58016-1005-01 ")
  1. ;;415
  1. ;;21,"58016-1006-01 ")
  1. ;;416
  1. ;;21,"58016-1007-01 ")
  1. ;;417
  1. ;;21,"58016-1011-01 ")
  1. ;;999
  1. ;;21,"58016-1019-01 ")
  1. ;;1570
  1. ;;21,"58016-1021-01 ")
  1. ;;1796
  1. ;;21,"58016-1023-01 ")
  1. ;;3566
  1. ;;21,"58016-1024-01 ")
  1. ;;3567
  1. ;;21,"58016-1025-01 ")
  1. ;;3568
  1. ;;21,"58016-1026-01 ")
  1. ;;3612
  1. ;;21,"58016-1027-01 ")
  1. ;;3613
  1. ;;21,"58016-1028-01 ")
  1. ;;3737
  1. ;;21,"58016-1029-01 ")
  1. ;;3738
  1. ;;21,"58016-1033-01 ")
  1. ;;835
  1. ;;21,"58016-1034-01 ")
  1. ;;836
  1. ;;21,"58016-1035-01 ")
  1. ;;5564
  1. ;;21,"58016-1036-01 ")
  1. ;;3376
  1. ;;21,"58016-1037-01 ")
  1. ;;3377
  1. ;;21,"58016-1038-01 ")
  1. ;;3493
  1. ;;21,"58016-1039-01 ")
  1. ;;3494
  1. ;;21,"58016-1045-01 ")
  1. ;;1797
  1. ;;21,"58016-1046-01 ")
  1. ;;1571
  1. ;;21,"58016-4192-01 ")
  1. ;;5178
  1. ;;21,"58016-4786-01 ")
  1. ;;6807
  1. ;;21,"58016-4790-01 ")
  1. ;;6885
  1. ;;21,"58016-4804-01 ")
  1. ;;1146
  1. ;;21,"58016-4807-01 ")
  1. ;;7047
  1. ;;21,"58016-4814-01 ")
  1. ;;2727
  1. ;;21,"58016-4834-01 ")
  1. ;;6850
  1. ;;21,"58016-4842-01 ")
  1. ;;959
  1. ;;21,"58016-4847-01 ")
  1. ;;3569
  1. ;;21,"58016-4869-01 ")
  1. ;;932
  1. ;;21,"58016-4873-01 ")
  1. ;;6851
  1. ;;21,"58016-4990-01 ")
  1. ;;1280
  1. ;;21,"58016-9438-01 ")
  1. ;;6808
  1. ;;21,"58016-9551-01 ")
  1. ;;6926
  1. ;;21,"58463-0002-30 ")
  1. ;;718
  1. ;;21,"58864-0029-30 ")
  1. ;;647
  1. ;;21,"58864-0029-40 ")
  1. ;;648
  1. ;;21,"58864-0034-10 ")
  1. ;;4942
  1. ;;21,"58864-0034-14 ")
  1. ;;4943
  1. ;;21,"58864-0067-20 ")
  1. ;;3010
  1. ;;21,"58864-0072-30 ")
  1. ;;1714
  1. ;;21,"58864-0072-40 ")
  1. ;;1715
  1. ;;21,"58864-0073-20 ")
  1. ;;2042
  1. ;;21,"58864-0073-28 ")
  1. ;;2043