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

BGP12XI.m

Go to the documentation of this file.
BGP12XI ; 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,"686,54092-0373-01 ",.02)
 ;;54092-0373-01
 ;;9002226.02101,"686,54092-0374-01 ",.01)
 ;;54092-0374-01
 ;;9002226.02101,"686,54092-0374-01 ",.02)
 ;;54092-0374-01
 ;;9002226.02101,"686,54092-0375-01 ",.01)
 ;;54092-0375-01
 ;;9002226.02101,"686,54092-0375-01 ",.02)
 ;;54092-0375-01
 ;;9002226.02101,"686,54092-0376-01 ",.01)
 ;;54092-0376-01
 ;;9002226.02101,"686,54092-0376-01 ",.02)
 ;;54092-0376-01
 ;;9002226.02101,"686,54092-0377-01 ",.01)
 ;;54092-0377-01
 ;;9002226.02101,"686,54092-0377-01 ",.02)
 ;;54092-0377-01
 ;;9002226.02101,"686,54092-0381-01 ",.01)
 ;;54092-0381-01
 ;;9002226.02101,"686,54092-0381-01 ",.02)
 ;;54092-0381-01
 ;;9002226.02101,"686,54092-0383-01 ",.01)
 ;;54092-0383-01
 ;;9002226.02101,"686,54092-0383-01 ",.02)
 ;;54092-0383-01
 ;;9002226.02101,"686,54092-0385-01 ",.01)
 ;;54092-0385-01
 ;;9002226.02101,"686,54092-0385-01 ",.02)
 ;;54092-0385-01
 ;;9002226.02101,"686,54092-0387-01 ",.01)
 ;;54092-0387-01
 ;;9002226.02101,"686,54092-0387-01 ",.02)
 ;;54092-0387-01
 ;;9002226.02101,"686,54092-0389-01 ",.01)
 ;;54092-0389-01
 ;;9002226.02101,"686,54092-0389-01 ",.02)
 ;;54092-0389-01
 ;;9002226.02101,"686,54092-0391-01 ",.01)
 ;;54092-0391-01
 ;;9002226.02101,"686,54092-0391-01 ",.02)
 ;;54092-0391-01
 ;;9002226.02101,"686,54092-0552-10 ",.01)
 ;;54092-0552-10
 ;;9002226.02101,"686,54092-0552-10 ",.02)
 ;;54092-0552-10
 ;;9002226.02101,"686,54092-0552-30 ",.01)
 ;;54092-0552-30
 ;;9002226.02101,"686,54092-0552-30 ",.02)
 ;;54092-0552-30
 ;;9002226.02101,"686,54092-0553-10 ",.01)
 ;;54092-0553-10
 ;;9002226.02101,"686,54092-0553-10 ",.02)
 ;;54092-0553-10
 ;;9002226.02101,"686,54092-0553-30 ",.01)
 ;;54092-0553-30
 ;;9002226.02101,"686,54092-0553-30 ",.02)
 ;;54092-0553-30
 ;;9002226.02101,"686,54092-0554-10 ",.01)
 ;;54092-0554-10
 ;;9002226.02101,"686,54092-0554-10 ",.02)
 ;;54092-0554-10
 ;;9002226.02101,"686,54092-0554-30 ",.01)
 ;;54092-0554-30
 ;;9002226.02101,"686,54092-0554-30 ",.02)
 ;;54092-0554-30
 ;;9002226.02101,"686,54092-0555-10 ",.01)
 ;;54092-0555-10
 ;;9002226.02101,"686,54092-0555-10 ",.02)
 ;;54092-0555-10
 ;;9002226.02101,"686,54092-0555-30 ",.01)
 ;;54092-0555-30
 ;;9002226.02101,"686,54092-0555-30 ",.02)
 ;;54092-0555-30
 ;;9002226.02101,"686,54569-0389-00 ",.01)
 ;;54569-0389-00
 ;;9002226.02101,"686,54569-0389-00 ",.02)
 ;;54569-0389-00
 ;;9002226.02101,"686,54569-0389-01 ",.01)
 ;;54569-0389-01
 ;;9002226.02101,"686,54569-0389-01 ",.02)
 ;;54569-0389-01
 ;;9002226.02101,"686,54569-0389-05 ",.01)
 ;;54569-0389-05
 ;;9002226.02101,"686,54569-0389-05 ",.02)
 ;;54569-0389-05
 ;;9002226.02101,"686,54569-0389-06 ",.01)
 ;;54569-0389-06
 ;;9002226.02101,"686,54569-0389-06 ",.02)
 ;;54569-0389-06
 ;;9002226.02101,"686,54569-0392-00 ",.01)
 ;;54569-0392-00
 ;;9002226.02101,"686,54569-0392-00 ",.02)
 ;;54569-0392-00
 ;;9002226.02101,"686,54569-0392-02 ",.01)
 ;;54569-0392-02
 ;;9002226.02101,"686,54569-0392-02 ",.02)
 ;;54569-0392-02
 ;;9002226.02101,"686,54569-0392-03 ",.01)
 ;;54569-0392-03
 ;;9002226.02101,"686,54569-0392-03 ",.02)
 ;;54569-0392-03
 ;;9002226.02101,"686,54569-0392-04 ",.01)
 ;;54569-0392-04
 ;;9002226.02101,"686,54569-0392-04 ",.02)
 ;;54569-0392-04
 ;;9002226.02101,"686,54569-0396-00 ",.01)
 ;;54569-0396-00
 ;;9002226.02101,"686,54569-0396-00 ",.02)
 ;;54569-0396-00
 ;;9002226.02101,"686,54569-0396-01 ",.01)
 ;;54569-0396-01
 ;;9002226.02101,"686,54569-0396-01 ",.02)
 ;;54569-0396-01
 ;;9002226.02101,"686,54569-0396-05 ",.01)
 ;;54569-0396-05
 ;;9002226.02101,"686,54569-0396-05 ",.02)
 ;;54569-0396-05
 ;;9002226.02101,"686,54569-1718-00 ",.01)
 ;;54569-1718-00
 ;;9002226.02101,"686,54569-1718-00 ",.02)
 ;;54569-1718-00
 ;;9002226.02101,"686,54569-1718-01 ",.01)
 ;;54569-1718-01
 ;;9002226.02101,"686,54569-1718-01 ",.02)
 ;;54569-1718-01
 ;;9002226.02101,"686,54569-1718-03 ",.01)
 ;;54569-1718-03
 ;;9002226.02101,"686,54569-1718-03 ",.02)
 ;;54569-1718-03
 ;;9002226.02101,"686,54569-1718-04 ",.01)
 ;;54569-1718-04
 ;;9002226.02101,"686,54569-1718-04 ",.02)
 ;;54569-1718-04
 ;;9002226.02101,"686,54569-1718-05 ",.01)
 ;;54569-1718-05
 ;;9002226.02101,"686,54569-1718-05 ",.02)
 ;;54569-1718-05
 ;;9002226.02101,"686,54569-1798-02 ",.01)
 ;;54569-1798-02
 ;;9002226.02101,"686,54569-1798-02 ",.02)
 ;;54569-1798-02
 ;;9002226.02101,"686,54569-1798-03 ",.01)
 ;;54569-1798-03
 ;;9002226.02101,"686,54569-1798-03 ",.02)
 ;;54569-1798-03
 ;;9002226.02101,"686,54569-1798-06 ",.01)
 ;;54569-1798-06
 ;;9002226.02101,"686,54569-1798-06 ",.02)
 ;;54569-1798-06
 ;;9002226.02101,"686,54569-1798-09 ",.01)
 ;;54569-1798-09
 ;;9002226.02101,"686,54569-1798-09 ",.02)
 ;;54569-1798-09
 ;;9002226.02101,"686,54569-2059-03 ",.01)
 ;;54569-2059-03
 ;;9002226.02101,"686,54569-2059-03 ",.02)
 ;;54569-2059-03
 ;;9002226.02101,"686,54569-2059-04 ",.01)
 ;;54569-2059-04
 ;;9002226.02101,"686,54569-2059-04 ",.02)
 ;;54569-2059-04
 ;;9002226.02101,"686,54569-2059-05 ",.01)
 ;;54569-2059-05
 ;;9002226.02101,"686,54569-2059-05 ",.02)
 ;;54569-2059-05
 ;;9002226.02101,"686,54569-2059-07 ",.01)
 ;;54569-2059-07
 ;;9002226.02101,"686,54569-2059-07 ",.02)
 ;;54569-2059-07
 ;;9002226.02101,"686,54569-2059-08 ",.01)
 ;;54569-2059-08
 ;;9002226.02101,"686,54569-2059-08 ",.02)
 ;;54569-2059-08
 ;;9002226.02101,"686,54569-2059-09 ",.01)
 ;;54569-2059-09
 ;;9002226.02101,"686,54569-2059-09 ",.02)
 ;;54569-2059-09
 ;;9002226.02101,"686,54569-2198-00 ",.01)
 ;;54569-2198-00
 ;;9002226.02101,"686,54569-2198-00 ",.02)
 ;;54569-2198-00
 ;;9002226.02101,"686,54569-2198-01 ",.01)
 ;;54569-2198-01
 ;;9002226.02101,"686,54569-2198-01 ",.02)
 ;;54569-2198-01
 ;;9002226.02101,"686,54569-2198-02 ",.01)
 ;;54569-2198-02
 ;;9002226.02101,"686,54569-2198-02 ",.02)
 ;;54569-2198-02
 ;;9002226.02101,"686,54569-2668-00 ",.01)
 ;;54569-2668-00
 ;;9002226.02101,"686,54569-2668-00 ",.02)
 ;;54569-2668-00
 ;;9002226.02101,"686,54569-2668-01 ",.01)
 ;;54569-2668-01
 ;;9002226.02101,"686,54569-2668-01 ",.02)
 ;;54569-2668-01
 ;;9002226.02101,"686,54569-2668-04 ",.01)
 ;;54569-2668-04
 ;;9002226.02101,"686,54569-2668-04 ",.02)
 ;;54569-2668-04
 ;;9002226.02101,"686,54569-2668-05 ",.01)
 ;;54569-2668-05
 ;;9002226.02101,"686,54569-2668-05 ",.02)
 ;;54569-2668-05
 ;;9002226.02101,"686,54569-2668-06 ",.01)
 ;;54569-2668-06
 ;;9002226.02101,"686,54569-2668-06 ",.02)
 ;;54569-2668-06
 ;;9002226.02101,"686,54569-2668-07 ",.01)
 ;;54569-2668-07
 ;;9002226.02101,"686,54569-2668-07 ",.02)
 ;;54569-2668-07
 ;;9002226.02101,"686,54569-2668-09 ",.01)
 ;;54569-2668-09
 ;;9002226.02101,"686,54569-2668-09 ",.02)
 ;;54569-2668-09
 ;;9002226.02101,"686,54569-2669-00 ",.01)
 ;;54569-2669-00
 ;;9002226.02101,"686,54569-2669-00 ",.02)
 ;;54569-2669-00
 ;;9002226.02101,"686,54569-2669-01 ",.01)
 ;;54569-2669-01
 ;;9002226.02101,"686,54569-2669-01 ",.02)
 ;;54569-2669-01
 ;;9002226.02101,"686,54569-2669-02 ",.01)
 ;;54569-2669-02
 ;;9002226.02101,"686,54569-2669-02 ",.02)
 ;;54569-2669-02
 ;;9002226.02101,"686,54569-2669-03 ",.01)
 ;;54569-2669-03
 ;;9002226.02101,"686,54569-2669-03 ",.02)
 ;;54569-2669-03
 ;;9002226.02101,"686,54569-2949-03 ",.01)
 ;;54569-2949-03
 ;;9002226.02101,"686,54569-2949-03 ",.02)
 ;;54569-2949-03
 ;;9002226.02101,"686,54569-2949-04 ",.01)
 ;;54569-2949-04
 ;;9002226.02101,"686,54569-2949-04 ",.02)
 ;;54569-2949-04
 ;;9002226.02101,"686,54569-3069-00 ",.01)
 ;;54569-3069-00
 ;;9002226.02101,"686,54569-3069-00 ",.02)
 ;;54569-3069-00
 ;;9002226.02101,"686,54569-3069-02 ",.01)
 ;;54569-3069-02
 ;;9002226.02101,"686,54569-3069-02 ",.02)
 ;;54569-3069-02
 ;;9002226.02101,"686,54569-3069-03 ",.01)
 ;;54569-3069-03
 ;;9002226.02101,"686,54569-3069-03 ",.02)
 ;;54569-3069-03
 ;;9002226.02101,"686,54569-3069-04 ",.01)
 ;;54569-3069-04
 ;;9002226.02101,"686,54569-3069-04 ",.02)
 ;;54569-3069-04
 ;;9002226.02101,"686,54569-3069-05 ",.01)
 ;;54569-3069-05
 ;;9002226.02101,"686,54569-3069-05 ",.02)
 ;;54569-3069-05
 ;;9002226.02101,"686,54569-3069-06 ",.01)
 ;;54569-3069-06
 ;;9002226.02101,"686,54569-3069-06 ",.02)
 ;;54569-3069-06
 ;;9002226.02101,"686,54569-3203-00 ",.01)
 ;;54569-3203-00
 ;;9002226.02101,"686,54569-3203-00 ",.02)
 ;;54569-3203-00
 ;;9002226.02101,"686,54569-3203-01 ",.01)
 ;;54569-3203-01
 ;;9002226.02101,"686,54569-3203-01 ",.02)
 ;;54569-3203-01
 ;;9002226.02101,"686,54569-3203-02 ",.01)
 ;;54569-3203-02
 ;;9002226.02101,"686,54569-3203-02 ",.02)
 ;;54569-3203-02
 ;;9002226.02101,"686,54569-3203-03 ",.01)
 ;;54569-3203-03
 ;;9002226.02101,"686,54569-3203-03 ",.02)
 ;;54569-3203-03
 ;;9002226.02101,"686,54569-3203-04 ",.01)
 ;;54569-3203-04
 ;;9002226.02101,"686,54569-3203-04 ",.02)
 ;;54569-3203-04
 ;;9002226.02101,"686,54569-3203-08 ",.01)
 ;;54569-3203-08
 ;;9002226.02101,"686,54569-3203-08 ",.02)
 ;;54569-3203-08
 ;;9002226.02101,"686,54569-4143-00 ",.01)
 ;;54569-4143-00
 ;;9002226.02101,"686,54569-4143-00 ",.02)
 ;;54569-4143-00
 ;;9002226.02101,"686,54569-4143-02 ",.01)
 ;;54569-4143-02
 ;;9002226.02101,"686,54569-4143-02 ",.02)
 ;;54569-4143-02
 ;;9002226.02101,"686,54569-4143-04 ",.01)
 ;;54569-4143-04
 ;;9002226.02101,"686,54569-4143-04 ",.02)
 ;;54569-4143-04
 ;;9002226.02101,"686,54569-4143-05 ",.01)
 ;;54569-4143-05
 ;;9002226.02101,"686,54569-4143-05 ",.02)
 ;;54569-4143-05
 ;;9002226.02101,"686,54569-4336-00 ",.01)
 ;;54569-4336-00
 ;;9002226.02101,"686,54569-4336-00 ",.02)
 ;;54569-4336-00
 ;;9002226.02101,"686,54569-4816-01 ",.01)
 ;;54569-4816-01
 ;;9002226.02101,"686,54569-4816-01 ",.02)
 ;;54569-4816-01
 ;;9002226.02101,"686,54569-4816-02 ",.01)
 ;;54569-4816-02
 ;;9002226.02101,"686,54569-4816-02 ",.02)
 ;;54569-4816-02
 ;;9002226.02101,"686,54569-5120-02 ",.01)
 ;;54569-5120-02
 ;;9002226.02101,"686,54569-5120-02 ",.02)
 ;;54569-5120-02
 ;;9002226.02101,"686,54569-5195-00 ",.01)
 ;;54569-5195-00
 ;;9002226.02101,"686,54569-5195-00 ",.02)
 ;;54569-5195-00
 ;;9002226.02101,"686,54569-5195-01 ",.01)
 ;;54569-5195-01
 ;;9002226.02101,"686,54569-5195-01 ",.02)
 ;;54569-5195-01
 ;;9002226.02101,"686,54569-5195-02 ",.01)
 ;;54569-5195-02
 ;;9002226.02101,"686,54569-5195-02 ",.02)
 ;;54569-5195-02
 ;;9002226.02101,"686,54569-5195-03 ",.01)
 ;;54569-5195-03
 ;;9002226.02101,"686,54569-5195-03 ",.02)
 ;;54569-5195-03
 ;;9002226.02101,"686,54569-5195-04 ",.01)
 ;;54569-5195-04
 ;;9002226.02101,"686,54569-5195-04 ",.02)
 ;;54569-5195-04
 ;;9002226.02101,"686,54569-5195-05 ",.01)
 ;;54569-5195-05
 ;;9002226.02101,"686,54569-5195-05 ",.02)
 ;;54569-5195-05
 ;;9002226.02101,"686,54569-5195-06 ",.01)
 ;;54569-5195-06
 ;;9002226.02101,"686,54569-5195-06 ",.02)
 ;;54569-5195-06
 ;;9002226.02101,"686,54569-5195-07 ",.01)
 ;;54569-5195-07
 ;;9002226.02101,"686,54569-5195-07 ",.02)
 ;;54569-5195-07
 ;;9002226.02101,"686,54569-5195-08 ",.01)
 ;;54569-5195-08
 ;;9002226.02101,"686,54569-5195-08 ",.02)
 ;;54569-5195-08
 ;;9002226.02101,"686,54569-5195-09 ",.01)
 ;;54569-5195-09
 ;;9002226.02101,"686,54569-5195-09 ",.02)
 ;;54569-5195-09
 ;;9002226.02101,"686,54569-5224-02 ",.01)
 ;;54569-5224-02
 ;;9002226.02101,"686,54569-5224-02 ",.02)
 ;;54569-5224-02
 ;;9002226.02101,"686,54569-5233-00 ",.01)
 ;;54569-5233-00
 ;;9002226.02101,"686,54569-5233-00 ",.02)
 ;;54569-5233-00
 ;;9002226.02101,"686,54569-5233-01 ",.01)
 ;;54569-5233-01
 ;;9002226.02101,"686,54569-5233-01 ",.02)
 ;;54569-5233-01
 ;;9002226.02101,"686,54569-6078-00 ",.01)
 ;;54569-6078-00
 ;;9002226.02101,"686,54569-6078-00 ",.02)
 ;;54569-6078-00
 ;;9002226.02101,"686,54868-0087-00 ",.01)
 ;;54868-0087-00
 ;;9002226.02101,"686,54868-0087-00 ",.02)
 ;;54868-0087-00
 ;;9002226.02101,"686,54868-0087-01 ",.01)
 ;;54868-0087-01
 ;;9002226.02101,"686,54868-0087-01 ",.02)
 ;;54868-0087-01
 ;;9002226.02101,"686,54868-0087-02 ",.01)
 ;;54868-0087-02
 ;;9002226.02101,"686,54868-0087-02 ",.02)
 ;;54868-0087-02
 ;;9002226.02101,"686,54868-0087-03 ",.01)
 ;;54868-0087-03
 ;;9002226.02101,"686,54868-0087-03 ",.02)
 ;;54868-0087-03
 ;;9002226.02101,"686,54868-0192-00 ",.01)
 ;;54868-0192-00
 ;;9002226.02101,"686,54868-0192-00 ",.02)
 ;;54868-0192-00
 ;;9002226.02101,"686,54868-0192-01 ",.01)
 ;;54868-0192-01
 ;;9002226.02101,"686,54868-0192-01 ",.02)
 ;;54868-0192-01
 ;;9002226.02101,"686,54868-0192-04 ",.01)
 ;;54868-0192-04
 ;;9002226.02101,"686,54868-0192-04 ",.02)
 ;;54868-0192-04
 ;;9002226.02101,"686,54868-0252-00 ",.01)
 ;;54868-0252-00
 ;;9002226.02101,"686,54868-0252-00 ",.02)
 ;;54868-0252-00
 ;;9002226.02101,"686,54868-0252-01 ",.01)
 ;;54868-0252-01
 ;;9002226.02101,"686,54868-0252-01 ",.02)
 ;;54868-0252-01