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

BGP2TE18.m

Go to the documentation of this file.
BGP2TE18 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"1197,54569-0639-00 ",.01)
 ;;54569-0639-00
 ;;9002226.02101,"1197,54569-0639-00 ",.02)
 ;;54569-0639-00
 ;;9002226.02101,"1197,54569-0639-01 ",.01)
 ;;54569-0639-01
 ;;9002226.02101,"1197,54569-0639-01 ",.02)
 ;;54569-0639-01
 ;;9002226.02101,"1197,54569-0639-02 ",.01)
 ;;54569-0639-02
 ;;9002226.02101,"1197,54569-0639-02 ",.02)
 ;;54569-0639-02
 ;;9002226.02101,"1197,54569-0646-00 ",.01)
 ;;54569-0646-00
 ;;9002226.02101,"1197,54569-0646-00 ",.02)
 ;;54569-0646-00
 ;;9002226.02101,"1197,54569-0646-01 ",.01)
 ;;54569-0646-01
 ;;9002226.02101,"1197,54569-0646-01 ",.02)
 ;;54569-0646-01
 ;;9002226.02101,"1197,54569-0646-02 ",.01)
 ;;54569-0646-02
 ;;9002226.02101,"1197,54569-0646-02 ",.02)
 ;;54569-0646-02
 ;;9002226.02101,"1197,54569-2780-00 ",.01)
 ;;54569-2780-00
 ;;9002226.02101,"1197,54569-2780-00 ",.02)
 ;;54569-2780-00
 ;;9002226.02101,"1197,54569-2780-01 ",.01)
 ;;54569-2780-01
 ;;9002226.02101,"1197,54569-2780-01 ",.02)
 ;;54569-2780-01
 ;;9002226.02101,"1197,54569-2780-02 ",.01)
 ;;54569-2780-02
 ;;9002226.02101,"1197,54569-2780-02 ",.02)
 ;;54569-2780-02
 ;;9002226.02101,"1197,54569-2780-03 ",.01)
 ;;54569-2780-03
 ;;9002226.02101,"1197,54569-2780-03 ",.02)
 ;;54569-2780-03
 ;;9002226.02101,"1197,54569-2781-00 ",.01)
 ;;54569-2781-00
 ;;9002226.02101,"1197,54569-2781-00 ",.02)
 ;;54569-2781-00
 ;;9002226.02101,"1197,54569-2781-01 ",.01)
 ;;54569-2781-01
 ;;9002226.02101,"1197,54569-2781-01 ",.02)
 ;;54569-2781-01
 ;;9002226.02101,"1197,54569-2912-02 ",.01)
 ;;54569-2912-02
 ;;9002226.02101,"1197,54569-2912-02 ",.02)
 ;;54569-2912-02
 ;;9002226.02101,"1197,54569-3055-00 ",.01)
 ;;54569-3055-00
 ;;9002226.02101,"1197,54569-3055-00 ",.02)
 ;;54569-3055-00
 ;;9002226.02101,"1197,54569-3055-02 ",.01)
 ;;54569-3055-02
 ;;9002226.02101,"1197,54569-3055-02 ",.02)
 ;;54569-3055-02
 ;;9002226.02101,"1197,54569-3665-00 ",.01)
 ;;54569-3665-00
 ;;9002226.02101,"1197,54569-3665-00 ",.02)
 ;;54569-3665-00
 ;;9002226.02101,"1197,54569-3665-01 ",.01)
 ;;54569-3665-01
 ;;9002226.02101,"1197,54569-3665-01 ",.02)
 ;;54569-3665-01
 ;;9002226.02101,"1197,54569-3667-00 ",.01)
 ;;54569-3667-00
 ;;9002226.02101,"1197,54569-3667-00 ",.02)
 ;;54569-3667-00
 ;;9002226.02101,"1197,54569-3667-01 ",.01)
 ;;54569-3667-01
 ;;9002226.02101,"1197,54569-3667-01 ",.02)
 ;;54569-3667-01
 ;;9002226.02101,"1197,54569-3667-02 ",.01)
 ;;54569-3667-02
 ;;9002226.02101,"1197,54569-3667-02 ",.02)
 ;;54569-3667-02
 ;;9002226.02101,"1197,54569-3691-00 ",.01)
 ;;54569-3691-00
 ;;9002226.02101,"1197,54569-3691-00 ",.02)
 ;;54569-3691-00
 ;;9002226.02101,"1197,54569-3718-00 ",.01)
 ;;54569-3718-00
 ;;9002226.02101,"1197,54569-3718-00 ",.02)
 ;;54569-3718-00
 ;;9002226.02101,"1197,54569-3718-03 ",.01)
 ;;54569-3718-03
 ;;9002226.02101,"1197,54569-3718-03 ",.02)
 ;;54569-3718-03
 ;;9002226.02101,"1197,54569-3719-00 ",.01)
 ;;54569-3719-00
 ;;9002226.02101,"1197,54569-3719-00 ",.02)
 ;;54569-3719-00
 ;;9002226.02101,"1197,54569-3784-00 ",.01)
 ;;54569-3784-00
 ;;9002226.02101,"1197,54569-3784-00 ",.02)
 ;;54569-3784-00
 ;;9002226.02101,"1197,54569-3785-00 ",.01)
 ;;54569-3785-00
 ;;9002226.02101,"1197,54569-3785-00 ",.02)
 ;;54569-3785-00
 ;;9002226.02101,"1197,54569-3785-02 ",.01)
 ;;54569-3785-02
 ;;9002226.02101,"1197,54569-3785-02 ",.02)
 ;;54569-3785-02
 ;;9002226.02101,"1197,54569-3786-00 ",.01)
 ;;54569-3786-00
 ;;9002226.02101,"1197,54569-3786-00 ",.02)
 ;;54569-3786-00
 ;;9002226.02101,"1197,54569-3786-01 ",.01)
 ;;54569-3786-01
 ;;9002226.02101,"1197,54569-3786-01 ",.02)
 ;;54569-3786-01
 ;;9002226.02101,"1197,54569-3802-00 ",.01)
 ;;54569-3802-00
 ;;9002226.02101,"1197,54569-3802-00 ",.02)
 ;;54569-3802-00
 ;;9002226.02101,"1197,54569-3803-00 ",.01)
 ;;54569-3803-00
 ;;9002226.02101,"1197,54569-3803-00 ",.02)
 ;;54569-3803-00
 ;;9002226.02101,"1197,54569-3804-00 ",.01)
 ;;54569-3804-00
 ;;9002226.02101,"1197,54569-3804-00 ",.02)
 ;;54569-3804-00
 ;;9002226.02101,"1197,54569-3866-00 ",.01)
 ;;54569-3866-00
 ;;9002226.02101,"1197,54569-3866-00 ",.02)
 ;;54569-3866-00
 ;;9002226.02101,"1197,54569-3866-01 ",.01)
 ;;54569-3866-01
 ;;9002226.02101,"1197,54569-3866-01 ",.02)
 ;;54569-3866-01
 ;;9002226.02101,"1197,54569-3866-02 ",.01)
 ;;54569-3866-02
 ;;9002226.02101,"1197,54569-3866-02 ",.02)
 ;;54569-3866-02
 ;;9002226.02101,"1197,54569-3891-00 ",.01)
 ;;54569-3891-00
 ;;9002226.02101,"1197,54569-3891-00 ",.02)
 ;;54569-3891-00
 ;;9002226.02101,"1197,54569-3891-01 ",.01)
 ;;54569-3891-01
 ;;9002226.02101,"1197,54569-3891-01 ",.02)
 ;;54569-3891-01
 ;;9002226.02101,"1197,54569-3892-00 ",.01)
 ;;54569-3892-00
 ;;9002226.02101,"1197,54569-3892-00 ",.02)
 ;;54569-3892-00
 ;;9002226.02101,"1197,54569-3893-00 ",.01)
 ;;54569-3893-00
 ;;9002226.02101,"1197,54569-3893-00 ",.02)
 ;;54569-3893-00
 ;;9002226.02101,"1197,54569-4183-00 ",.01)
 ;;54569-4183-00
 ;;9002226.02101,"1197,54569-4183-00 ",.02)
 ;;54569-4183-00
 ;;9002226.02101,"1197,54569-4211-00 ",.01)
 ;;54569-4211-00
 ;;9002226.02101,"1197,54569-4211-00 ",.02)
 ;;54569-4211-00
 ;;9002226.02101,"1197,54569-4447-00 ",.01)
 ;;54569-4447-00
 ;;9002226.02101,"1197,54569-4447-00 ",.02)
 ;;54569-4447-00
 ;;9002226.02101,"1197,54569-4447-01 ",.01)
 ;;54569-4447-01
 ;;9002226.02101,"1197,54569-4447-01 ",.02)
 ;;54569-4447-01
 ;;9002226.02101,"1197,54569-4447-04 ",.01)
 ;;54569-4447-04
 ;;9002226.02101,"1197,54569-4447-04 ",.02)
 ;;54569-4447-04
 ;;9002226.02101,"1197,54569-4455-00 ",.01)
 ;;54569-4455-00
 ;;9002226.02101,"1197,54569-4455-00 ",.02)
 ;;54569-4455-00
 ;;9002226.02101,"1197,54569-4472-00 ",.01)
 ;;54569-4472-00
 ;;9002226.02101,"1197,54569-4472-00 ",.02)
 ;;54569-4472-00
 ;;9002226.02101,"1197,54569-4472-01 ",.01)
 ;;54569-4472-01
 ;;9002226.02101,"1197,54569-4472-01 ",.02)
 ;;54569-4472-01
 ;;9002226.02101,"1197,54569-4498-00 ",.01)
 ;;54569-4498-00
 ;;9002226.02101,"1197,54569-4498-00 ",.02)
 ;;54569-4498-00
 ;;9002226.02101,"1197,54569-4499-00 ",.01)
 ;;54569-4499-00
 ;;9002226.02101,"1197,54569-4499-00 ",.02)
 ;;54569-4499-00
 ;;9002226.02101,"1197,54569-4622-00 ",.01)
 ;;54569-4622-00
 ;;9002226.02101,"1197,54569-4622-00 ",.02)
 ;;54569-4622-00
 ;;9002226.02101,"1197,54569-4623-00 ",.01)
 ;;54569-4623-00
 ;;9002226.02101,"1197,54569-4623-00 ",.02)
 ;;54569-4623-00
 ;;9002226.02101,"1197,54569-4696-00 ",.01)
 ;;54569-4696-00
 ;;9002226.02101,"1197,54569-4696-00 ",.02)
 ;;54569-4696-00
 ;;9002226.02101,"1197,54569-4696-01 ",.01)
 ;;54569-4696-01
 ;;9002226.02101,"1197,54569-4696-01 ",.02)
 ;;54569-4696-01
 ;;9002226.02101,"1197,54569-4715-00 ",.01)
 ;;54569-4715-00
 ;;9002226.02101,"1197,54569-4715-00 ",.02)
 ;;54569-4715-00
 ;;9002226.02101,"1197,54569-4716-00 ",.01)
 ;;54569-4716-00
 ;;9002226.02101,"1197,54569-4716-00 ",.02)
 ;;54569-4716-00
 ;;9002226.02101,"1197,54569-4717-00 ",.01)
 ;;54569-4717-00
 ;;9002226.02101,"1197,54569-4717-00 ",.02)
 ;;54569-4717-00
 ;;9002226.02101,"1197,54569-4913-00 ",.01)
 ;;54569-4913-00
 ;;9002226.02101,"1197,54569-4913-00 ",.02)
 ;;54569-4913-00
 ;;9002226.02101,"1197,54569-4914-00 ",.01)
 ;;54569-4914-00
 ;;9002226.02101,"1197,54569-4914-00 ",.02)
 ;;54569-4914-00
 ;;9002226.02101,"1197,54569-4924-00 ",.01)
 ;;54569-4924-00
 ;;9002226.02101,"1197,54569-4924-00 ",.02)
 ;;54569-4924-00
 ;;9002226.02101,"1197,54569-4991-00 ",.01)
 ;;54569-4991-00
 ;;9002226.02101,"1197,54569-4991-00 ",.02)
 ;;54569-4991-00
 ;;9002226.02101,"1197,54569-4992-00 ",.01)
 ;;54569-4992-00
 ;;9002226.02101,"1197,54569-4992-00 ",.02)
 ;;54569-4992-00
 ;;9002226.02101,"1197,54569-5155-00 ",.01)
 ;;54569-5155-00
 ;;9002226.02101,"1197,54569-5155-00 ",.02)
 ;;54569-5155-00
 ;;9002226.02101,"1197,54569-5156-00 ",.01)
 ;;54569-5156-00
 ;;9002226.02101,"1197,54569-5156-00 ",.02)
 ;;54569-5156-00
 ;;9002226.02101,"1197,54569-5157-00 ",.01)
 ;;54569-5157-00
 ;;9002226.02101,"1197,54569-5157-00 ",.02)
 ;;54569-5157-00
 ;;9002226.02101,"1197,54569-5232-00 ",.01)
 ;;54569-5232-00
 ;;9002226.02101,"1197,54569-5232-00 ",.02)
 ;;54569-5232-00
 ;;9002226.02101,"1197,54569-5232-01 ",.01)
 ;;54569-5232-01
 ;;9002226.02101,"1197,54569-5232-01 ",.02)
 ;;54569-5232-01
 ;;9002226.02101,"1197,54569-5282-00 ",.01)
 ;;54569-5282-00
 ;;9002226.02101,"1197,54569-5282-00 ",.02)
 ;;54569-5282-00
 ;;9002226.02101,"1197,54569-5370-00 ",.01)
 ;;54569-5370-00
 ;;9002226.02101,"1197,54569-5370-00 ",.02)
 ;;54569-5370-00
 ;;9002226.02101,"1197,54569-5431-00 ",.01)
 ;;54569-5431-00
 ;;9002226.02101,"1197,54569-5431-00 ",.02)
 ;;54569-5431-00
 ;;9002226.02101,"1197,54569-5704-00 ",.01)
 ;;54569-5704-00
 ;;9002226.02101,"1197,54569-5704-00 ",.02)
 ;;54569-5704-00
 ;;9002226.02101,"1197,54569-5878-00 ",.01)
 ;;54569-5878-00
 ;;9002226.02101,"1197,54569-5878-00 ",.02)
 ;;54569-5878-00
 ;;9002226.02101,"1197,54569-5881-00 ",.01)
 ;;54569-5881-00
 ;;9002226.02101,"1197,54569-5881-00 ",.02)
 ;;54569-5881-00
 ;;9002226.02101,"1197,54569-5901-00 ",.01)
 ;;54569-5901-00
 ;;9002226.02101,"1197,54569-5901-00 ",.02)
 ;;54569-5901-00
 ;;9002226.02101,"1197,54569-5901-01 ",.01)
 ;;54569-5901-01
 ;;9002226.02101,"1197,54569-5901-01 ",.02)
 ;;54569-5901-01
 ;;9002226.02101,"1197,54569-5902-00 ",.01)
 ;;54569-5902-00
 ;;9002226.02101,"1197,54569-5902-00 ",.02)
 ;;54569-5902-00
 ;;9002226.02101,"1197,54569-5902-01 ",.01)
 ;;54569-5902-01
 ;;9002226.02101,"1197,54569-5902-01 ",.02)
 ;;54569-5902-01
 ;;9002226.02101,"1197,54569-5937-00 ",.01)
 ;;54569-5937-00
 ;;9002226.02101,"1197,54569-5937-00 ",.02)
 ;;54569-5937-00
 ;;9002226.02101,"1197,54569-5938-00 ",.01)
 ;;54569-5938-00
 ;;9002226.02101,"1197,54569-5938-00 ",.02)
 ;;54569-5938-00
 ;;9002226.02101,"1197,54569-5951-00 ",.01)
 ;;54569-5951-00
 ;;9002226.02101,"1197,54569-5951-00 ",.02)
 ;;54569-5951-00
 ;;9002226.02101,"1197,54569-6099-00 ",.01)
 ;;54569-6099-00
 ;;9002226.02101,"1197,54569-6099-00 ",.02)
 ;;54569-6099-00
 ;;9002226.02101,"1197,54569-6117-00 ",.01)
 ;;54569-6117-00
 ;;9002226.02101,"1197,54569-6117-00 ",.02)
 ;;54569-6117-00
 ;;9002226.02101,"1197,54738-0904-01 ",.01)
 ;;54738-0904-01
 ;;9002226.02101,"1197,54738-0904-01 ",.02)
 ;;54738-0904-01
 ;;9002226.02101,"1197,54738-0904-03 ",.01)
 ;;54738-0904-03
 ;;9002226.02101,"1197,54738-0904-03 ",.02)
 ;;54738-0904-03
 ;;9002226.02101,"1197,54738-0904-90 ",.01)
 ;;54738-0904-90
 ;;9002226.02101,"1197,54738-0904-90 ",.02)
 ;;54738-0904-90
 ;;9002226.02101,"1197,54738-0905-01 ",.01)
 ;;54738-0905-01
 ;;9002226.02101,"1197,54738-0905-01 ",.02)
 ;;54738-0905-01
 ;;9002226.02101,"1197,54738-0905-03 ",.01)
 ;;54738-0905-03
 ;;9002226.02101,"1197,54738-0905-03 ",.02)
 ;;54738-0905-03
 ;;9002226.02101,"1197,54738-0905-90 ",.01)
 ;;54738-0905-90
 ;;9002226.02101,"1197,54738-0905-90 ",.02)
 ;;54738-0905-90
 ;;9002226.02101,"1197,54738-0906-01 ",.01)
 ;;54738-0906-01
 ;;9002226.02101,"1197,54738-0906-01 ",.02)
 ;;54738-0906-01
 ;;9002226.02101,"1197,54738-0906-03 ",.01)
 ;;54738-0906-03
 ;;9002226.02101,"1197,54738-0906-03 ",.02)
 ;;54738-0906-03
 ;;9002226.02101,"1197,54738-0906-90 ",.01)
 ;;54738-0906-90
 ;;9002226.02101,"1197,54738-0906-90 ",.02)
 ;;54738-0906-90
 ;;9002226.02101,"1197,54868-0120-00 ",.01)
 ;;54868-0120-00
 ;;9002226.02101,"1197,54868-0120-00 ",.02)
 ;;54868-0120-00
 ;;9002226.02101,"1197,54868-0120-01 ",.01)
 ;;54868-0120-01
 ;;9002226.02101,"1197,54868-0120-01 ",.02)
 ;;54868-0120-01
 ;;9002226.02101,"1197,54868-0120-02 ",.01)
 ;;54868-0120-02
 ;;9002226.02101,"1197,54868-0120-02 ",.02)
 ;;54868-0120-02
 ;;9002226.02101,"1197,54868-0120-03 ",.01)
 ;;54868-0120-03
 ;;9002226.02101,"1197,54868-0120-03 ",.02)
 ;;54868-0120-03
 ;;9002226.02101,"1197,54868-0120-04 ",.01)
 ;;54868-0120-04
 ;;9002226.02101,"1197,54868-0120-04 ",.02)
 ;;54868-0120-04
 ;;9002226.02101,"1197,54868-0121-00 ",.01)
 ;;54868-0121-00
 ;;9002226.02101,"1197,54868-0121-00 ",.02)
 ;;54868-0121-00
 ;;9002226.02101,"1197,54868-0121-01 ",.01)
 ;;54868-0121-01
 ;;9002226.02101,"1197,54868-0121-01 ",.02)
 ;;54868-0121-01
 ;;9002226.02101,"1197,54868-0121-02 ",.01)
 ;;54868-0121-02
 ;;9002226.02101,"1197,54868-0121-02 ",.02)
 ;;54868-0121-02
 ;;9002226.02101,"1197,54868-0121-05 ",.01)
 ;;54868-0121-05
 ;;9002226.02101,"1197,54868-0121-05 ",.02)
 ;;54868-0121-05
 ;;9002226.02101,"1197,54868-0121-06 ",.01)
 ;;54868-0121-06
 ;;9002226.02101,"1197,54868-0121-06 ",.02)
 ;;54868-0121-06
 ;;9002226.02101,"1197,54868-0671-00 ",.01)
 ;;54868-0671-00
 ;;9002226.02101,"1197,54868-0671-00 ",.02)
 ;;54868-0671-00
 ;;9002226.02101,"1197,54868-0823-00 ",.01)
 ;;54868-0823-00
 ;;9002226.02101,"1197,54868-0823-00 ",.02)
 ;;54868-0823-00
 ;;9002226.02101,"1197,54868-0826-00 ",.01)
 ;;54868-0826-00
 ;;9002226.02101,"1197,54868-0826-00 ",.02)
 ;;54868-0826-00
 ;;9002226.02101,"1197,54868-0826-01 ",.01)
 ;;54868-0826-01
 ;;9002226.02101,"1197,54868-0826-01 ",.02)
 ;;54868-0826-01
 ;;9002226.02101,"1197,54868-0826-02 ",.01)
 ;;54868-0826-02
 ;;9002226.02101,"1197,54868-0826-02 ",.02)
 ;;54868-0826-02
 ;;9002226.02101,"1197,54868-0933-00 ",.01)
 ;;54868-0933-00
 ;;9002226.02101,"1197,54868-0933-00 ",.02)
 ;;54868-0933-00
 ;;9002226.02101,"1197,54868-1005-00 ",.01)
 ;;54868-1005-00
 ;;9002226.02101,"1197,54868-1005-00 ",.02)
 ;;54868-1005-00
 ;;9002226.02101,"1197,54868-1006-02 ",.01)
 ;;54868-1006-02
 ;;9002226.02101,"1197,54868-1006-02 ",.02)
 ;;54868-1006-02
 ;;9002226.02101,"1197,54868-1006-03 ",.01)
 ;;54868-1006-03
 ;;9002226.02101,"1197,54868-1006-03 ",.02)
 ;;54868-1006-03
 ;;9002226.02101,"1197,54868-1008-00 ",.01)
 ;;54868-1008-00