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

BGP47Z20.m

Go to the documentation of this file.
BGP47Z20 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,52544-0344-01 ",.01)
 ;;52544-0344-01
 ;;9002226.02101,"1197,52544-0344-01 ",.02)
 ;;52544-0344-01
 ;;9002226.02101,"1197,52544-0344-05 ",.01)
 ;;52544-0344-05
 ;;9002226.02101,"1197,52544-0344-05 ",.02)
 ;;52544-0344-05
 ;;9002226.02101,"1197,52544-0344-10 ",.01)
 ;;52544-0344-10
 ;;9002226.02101,"1197,52544-0344-10 ",.02)
 ;;52544-0344-10
 ;;9002226.02101,"1197,52544-0345-01 ",.01)
 ;;52544-0345-01
 ;;9002226.02101,"1197,52544-0345-01 ",.02)
 ;;52544-0345-01
 ;;9002226.02101,"1197,52544-0345-05 ",.01)
 ;;52544-0345-05
 ;;9002226.02101,"1197,52544-0345-05 ",.02)
 ;;52544-0345-05
 ;;9002226.02101,"1197,52544-0345-10 ",.01)
 ;;52544-0345-10
 ;;9002226.02101,"1197,52544-0345-10 ",.02)
 ;;52544-0345-10
 ;;9002226.02101,"1197,52544-0346-01 ",.01)
 ;;52544-0346-01
 ;;9002226.02101,"1197,52544-0346-01 ",.02)
 ;;52544-0346-01
 ;;9002226.02101,"1197,52544-0346-05 ",.01)
 ;;52544-0346-05
 ;;9002226.02101,"1197,52544-0346-05 ",.02)
 ;;52544-0346-05
 ;;9002226.02101,"1197,52544-0346-10 ",.01)
 ;;52544-0346-10
 ;;9002226.02101,"1197,52544-0346-10 ",.02)
 ;;52544-0346-10
 ;;9002226.02101,"1197,52544-0482-01 ",.01)
 ;;52544-0482-01
 ;;9002226.02101,"1197,52544-0482-01 ",.02)
 ;;52544-0482-01
 ;;9002226.02101,"1197,52544-0482-05 ",.01)
 ;;52544-0482-05
 ;;9002226.02101,"1197,52544-0482-05 ",.02)
 ;;52544-0482-05
 ;;9002226.02101,"1197,52544-0483-01 ",.01)
 ;;52544-0483-01
 ;;9002226.02101,"1197,52544-0483-01 ",.02)
 ;;52544-0483-01
 ;;9002226.02101,"1197,52544-0483-05 ",.01)
 ;;52544-0483-05
 ;;9002226.02101,"1197,52544-0483-05 ",.02)
 ;;52544-0483-05
 ;;9002226.02101,"1197,52544-0484-01 ",.01)
 ;;52544-0484-01
 ;;9002226.02101,"1197,52544-0484-01 ",.02)
 ;;52544-0484-01
 ;;9002226.02101,"1197,52544-0484-05 ",.01)
 ;;52544-0484-05
 ;;9002226.02101,"1197,52544-0484-05 ",.02)
 ;;52544-0484-05
 ;;9002226.02101,"1197,52544-0691-19 ",.01)
 ;;52544-0691-19
 ;;9002226.02101,"1197,52544-0691-19 ",.02)
 ;;52544-0691-19
 ;;9002226.02101,"1197,52544-0691-30 ",.01)
 ;;52544-0691-30
 ;;9002226.02101,"1197,52544-0691-30 ",.02)
 ;;52544-0691-30
 ;;9002226.02101,"1197,52544-0692-19 ",.01)
 ;;52544-0692-19
 ;;9002226.02101,"1197,52544-0692-19 ",.02)
 ;;52544-0692-19
 ;;9002226.02101,"1197,52544-0692-30 ",.01)
 ;;52544-0692-30
 ;;9002226.02101,"1197,52544-0692-30 ",.02)
 ;;52544-0692-30
 ;;9002226.02101,"1197,52544-0693-19 ",.01)
 ;;52544-0693-19
 ;;9002226.02101,"1197,52544-0693-19 ",.02)
 ;;52544-0693-19
 ;;9002226.02101,"1197,52544-0693-30 ",.01)
 ;;52544-0693-30
 ;;9002226.02101,"1197,52544-0693-30 ",.02)
 ;;52544-0693-30
 ;;9002226.02101,"1197,52544-0694-19 ",.01)
 ;;52544-0694-19
 ;;9002226.02101,"1197,52544-0694-19 ",.02)
 ;;52544-0694-19
 ;;9002226.02101,"1197,52544-0694-30 ",.01)
 ;;52544-0694-30
 ;;9002226.02101,"1197,52544-0694-30 ",.02)
 ;;52544-0694-30
 ;;9002226.02101,"1197,52544-0695-19 ",.01)
 ;;52544-0695-19
 ;;9002226.02101,"1197,52544-0695-19 ",.02)
 ;;52544-0695-19
 ;;9002226.02101,"1197,52544-0695-30 ",.01)
 ;;52544-0695-30
 ;;9002226.02101,"1197,52544-0695-30 ",.02)
 ;;52544-0695-30
 ;;9002226.02101,"1197,52544-0775-01 ",.01)
 ;;52544-0775-01
 ;;9002226.02101,"1197,52544-0775-01 ",.02)
 ;;52544-0775-01
 ;;9002226.02101,"1197,52544-0775-05 ",.01)
 ;;52544-0775-05
 ;;9002226.02101,"1197,52544-0775-05 ",.02)
 ;;52544-0775-05
 ;;9002226.02101,"1197,52544-0776-01 ",.01)
 ;;52544-0776-01
 ;;9002226.02101,"1197,52544-0776-01 ",.02)
 ;;52544-0776-01
 ;;9002226.02101,"1197,52544-0776-05 ",.01)
 ;;52544-0776-05
 ;;9002226.02101,"1197,52544-0776-05 ",.02)
 ;;52544-0776-05
 ;;9002226.02101,"1197,52544-0777-01 ",.01)
 ;;52544-0777-01
 ;;9002226.02101,"1197,52544-0777-01 ",.02)
 ;;52544-0777-01
 ;;9002226.02101,"1197,52544-0778-01 ",.01)
 ;;52544-0778-01
 ;;9002226.02101,"1197,52544-0778-01 ",.02)
 ;;52544-0778-01
 ;;9002226.02101,"1197,52544-0865-10 ",.01)
 ;;52544-0865-10
 ;;9002226.02101,"1197,52544-0865-10 ",.02)
 ;;52544-0865-10
 ;;9002226.02101,"1197,52959-0050-30 ",.01)
 ;;52959-0050-30
 ;;9002226.02101,"1197,52959-0050-30 ",.02)
 ;;52959-0050-30
 ;;9002226.02101,"1197,52959-0072-01 ",.01)
 ;;52959-0072-01
 ;;9002226.02101,"1197,52959-0072-01 ",.02)
 ;;52959-0072-01
 ;;9002226.02101,"1197,52959-0209-90 ",.01)
 ;;52959-0209-90
 ;;9002226.02101,"1197,52959-0209-90 ",.02)
 ;;52959-0209-90
 ;;9002226.02101,"1197,52959-0910-90 ",.01)
 ;;52959-0910-90
 ;;9002226.02101,"1197,52959-0910-90 ",.02)
 ;;52959-0910-90
 ;;9002226.02101,"1197,52959-0911-30 ",.01)
 ;;52959-0911-30
 ;;9002226.02101,"1197,52959-0911-30 ",.02)
 ;;52959-0911-30
 ;;9002226.02101,"1197,52959-0911-90 ",.01)
 ;;52959-0911-90
 ;;9002226.02101,"1197,52959-0911-90 ",.02)
 ;;52959-0911-90
 ;;9002226.02101,"1197,52959-0982-60 ",.01)
 ;;52959-0982-60
 ;;9002226.02101,"1197,52959-0982-60 ",.02)
 ;;52959-0982-60
 ;;9002226.02101,"1197,52959-0996-60 ",.01)
 ;;52959-0996-60
 ;;9002226.02101,"1197,52959-0996-60 ",.02)
 ;;52959-0996-60
 ;;9002226.02101,"1197,53002-1129-00 ",.01)
 ;;53002-1129-00
 ;;9002226.02101,"1197,53002-1129-00 ",.02)
 ;;53002-1129-00
 ;;9002226.02101,"1197,53002-1129-03 ",.01)
 ;;53002-1129-03
 ;;9002226.02101,"1197,53002-1129-03 ",.02)
 ;;53002-1129-03
 ;;9002226.02101,"1197,53002-1205-00 ",.01)
 ;;53002-1205-00
 ;;9002226.02101,"1197,53002-1205-00 ",.02)
 ;;53002-1205-00
 ;;9002226.02101,"1197,53002-1205-03 ",.01)
 ;;53002-1205-03
 ;;9002226.02101,"1197,53002-1205-03 ",.02)
 ;;53002-1205-03
 ;;9002226.02101,"1197,53002-1467-00 ",.01)
 ;;53002-1467-00
 ;;9002226.02101,"1197,53002-1467-00 ",.02)
 ;;53002-1467-00
 ;;9002226.02101,"1197,53002-1467-03 ",.01)
 ;;53002-1467-03
 ;;9002226.02101,"1197,53002-1467-03 ",.02)
 ;;53002-1467-03
 ;;9002226.02101,"1197,53489-0368-01 ",.01)
 ;;53489-0368-01
 ;;9002226.02101,"1197,53489-0368-01 ",.02)
 ;;53489-0368-01
 ;;9002226.02101,"1197,53489-0369-01 ",.01)
 ;;53489-0369-01
 ;;9002226.02101,"1197,53489-0369-01 ",.02)
 ;;53489-0369-01
 ;;9002226.02101,"1197,53489-0370-01 ",.01)
 ;;53489-0370-01
 ;;9002226.02101,"1197,53489-0370-01 ",.02)
 ;;53489-0370-01
 ;;9002226.02101,"1197,53746-0006-01 ",.01)
 ;;53746-0006-01
 ;;9002226.02101,"1197,53746-0006-01 ",.02)
 ;;53746-0006-01
 ;;9002226.02101,"1197,53746-0006-05 ",.01)
 ;;53746-0006-05
 ;;9002226.02101,"1197,53746-0006-05 ",.02)
 ;;53746-0006-05
 ;;9002226.02101,"1197,53746-0007-01 ",.01)
 ;;53746-0007-01
 ;;9002226.02101,"1197,53746-0007-01 ",.02)
 ;;53746-0007-01
 ;;9002226.02101,"1197,53746-0007-05 ",.01)
 ;;53746-0007-05
 ;;9002226.02101,"1197,53746-0007-05 ",.02)
 ;;53746-0007-05
 ;;9002226.02101,"1197,53746-0008-01 ",.01)
 ;;53746-0008-01
 ;;9002226.02101,"1197,53746-0008-01 ",.02)
 ;;53746-0008-01
 ;;9002226.02101,"1197,53746-0008-05 ",.01)
 ;;53746-0008-05
 ;;9002226.02101,"1197,53746-0008-05 ",.02)
 ;;53746-0008-05
 ;;9002226.02101,"1197,54458-0895-02 ",.01)
 ;;54458-0895-02
 ;;9002226.02101,"1197,54458-0895-02 ",.02)
 ;;54458-0895-02
 ;;9002226.02101,"1197,54458-0903-02 ",.01)
 ;;54458-0903-02
 ;;9002226.02101,"1197,54458-0903-02 ",.02)
 ;;54458-0903-02
 ;;9002226.02101,"1197,54458-0904-02 ",.01)
 ;;54458-0904-02
 ;;9002226.02101,"1197,54458-0904-02 ",.02)
 ;;54458-0904-02
 ;;9002226.02101,"1197,54458-0948-08 ",.01)
 ;;54458-0948-08
 ;;9002226.02101,"1197,54458-0948-08 ",.02)
 ;;54458-0948-08
 ;;9002226.02101,"1197,54458-0950-10 ",.01)
 ;;54458-0950-10
 ;;9002226.02101,"1197,54458-0950-10 ",.02)
 ;;54458-0950-10
 ;;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-3691-04 ",.01)
 ;;54569-3691-04
 ;;9002226.02101,"1197,54569-3691-04 ",.02)
 ;;54569-3691-04
 ;;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