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

BGP83A14.m

Go to the documentation of this file.
BGP83A14 ; 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,00440-7995-90 ",.01)
 ;;00440-7995-90
 ;;9002226.02101,"1828,00440-7995-90 ",.02)
 ;;00440-7995-90
 ;;9002226.02101,"1828,00440-7995-91 ",.01)
 ;;00440-7995-91
 ;;9002226.02101,"1828,00440-7995-91 ",.02)
 ;;00440-7995-91
 ;;9002226.02101,"1828,00440-7996-30 ",.01)
 ;;00440-7996-30
 ;;9002226.02101,"1828,00440-7996-30 ",.02)
 ;;00440-7996-30
 ;;9002226.02101,"1828,00440-7996-50 ",.01)
 ;;00440-7996-50
 ;;9002226.02101,"1828,00440-7996-50 ",.02)
 ;;00440-7996-50
 ;;9002226.02101,"1828,00440-7996-60 ",.01)
 ;;00440-7996-60
 ;;9002226.02101,"1828,00440-7996-60 ",.02)
 ;;00440-7996-60
 ;;9002226.02101,"1828,00440-7996-90 ",.01)
 ;;00440-7996-90
 ;;9002226.02101,"1828,00440-7996-90 ",.02)
 ;;00440-7996-90
 ;;9002226.02101,"1828,00440-7996-91 ",.01)
 ;;00440-7996-91
 ;;9002226.02101,"1828,00440-7996-91 ",.02)
 ;;00440-7996-91
 ;;9002226.02101,"1828,00440-7997-30 ",.01)
 ;;00440-7997-30
 ;;9002226.02101,"1828,00440-7997-30 ",.02)
 ;;00440-7997-30
 ;;9002226.02101,"1828,00440-7997-50 ",.01)
 ;;00440-7997-50
 ;;9002226.02101,"1828,00440-7997-50 ",.02)
 ;;00440-7997-50
 ;;9002226.02101,"1828,00440-7997-60 ",.01)
 ;;00440-7997-60
 ;;9002226.02101,"1828,00440-7997-60 ",.02)
 ;;00440-7997-60
 ;;9002226.02101,"1828,00440-7997-90 ",.01)
 ;;00440-7997-90
 ;;9002226.02101,"1828,00440-7997-90 ",.02)
 ;;00440-7997-90
 ;;9002226.02101,"1828,00440-7997-91 ",.01)
 ;;00440-7997-91
 ;;9002226.02101,"1828,00440-7997-91 ",.02)
 ;;00440-7997-91
 ;;9002226.02101,"1828,00440-8475-14 ",.01)
 ;;00440-8475-14
 ;;9002226.02101,"1828,00440-8475-14 ",.02)
 ;;00440-8475-14
 ;;9002226.02101,"1828,00440-8475-15 ",.01)
 ;;00440-8475-15
 ;;9002226.02101,"1828,00440-8475-15 ",.02)
 ;;00440-8475-15
 ;;9002226.02101,"1828,00440-8475-30 ",.01)
 ;;00440-8475-30
 ;;9002226.02101,"1828,00440-8475-30 ",.02)
 ;;00440-8475-30
 ;;9002226.02101,"1828,00440-8476-14 ",.01)
 ;;00440-8476-14
 ;;9002226.02101,"1828,00440-8476-14 ",.02)
 ;;00440-8476-14
 ;;9002226.02101,"1828,00440-8476-15 ",.01)
 ;;00440-8476-15
 ;;9002226.02101,"1828,00440-8476-15 ",.02)
 ;;00440-8476-15
 ;;9002226.02101,"1828,00440-8476-30 ",.01)
 ;;00440-8476-30
 ;;9002226.02101,"1828,00440-8476-30 ",.02)
 ;;00440-8476-30
 ;;9002226.02101,"1828,00527-1768-36 ",.01)
 ;;00527-1768-36
 ;;9002226.02101,"1828,00527-1768-36 ",.02)
 ;;00527-1768-36
 ;;9002226.02101,"1828,00555-0033-02 ",.01)
 ;;00555-0033-02
 ;;9002226.02101,"1828,00555-0033-02 ",.02)
 ;;00555-0033-02
 ;;9002226.02101,"1828,00555-0033-05 ",.01)
 ;;00555-0033-05
 ;;9002226.02101,"1828,00555-0033-05 ",.02)
 ;;00555-0033-05
 ;;9002226.02101,"1828,00555-0094-96 ",.01)
 ;;00555-0094-96
 ;;9002226.02101,"1828,00555-0094-96 ",.02)
 ;;00555-0094-96
 ;;9002226.02101,"1828,00555-0095-96 ",.01)
 ;;00555-0095-96
 ;;9002226.02101,"1828,00555-0095-96 ",.02)
 ;;00555-0095-96
 ;;9002226.02101,"1828,00555-0096-96 ",.01)
 ;;00555-0096-96
 ;;9002226.02101,"1828,00555-0096-96 ",.02)
 ;;00555-0096-96
 ;;9002226.02101,"1828,00555-0097-96 ",.01)
 ;;00555-0097-96
 ;;9002226.02101,"1828,00555-0097-96 ",.02)
 ;;00555-0097-96
 ;;9002226.02101,"1828,00555-0098-96 ",.01)
 ;;00555-0098-96
 ;;9002226.02101,"1828,00555-0098-96 ",.02)
 ;;00555-0098-96
 ;;9002226.02101,"1828,00555-0158-02 ",.01)
 ;;00555-0158-02
 ;;9002226.02101,"1828,00555-0158-02 ",.02)
 ;;00555-0158-02
 ;;9002226.02101,"1828,00555-0158-04 ",.01)
 ;;00555-0158-04
 ;;9002226.02101,"1828,00555-0158-04 ",.02)
 ;;00555-0158-04
 ;;9002226.02101,"1828,00555-0159-02 ",.01)
 ;;00555-0159-02
 ;;9002226.02101,"1828,00555-0159-02 ",.02)
 ;;00555-0159-02
 ;;9002226.02101,"1828,00555-0159-04 ",.01)
 ;;00555-0159-04
 ;;9002226.02101,"1828,00555-0159-04 ",.02)
 ;;00555-0159-04
 ;;9002226.02101,"1828,00574-0150-04 ",.01)
 ;;00574-0150-04
 ;;9002226.02101,"1828,00574-0150-04 ",.02)
 ;;00574-0150-04
 ;;9002226.02101,"1828,00574-0163-30 ",.01)
 ;;00574-0163-30
 ;;9002226.02101,"1828,00574-0163-30 ",.02)
 ;;00574-0163-30
 ;;9002226.02101,"1828,00591-0240-01 ",.01)
 ;;00591-0240-01
 ;;9002226.02101,"1828,00591-0240-01 ",.02)
 ;;00591-0240-01
 ;;9002226.02101,"1828,00591-0240-05 ",.01)
 ;;00591-0240-05
 ;;9002226.02101,"1828,00591-0240-05 ",.02)
 ;;00591-0240-05
 ;;9002226.02101,"1828,00591-0240-10 ",.01)
 ;;00591-0240-10
 ;;9002226.02101,"1828,00591-0240-10 ",.02)
 ;;00591-0240-10
 ;;9002226.02101,"1828,00591-0241-01 ",.01)
 ;;00591-0241-01
 ;;9002226.02101,"1828,00591-0241-01 ",.02)
 ;;00591-0241-01
 ;;9002226.02101,"1828,00591-0241-05 ",.01)
 ;;00591-0241-05
 ;;9002226.02101,"1828,00591-0241-05 ",.02)
 ;;00591-0241-05
 ;;9002226.02101,"1828,00591-0241-10 ",.01)
 ;;00591-0241-10
 ;;9002226.02101,"1828,00591-0241-10 ",.02)
 ;;00591-0241-10
 ;;9002226.02101,"1828,00591-0242-01 ",.01)
 ;;00591-0242-01
 ;;9002226.02101,"1828,00591-0242-01 ",.02)
 ;;00591-0242-01
 ;;9002226.02101,"1828,00591-0242-05 ",.01)
 ;;00591-0242-05
 ;;9002226.02101,"1828,00591-0242-05 ",.02)
 ;;00591-0242-05
 ;;9002226.02101,"1828,00591-0242-10 ",.01)
 ;;00591-0242-10
 ;;9002226.02101,"1828,00591-0242-10 ",.02)
 ;;00591-0242-10
 ;;9002226.02101,"1828,00591-0744-01 ",.01)
 ;;00591-0744-01
 ;;9002226.02101,"1828,00591-0744-01 ",.02)
 ;;00591-0744-01
 ;;9002226.02101,"1828,00591-0745-01 ",.01)
 ;;00591-0745-01
 ;;9002226.02101,"1828,00591-0745-01 ",.02)
 ;;00591-0745-01
 ;;9002226.02101,"1828,00591-5619-01 ",.01)
 ;;00591-5619-01
 ;;9002226.02101,"1828,00591-5619-01 ",.02)
 ;;00591-5619-01
 ;;9002226.02101,"1828,00591-5619-05 ",.01)
 ;;00591-5619-05
 ;;9002226.02101,"1828,00591-5619-05 ",.02)
 ;;00591-5619-05
 ;;9002226.02101,"1828,00591-5619-10 ",.01)
 ;;00591-5619-10
 ;;9002226.02101,"1828,00591-5619-10 ",.02)
 ;;00591-5619-10
 ;;9002226.02101,"1828,00591-5620-01 ",.01)
 ;;00591-5620-01
 ;;9002226.02101,"1828,00591-5620-01 ",.02)
 ;;00591-5620-01
 ;;9002226.02101,"1828,00591-5620-05 ",.01)
 ;;00591-5620-05
 ;;9002226.02101,"1828,00591-5620-05 ",.02)
 ;;00591-5620-05
 ;;9002226.02101,"1828,00591-5620-10 ",.01)
 ;;00591-5620-10
 ;;9002226.02101,"1828,00591-5620-10 ",.02)
 ;;00591-5620-10
 ;;9002226.02101,"1828,00591-5621-01 ",.01)
 ;;00591-5621-01
 ;;9002226.02101,"1828,00591-5621-01 ",.02)
 ;;00591-5621-01
 ;;9002226.02101,"1828,00591-5621-05 ",.01)
 ;;00591-5621-05
 ;;9002226.02101,"1828,00591-5621-05 ",.02)
 ;;00591-5621-05
 ;;9002226.02101,"1828,00591-5621-10 ",.01)
 ;;00591-5621-10
 ;;9002226.02101,"1828,00591-5621-10 ",.02)
 ;;00591-5621-10
 ;;9002226.02101,"1828,00603-2127-21 ",.01)
 ;;00603-2127-21
 ;;9002226.02101,"1828,00603-2127-21 ",.02)
 ;;00603-2127-21
 ;;9002226.02101,"1828,00603-2127-28 ",.01)
 ;;00603-2127-28
 ;;9002226.02101,"1828,00603-2127-28 ",.02)
 ;;00603-2127-28
 ;;9002226.02101,"1828,00603-2127-32 ",.01)
 ;;00603-2127-32
 ;;9002226.02101,"1828,00603-2127-32 ",.02)
 ;;00603-2127-32
 ;;9002226.02101,"1828,00603-2128-21 ",.01)
 ;;00603-2128-21
 ;;9002226.02101,"1828,00603-2128-21 ",.02)
 ;;00603-2128-21
 ;;9002226.02101,"1828,00603-2128-28 ",.01)
 ;;00603-2128-28
 ;;9002226.02101,"1828,00603-2128-28 ",.02)
 ;;00603-2128-28
 ;;9002226.02101,"1828,00603-2128-32 ",.01)
 ;;00603-2128-32
 ;;9002226.02101,"1828,00603-2128-32 ",.02)
 ;;00603-2128-32
 ;;9002226.02101,"1828,00603-2129-21 ",.01)
 ;;00603-2129-21
 ;;9002226.02101,"1828,00603-2129-21 ",.02)
 ;;00603-2129-21
 ;;9002226.02101,"1828,00603-2129-28 ",.01)
 ;;00603-2129-28
 ;;9002226.02101,"1828,00603-2129-28 ",.02)
 ;;00603-2129-28
 ;;9002226.02101,"1828,00603-2129-32 ",.01)
 ;;00603-2129-32
 ;;9002226.02101,"1828,00603-2129-32 ",.02)
 ;;00603-2129-32
 ;;9002226.02101,"1828,00603-2130-21 ",.01)
 ;;00603-2130-21
 ;;9002226.02101,"1828,00603-2130-21 ",.02)
 ;;00603-2130-21
 ;;9002226.02101,"1828,00603-2130-28 ",.01)
 ;;00603-2130-28
 ;;9002226.02101,"1828,00603-2130-28 ",.02)
 ;;00603-2130-28
 ;;9002226.02101,"1828,00603-2948-02 ",.01)
 ;;00603-2948-02
 ;;9002226.02101,"1828,00603-2948-02 ",.02)
 ;;00603-2948-02
 ;;9002226.02101,"1828,00603-2948-13 ",.01)
 ;;00603-2948-13
 ;;9002226.02101,"1828,00603-2948-13 ",.02)
 ;;00603-2948-13
 ;;9002226.02101,"1828,00603-2948-16 ",.01)
 ;;00603-2948-16
 ;;9002226.02101,"1828,00603-2948-16 ",.02)
 ;;00603-2948-16
 ;;9002226.02101,"1828,00603-2948-20 ",.01)
 ;;00603-2948-20
 ;;9002226.02101,"1828,00603-2948-20 ",.02)
 ;;00603-2948-20
 ;;9002226.02101,"1828,00603-2948-21 ",.01)
 ;;00603-2948-21
 ;;9002226.02101,"1828,00603-2948-21 ",.02)
 ;;00603-2948-21
 ;;9002226.02101,"1828,00603-2948-22 ",.01)
 ;;00603-2948-22
 ;;9002226.02101,"1828,00603-2948-22 ",.02)
 ;;00603-2948-22
 ;;9002226.02101,"1828,00603-2948-26 ",.01)
 ;;00603-2948-26
 ;;9002226.02101,"1828,00603-2948-26 ",.02)
 ;;00603-2948-26
 ;;9002226.02101,"1828,00603-2948-28 ",.01)
 ;;00603-2948-28
 ;;9002226.02101,"1828,00603-2948-28 ",.02)
 ;;00603-2948-28
 ;;9002226.02101,"1828,00603-2948-32 ",.01)
 ;;00603-2948-32
 ;;9002226.02101,"1828,00603-2948-32 ",.02)
 ;;00603-2948-32
 ;;9002226.02101,"1828,00603-2948-60 ",.01)
 ;;00603-2948-60
 ;;9002226.02101,"1828,00603-2948-60 ",.02)
 ;;00603-2948-60
 ;;9002226.02101,"1828,00603-2949-02 ",.01)
 ;;00603-2949-02
 ;;9002226.02101,"1828,00603-2949-02 ",.02)
 ;;00603-2949-02
 ;;9002226.02101,"1828,00603-2949-13 ",.01)
 ;;00603-2949-13
 ;;9002226.02101,"1828,00603-2949-13 ",.02)
 ;;00603-2949-13
 ;;9002226.02101,"1828,00603-2949-16 ",.01)
 ;;00603-2949-16
 ;;9002226.02101,"1828,00603-2949-16 ",.02)
 ;;00603-2949-16
 ;;9002226.02101,"1828,00603-2949-20 ",.01)
 ;;00603-2949-20
 ;;9002226.02101,"1828,00603-2949-20 ",.02)
 ;;00603-2949-20
 ;;9002226.02101,"1828,00603-2949-21 ",.01)
 ;;00603-2949-21
 ;;9002226.02101,"1828,00603-2949-21 ",.02)
 ;;00603-2949-21
 ;;9002226.02101,"1828,00603-2949-22 ",.01)
 ;;00603-2949-22
 ;;9002226.02101,"1828,00603-2949-22 ",.02)
 ;;00603-2949-22
 ;;9002226.02101,"1828,00603-2949-28 ",.01)
 ;;00603-2949-28
 ;;9002226.02101,"1828,00603-2949-28 ",.02)
 ;;00603-2949-28
 ;;9002226.02101,"1828,00603-2949-32 ",.01)
 ;;00603-2949-32
 ;;9002226.02101,"1828,00603-2949-32 ",.02)
 ;;00603-2949-32
 ;;9002226.02101,"1828,00603-2949-60 ",.01)
 ;;00603-2949-60
 ;;9002226.02101,"1828,00603-2949-60 ",.02)
 ;;00603-2949-60
 ;;9002226.02101,"1828,00603-2950-02 ",.01)
 ;;00603-2950-02
 ;;9002226.02101,"1828,00603-2950-02 ",.02)
 ;;00603-2950-02
 ;;9002226.02101,"1828,00603-2950-16 ",.01)
 ;;00603-2950-16
 ;;9002226.02101,"1828,00603-2950-16 ",.02)
 ;;00603-2950-16
 ;;9002226.02101,"1828,00603-2950-20 ",.01)
 ;;00603-2950-20
 ;;9002226.02101,"1828,00603-2950-20 ",.02)
 ;;00603-2950-20
 ;;9002226.02101,"1828,00603-2950-21 ",.01)
 ;;00603-2950-21
 ;;9002226.02101,"1828,00603-2950-21 ",.02)
 ;;00603-2950-21
 ;;9002226.02101,"1828,00603-2950-28 ",.01)
 ;;00603-2950-28
 ;;9002226.02101,"1828,00603-2950-28 ",.02)
 ;;00603-2950-28
 ;;9002226.02101,"1828,00603-3213-16 ",.01)
 ;;00603-3213-16
 ;;9002226.02101,"1828,00603-3213-16 ",.02)
 ;;00603-3213-16
 ;;9002226.02101,"1828,00603-3213-20 ",.01)
 ;;00603-3213-20
 ;;9002226.02101,"1828,00603-3213-20 ",.02)
 ;;00603-3213-20
 ;;9002226.02101,"1828,00603-3213-21 ",.01)
 ;;00603-3213-21
 ;;9002226.02101,"1828,00603-3213-21 ",.02)
 ;;00603-3213-21
 ;;9002226.02101,"1828,00603-3213-28 ",.01)
 ;;00603-3213-28
 ;;9002226.02101,"1828,00603-3213-28 ",.02)
 ;;00603-3213-28
 ;;9002226.02101,"1828,00603-3214-02 ",.01)
 ;;00603-3214-02
 ;;9002226.02101,"1828,00603-3214-02 ",.02)
 ;;00603-3214-02
 ;;9002226.02101,"1828,00603-3214-16 ",.01)
 ;;00603-3214-16
 ;;9002226.02101,"1828,00603-3214-16 ",.02)
 ;;00603-3214-16
 ;;9002226.02101,"1828,00603-3214-20 ",.01)
 ;;00603-3214-20
 ;;9002226.02101,"1828,00603-3214-20 ",.02)
 ;;00603-3214-20
 ;;9002226.02101,"1828,00603-3214-21 ",.01)
 ;;00603-3214-21