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

BGP14A9.m

Go to the documentation of this file.
BGP14A9 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"1103,54348-0098-30 ",.02)
 ;;54348-0098-30
 ;;9002226.02101,"1103,54348-0104-30 ",.01)
 ;;54348-0104-30
 ;;9002226.02101,"1103,54348-0104-30 ",.02)
 ;;54348-0104-30
 ;;9002226.02101,"1103,54458-0966-10 ",.01)
 ;;54458-0966-10
 ;;9002226.02101,"1103,54458-0966-10 ",.02)
 ;;54458-0966-10
 ;;9002226.02101,"1103,54458-0967-10 ",.01)
 ;;54458-0967-10
 ;;9002226.02101,"1103,54458-0967-10 ",.02)
 ;;54458-0967-10
 ;;9002226.02101,"1103,54458-0968-10 ",.01)
 ;;54458-0968-10
 ;;9002226.02101,"1103,54458-0968-10 ",.02)
 ;;54458-0968-10
 ;;9002226.02101,"1103,54458-0971-10 ",.01)
 ;;54458-0971-10
 ;;9002226.02101,"1103,54458-0971-10 ",.02)
 ;;54458-0971-10
 ;;9002226.02101,"1103,54458-0972-10 ",.01)
 ;;54458-0972-10
 ;;9002226.02101,"1103,54458-0972-10 ",.02)
 ;;54458-0972-10
 ;;9002226.02101,"1103,54458-0973-10 ",.01)
 ;;54458-0973-10
 ;;9002226.02101,"1103,54458-0973-10 ",.02)
 ;;54458-0973-10
 ;;9002226.02101,"1103,54569-0200-00 ",.01)
 ;;54569-0200-00
 ;;9002226.02101,"1103,54569-0200-00 ",.02)
 ;;54569-0200-00
 ;;9002226.02101,"1103,54569-0203-00 ",.01)
 ;;54569-0203-00
 ;;9002226.02101,"1103,54569-0203-00 ",.02)
 ;;54569-0203-00
 ;;9002226.02101,"1103,54569-0203-01 ",.01)
 ;;54569-0203-01
 ;;9002226.02101,"1103,54569-0203-01 ",.02)
 ;;54569-0203-01
 ;;9002226.02101,"1103,54569-0206-01 ",.01)
 ;;54569-0206-01
 ;;9002226.02101,"1103,54569-0206-01 ",.02)
 ;;54569-0206-01
 ;;9002226.02101,"1103,54569-0206-02 ",.01)
 ;;54569-0206-02
 ;;9002226.02101,"1103,54569-0206-02 ",.02)
 ;;54569-0206-02
 ;;9002226.02101,"1103,54569-0206-03 ",.01)
 ;;54569-0206-03
 ;;9002226.02101,"1103,54569-0206-03 ",.02)
 ;;54569-0206-03
 ;;9002226.02101,"1103,54569-2017-01 ",.01)
 ;;54569-2017-01
 ;;9002226.02101,"1103,54569-2017-01 ",.02)
 ;;54569-2017-01
 ;;9002226.02101,"1103,54569-3690-00 ",.01)
 ;;54569-3690-00
 ;;9002226.02101,"1103,54569-3690-00 ",.02)
 ;;54569-3690-00
 ;;9002226.02101,"1103,54569-3690-01 ",.01)
 ;;54569-3690-01
 ;;9002226.02101,"1103,54569-3690-01 ",.02)
 ;;54569-3690-01
 ;;9002226.02101,"1103,54569-3830-00 ",.01)
 ;;54569-3830-00
 ;;9002226.02101,"1103,54569-3830-00 ",.02)
 ;;54569-3830-00
 ;;9002226.02101,"1103,54569-3830-01 ",.01)
 ;;54569-3830-01
 ;;9002226.02101,"1103,54569-3830-01 ",.02)
 ;;54569-3830-01
 ;;9002226.02101,"1103,54569-3830-02 ",.01)
 ;;54569-3830-02
 ;;9002226.02101,"1103,54569-3830-02 ",.02)
 ;;54569-3830-02
 ;;9002226.02101,"1103,54569-3831-00 ",.01)
 ;;54569-3831-00
 ;;9002226.02101,"1103,54569-3831-00 ",.02)
 ;;54569-3831-00
 ;;9002226.02101,"1103,54569-3831-01 ",.01)
 ;;54569-3831-01
 ;;9002226.02101,"1103,54569-3831-01 ",.02)
 ;;54569-3831-01
 ;;9002226.02101,"1103,54569-3831-02 ",.01)
 ;;54569-3831-02
 ;;9002226.02101,"1103,54569-3831-02 ",.02)
 ;;54569-3831-02
 ;;9002226.02101,"1103,54569-3831-04 ",.01)
 ;;54569-3831-04
 ;;9002226.02101,"1103,54569-3831-04 ",.02)
 ;;54569-3831-04
 ;;9002226.02101,"1103,54569-3831-08 ",.01)
 ;;54569-3831-08
 ;;9002226.02101,"1103,54569-3831-08 ",.02)
 ;;54569-3831-08
 ;;9002226.02101,"1103,54569-3832-00 ",.01)
 ;;54569-3832-00
 ;;9002226.02101,"1103,54569-3832-00 ",.02)
 ;;54569-3832-00
 ;;9002226.02101,"1103,54569-3841-00 ",.01)
 ;;54569-3841-00
 ;;9002226.02101,"1103,54569-3841-00 ",.02)
 ;;54569-3841-00
 ;;9002226.02101,"1103,54569-3841-01 ",.01)
 ;;54569-3841-01
 ;;9002226.02101,"1103,54569-3841-01 ",.02)
 ;;54569-3841-01
 ;;9002226.02101,"1103,54569-3841-02 ",.01)
 ;;54569-3841-02
 ;;9002226.02101,"1103,54569-3841-02 ",.02)
 ;;54569-3841-02
 ;;9002226.02101,"1103,54569-3842-00 ",.01)
 ;;54569-3842-00
 ;;9002226.02101,"1103,54569-3842-00 ",.02)
 ;;54569-3842-00
 ;;9002226.02101,"1103,54569-3842-01 ",.01)
 ;;54569-3842-01
 ;;9002226.02101,"1103,54569-3842-01 ",.02)
 ;;54569-3842-01
 ;;9002226.02101,"1103,54569-3842-02 ",.01)
 ;;54569-3842-02
 ;;9002226.02101,"1103,54569-3842-02 ",.02)
 ;;54569-3842-02
 ;;9002226.02101,"1103,54569-3842-04 ",.01)
 ;;54569-3842-04
 ;;9002226.02101,"1103,54569-3842-04 ",.02)
 ;;54569-3842-04
 ;;9002226.02101,"1103,54569-3937-00 ",.01)
 ;;54569-3937-00
 ;;9002226.02101,"1103,54569-3937-00 ",.02)
 ;;54569-3937-00
 ;;9002226.02101,"1103,54569-3938-00 ",.01)
 ;;54569-3938-00
 ;;9002226.02101,"1103,54569-3938-00 ",.02)
 ;;54569-3938-00
 ;;9002226.02101,"1103,54569-3938-01 ",.01)
 ;;54569-3938-01
 ;;9002226.02101,"1103,54569-3938-01 ",.02)
 ;;54569-3938-01
 ;;9002226.02101,"1103,54569-4453-00 ",.01)
 ;;54569-4453-00
 ;;9002226.02101,"1103,54569-4453-00 ",.02)
 ;;54569-4453-00
 ;;9002226.02101,"1103,54569-4453-01 ",.01)
 ;;54569-4453-01
 ;;9002226.02101,"1103,54569-4453-01 ",.02)
 ;;54569-4453-01
 ;;9002226.02101,"1103,54569-4695-00 ",.01)
 ;;54569-4695-00
 ;;9002226.02101,"1103,54569-4695-00 ",.02)
 ;;54569-4695-00
 ;;9002226.02101,"1103,54569-4695-01 ",.01)
 ;;54569-4695-01
 ;;9002226.02101,"1103,54569-4695-01 ",.02)
 ;;54569-4695-01
 ;;9002226.02101,"1103,54569-4706-00 ",.01)
 ;;54569-4706-00
 ;;9002226.02101,"1103,54569-4706-00 ",.02)
 ;;54569-4706-00
 ;;9002226.02101,"1103,54569-5210-00 ",.01)
 ;;54569-5210-00
 ;;9002226.02101,"1103,54569-5210-00 ",.02)
 ;;54569-5210-00
 ;;9002226.02101,"1103,54569-5210-01 ",.01)
 ;;54569-5210-01
 ;;9002226.02101,"1103,54569-5210-01 ",.02)
 ;;54569-5210-01
 ;;9002226.02101,"1103,54569-5211-00 ",.01)
 ;;54569-5211-00
 ;;9002226.02101,"1103,54569-5211-00 ",.02)
 ;;54569-5211-00
 ;;9002226.02101,"1103,54569-5211-01 ",.01)
 ;;54569-5211-01
 ;;9002226.02101,"1103,54569-5211-01 ",.02)
 ;;54569-5211-01
 ;;9002226.02101,"1103,54569-5547-00 ",.01)
 ;;54569-5547-00
 ;;9002226.02101,"1103,54569-5547-00 ",.02)
 ;;54569-5547-00
 ;;9002226.02101,"1103,54569-5547-01 ",.01)
 ;;54569-5547-01
 ;;9002226.02101,"1103,54569-5547-01 ",.02)
 ;;54569-5547-01
 ;;9002226.02101,"1103,54569-5548-00 ",.01)
 ;;54569-5548-00
 ;;9002226.02101,"1103,54569-5548-00 ",.02)
 ;;54569-5548-00
 ;;9002226.02101,"1103,54569-5548-01 ",.01)
 ;;54569-5548-01
 ;;9002226.02101,"1103,54569-5548-01 ",.02)
 ;;54569-5548-01
 ;;9002226.02101,"1103,54569-5618-00 ",.01)
 ;;54569-5618-00
 ;;9002226.02101,"1103,54569-5618-00 ",.02)
 ;;54569-5618-00
 ;;9002226.02101,"1103,54569-5618-01 ",.01)
 ;;54569-5618-01
 ;;9002226.02101,"1103,54569-5618-01 ",.02)
 ;;54569-5618-01
 ;;9002226.02101,"1103,54569-5619-00 ",.01)
 ;;54569-5619-00
 ;;9002226.02101,"1103,54569-5619-00 ",.02)
 ;;54569-5619-00
 ;;9002226.02101,"1103,54569-5619-01 ",.01)
 ;;54569-5619-01
 ;;9002226.02101,"1103,54569-5619-01 ",.02)
 ;;54569-5619-01
 ;;9002226.02101,"1103,54569-5855-00 ",.01)
 ;;54569-5855-00
 ;;9002226.02101,"1103,54569-5855-00 ",.02)
 ;;54569-5855-00
 ;;9002226.02101,"1103,54569-5991-00 ",.01)
 ;;54569-5991-00
 ;;9002226.02101,"1103,54569-5991-00 ",.02)
 ;;54569-5991-00
 ;;9002226.02101,"1103,54569-5992-00 ",.01)
 ;;54569-5992-00
 ;;9002226.02101,"1103,54569-5992-00 ",.02)
 ;;54569-5992-00
 ;;9002226.02101,"1103,54569-5993-00 ",.01)
 ;;54569-5993-00
 ;;9002226.02101,"1103,54569-5993-00 ",.02)
 ;;54569-5993-00
 ;;9002226.02101,"1103,54569-5993-01 ",.01)
 ;;54569-5993-01
 ;;9002226.02101,"1103,54569-5993-01 ",.02)
 ;;54569-5993-01
 ;;9002226.02101,"1103,54569-6072-00 ",.01)
 ;;54569-6072-00
 ;;9002226.02101,"1103,54569-6072-00 ",.02)
 ;;54569-6072-00
 ;;9002226.02101,"1103,54868-0036-00 ",.01)
 ;;54868-0036-00
 ;;9002226.02101,"1103,54868-0036-00 ",.02)
 ;;54868-0036-00
 ;;9002226.02101,"1103,54868-0036-02 ",.01)
 ;;54868-0036-02
 ;;9002226.02101,"1103,54868-0036-02 ",.02)
 ;;54868-0036-02
 ;;9002226.02101,"1103,54868-0036-04 ",.01)
 ;;54868-0036-04
 ;;9002226.02101,"1103,54868-0036-04 ",.02)
 ;;54868-0036-04
 ;;9002226.02101,"1103,54868-0373-01 ",.01)
 ;;54868-0373-01
 ;;9002226.02101,"1103,54868-0373-01 ",.02)
 ;;54868-0373-01
 ;;9002226.02101,"1103,54868-0373-02 ",.01)
 ;;54868-0373-02
 ;;9002226.02101,"1103,54868-0373-02 ",.02)
 ;;54868-0373-02
 ;;9002226.02101,"1103,54868-0795-00 ",.01)
 ;;54868-0795-00
 ;;9002226.02101,"1103,54868-0795-00 ",.02)
 ;;54868-0795-00
 ;;9002226.02101,"1103,54868-0877-01 ",.01)
 ;;54868-0877-01
 ;;9002226.02101,"1103,54868-0877-01 ",.02)
 ;;54868-0877-01
 ;;9002226.02101,"1103,54868-0996-01 ",.01)
 ;;54868-0996-01
 ;;9002226.02101,"1103,54868-0996-01 ",.02)
 ;;54868-0996-01
 ;;9002226.02101,"1103,54868-0996-02 ",.01)
 ;;54868-0996-02
 ;;9002226.02101,"1103,54868-0996-02 ",.02)
 ;;54868-0996-02
 ;;9002226.02101,"1103,54868-0997-01 ",.01)
 ;;54868-0997-01
 ;;9002226.02101,"1103,54868-0997-01 ",.02)
 ;;54868-0997-01
 ;;9002226.02101,"1103,54868-0997-02 ",.01)
 ;;54868-0997-02
 ;;9002226.02101,"1103,54868-0997-02 ",.02)
 ;;54868-0997-02
 ;;9002226.02101,"1103,54868-0997-04 ",.01)
 ;;54868-0997-04
 ;;9002226.02101,"1103,54868-0997-04 ",.02)
 ;;54868-0997-04
 ;;9002226.02101,"1103,54868-1020-00 ",.01)
 ;;54868-1020-00
 ;;9002226.02101,"1103,54868-1020-00 ",.02)
 ;;54868-1020-00
 ;;9002226.02101,"1103,54868-1089-01 ",.01)
 ;;54868-1089-01
 ;;9002226.02101,"1103,54868-1089-01 ",.02)
 ;;54868-1089-01
 ;;9002226.02101,"1103,54868-1089-02 ",.01)
 ;;54868-1089-02
 ;;9002226.02101,"1103,54868-1089-02 ",.02)
 ;;54868-1089-02
 ;;9002226.02101,"1103,54868-1089-03 ",.01)
 ;;54868-1089-03
 ;;9002226.02101,"1103,54868-1089-03 ",.02)
 ;;54868-1089-03
 ;;9002226.02101,"1103,54868-1244-01 ",.01)
 ;;54868-1244-01
 ;;9002226.02101,"1103,54868-1244-01 ",.02)
 ;;54868-1244-01
 ;;9002226.02101,"1103,54868-1244-02 ",.01)
 ;;54868-1244-02
 ;;9002226.02101,"1103,54868-1244-02 ",.02)
 ;;54868-1244-02
 ;;9002226.02101,"1103,54868-1244-03 ",.01)
 ;;54868-1244-03
 ;;9002226.02101,"1103,54868-1244-03 ",.02)
 ;;54868-1244-03
 ;;9002226.02101,"1103,54868-1244-04 ",.01)
 ;;54868-1244-04
 ;;9002226.02101,"1103,54868-1244-04 ",.02)
 ;;54868-1244-04
 ;;9002226.02101,"1103,54868-1245-01 ",.01)
 ;;54868-1245-01
 ;;9002226.02101,"1103,54868-1245-01 ",.02)
 ;;54868-1245-01
 ;;9002226.02101,"1103,54868-1245-02 ",.01)
 ;;54868-1245-02
 ;;9002226.02101,"1103,54868-1245-02 ",.02)
 ;;54868-1245-02
 ;;9002226.02101,"1103,54868-1245-05 ",.01)
 ;;54868-1245-05
 ;;9002226.02101,"1103,54868-1245-05 ",.02)
 ;;54868-1245-05
 ;;9002226.02101,"1103,54868-1361-01 ",.01)
 ;;54868-1361-01
 ;;9002226.02101,"1103,54868-1361-01 ",.02)
 ;;54868-1361-01
 ;;9002226.02101,"1103,54868-1688-01 ",.01)
 ;;54868-1688-01
 ;;9002226.02101,"1103,54868-1688-01 ",.02)
 ;;54868-1688-01
 ;;9002226.02101,"1103,54868-3017-00 ",.01)
 ;;54868-3017-00
 ;;9002226.02101,"1103,54868-3017-00 ",.02)
 ;;54868-3017-00
 ;;9002226.02101,"1103,54868-3265-00 ",.01)
 ;;54868-3265-00
 ;;9002226.02101,"1103,54868-3265-00 ",.02)
 ;;54868-3265-00
 ;;9002226.02101,"1103,54868-3265-01 ",.01)
 ;;54868-3265-01
 ;;9002226.02101,"1103,54868-3265-01 ",.02)
 ;;54868-3265-01
 ;;9002226.02101,"1103,54868-3265-03 ",.01)
 ;;54868-3265-03
 ;;9002226.02101,"1103,54868-3265-03 ",.02)
 ;;54868-3265-03
 ;;9002226.02101,"1103,54868-3265-04 ",.01)
 ;;54868-3265-04
 ;;9002226.02101,"1103,54868-3265-04 ",.02)
 ;;54868-3265-04
 ;;9002226.02101,"1103,54868-3265-05 ",.01)
 ;;54868-3265-05
 ;;9002226.02101,"1103,54868-3265-05 ",.02)
 ;;54868-3265-05
 ;;9002226.02101,"1103,54868-3266-01 ",.01)
 ;;54868-3266-01
 ;;9002226.02101,"1103,54868-3266-01 ",.02)
 ;;54868-3266-01
 ;;9002226.02101,"1103,54868-3266-02 ",.01)
 ;;54868-3266-02
 ;;9002226.02101,"1103,54868-3266-02 ",.02)
 ;;54868-3266-02
 ;;9002226.02101,"1103,54868-3266-03 ",.01)
 ;;54868-3266-03
 ;;9002226.02101,"1103,54868-3266-03 ",.02)
 ;;54868-3266-03
 ;;9002226.02101,"1103,54868-3266-04 ",.01)
 ;;54868-3266-04
 ;;9002226.02101,"1103,54868-3266-04 ",.02)
 ;;54868-3266-04
 ;;9002226.02101,"1103,54868-3318-01 ",.01)
 ;;54868-3318-01
 ;;9002226.02101,"1103,54868-3318-01 ",.02)
 ;;54868-3318-01
 ;;9002226.02101,"1103,54868-3318-02 ",.01)
 ;;54868-3318-02
 ;;9002226.02101,"1103,54868-3318-02 ",.02)
 ;;54868-3318-02
 ;;9002226.02101,"1103,54868-3318-03 ",.01)
 ;;54868-3318-03
 ;;9002226.02101,"1103,54868-3318-03 ",.02)
 ;;54868-3318-03
 ;;9002226.02101,"1103,54868-3318-04 ",.01)
 ;;54868-3318-04
 ;;9002226.02101,"1103,54868-3318-04 ",.02)
 ;;54868-3318-04
 ;;9002226.02101,"1103,54868-3318-05 ",.01)
 ;;54868-3318-05
 ;;9002226.02101,"1103,54868-3318-05 ",.02)
 ;;54868-3318-05
 ;;9002226.02101,"1103,54868-3319-01 ",.01)
 ;;54868-3319-01
 ;;9002226.02101,"1103,54868-3319-01 ",.02)
 ;;54868-3319-01
 ;;9002226.02101,"1103,54868-3319-02 ",.01)
 ;;54868-3319-02
 ;;9002226.02101,"1103,54868-3319-02 ",.02)
 ;;54868-3319-02
 ;;9002226.02101,"1103,54868-3319-03 ",.01)
 ;;54868-3319-03
 ;;9002226.02101,"1103,54868-3319-03 ",.02)
 ;;54868-3319-03
 ;;9002226.02101,"1103,54868-3319-04 ",.01)
 ;;54868-3319-04