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

BGP83A35.m

Go to the documentation of this file.
BGP83A35 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"1828,63629-2954-03 ",.02)
 ;;63629-2954-03
 ;;9002226.02101,"1828,63629-2954-04 ",.01)
 ;;63629-2954-04
 ;;9002226.02101,"1828,63629-2954-04 ",.02)
 ;;63629-2954-04
 ;;9002226.02101,"1828,63629-2955-01 ",.01)
 ;;63629-2955-01
 ;;9002226.02101,"1828,63629-2955-01 ",.02)
 ;;63629-2955-01
 ;;9002226.02101,"1828,63629-2955-02 ",.01)
 ;;63629-2955-02
 ;;9002226.02101,"1828,63629-2955-02 ",.02)
 ;;63629-2955-02
 ;;9002226.02101,"1828,63629-2955-03 ",.01)
 ;;63629-2955-03
 ;;9002226.02101,"1828,63629-2955-03 ",.02)
 ;;63629-2955-03
 ;;9002226.02101,"1828,63629-2955-04 ",.01)
 ;;63629-2955-04
 ;;9002226.02101,"1828,63629-2955-04 ",.02)
 ;;63629-2955-04
 ;;9002226.02101,"1828,63629-2955-05 ",.01)
 ;;63629-2955-05
 ;;9002226.02101,"1828,63629-2955-05 ",.02)
 ;;63629-2955-05
 ;;9002226.02101,"1828,63629-2955-06 ",.01)
 ;;63629-2955-06
 ;;9002226.02101,"1828,63629-2955-06 ",.02)
 ;;63629-2955-06
 ;;9002226.02101,"1828,63629-2955-07 ",.01)
 ;;63629-2955-07
 ;;9002226.02101,"1828,63629-2955-07 ",.02)
 ;;63629-2955-07
 ;;9002226.02101,"1828,63629-2956-01 ",.01)
 ;;63629-2956-01
 ;;9002226.02101,"1828,63629-2956-01 ",.02)
 ;;63629-2956-01
 ;;9002226.02101,"1828,63629-2956-02 ",.01)
 ;;63629-2956-02
 ;;9002226.02101,"1828,63629-2956-02 ",.02)
 ;;63629-2956-02
 ;;9002226.02101,"1828,63629-2956-03 ",.01)
 ;;63629-2956-03
 ;;9002226.02101,"1828,63629-2956-03 ",.02)
 ;;63629-2956-03
 ;;9002226.02101,"1828,63629-2956-04 ",.01)
 ;;63629-2956-04
 ;;9002226.02101,"1828,63629-2956-04 ",.02)
 ;;63629-2956-04
 ;;9002226.02101,"1828,63629-2956-05 ",.01)
 ;;63629-2956-05
 ;;9002226.02101,"1828,63629-2956-05 ",.02)
 ;;63629-2956-05
 ;;9002226.02101,"1828,63629-2956-06 ",.01)
 ;;63629-2956-06
 ;;9002226.02101,"1828,63629-2956-06 ",.02)
 ;;63629-2956-06
 ;;9002226.02101,"1828,63629-3034-01 ",.01)
 ;;63629-3034-01
 ;;9002226.02101,"1828,63629-3034-01 ",.02)
 ;;63629-3034-01
 ;;9002226.02101,"1828,63629-3034-02 ",.01)
 ;;63629-3034-02
 ;;9002226.02101,"1828,63629-3034-02 ",.02)
 ;;63629-3034-02
 ;;9002226.02101,"1828,63629-3200-01 ",.01)
 ;;63629-3200-01
 ;;9002226.02101,"1828,63629-3200-01 ",.02)
 ;;63629-3200-01
 ;;9002226.02101,"1828,63629-3200-02 ",.01)
 ;;63629-3200-02
 ;;9002226.02101,"1828,63629-3200-02 ",.02)
 ;;63629-3200-02
 ;;9002226.02101,"1828,63629-3308-01 ",.01)
 ;;63629-3308-01
 ;;9002226.02101,"1828,63629-3308-01 ",.02)
 ;;63629-3308-01
 ;;9002226.02101,"1828,63629-3308-02 ",.01)
 ;;63629-3308-02
 ;;9002226.02101,"1828,63629-3308-02 ",.02)
 ;;63629-3308-02
 ;;9002226.02101,"1828,63629-3308-03 ",.01)
 ;;63629-3308-03
 ;;9002226.02101,"1828,63629-3308-03 ",.02)
 ;;63629-3308-03
 ;;9002226.02101,"1828,63629-3308-04 ",.01)
 ;;63629-3308-04
 ;;9002226.02101,"1828,63629-3308-04 ",.02)
 ;;63629-3308-04
 ;;9002226.02101,"1828,63629-3339-01 ",.01)
 ;;63629-3339-01
 ;;9002226.02101,"1828,63629-3339-01 ",.02)
 ;;63629-3339-01
 ;;9002226.02101,"1828,63629-3339-02 ",.01)
 ;;63629-3339-02
 ;;9002226.02101,"1828,63629-3339-02 ",.02)
 ;;63629-3339-02
 ;;9002226.02101,"1828,63629-3339-03 ",.01)
 ;;63629-3339-03
 ;;9002226.02101,"1828,63629-3339-03 ",.02)
 ;;63629-3339-03
 ;;9002226.02101,"1828,63629-3339-04 ",.01)
 ;;63629-3339-04
 ;;9002226.02101,"1828,63629-3339-04 ",.02)
 ;;63629-3339-04
 ;;9002226.02101,"1828,63629-3646-01 ",.01)
 ;;63629-3646-01
 ;;9002226.02101,"1828,63629-3646-01 ",.02)
 ;;63629-3646-01
 ;;9002226.02101,"1828,63629-3646-02 ",.01)
 ;;63629-3646-02
 ;;9002226.02101,"1828,63629-3646-02 ",.02)
 ;;63629-3646-02
 ;;9002226.02101,"1828,63629-3646-03 ",.01)
 ;;63629-3646-03
 ;;9002226.02101,"1828,63629-3646-03 ",.02)
 ;;63629-3646-03
 ;;9002226.02101,"1828,63629-3858-01 ",.01)
 ;;63629-3858-01
 ;;9002226.02101,"1828,63629-3858-01 ",.02)
 ;;63629-3858-01
 ;;9002226.02101,"1828,63629-3858-02 ",.01)
 ;;63629-3858-02
 ;;9002226.02101,"1828,63629-3858-02 ",.02)
 ;;63629-3858-02
 ;;9002226.02101,"1828,63629-3859-01 ",.01)
 ;;63629-3859-01
 ;;9002226.02101,"1828,63629-3859-01 ",.02)
 ;;63629-3859-01
 ;;9002226.02101,"1828,63629-3859-02 ",.01)
 ;;63629-3859-02
 ;;9002226.02101,"1828,63629-3859-02 ",.02)
 ;;63629-3859-02
 ;;9002226.02101,"1828,63629-4027-01 ",.01)
 ;;63629-4027-01
 ;;9002226.02101,"1828,63629-4027-01 ",.02)
 ;;63629-4027-01
 ;;9002226.02101,"1828,63629-4027-02 ",.01)
 ;;63629-4027-02
 ;;9002226.02101,"1828,63629-4027-02 ",.02)
 ;;63629-4027-02
 ;;9002226.02101,"1828,63629-4061-01 ",.01)
 ;;63629-4061-01
 ;;9002226.02101,"1828,63629-4061-01 ",.02)
 ;;63629-4061-01
 ;;9002226.02101,"1828,63629-4061-02 ",.01)
 ;;63629-4061-02
 ;;9002226.02101,"1828,63629-4061-02 ",.02)
 ;;63629-4061-02
 ;;9002226.02101,"1828,63629-4442-01 ",.01)
 ;;63629-4442-01
 ;;9002226.02101,"1828,63629-4442-01 ",.02)
 ;;63629-4442-01
 ;;9002226.02101,"1828,63629-5078-01 ",.01)
 ;;63629-5078-01
 ;;9002226.02101,"1828,63629-5078-01 ",.02)
 ;;63629-5078-01
 ;;9002226.02101,"1828,63629-5078-02 ",.01)
 ;;63629-5078-02
 ;;9002226.02101,"1828,63629-5078-02 ",.02)
 ;;63629-5078-02
 ;;9002226.02101,"1828,63629-5078-03 ",.01)
 ;;63629-5078-03
 ;;9002226.02101,"1828,63629-5078-03 ",.02)
 ;;63629-5078-03
 ;;9002226.02101,"1828,63629-5078-04 ",.01)
 ;;63629-5078-04
 ;;9002226.02101,"1828,63629-5078-04 ",.02)
 ;;63629-5078-04
 ;;9002226.02101,"1828,63629-5364-01 ",.01)
 ;;63629-5364-01
 ;;9002226.02101,"1828,63629-5364-01 ",.02)
 ;;63629-5364-01
 ;;9002226.02101,"1828,63629-5364-02 ",.01)
 ;;63629-5364-02
 ;;9002226.02101,"1828,63629-5364-02 ",.02)
 ;;63629-5364-02
 ;;9002226.02101,"1828,63629-5364-03 ",.01)
 ;;63629-5364-03
 ;;9002226.02101,"1828,63629-5364-03 ",.02)
 ;;63629-5364-03
 ;;9002226.02101,"1828,63739-0003-33 ",.01)
 ;;63739-0003-33
 ;;9002226.02101,"1828,63739-0003-33 ",.02)
 ;;63739-0003-33
 ;;9002226.02101,"1828,63739-0073-10 ",.01)
 ;;63739-0073-10
 ;;9002226.02101,"1828,63739-0073-10 ",.02)
 ;;63739-0073-10
 ;;9002226.02101,"1828,63739-0125-10 ",.01)
 ;;63739-0125-10
 ;;9002226.02101,"1828,63739-0125-10 ",.02)
 ;;63739-0125-10
 ;;9002226.02101,"1828,63739-0154-10 ",.01)
 ;;63739-0154-10
 ;;9002226.02101,"1828,63739-0154-10 ",.02)
 ;;63739-0154-10
 ;;9002226.02101,"1828,63739-0155-10 ",.01)
 ;;63739-0155-10
 ;;9002226.02101,"1828,63739-0155-10 ",.02)
 ;;63739-0155-10
 ;;9002226.02101,"1828,63739-0156-10 ",.01)
 ;;63739-0156-10
 ;;9002226.02101,"1828,63739-0156-10 ",.02)
 ;;63739-0156-10
 ;;9002226.02101,"1828,63739-0231-10 ",.01)
 ;;63739-0231-10
 ;;9002226.02101,"1828,63739-0231-10 ",.02)
 ;;63739-0231-10
 ;;9002226.02101,"1828,63739-0263-10 ",.01)
 ;;63739-0263-10
 ;;9002226.02101,"1828,63739-0263-10 ",.02)
 ;;63739-0263-10
 ;;9002226.02101,"1828,63739-0264-10 ",.01)
 ;;63739-0264-10
 ;;9002226.02101,"1828,63739-0264-10 ",.02)
 ;;63739-0264-10
 ;;9002226.02101,"1828,63739-0499-04 ",.01)
 ;;63739-0499-04
 ;;9002226.02101,"1828,63739-0499-04 ",.02)
 ;;63739-0499-04
 ;;9002226.02101,"1828,63739-0499-10 ",.01)
 ;;63739-0499-10
 ;;9002226.02101,"1828,63739-0499-10 ",.02)
 ;;63739-0499-10
 ;;9002226.02101,"1828,63739-0500-04 ",.01)
 ;;63739-0500-04
 ;;9002226.02101,"1828,63739-0500-04 ",.02)
 ;;63739-0500-04
 ;;9002226.02101,"1828,63739-0500-10 ",.01)
 ;;63739-0500-10
 ;;9002226.02101,"1828,63739-0500-10 ",.02)
 ;;63739-0500-10
 ;;9002226.02101,"1828,63739-0501-10 ",.01)
 ;;63739-0501-10
 ;;9002226.02101,"1828,63739-0501-10 ",.02)
 ;;63739-0501-10
 ;;9002226.02101,"1828,63739-0644-10 ",.01)
 ;;63739-0644-10
 ;;9002226.02101,"1828,63739-0644-10 ",.02)
 ;;63739-0644-10
 ;;9002226.02101,"1828,63739-0669-10 ",.01)
 ;;63739-0669-10
 ;;9002226.02101,"1828,63739-0669-10 ",.02)
 ;;63739-0669-10
 ;;9002226.02101,"1828,63739-0674-10 ",.01)
 ;;63739-0674-10
 ;;9002226.02101,"1828,63739-0674-10 ",.02)
 ;;63739-0674-10
 ;;9002226.02101,"1828,63874-0205-01 ",.01)
 ;;63874-0205-01
 ;;9002226.02101,"1828,63874-0205-01 ",.02)
 ;;63874-0205-01
 ;;9002226.02101,"1828,63874-0205-02 ",.01)
 ;;63874-0205-02
 ;;9002226.02101,"1828,63874-0205-02 ",.02)
 ;;63874-0205-02
 ;;9002226.02101,"1828,63874-0205-03 ",.01)
 ;;63874-0205-03
 ;;9002226.02101,"1828,63874-0205-03 ",.02)
 ;;63874-0205-03
 ;;9002226.02101,"1828,63874-0205-04 ",.01)
 ;;63874-0205-04
 ;;9002226.02101,"1828,63874-0205-04 ",.02)
 ;;63874-0205-04
 ;;9002226.02101,"1828,63874-0205-06 ",.01)
 ;;63874-0205-06
 ;;9002226.02101,"1828,63874-0205-06 ",.02)
 ;;63874-0205-06
 ;;9002226.02101,"1828,63874-0205-10 ",.01)
 ;;63874-0205-10
 ;;9002226.02101,"1828,63874-0205-10 ",.02)
 ;;63874-0205-10
 ;;9002226.02101,"1828,63874-0205-12 ",.01)
 ;;63874-0205-12
 ;;9002226.02101,"1828,63874-0205-12 ",.02)
 ;;63874-0205-12
 ;;9002226.02101,"1828,63874-0205-15 ",.01)
 ;;63874-0205-15
 ;;9002226.02101,"1828,63874-0205-15 ",.02)
 ;;63874-0205-15
 ;;9002226.02101,"1828,63874-0205-20 ",.01)
 ;;63874-0205-20
 ;;9002226.02101,"1828,63874-0205-20 ",.02)
 ;;63874-0205-20
 ;;9002226.02101,"1828,63874-0205-30 ",.01)
 ;;63874-0205-30
 ;;9002226.02101,"1828,63874-0205-30 ",.02)
 ;;63874-0205-30
 ;;9002226.02101,"1828,63874-0205-50 ",.01)
 ;;63874-0205-50
 ;;9002226.02101,"1828,63874-0205-50 ",.02)
 ;;63874-0205-50
 ;;9002226.02101,"1828,63874-0205-60 ",.01)
 ;;63874-0205-60
 ;;9002226.02101,"1828,63874-0205-60 ",.02)
 ;;63874-0205-60
 ;;9002226.02101,"1828,63874-0205-72 ",.01)
 ;;63874-0205-72
 ;;9002226.02101,"1828,63874-0205-72 ",.02)
 ;;63874-0205-72
 ;;9002226.02101,"1828,63874-0205-74 ",.01)
 ;;63874-0205-74
 ;;9002226.02101,"1828,63874-0205-74 ",.02)
 ;;63874-0205-74
 ;;9002226.02101,"1828,63874-0205-77 ",.01)
 ;;63874-0205-77
 ;;9002226.02101,"1828,63874-0205-77 ",.02)
 ;;63874-0205-77
 ;;9002226.02101,"1828,63874-0205-90 ",.01)
 ;;63874-0205-90
 ;;9002226.02101,"1828,63874-0205-90 ",.02)
 ;;63874-0205-90
 ;;9002226.02101,"1828,63874-0207-01 ",.01)
 ;;63874-0207-01
 ;;9002226.02101,"1828,63874-0207-01 ",.02)
 ;;63874-0207-01
 ;;9002226.02101,"1828,63874-0207-04 ",.01)
 ;;63874-0207-04
 ;;9002226.02101,"1828,63874-0207-04 ",.02)
 ;;63874-0207-04
 ;;9002226.02101,"1828,63874-0207-12 ",.01)
 ;;63874-0207-12
 ;;9002226.02101,"1828,63874-0207-12 ",.02)
 ;;63874-0207-12
 ;;9002226.02101,"1828,63874-0207-15 ",.01)
 ;;63874-0207-15
 ;;9002226.02101,"1828,63874-0207-15 ",.02)
 ;;63874-0207-15
 ;;9002226.02101,"1828,63874-0207-20 ",.01)
 ;;63874-0207-20
 ;;9002226.02101,"1828,63874-0207-20 ",.02)
 ;;63874-0207-20
 ;;9002226.02101,"1828,63874-0207-30 ",.01)
 ;;63874-0207-30
 ;;9002226.02101,"1828,63874-0207-30 ",.02)
 ;;63874-0207-30
 ;;9002226.02101,"1828,63874-0207-60 ",.01)
 ;;63874-0207-60
 ;;9002226.02101,"1828,63874-0207-60 ",.02)
 ;;63874-0207-60
 ;;9002226.02101,"1828,63874-0207-72 ",.01)
 ;;63874-0207-72
 ;;9002226.02101,"1828,63874-0207-72 ",.02)
 ;;63874-0207-72
 ;;9002226.02101,"1828,63874-0207-74 ",.01)
 ;;63874-0207-74
 ;;9002226.02101,"1828,63874-0207-74 ",.02)
 ;;63874-0207-74
 ;;9002226.02101,"1828,63874-0207-77 ",.01)
 ;;63874-0207-77
 ;;9002226.02101,"1828,63874-0207-77 ",.02)
 ;;63874-0207-77
 ;;9002226.02101,"1828,63874-0207-90 ",.01)
 ;;63874-0207-90
 ;;9002226.02101,"1828,63874-0207-90 ",.02)
 ;;63874-0207-90
 ;;9002226.02101,"1828,63874-0208-01 ",.01)
 ;;63874-0208-01
 ;;9002226.02101,"1828,63874-0208-01 ",.02)
 ;;63874-0208-01
 ;;9002226.02101,"1828,63874-0208-10 ",.01)
 ;;63874-0208-10
 ;;9002226.02101,"1828,63874-0208-10 ",.02)
 ;;63874-0208-10
 ;;9002226.02101,"1828,63874-0208-15 ",.01)
 ;;63874-0208-15
 ;;9002226.02101,"1828,63874-0208-15 ",.02)
 ;;63874-0208-15
 ;;9002226.02101,"1828,63874-0208-20 ",.01)
 ;;63874-0208-20
 ;;9002226.02101,"1828,63874-0208-20 ",.02)
 ;;63874-0208-20
 ;;9002226.02101,"1828,63874-0208-30 ",.01)
 ;;63874-0208-30
 ;;9002226.02101,"1828,63874-0208-30 ",.02)
 ;;63874-0208-30