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.
  1. BGP14A9 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1103,54348-0098-30 ",.02)
  1. ;;54348-0098-30
  1. ;;9002226.02101,"1103,54348-0104-30 ",.01)
  1. ;;54348-0104-30
  1. ;;9002226.02101,"1103,54348-0104-30 ",.02)
  1. ;;54348-0104-30
  1. ;;9002226.02101,"1103,54458-0966-10 ",.01)
  1. ;;54458-0966-10
  1. ;;9002226.02101,"1103,54458-0966-10 ",.02)
  1. ;;54458-0966-10
  1. ;;9002226.02101,"1103,54458-0967-10 ",.01)
  1. ;;54458-0967-10
  1. ;;9002226.02101,"1103,54458-0967-10 ",.02)
  1. ;;54458-0967-10
  1. ;;9002226.02101,"1103,54458-0968-10 ",.01)
  1. ;;54458-0968-10
  1. ;;9002226.02101,"1103,54458-0968-10 ",.02)
  1. ;;54458-0968-10
  1. ;;9002226.02101,"1103,54458-0971-10 ",.01)
  1. ;;54458-0971-10
  1. ;;9002226.02101,"1103,54458-0971-10 ",.02)
  1. ;;54458-0971-10
  1. ;;9002226.02101,"1103,54458-0972-10 ",.01)
  1. ;;54458-0972-10
  1. ;;9002226.02101,"1103,54458-0972-10 ",.02)
  1. ;;54458-0972-10
  1. ;;9002226.02101,"1103,54458-0973-10 ",.01)
  1. ;;54458-0973-10
  1. ;;9002226.02101,"1103,54458-0973-10 ",.02)
  1. ;;54458-0973-10
  1. ;;9002226.02101,"1103,54569-0200-00 ",.01)
  1. ;;54569-0200-00
  1. ;;9002226.02101,"1103,54569-0200-00 ",.02)
  1. ;;54569-0200-00
  1. ;;9002226.02101,"1103,54569-0203-00 ",.01)
  1. ;;54569-0203-00
  1. ;;9002226.02101,"1103,54569-0203-00 ",.02)
  1. ;;54569-0203-00
  1. ;;9002226.02101,"1103,54569-0203-01 ",.01)
  1. ;;54569-0203-01
  1. ;;9002226.02101,"1103,54569-0203-01 ",.02)
  1. ;;54569-0203-01
  1. ;;9002226.02101,"1103,54569-0206-01 ",.01)
  1. ;;54569-0206-01
  1. ;;9002226.02101,"1103,54569-0206-01 ",.02)
  1. ;;54569-0206-01
  1. ;;9002226.02101,"1103,54569-0206-02 ",.01)
  1. ;;54569-0206-02
  1. ;;9002226.02101,"1103,54569-0206-02 ",.02)
  1. ;;54569-0206-02
  1. ;;9002226.02101,"1103,54569-0206-03 ",.01)
  1. ;;54569-0206-03
  1. ;;9002226.02101,"1103,54569-0206-03 ",.02)
  1. ;;54569-0206-03
  1. ;;9002226.02101,"1103,54569-2017-01 ",.01)
  1. ;;54569-2017-01
  1. ;;9002226.02101,"1103,54569-2017-01 ",.02)
  1. ;;54569-2017-01
  1. ;;9002226.02101,"1103,54569-3690-00 ",.01)
  1. ;;54569-3690-00
  1. ;;9002226.02101,"1103,54569-3690-00 ",.02)
  1. ;;54569-3690-00
  1. ;;9002226.02101,"1103,54569-3690-01 ",.01)
  1. ;;54569-3690-01
  1. ;;9002226.02101,"1103,54569-3690-01 ",.02)
  1. ;;54569-3690-01
  1. ;;9002226.02101,"1103,54569-3830-00 ",.01)
  1. ;;54569-3830-00
  1. ;;9002226.02101,"1103,54569-3830-00 ",.02)
  1. ;;54569-3830-00
  1. ;;9002226.02101,"1103,54569-3830-01 ",.01)
  1. ;;54569-3830-01
  1. ;;9002226.02101,"1103,54569-3830-01 ",.02)
  1. ;;54569-3830-01
  1. ;;9002226.02101,"1103,54569-3830-02 ",.01)
  1. ;;54569-3830-02
  1. ;;9002226.02101,"1103,54569-3830-02 ",.02)
  1. ;;54569-3830-02
  1. ;;9002226.02101,"1103,54569-3831-00 ",.01)
  1. ;;54569-3831-00
  1. ;;9002226.02101,"1103,54569-3831-00 ",.02)
  1. ;;54569-3831-00
  1. ;;9002226.02101,"1103,54569-3831-01 ",.01)
  1. ;;54569-3831-01
  1. ;;9002226.02101,"1103,54569-3831-01 ",.02)
  1. ;;54569-3831-01
  1. ;;9002226.02101,"1103,54569-3831-02 ",.01)
  1. ;;54569-3831-02
  1. ;;9002226.02101,"1103,54569-3831-02 ",.02)
  1. ;;54569-3831-02
  1. ;;9002226.02101,"1103,54569-3831-04 ",.01)
  1. ;;54569-3831-04
  1. ;;9002226.02101,"1103,54569-3831-04 ",.02)
  1. ;;54569-3831-04
  1. ;;9002226.02101,"1103,54569-3831-08 ",.01)
  1. ;;54569-3831-08
  1. ;;9002226.02101,"1103,54569-3831-08 ",.02)
  1. ;;54569-3831-08
  1. ;;9002226.02101,"1103,54569-3832-00 ",.01)
  1. ;;54569-3832-00
  1. ;;9002226.02101,"1103,54569-3832-00 ",.02)
  1. ;;54569-3832-00
  1. ;;9002226.02101,"1103,54569-3841-00 ",.01)
  1. ;;54569-3841-00
  1. ;;9002226.02101,"1103,54569-3841-00 ",.02)
  1. ;;54569-3841-00
  1. ;;9002226.02101,"1103,54569-3841-01 ",.01)
  1. ;;54569-3841-01
  1. ;;9002226.02101,"1103,54569-3841-01 ",.02)
  1. ;;54569-3841-01
  1. ;;9002226.02101,"1103,54569-3841-02 ",.01)
  1. ;;54569-3841-02
  1. ;;9002226.02101,"1103,54569-3841-02 ",.02)
  1. ;;54569-3841-02
  1. ;;9002226.02101,"1103,54569-3842-00 ",.01)
  1. ;;54569-3842-00
  1. ;;9002226.02101,"1103,54569-3842-00 ",.02)
  1. ;;54569-3842-00
  1. ;;9002226.02101,"1103,54569-3842-01 ",.01)
  1. ;;54569-3842-01
  1. ;;9002226.02101,"1103,54569-3842-01 ",.02)
  1. ;;54569-3842-01
  1. ;;9002226.02101,"1103,54569-3842-02 ",.01)
  1. ;;54569-3842-02
  1. ;;9002226.02101,"1103,54569-3842-02 ",.02)
  1. ;;54569-3842-02
  1. ;;9002226.02101,"1103,54569-3842-04 ",.01)
  1. ;;54569-3842-04
  1. ;;9002226.02101,"1103,54569-3842-04 ",.02)
  1. ;;54569-3842-04
  1. ;;9002226.02101,"1103,54569-3937-00 ",.01)
  1. ;;54569-3937-00
  1. ;;9002226.02101,"1103,54569-3937-00 ",.02)
  1. ;;54569-3937-00
  1. ;;9002226.02101,"1103,54569-3938-00 ",.01)
  1. ;;54569-3938-00
  1. ;;9002226.02101,"1103,54569-3938-00 ",.02)
  1. ;;54569-3938-00
  1. ;;9002226.02101,"1103,54569-3938-01 ",.01)
  1. ;;54569-3938-01
  1. ;;9002226.02101,"1103,54569-3938-01 ",.02)
  1. ;;54569-3938-01
  1. ;;9002226.02101,"1103,54569-4453-00 ",.01)
  1. ;;54569-4453-00
  1. ;;9002226.02101,"1103,54569-4453-00 ",.02)
  1. ;;54569-4453-00
  1. ;;9002226.02101,"1103,54569-4453-01 ",.01)
  1. ;;54569-4453-01
  1. ;;9002226.02101,"1103,54569-4453-01 ",.02)
  1. ;;54569-4453-01
  1. ;;9002226.02101,"1103,54569-4695-00 ",.01)
  1. ;;54569-4695-00
  1. ;;9002226.02101,"1103,54569-4695-00 ",.02)
  1. ;;54569-4695-00
  1. ;;9002226.02101,"1103,54569-4695-01 ",.01)
  1. ;;54569-4695-01
  1. ;;9002226.02101,"1103,54569-4695-01 ",.02)
  1. ;;54569-4695-01
  1. ;;9002226.02101,"1103,54569-4706-00 ",.01)
  1. ;;54569-4706-00
  1. ;;9002226.02101,"1103,54569-4706-00 ",.02)
  1. ;;54569-4706-00
  1. ;;9002226.02101,"1103,54569-5210-00 ",.01)
  1. ;;54569-5210-00
  1. ;;9002226.02101,"1103,54569-5210-00 ",.02)
  1. ;;54569-5210-00
  1. ;;9002226.02101,"1103,54569-5210-01 ",.01)
  1. ;;54569-5210-01
  1. ;;9002226.02101,"1103,54569-5210-01 ",.02)
  1. ;;54569-5210-01
  1. ;;9002226.02101,"1103,54569-5211-00 ",.01)
  1. ;;54569-5211-00
  1. ;;9002226.02101,"1103,54569-5211-00 ",.02)
  1. ;;54569-5211-00
  1. ;;9002226.02101,"1103,54569-5211-01 ",.01)
  1. ;;54569-5211-01
  1. ;;9002226.02101,"1103,54569-5211-01 ",.02)
  1. ;;54569-5211-01
  1. ;;9002226.02101,"1103,54569-5547-00 ",.01)
  1. ;;54569-5547-00
  1. ;;9002226.02101,"1103,54569-5547-00 ",.02)
  1. ;;54569-5547-00
  1. ;;9002226.02101,"1103,54569-5547-01 ",.01)
  1. ;;54569-5547-01
  1. ;;9002226.02101,"1103,54569-5547-01 ",.02)
  1. ;;54569-5547-01
  1. ;;9002226.02101,"1103,54569-5548-00 ",.01)
  1. ;;54569-5548-00
  1. ;;9002226.02101,"1103,54569-5548-00 ",.02)
  1. ;;54569-5548-00
  1. ;;9002226.02101,"1103,54569-5548-01 ",.01)
  1. ;;54569-5548-01
  1. ;;9002226.02101,"1103,54569-5548-01 ",.02)
  1. ;;54569-5548-01
  1. ;;9002226.02101,"1103,54569-5618-00 ",.01)
  1. ;;54569-5618-00
  1. ;;9002226.02101,"1103,54569-5618-00 ",.02)
  1. ;;54569-5618-00
  1. ;;9002226.02101,"1103,54569-5618-01 ",.01)
  1. ;;54569-5618-01
  1. ;;9002226.02101,"1103,54569-5618-01 ",.02)
  1. ;;54569-5618-01
  1. ;;9002226.02101,"1103,54569-5619-00 ",.01)
  1. ;;54569-5619-00
  1. ;;9002226.02101,"1103,54569-5619-00 ",.02)
  1. ;;54569-5619-00
  1. ;;9002226.02101,"1103,54569-5619-01 ",.01)
  1. ;;54569-5619-01
  1. ;;9002226.02101,"1103,54569-5619-01 ",.02)
  1. ;;54569-5619-01
  1. ;;9002226.02101,"1103,54569-5855-00 ",.01)
  1. ;;54569-5855-00
  1. ;;9002226.02101,"1103,54569-5855-00 ",.02)
  1. ;;54569-5855-00
  1. ;;9002226.02101,"1103,54569-5991-00 ",.01)
  1. ;;54569-5991-00
  1. ;;9002226.02101,"1103,54569-5991-00 ",.02)
  1. ;;54569-5991-00
  1. ;;9002226.02101,"1103,54569-5992-00 ",.01)
  1. ;;54569-5992-00
  1. ;;9002226.02101,"1103,54569-5992-00 ",.02)
  1. ;;54569-5992-00
  1. ;;9002226.02101,"1103,54569-5993-00 ",.01)
  1. ;;54569-5993-00
  1. ;;9002226.02101,"1103,54569-5993-00 ",.02)
  1. ;;54569-5993-00
  1. ;;9002226.02101,"1103,54569-5993-01 ",.01)
  1. ;;54569-5993-01
  1. ;;9002226.02101,"1103,54569-5993-01 ",.02)
  1. ;;54569-5993-01
  1. ;;9002226.02101,"1103,54569-6072-00 ",.01)
  1. ;;54569-6072-00
  1. ;;9002226.02101,"1103,54569-6072-00 ",.02)
  1. ;;54569-6072-00
  1. ;;9002226.02101,"1103,54868-0036-00 ",.01)
  1. ;;54868-0036-00
  1. ;;9002226.02101,"1103,54868-0036-00 ",.02)
  1. ;;54868-0036-00
  1. ;;9002226.02101,"1103,54868-0036-02 ",.01)
  1. ;;54868-0036-02
  1. ;;9002226.02101,"1103,54868-0036-02 ",.02)
  1. ;;54868-0036-02
  1. ;;9002226.02101,"1103,54868-0036-04 ",.01)
  1. ;;54868-0036-04
  1. ;;9002226.02101,"1103,54868-0036-04 ",.02)
  1. ;;54868-0036-04
  1. ;;9002226.02101,"1103,54868-0373-01 ",.01)
  1. ;;54868-0373-01
  1. ;;9002226.02101,"1103,54868-0373-01 ",.02)
  1. ;;54868-0373-01
  1. ;;9002226.02101,"1103,54868-0373-02 ",.01)
  1. ;;54868-0373-02
  1. ;;9002226.02101,"1103,54868-0373-02 ",.02)
  1. ;;54868-0373-02
  1. ;;9002226.02101,"1103,54868-0795-00 ",.01)
  1. ;;54868-0795-00
  1. ;;9002226.02101,"1103,54868-0795-00 ",.02)
  1. ;;54868-0795-00
  1. ;;9002226.02101,"1103,54868-0877-01 ",.01)
  1. ;;54868-0877-01
  1. ;;9002226.02101,"1103,54868-0877-01 ",.02)
  1. ;;54868-0877-01
  1. ;;9002226.02101,"1103,54868-0996-01 ",.01)
  1. ;;54868-0996-01
  1. ;;9002226.02101,"1103,54868-0996-01 ",.02)
  1. ;;54868-0996-01
  1. ;;9002226.02101,"1103,54868-0996-02 ",.01)
  1. ;;54868-0996-02
  1. ;;9002226.02101,"1103,54868-0996-02 ",.02)
  1. ;;54868-0996-02
  1. ;;9002226.02101,"1103,54868-0997-01 ",.01)
  1. ;;54868-0997-01
  1. ;;9002226.02101,"1103,54868-0997-01 ",.02)
  1. ;;54868-0997-01
  1. ;;9002226.02101,"1103,54868-0997-02 ",.01)
  1. ;;54868-0997-02
  1. ;;9002226.02101,"1103,54868-0997-02 ",.02)
  1. ;;54868-0997-02
  1. ;;9002226.02101,"1103,54868-0997-04 ",.01)
  1. ;;54868-0997-04
  1. ;;9002226.02101,"1103,54868-0997-04 ",.02)
  1. ;;54868-0997-04
  1. ;;9002226.02101,"1103,54868-1020-00 ",.01)
  1. ;;54868-1020-00
  1. ;;9002226.02101,"1103,54868-1020-00 ",.02)
  1. ;;54868-1020-00
  1. ;;9002226.02101,"1103,54868-1089-01 ",.01)
  1. ;;54868-1089-01
  1. ;;9002226.02101,"1103,54868-1089-01 ",.02)
  1. ;;54868-1089-01
  1. ;;9002226.02101,"1103,54868-1089-02 ",.01)
  1. ;;54868-1089-02
  1. ;;9002226.02101,"1103,54868-1089-02 ",.02)
  1. ;;54868-1089-02
  1. ;;9002226.02101,"1103,54868-1089-03 ",.01)
  1. ;;54868-1089-03
  1. ;;9002226.02101,"1103,54868-1089-03 ",.02)
  1. ;;54868-1089-03
  1. ;;9002226.02101,"1103,54868-1244-01 ",.01)
  1. ;;54868-1244-01
  1. ;;9002226.02101,"1103,54868-1244-01 ",.02)
  1. ;;54868-1244-01
  1. ;;9002226.02101,"1103,54868-1244-02 ",.01)
  1. ;;54868-1244-02
  1. ;;9002226.02101,"1103,54868-1244-02 ",.02)
  1. ;;54868-1244-02
  1. ;;9002226.02101,"1103,54868-1244-03 ",.01)
  1. ;;54868-1244-03
  1. ;;9002226.02101,"1103,54868-1244-03 ",.02)
  1. ;;54868-1244-03
  1. ;;9002226.02101,"1103,54868-1244-04 ",.01)
  1. ;;54868-1244-04
  1. ;;9002226.02101,"1103,54868-1244-04 ",.02)
  1. ;;54868-1244-04
  1. ;;9002226.02101,"1103,54868-1245-01 ",.01)
  1. ;;54868-1245-01
  1. ;;9002226.02101,"1103,54868-1245-01 ",.02)
  1. ;;54868-1245-01
  1. ;;9002226.02101,"1103,54868-1245-02 ",.01)
  1. ;;54868-1245-02
  1. ;;9002226.02101,"1103,54868-1245-02 ",.02)
  1. ;;54868-1245-02
  1. ;;9002226.02101,"1103,54868-1245-05 ",.01)
  1. ;;54868-1245-05
  1. ;;9002226.02101,"1103,54868-1245-05 ",.02)
  1. ;;54868-1245-05
  1. ;;9002226.02101,"1103,54868-1361-01 ",.01)
  1. ;;54868-1361-01
  1. ;;9002226.02101,"1103,54868-1361-01 ",.02)
  1. ;;54868-1361-01
  1. ;;9002226.02101,"1103,54868-1688-01 ",.01)
  1. ;;54868-1688-01
  1. ;;9002226.02101,"1103,54868-1688-01 ",.02)
  1. ;;54868-1688-01
  1. ;;9002226.02101,"1103,54868-3017-00 ",.01)
  1. ;;54868-3017-00
  1. ;;9002226.02101,"1103,54868-3017-00 ",.02)
  1. ;;54868-3017-00
  1. ;;9002226.02101,"1103,54868-3265-00 ",.01)
  1. ;;54868-3265-00
  1. ;;9002226.02101,"1103,54868-3265-00 ",.02)
  1. ;;54868-3265-00
  1. ;;9002226.02101,"1103,54868-3265-01 ",.01)
  1. ;;54868-3265-01
  1. ;;9002226.02101,"1103,54868-3265-01 ",.02)
  1. ;;54868-3265-01
  1. ;;9002226.02101,"1103,54868-3265-03 ",.01)
  1. ;;54868-3265-03
  1. ;;9002226.02101,"1103,54868-3265-03 ",.02)
  1. ;;54868-3265-03
  1. ;;9002226.02101,"1103,54868-3265-04 ",.01)
  1. ;;54868-3265-04
  1. ;;9002226.02101,"1103,54868-3265-04 ",.02)
  1. ;;54868-3265-04
  1. ;;9002226.02101,"1103,54868-3265-05 ",.01)
  1. ;;54868-3265-05
  1. ;;9002226.02101,"1103,54868-3265-05 ",.02)
  1. ;;54868-3265-05
  1. ;;9002226.02101,"1103,54868-3266-01 ",.01)
  1. ;;54868-3266-01
  1. ;;9002226.02101,"1103,54868-3266-01 ",.02)
  1. ;;54868-3266-01
  1. ;;9002226.02101,"1103,54868-3266-02 ",.01)
  1. ;;54868-3266-02
  1. ;;9002226.02101,"1103,54868-3266-02 ",.02)
  1. ;;54868-3266-02
  1. ;;9002226.02101,"1103,54868-3266-03 ",.01)
  1. ;;54868-3266-03
  1. ;;9002226.02101,"1103,54868-3266-03 ",.02)
  1. ;;54868-3266-03
  1. ;;9002226.02101,"1103,54868-3266-04 ",.01)
  1. ;;54868-3266-04
  1. ;;9002226.02101,"1103,54868-3266-04 ",.02)
  1. ;;54868-3266-04
  1. ;;9002226.02101,"1103,54868-3318-01 ",.01)
  1. ;;54868-3318-01
  1. ;;9002226.02101,"1103,54868-3318-01 ",.02)
  1. ;;54868-3318-01
  1. ;;9002226.02101,"1103,54868-3318-02 ",.01)
  1. ;;54868-3318-02
  1. ;;9002226.02101,"1103,54868-3318-02 ",.02)
  1. ;;54868-3318-02
  1. ;;9002226.02101,"1103,54868-3318-03 ",.01)
  1. ;;54868-3318-03
  1. ;;9002226.02101,"1103,54868-3318-03 ",.02)
  1. ;;54868-3318-03
  1. ;;9002226.02101,"1103,54868-3318-04 ",.01)
  1. ;;54868-3318-04
  1. ;;9002226.02101,"1103,54868-3318-04 ",.02)
  1. ;;54868-3318-04
  1. ;;9002226.02101,"1103,54868-3318-05 ",.01)
  1. ;;54868-3318-05
  1. ;;9002226.02101,"1103,54868-3318-05 ",.02)
  1. ;;54868-3318-05
  1. ;;9002226.02101,"1103,54868-3319-01 ",.01)
  1. ;;54868-3319-01
  1. ;;9002226.02101,"1103,54868-3319-01 ",.02)
  1. ;;54868-3319-01
  1. ;;9002226.02101,"1103,54868-3319-02 ",.01)
  1. ;;54868-3319-02
  1. ;;9002226.02101,"1103,54868-3319-02 ",.02)
  1. ;;54868-3319-02
  1. ;;9002226.02101,"1103,54868-3319-03 ",.01)
  1. ;;54868-3319-03
  1. ;;9002226.02101,"1103,54868-3319-03 ",.02)
  1. ;;54868-3319-03
  1. ;;9002226.02101,"1103,54868-3319-04 ",.01)
  1. ;;54868-3319-04