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

BGP8YA2.m

Go to the documentation of this file.
BGP8YA2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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)
 ;;9002226.02101,"2231,00378-9671-58 ",.02)
 ;;00378-9671-58
 ;;9002226.02101,"2231,00378-9671-60 ",.01)
 ;;00378-9671-60
 ;;9002226.02101,"2231,00378-9671-60 ",.02)
 ;;00378-9671-60
 ;;9002226.02101,"2231,00378-9671-64 ",.01)
 ;;00378-9671-64
 ;;9002226.02101,"2231,00378-9671-64 ",.02)
 ;;00378-9671-64
 ;;9002226.02101,"2231,00378-9671-91 ",.01)
 ;;00378-9671-91
 ;;9002226.02101,"2231,00378-9671-91 ",.02)
 ;;00378-9671-91
 ;;9002226.02101,"2231,00378-9671-93 ",.01)
 ;;00378-9671-93
 ;;9002226.02101,"2231,00378-9671-93 ",.02)
 ;;00378-9671-93
 ;;9002226.02101,"2231,00378-9671-98 ",.01)
 ;;00378-9671-98
 ;;9002226.02101,"2231,00378-9671-98 ",.02)
 ;;00378-9671-98
 ;;9002226.02101,"2231,00378-9680-44 ",.01)
 ;;00378-9680-44
 ;;9002226.02101,"2231,00378-9680-44 ",.02)
 ;;00378-9680-44
 ;;9002226.02101,"2231,00378-9680-96 ",.01)
 ;;00378-9680-96
 ;;9002226.02101,"2231,00378-9680-96 ",.02)
 ;;00378-9680-96
 ;;9002226.02101,"2231,00378-9681-44 ",.01)
 ;;00378-9681-44
 ;;9002226.02101,"2231,00378-9681-44 ",.02)
 ;;00378-9681-44
 ;;9002226.02101,"2231,00378-9681-96 ",.01)
 ;;00378-9681-96
 ;;9002226.02101,"2231,00378-9681-96 ",.02)
 ;;00378-9681-96
 ;;9002226.02101,"2231,00378-9682-44 ",.01)
 ;;00378-9682-44
 ;;9002226.02101,"2231,00378-9682-44 ",.02)
 ;;00378-9682-44
 ;;9002226.02101,"2231,00378-9682-96 ",.01)
 ;;00378-9682-96
 ;;9002226.02101,"2231,00378-9682-96 ",.02)
 ;;00378-9682-96
 ;;9002226.02101,"2231,00487-0201-01 ",.01)
 ;;00487-0201-01
 ;;9002226.02101,"2231,00487-0201-01 ",.02)
 ;;00487-0201-01
 ;;9002226.02101,"2231,00487-0201-02 ",.01)
 ;;00487-0201-02
 ;;9002226.02101,"2231,00487-0201-02 ",.02)
 ;;00487-0201-02
 ;;9002226.02101,"2231,00487-0201-03 ",.01)
 ;;00487-0201-03
 ;;9002226.02101,"2231,00487-0201-03 ",.02)
 ;;00487-0201-03
 ;;9002226.02101,"2231,00487-0201-60 ",.01)
 ;;00487-0201-60
 ;;9002226.02101,"2231,00487-0201-60 ",.02)
 ;;00487-0201-60
 ;;9002226.02101,"2231,00487-0301-01 ",.01)
 ;;00487-0301-01
 ;;9002226.02101,"2231,00487-0301-01 ",.02)
 ;;00487-0301-01
 ;;9002226.02101,"2231,00487-0301-02 ",.01)
 ;;00487-0301-02
 ;;9002226.02101,"2231,00487-0301-02 ",.02)
 ;;00487-0301-02
 ;;9002226.02101,"2231,00487-9501-01 ",.01)
 ;;00487-9501-01
 ;;9002226.02101,"2231,00487-9501-01 ",.02)
 ;;00487-9501-01
 ;;9002226.02101,"2231,00487-9501-02 ",.01)
 ;;00487-9501-02
 ;;9002226.02101,"2231,00487-9501-02 ",.02)
 ;;00487-9501-02
 ;;9002226.02101,"2231,00487-9501-03 ",.01)
 ;;00487-9501-03
 ;;9002226.02101,"2231,00487-9501-03 ",.02)
 ;;00487-9501-03
 ;;9002226.02101,"2231,00487-9501-25 ",.01)
 ;;00487-9501-25
 ;;9002226.02101,"2231,00487-9501-25 ",.02)
 ;;00487-9501-25
 ;;9002226.02101,"2231,00487-9501-60 ",.01)
 ;;00487-9501-60
 ;;9002226.02101,"2231,00487-9501-60 ",.02)
 ;;00487-9501-60
 ;;9002226.02101,"2231,00487-9801-01 ",.01)
 ;;00487-9801-01
 ;;9002226.02101,"2231,00487-9801-01 ",.02)
 ;;00487-9801-01
 ;;9002226.02101,"2231,00487-9801-02 ",.01)
 ;;00487-9801-02
 ;;9002226.02101,"2231,00487-9801-02 ",.02)
 ;;00487-9801-02
 ;;9002226.02101,"2231,00487-9801-25 ",.01)
 ;;00487-9801-25
 ;;9002226.02101,"2231,00487-9801-25 ",.02)
 ;;00487-9801-25
 ;;9002226.02101,"2231,00487-9801-30 ",.01)
 ;;00487-9801-30
 ;;9002226.02101,"2231,00487-9801-30 ",.02)
 ;;00487-9801-30
 ;;9002226.02101,"2231,00487-9801-60 ",.01)
 ;;00487-9801-60
 ;;9002226.02101,"2231,00487-9801-60 ",.02)
 ;;00487-9801-60
 ;;9002226.02101,"2231,00487-9901-02 ",.01)
 ;;00487-9901-02
 ;;9002226.02101,"2231,00487-9901-02 ",.02)
 ;;00487-9901-02
 ;;9002226.02101,"2231,00487-9901-30 ",.01)
 ;;00487-9901-30
 ;;9002226.02101,"2231,00487-9901-30 ",.02)
 ;;00487-9901-30
 ;;9002226.02101,"2231,00487-9904-01 ",.01)
 ;;00487-9904-01
 ;;9002226.02101,"2231,00487-9904-01 ",.02)
 ;;00487-9904-01
 ;;9002226.02101,"2231,00487-9904-02 ",.01)
 ;;00487-9904-02
 ;;9002226.02101,"2231,00487-9904-02 ",.02)
 ;;00487-9904-02
 ;;9002226.02101,"2231,00487-9904-25 ",.01)
 ;;00487-9904-25
 ;;9002226.02101,"2231,00487-9904-25 ",.02)
 ;;00487-9904-25
 ;;9002226.02101,"2231,00591-2736-23 ",.01)
 ;;00591-2736-23
 ;;9002226.02101,"2231,00591-2736-23 ",.02)
 ;;00591-2736-23
 ;;9002226.02101,"2231,00591-2736-39 ",.01)
 ;;00591-2736-39
 ;;9002226.02101,"2231,00591-2736-39 ",.02)
 ;;00591-2736-39
 ;;9002226.02101,"2231,00591-2737-23 ",.01)
 ;;00591-2737-23
 ;;9002226.02101,"2231,00591-2737-23 ",.02)
 ;;00591-2737-23
 ;;9002226.02101,"2231,00591-2737-39 ",.01)
 ;;00591-2737-39
 ;;9002226.02101,"2231,00591-2737-39 ",.02)
 ;;00591-2737-39
 ;;9002226.02101,"2231,00591-2738-23 ",.01)
 ;;00591-2738-23
 ;;9002226.02101,"2231,00591-2738-23 ",.02)
 ;;00591-2738-23
 ;;9002226.02101,"2231,00591-2738-39 ",.01)
 ;;00591-2738-39
 ;;9002226.02101,"2231,00591-2738-39 ",.02)
 ;;00591-2738-39
 ;;9002226.02101,"2231,00591-2919-23 ",.01)
 ;;00591-2919-23
 ;;9002226.02101,"2231,00591-2919-23 ",.02)
 ;;00591-2919-23
 ;;9002226.02101,"2231,00591-2919-39 ",.01)
 ;;00591-2919-39
 ;;9002226.02101,"2231,00591-2919-39 ",.02)
 ;;00591-2919-39
 ;;9002226.02101,"2231,00591-2920-23 ",.01)
 ;;00591-2920-23
 ;;9002226.02101,"2231,00591-2920-23 ",.02)
 ;;00591-2920-23
 ;;9002226.02101,"2231,00591-2920-39 ",.01)
 ;;00591-2920-39
 ;;9002226.02101,"2231,00591-2920-39 ",.02)
 ;;00591-2920-39
 ;;9002226.02101,"2231,00591-3467-53 ",.01)
 ;;00591-3467-53
 ;;9002226.02101,"2231,00591-3467-53 ",.02)
 ;;00591-3467-53
 ;;9002226.02101,"2231,00591-3468-53 ",.01)
 ;;00591-3468-53
 ;;9002226.02101,"2231,00591-3468-53 ",.02)
 ;;00591-3468-53
 ;;9002226.02101,"2231,00591-3797-30 ",.01)
 ;;00591-3797-30
 ;;9002226.02101,"2231,00591-3797-30 ",.02)
 ;;00591-3797-30
 ;;9002226.02101,"2231,00591-3797-60 ",.01)
 ;;00591-3797-60
 ;;9002226.02101,"2231,00591-3797-60 ",.02)
 ;;00591-3797-60
 ;;9002226.02101,"2231,00591-3797-83 ",.01)
 ;;00591-3797-83
 ;;9002226.02101,"2231,00591-3797-83 ",.02)
 ;;00591-3797-83
 ;;9002226.02101,"2231,00591-3798-30 ",.01)
 ;;00591-3798-30
 ;;9002226.02101,"2231,00591-3798-30 ",.02)
 ;;00591-3798-30
 ;;9002226.02101,"2231,00591-3798-60 ",.01)
 ;;00591-3798-60
 ;;9002226.02101,"2231,00591-3798-60 ",.02)
 ;;00591-3798-60
 ;;9002226.02101,"2231,00591-3798-83 ",.01)
 ;;00591-3798-83
 ;;9002226.02101,"2231,00591-3798-83 ",.02)
 ;;00591-3798-83
 ;;9002226.02101,"2231,00591-3817-15 ",.01)
 ;;00591-3817-15
 ;;9002226.02101,"2231,00591-3817-15 ",.02)
 ;;00591-3817-15
 ;;9002226.02101,"2231,00591-3817-30 ",.01)
 ;;00591-3817-30
 ;;9002226.02101,"2231,00591-3817-30 ",.02)
 ;;00591-3817-30
 ;;9002226.02101,"2231,00591-3817-39 ",.01)
 ;;00591-3817-39
 ;;9002226.02101,"2231,00591-3817-39 ",.02)
 ;;00591-3817-39
 ;;9002226.02101,"2231,00591-3817-60 ",.01)
 ;;00591-3817-60
 ;;9002226.02101,"2231,00591-3817-60 ",.02)
 ;;00591-3817-60
 ;;9002226.02101,"2231,00591-3817-66 ",.01)
 ;;00591-3817-66
 ;;9002226.02101,"2231,00591-3817-66 ",.02)
 ;;00591-3817-66
 ;;9002226.02101,"2231,00591-3817-72 ",.01)
 ;;00591-3817-72
 ;;9002226.02101,"2231,00591-3817-72 ",.02)
 ;;00591-3817-72
 ;;9002226.02101,"2231,00781-7146-29 ",.01)
 ;;00781-7146-29
 ;;9002226.02101,"2231,00781-7146-29 ",.02)
 ;;00781-7146-29
 ;;9002226.02101,"2231,00781-7146-51 ",.01)
 ;;00781-7146-51
 ;;9002226.02101,"2231,00781-7146-51 ",.02)
 ;;00781-7146-51
 ;;9002226.02101,"2231,00781-7146-63 ",.01)
 ;;00781-7146-63
 ;;9002226.02101,"2231,00781-7146-63 ",.02)
 ;;00781-7146-63
 ;;9002226.02101,"2231,00781-7146-64 ",.01)
 ;;00781-7146-64
 ;;9002226.02101,"2231,00781-7146-64 ",.02)
 ;;00781-7146-64
 ;;9002226.02101,"2231,00781-7146-87 ",.01)
 ;;00781-7146-87
 ;;9002226.02101,"2231,00781-7146-87 ",.02)
 ;;00781-7146-87
 ;;9002226.02101,"2231,00781-7155-29 ",.01)
 ;;00781-7155-29
 ;;9002226.02101,"2231,00781-7155-29 ",.02)
 ;;00781-7155-29
 ;;9002226.02101,"2231,00781-7155-64 ",.01)
 ;;00781-7155-64
 ;;9002226.02101,"2231,00781-7155-64 ",.02)
 ;;00781-7155-64
 ;;9002226.02101,"2231,00781-7155-86 ",.01)
 ;;00781-7155-86
 ;;9002226.02101,"2231,00781-7155-86 ",.02)
 ;;00781-7155-86
 ;;9002226.02101,"2231,00781-7157-29 ",.01)
 ;;00781-7157-29
 ;;9002226.02101,"2231,00781-7157-29 ",.02)
 ;;00781-7157-29
 ;;9002226.02101,"2231,00781-7157-64 ",.01)
 ;;00781-7157-64
 ;;9002226.02101,"2231,00781-7157-64 ",.02)
 ;;00781-7157-64
 ;;9002226.02101,"2231,00781-7157-86 ",.01)
 ;;00781-7157-86
 ;;9002226.02101,"2231,00781-7157-86 ",.02)
 ;;00781-7157-86
 ;;9002226.02101,"2231,17478-0171-01 ",.01)
 ;;17478-0171-01
 ;;9002226.02101,"2231,17478-0171-01 ",.02)
 ;;17478-0171-01
 ;;9002226.02101,"2231,17478-0171-30 ",.01)
 ;;17478-0171-30
 ;;9002226.02101,"2231,17478-0171-30 ",.02)
 ;;17478-0171-30
 ;;9002226.02101,"2231,17478-0172-12 ",.01)
 ;;17478-0172-12
 ;;9002226.02101,"2231,17478-0172-12 ",.02)
 ;;17478-0172-12
 ;;9002226.02101,"2231,17478-0172-24 ",.01)
 ;;17478-0172-24
 ;;9002226.02101,"2231,17478-0172-24 ",.02)
 ;;17478-0172-24
 ;;9002226.02101,"2231,17478-0173-12 ",.01)
 ;;17478-0173-12
 ;;9002226.02101,"2231,17478-0173-12 ",.02)
 ;;17478-0173-12
 ;;9002226.02101,"2231,17478-0173-24 ",.01)
 ;;17478-0173-24
 ;;9002226.02101,"2231,17478-0173-24 ",.02)
 ;;17478-0173-24
 ;;9002226.02101,"2231,17478-0174-12 ",.01)
 ;;17478-0174-12
 ;;9002226.02101,"2231,17478-0174-12 ",.02)
 ;;17478-0174-12
 ;;9002226.02101,"2231,17478-0174-24 ",.01)
 ;;17478-0174-24
 ;;9002226.02101,"2231,17478-0174-24 ",.02)
 ;;17478-0174-24
 ;;9002226.02101,"2231,21695-0153-24 ",.01)
 ;;21695-0153-24
 ;;9002226.02101,"2231,21695-0153-24 ",.02)
 ;;21695-0153-24
 ;;9002226.02101,"2231,21695-0245-20 ",.01)
 ;;21695-0245-20
 ;;9002226.02101,"2231,21695-0245-20 ",.02)
 ;;21695-0245-20
 ;;9002226.02101,"2231,21695-0332-25 ",.01)
 ;;21695-0332-25
 ;;9002226.02101,"2231,21695-0332-25 ",.02)
 ;;21695-0332-25
 ;;9002226.02101,"2231,21695-0332-30 ",.01)
 ;;21695-0332-30
 ;;9002226.02101,"2231,21695-0332-30 ",.02)
 ;;21695-0332-30
 ;;9002226.02101,"2231,21695-0911-25 ",.01)
 ;;21695-0911-25
 ;;9002226.02101,"2231,21695-0911-25 ",.02)
 ;;21695-0911-25
 ;;9002226.02101,"2231,21695-0911-30 ",.01)
 ;;21695-0911-30
 ;;9002226.02101,"2231,21695-0911-30 ",.02)
 ;;21695-0911-30
 ;;9002226.02101,"2231,24208-0347-20 ",.01)
 ;;24208-0347-20
 ;;9002226.02101,"2231,24208-0347-20 ",.02)
 ;;24208-0347-20
 ;;9002226.02101,"2231,33261-0610-01 ",.01)
 ;;33261-0610-01
 ;;9002226.02101,"2231,33261-0610-01 ",.02)
 ;;33261-0610-01
 ;;9002226.02101,"2231,33261-0789-01 ",.01)
 ;;33261-0789-01
 ;;9002226.02101,"2231,33261-0789-01 ",.02)
 ;;33261-0789-01
 ;;9002226.02101,"2231,33261-0812-01 ",.01)
 ;;33261-0812-01
 ;;9002226.02101,"2231,33261-0812-01 ",.02)
 ;;33261-0812-01
 ;;9002226.02101,"2231,35356-0124-25 ",.01)
 ;;35356-0124-25
 ;;9002226.02101,"2231,35356-0124-25 ",.02)
 ;;35356-0124-25
 ;;9002226.02101,"2231,35356-0124-30 ",.01)
 ;;35356-0124-30
 ;;9002226.02101,"2231,35356-0124-30 ",.02)
 ;;35356-0124-30
 ;;9002226.02101,"2231,35356-0489-03 ",.01)
 ;;35356-0489-03
 ;;9002226.02101,"2231,35356-0489-03 ",.02)
 ;;35356-0489-03
 ;;9002226.02101,"2231,42254-0041-25 ",.01)
 ;;42254-0041-25
 ;;9002226.02101,"2231,42254-0041-25 ",.02)
 ;;42254-0041-25
 ;;9002226.02101,"2231,43598-0409-05 ",.01)
 ;;43598-0409-05
 ;;9002226.02101,"2231,43598-0409-05 ",.02)
 ;;43598-0409-05
 ;;9002226.02101,"2231,43598-0409-25 ",.01)
 ;;43598-0409-25
 ;;9002226.02101,"2231,43598-0409-25 ",.02)
 ;;43598-0409-25
 ;;9002226.02101,"2231,43598-0410-05 ",.01)
 ;;43598-0410-05
 ;;9002226.02101,"2231,43598-0410-05 ",.02)
 ;;43598-0410-05
 ;;9002226.02101,"2231,43598-0410-25 ",.01)
 ;;43598-0410-25
 ;;9002226.02101,"2231,43598-0410-25 ",.02)
 ;;43598-0410-25
 ;;9002226.02101,"2231,43598-0412-05 ",.01)
 ;;43598-0412-05
 ;;9002226.02101,"2231,43598-0412-05 ",.02)
 ;;43598-0412-05