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

BGP71V20.m

Go to the documentation of this file.
BGP71V20 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,"1220,51138-0388-30 ",.01)
 ;;51138-0388-30
 ;;9002226.02101,"1220,51138-0388-30 ",.02)
 ;;51138-0388-30
 ;;9002226.02101,"1220,51138-0389-10 ",.01)
 ;;51138-0389-10
 ;;9002226.02101,"1220,51138-0389-10 ",.02)
 ;;51138-0389-10
 ;;9002226.02101,"1220,51138-0389-30 ",.01)
 ;;51138-0389-30
 ;;9002226.02101,"1220,51138-0389-30 ",.02)
 ;;51138-0389-30
 ;;9002226.02101,"1220,51138-0390-10 ",.01)
 ;;51138-0390-10
 ;;9002226.02101,"1220,51138-0390-10 ",.02)
 ;;51138-0390-10
 ;;9002226.02101,"1220,51138-0390-30 ",.01)
 ;;51138-0390-30
 ;;9002226.02101,"1220,51138-0390-30 ",.02)
 ;;51138-0390-30
 ;;9002226.02101,"1220,51138-0391-10 ",.01)
 ;;51138-0391-10
 ;;9002226.02101,"1220,51138-0391-10 ",.02)
 ;;51138-0391-10
 ;;9002226.02101,"1220,51138-0391-30 ",.01)
 ;;51138-0391-30
 ;;9002226.02101,"1220,51138-0391-30 ",.02)
 ;;51138-0391-30
 ;;9002226.02101,"1220,51138-0418-30 ",.01)
 ;;51138-0418-30
 ;;9002226.02101,"1220,51138-0418-30 ",.02)
 ;;51138-0418-30
 ;;9002226.02101,"1220,51138-0419-30 ",.01)
 ;;51138-0419-30
 ;;9002226.02101,"1220,51138-0419-30 ",.02)
 ;;51138-0419-30
 ;;9002226.02101,"1220,51138-0420-30 ",.01)
 ;;51138-0420-30
 ;;9002226.02101,"1220,51138-0420-30 ",.02)
 ;;51138-0420-30
 ;;9002226.02101,"1220,51138-0422-30 ",.01)
 ;;51138-0422-30
 ;;9002226.02101,"1220,51138-0422-30 ",.02)
 ;;51138-0422-30
 ;;9002226.02101,"1220,51138-0432-30 ",.01)
 ;;51138-0432-30
 ;;9002226.02101,"1220,51138-0432-30 ",.02)
 ;;51138-0432-30
 ;;9002226.02101,"1220,51138-0433-30 ",.01)
 ;;51138-0433-30
 ;;9002226.02101,"1220,51138-0433-30 ",.02)
 ;;51138-0433-30
 ;;9002226.02101,"1220,51138-0434-30 ",.01)
 ;;51138-0434-30
 ;;9002226.02101,"1220,51138-0434-30 ",.02)
 ;;51138-0434-30
 ;;9002226.02101,"1220,51138-0435-30 ",.01)
 ;;51138-0435-30
 ;;9002226.02101,"1220,51138-0435-30 ",.02)
 ;;51138-0435-30
 ;;9002226.02101,"1220,51138-0531-10 ",.01)
 ;;51138-0531-10
 ;;9002226.02101,"1220,51138-0531-10 ",.02)
 ;;51138-0531-10
 ;;9002226.02101,"1220,51138-0531-30 ",.01)
 ;;51138-0531-30
 ;;9002226.02101,"1220,51138-0531-30 ",.02)
 ;;51138-0531-30
 ;;9002226.02101,"1220,51138-0532-10 ",.01)
 ;;51138-0532-10
 ;;9002226.02101,"1220,51138-0532-10 ",.02)
 ;;51138-0532-10
 ;;9002226.02101,"1220,51138-0532-30 ",.01)
 ;;51138-0532-30
 ;;9002226.02101,"1220,51138-0532-30 ",.02)
 ;;51138-0532-30
 ;;9002226.02101,"1220,51138-0533-10 ",.01)
 ;;51138-0533-10
 ;;9002226.02101,"1220,51138-0533-10 ",.02)
 ;;51138-0533-10
 ;;9002226.02101,"1220,51138-0533-30 ",.01)
 ;;51138-0533-30
 ;;9002226.02101,"1220,51138-0533-30 ",.02)
 ;;51138-0533-30
 ;;9002226.02101,"1220,51138-0534-10 ",.01)
 ;;51138-0534-10
 ;;9002226.02101,"1220,51138-0534-10 ",.02)
 ;;51138-0534-10
 ;;9002226.02101,"1220,51138-0534-30 ",.01)
 ;;51138-0534-30
 ;;9002226.02101,"1220,51138-0534-30 ",.02)
 ;;51138-0534-30
 ;;9002226.02101,"1220,51138-0535-10 ",.01)
 ;;51138-0535-10
 ;;9002226.02101,"1220,51138-0535-10 ",.02)
 ;;51138-0535-10
 ;;9002226.02101,"1220,51138-0535-30 ",.01)
 ;;51138-0535-30
 ;;9002226.02101,"1220,51138-0535-30 ",.02)
 ;;51138-0535-30
 ;;9002226.02101,"1220,51138-0536-10 ",.01)
 ;;51138-0536-10
 ;;9002226.02101,"1220,51138-0536-10 ",.02)
 ;;51138-0536-10
 ;;9002226.02101,"1220,51138-0536-30 ",.01)
 ;;51138-0536-30
 ;;9002226.02101,"1220,51138-0536-30 ",.02)
 ;;51138-0536-30
 ;;9002226.02101,"1220,51138-0544-30 ",.01)
 ;;51138-0544-30
 ;;9002226.02101,"1220,51138-0544-30 ",.02)
 ;;51138-0544-30
 ;;9002226.02101,"1220,51138-0545-30 ",.01)
 ;;51138-0545-30
 ;;9002226.02101,"1220,51138-0545-30 ",.02)
 ;;51138-0545-30
 ;;9002226.02101,"1220,51138-0546-30 ",.01)
 ;;51138-0546-30
 ;;9002226.02101,"1220,51138-0546-30 ",.02)
 ;;51138-0546-30
 ;;9002226.02101,"1220,51138-0547-30 ",.01)
 ;;51138-0547-30
 ;;9002226.02101,"1220,51138-0547-30 ",.02)
 ;;51138-0547-30
 ;;9002226.02101,"1220,51138-0548-30 ",.01)
 ;;51138-0548-30
 ;;9002226.02101,"1220,51138-0548-30 ",.02)
 ;;51138-0548-30
 ;;9002226.02101,"1220,51138-0557-30 ",.01)
 ;;51138-0557-30
 ;;9002226.02101,"1220,51138-0557-30 ",.02)
 ;;51138-0557-30
 ;;9002226.02101,"1220,51138-0558-30 ",.01)
 ;;51138-0558-30
 ;;9002226.02101,"1220,51138-0558-30 ",.02)
 ;;51138-0558-30
 ;;9002226.02101,"1220,51138-0559-30 ",.01)
 ;;51138-0559-30
 ;;9002226.02101,"1220,51138-0559-30 ",.02)
 ;;51138-0559-30
 ;;9002226.02101,"1220,51138-0560-30 ",.01)
 ;;51138-0560-30
 ;;9002226.02101,"1220,51138-0560-30 ",.02)
 ;;51138-0560-30
 ;;9002226.02101,"1220,52544-0484-01 ",.01)
 ;;52544-0484-01
 ;;9002226.02101,"1220,52544-0484-01 ",.02)
 ;;52544-0484-01
 ;;9002226.02101,"1220,52544-0691-19 ",.01)
 ;;52544-0691-19
 ;;9002226.02101,"1220,52544-0691-19 ",.02)
 ;;52544-0691-19
 ;;9002226.02101,"1220,52544-0691-30 ",.01)
 ;;52544-0691-30
 ;;9002226.02101,"1220,52544-0691-30 ",.02)
 ;;52544-0691-30
 ;;9002226.02101,"1220,52544-0692-19 ",.01)
 ;;52544-0692-19
 ;;9002226.02101,"1220,52544-0692-19 ",.02)
 ;;52544-0692-19
 ;;9002226.02101,"1220,52544-0692-30 ",.01)
 ;;52544-0692-30
 ;;9002226.02101,"1220,52544-0692-30 ",.02)
 ;;52544-0692-30
 ;;9002226.02101,"1220,52544-0693-19 ",.01)
 ;;52544-0693-19
 ;;9002226.02101,"1220,52544-0693-19 ",.02)
 ;;52544-0693-19
 ;;9002226.02101,"1220,52544-0693-30 ",.01)
 ;;52544-0693-30
 ;;9002226.02101,"1220,52544-0693-30 ",.02)
 ;;52544-0693-30
 ;;9002226.02101,"1220,52544-0694-19 ",.01)
 ;;52544-0694-19
 ;;9002226.02101,"1220,52544-0694-19 ",.02)
 ;;52544-0694-19
 ;;9002226.02101,"1220,52544-0694-30 ",.01)
 ;;52544-0694-30
 ;;9002226.02101,"1220,52544-0694-30 ",.02)
 ;;52544-0694-30
 ;;9002226.02101,"1220,52544-0695-19 ",.01)
 ;;52544-0695-19
 ;;9002226.02101,"1220,52544-0695-19 ",.02)
 ;;52544-0695-19
 ;;9002226.02101,"1220,52544-0695-30 ",.01)
 ;;52544-0695-30
 ;;9002226.02101,"1220,52544-0695-30 ",.02)
 ;;52544-0695-30
 ;;9002226.02101,"1220,52959-0050-30 ",.01)
 ;;52959-0050-30
 ;;9002226.02101,"1220,52959-0050-30 ",.02)
 ;;52959-0050-30
 ;;9002226.02101,"1220,52959-0072-01 ",.01)
 ;;52959-0072-01
 ;;9002226.02101,"1220,52959-0072-01 ",.02)
 ;;52959-0072-01
 ;;9002226.02101,"1220,52959-0209-90 ",.01)
 ;;52959-0209-90
 ;;9002226.02101,"1220,52959-0209-90 ",.02)
 ;;52959-0209-90
 ;;9002226.02101,"1220,52959-0910-90 ",.01)
 ;;52959-0910-90
 ;;9002226.02101,"1220,52959-0910-90 ",.02)
 ;;52959-0910-90
 ;;9002226.02101,"1220,52959-0911-30 ",.01)
 ;;52959-0911-30
 ;;9002226.02101,"1220,52959-0911-30 ",.02)
 ;;52959-0911-30
 ;;9002226.02101,"1220,52959-0911-90 ",.01)
 ;;52959-0911-90
 ;;9002226.02101,"1220,52959-0911-90 ",.02)
 ;;52959-0911-90
 ;;9002226.02101,"1220,52959-0982-60 ",.01)
 ;;52959-0982-60
 ;;9002226.02101,"1220,52959-0982-60 ",.02)
 ;;52959-0982-60
 ;;9002226.02101,"1220,52959-0996-60 ",.01)
 ;;52959-0996-60
 ;;9002226.02101,"1220,52959-0996-60 ",.02)
 ;;52959-0996-60
 ;;9002226.02101,"1220,53002-1129-00 ",.01)
 ;;53002-1129-00
 ;;9002226.02101,"1220,53002-1129-00 ",.02)
 ;;53002-1129-00
 ;;9002226.02101,"1220,53002-1129-03 ",.01)
 ;;53002-1129-03
 ;;9002226.02101,"1220,53002-1129-03 ",.02)
 ;;53002-1129-03
 ;;9002226.02101,"1220,53002-1205-00 ",.01)
 ;;53002-1205-00
 ;;9002226.02101,"1220,53002-1205-00 ",.02)
 ;;53002-1205-00
 ;;9002226.02101,"1220,53002-1205-03 ",.01)
 ;;53002-1205-03
 ;;9002226.02101,"1220,53002-1205-03 ",.02)
 ;;53002-1205-03
 ;;9002226.02101,"1220,53002-1467-00 ",.01)
 ;;53002-1467-00
 ;;9002226.02101,"1220,53002-1467-00 ",.02)
 ;;53002-1467-00
 ;;9002226.02101,"1220,53002-1467-03 ",.01)
 ;;53002-1467-03
 ;;9002226.02101,"1220,53002-1467-03 ",.02)
 ;;53002-1467-03
 ;;9002226.02101,"1220,53217-0006-30 ",.01)
 ;;53217-0006-30
 ;;9002226.02101,"1220,53217-0006-30 ",.02)
 ;;53217-0006-30
 ;;9002226.02101,"1220,53217-0006-60 ",.01)
 ;;53217-0006-60
 ;;9002226.02101,"1220,53217-0006-60 ",.02)
 ;;53217-0006-60
 ;;9002226.02101,"1220,53217-0006-90 ",.01)
 ;;53217-0006-90
 ;;9002226.02101,"1220,53217-0006-90 ",.02)
 ;;53217-0006-90
 ;;9002226.02101,"1220,53217-0010-30 ",.01)
 ;;53217-0010-30
 ;;9002226.02101,"1220,53217-0010-30 ",.02)
 ;;53217-0010-30
 ;;9002226.02101,"1220,53217-0010-60 ",.01)
 ;;53217-0010-60
 ;;9002226.02101,"1220,53217-0010-60 ",.02)
 ;;53217-0010-60
 ;;9002226.02101,"1220,53217-0010-90 ",.01)
 ;;53217-0010-90
 ;;9002226.02101,"1220,53217-0010-90 ",.02)
 ;;53217-0010-90
 ;;9002226.02101,"1220,53217-0118-30 ",.01)
 ;;53217-0118-30
 ;;9002226.02101,"1220,53217-0118-30 ",.02)
 ;;53217-0118-30
 ;;9002226.02101,"1220,53217-0118-60 ",.01)
 ;;53217-0118-60
 ;;9002226.02101,"1220,53217-0118-60 ",.02)
 ;;53217-0118-60
 ;;9002226.02101,"1220,53217-0118-90 ",.01)
 ;;53217-0118-90
 ;;9002226.02101,"1220,53217-0118-90 ",.02)
 ;;53217-0118-90
 ;;9002226.02101,"1220,53489-0368-01 ",.01)
 ;;53489-0368-01
 ;;9002226.02101,"1220,53489-0368-01 ",.02)
 ;;53489-0368-01
 ;;9002226.02101,"1220,53489-0369-01 ",.01)
 ;;53489-0369-01
 ;;9002226.02101,"1220,53489-0369-01 ",.02)
 ;;53489-0369-01
 ;;9002226.02101,"1220,53489-0370-01 ",.01)
 ;;53489-0370-01
 ;;9002226.02101,"1220,53489-0370-01 ",.02)
 ;;53489-0370-01
 ;;9002226.02101,"1220,54458-0895-02 ",.01)
 ;;54458-0895-02
 ;;9002226.02101,"1220,54458-0895-02 ",.02)
 ;;54458-0895-02
 ;;9002226.02101,"1220,54458-0903-02 ",.01)
 ;;54458-0903-02
 ;;9002226.02101,"1220,54458-0903-02 ",.02)
 ;;54458-0903-02
 ;;9002226.02101,"1220,54458-0904-02 ",.01)
 ;;54458-0904-02
 ;;9002226.02101,"1220,54458-0904-02 ",.02)
 ;;54458-0904-02
 ;;9002226.02101,"1220,54458-0948-08 ",.01)
 ;;54458-0948-08
 ;;9002226.02101,"1220,54458-0948-08 ",.02)
 ;;54458-0948-08
 ;;9002226.02101,"1220,54458-0950-10 ",.01)
 ;;54458-0950-10
 ;;9002226.02101,"1220,54458-0950-10 ",.02)
 ;;54458-0950-10
 ;;9002226.02101,"1220,54569-0646-00 ",.01)
 ;;54569-0646-00
 ;;9002226.02101,"1220,54569-0646-00 ",.02)
 ;;54569-0646-00
 ;;9002226.02101,"1220,54569-0646-02 ",.01)
 ;;54569-0646-02
 ;;9002226.02101,"1220,54569-0646-02 ",.02)
 ;;54569-0646-02
 ;;9002226.02101,"1220,54569-3667-02 ",.01)
 ;;54569-3667-02
 ;;9002226.02101,"1220,54569-3667-02 ",.02)
 ;;54569-3667-02
 ;;9002226.02101,"1220,54569-3691-00 ",.01)
 ;;54569-3691-00
 ;;9002226.02101,"1220,54569-3691-00 ",.02)
 ;;54569-3691-00
 ;;9002226.02101,"1220,54569-3691-04 ",.01)
 ;;54569-3691-04
 ;;9002226.02101,"1220,54569-3691-04 ",.02)
 ;;54569-3691-04
 ;;9002226.02101,"1220,54569-3866-01 ",.01)
 ;;54569-3866-01
 ;;9002226.02101,"1220,54569-3866-01 ",.02)
 ;;54569-3866-01
 ;;9002226.02101,"1220,54569-4447-04 ",.01)
 ;;54569-4447-04
 ;;9002226.02101,"1220,54569-4447-04 ",.02)
 ;;54569-4447-04
 ;;9002226.02101,"1220,54569-4472-00 ",.01)
 ;;54569-4472-00
 ;;9002226.02101,"1220,54569-4472-00 ",.02)
 ;;54569-4472-00
 ;;9002226.02101,"1220,54569-4913-00 ",.01)
 ;;54569-4913-00
 ;;9002226.02101,"1220,54569-4913-00 ",.02)
 ;;54569-4913-00
 ;;9002226.02101,"1220,54569-4914-00 ",.01)
 ;;54569-4914-00
 ;;9002226.02101,"1220,54569-4914-00 ",.02)
 ;;54569-4914-00
 ;;9002226.02101,"1220,54569-4914-01 ",.01)
 ;;54569-4914-01
 ;;9002226.02101,"1220,54569-4914-01 ",.02)
 ;;54569-4914-01
 ;;9002226.02101,"1220,54569-5155-00 ",.01)
 ;;54569-5155-00
 ;;9002226.02101,"1220,54569-5155-00 ",.02)
 ;;54569-5155-00
 ;;9002226.02101,"1220,54569-5155-01 ",.01)
 ;;54569-5155-01
 ;;9002226.02101,"1220,54569-5155-01 ",.02)
 ;;54569-5155-01
 ;;9002226.02101,"1220,54569-5155-02 ",.01)
 ;;54569-5155-02
 ;;9002226.02101,"1220,54569-5155-02 ",.02)
 ;;54569-5155-02
 ;;9002226.02101,"1220,54569-5156-00 ",.01)
 ;;54569-5156-00
 ;;9002226.02101,"1220,54569-5156-00 ",.02)
 ;;54569-5156-00
 ;;9002226.02101,"1220,54569-5156-01 ",.01)
 ;;54569-5156-01
 ;;9002226.02101,"1220,54569-5156-01 ",.02)
 ;;54569-5156-01
 ;;9002226.02101,"1220,54569-5156-02 ",.01)
 ;;54569-5156-02