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

BGP12XG.m

Go to the documentation of this file.
BGP12XG ; 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,23490-5434-02 ",.02)
 ;;23490-5434-02
 ;;9002226.02101,"686,23490-5434-03 ",.01)
 ;;23490-5434-03
 ;;9002226.02101,"686,23490-5434-03 ",.02)
 ;;23490-5434-03
 ;;9002226.02101,"686,23490-5434-04 ",.01)
 ;;23490-5434-04
 ;;9002226.02101,"686,23490-5434-04 ",.02)
 ;;23490-5434-04
 ;;9002226.02101,"686,23490-5434-05 ",.01)
 ;;23490-5434-05
 ;;9002226.02101,"686,23490-5434-05 ",.02)
 ;;23490-5434-05
 ;;9002226.02101,"686,23490-5434-06 ",.01)
 ;;23490-5434-06
 ;;9002226.02101,"686,23490-5434-06 ",.02)
 ;;23490-5434-06
 ;;9002226.02101,"686,23490-5434-07 ",.01)
 ;;23490-5434-07
 ;;9002226.02101,"686,23490-5434-07 ",.02)
 ;;23490-5434-07
 ;;9002226.02101,"686,23490-5435-01 ",.01)
 ;;23490-5435-01
 ;;9002226.02101,"686,23490-5435-01 ",.02)
 ;;23490-5435-01
 ;;9002226.02101,"686,23490-5435-02 ",.01)
 ;;23490-5435-02
 ;;9002226.02101,"686,23490-5435-02 ",.02)
 ;;23490-5435-02
 ;;9002226.02101,"686,23490-5435-03 ",.01)
 ;;23490-5435-03
 ;;9002226.02101,"686,23490-5435-03 ",.02)
 ;;23490-5435-03
 ;;9002226.02101,"686,23490-5435-04 ",.01)
 ;;23490-5435-04
 ;;9002226.02101,"686,23490-5435-04 ",.02)
 ;;23490-5435-04
 ;;9002226.02101,"686,23490-6081-01 ",.01)
 ;;23490-6081-01
 ;;9002226.02101,"686,23490-6081-01 ",.02)
 ;;23490-6081-01
 ;;9002226.02101,"686,23490-6081-02 ",.01)
 ;;23490-6081-02
 ;;9002226.02101,"686,23490-6081-02 ",.02)
 ;;23490-6081-02
 ;;9002226.02101,"686,23490-6081-03 ",.01)
 ;;23490-6081-03
 ;;9002226.02101,"686,23490-6081-03 ",.02)
 ;;23490-6081-03
 ;;9002226.02101,"686,23490-6081-04 ",.01)
 ;;23490-6081-04
 ;;9002226.02101,"686,23490-6081-04 ",.02)
 ;;23490-6081-04
 ;;9002226.02101,"686,23490-6082-01 ",.01)
 ;;23490-6082-01
 ;;9002226.02101,"686,23490-6082-01 ",.02)
 ;;23490-6082-01
 ;;9002226.02101,"686,23490-6082-02 ",.01)
 ;;23490-6082-02
 ;;9002226.02101,"686,23490-6082-02 ",.02)
 ;;23490-6082-02
 ;;9002226.02101,"686,23490-6082-03 ",.01)
 ;;23490-6082-03
 ;;9002226.02101,"686,23490-6082-03 ",.02)
 ;;23490-6082-03
 ;;9002226.02101,"686,23490-6082-04 ",.01)
 ;;23490-6082-04
 ;;9002226.02101,"686,23490-6082-04 ",.02)
 ;;23490-6082-04
 ;;9002226.02101,"686,23490-6082-05 ",.01)
 ;;23490-6082-05
 ;;9002226.02101,"686,23490-6082-05 ",.02)
 ;;23490-6082-05
 ;;9002226.02101,"686,23490-6082-06 ",.01)
 ;;23490-6082-06
 ;;9002226.02101,"686,23490-6082-06 ",.02)
 ;;23490-6082-06
 ;;9002226.02101,"686,23490-6082-07 ",.01)
 ;;23490-6082-07
 ;;9002226.02101,"686,23490-6082-07 ",.02)
 ;;23490-6082-07
 ;;9002226.02101,"686,23490-6082-08 ",.01)
 ;;23490-6082-08
 ;;9002226.02101,"686,23490-6082-08 ",.02)
 ;;23490-6082-08
 ;;9002226.02101,"686,23490-6090-01 ",.01)
 ;;23490-6090-01
 ;;9002226.02101,"686,23490-6090-01 ",.02)
 ;;23490-6090-01
 ;;9002226.02101,"686,23490-6090-02 ",.01)
 ;;23490-6090-02
 ;;9002226.02101,"686,23490-6090-02 ",.02)
 ;;23490-6090-02
 ;;9002226.02101,"686,23490-6090-03 ",.01)
 ;;23490-6090-03
 ;;9002226.02101,"686,23490-6090-03 ",.02)
 ;;23490-6090-03
 ;;9002226.02101,"686,23490-6090-04 ",.01)
 ;;23490-6090-04
 ;;9002226.02101,"686,23490-6090-04 ",.02)
 ;;23490-6090-04
 ;;9002226.02101,"686,23490-6090-06 ",.01)
 ;;23490-6090-06
 ;;9002226.02101,"686,23490-6090-06 ",.02)
 ;;23490-6090-06
 ;;9002226.02101,"686,23490-6092-00 ",.01)
 ;;23490-6092-00
 ;;9002226.02101,"686,23490-6092-00 ",.02)
 ;;23490-6092-00
 ;;9002226.02101,"686,23490-6092-01 ",.01)
 ;;23490-6092-01
 ;;9002226.02101,"686,23490-6092-01 ",.02)
 ;;23490-6092-01
 ;;9002226.02101,"686,23490-6092-03 ",.01)
 ;;23490-6092-03
 ;;9002226.02101,"686,23490-6092-03 ",.02)
 ;;23490-6092-03
 ;;9002226.02101,"686,23490-6092-06 ",.01)
 ;;23490-6092-06
 ;;9002226.02101,"686,23490-6092-06 ",.02)
 ;;23490-6092-06
 ;;9002226.02101,"686,23490-6092-07 ",.01)
 ;;23490-6092-07
 ;;9002226.02101,"686,23490-6092-07 ",.02)
 ;;23490-6092-07
 ;;9002226.02101,"686,23490-6092-08 ",.01)
 ;;23490-6092-08
 ;;9002226.02101,"686,23490-6092-08 ",.02)
 ;;23490-6092-08
 ;;9002226.02101,"686,23490-6092-09 ",.01)
 ;;23490-6092-09
 ;;9002226.02101,"686,23490-6092-09 ",.02)
 ;;23490-6092-09
 ;;9002226.02101,"686,23490-6094-00 ",.01)
 ;;23490-6094-00
 ;;9002226.02101,"686,23490-6094-00 ",.02)
 ;;23490-6094-00
 ;;9002226.02101,"686,23490-6094-01 ",.01)
 ;;23490-6094-01
 ;;9002226.02101,"686,23490-6094-01 ",.02)
 ;;23490-6094-01
 ;;9002226.02101,"686,23490-6094-02 ",.01)
 ;;23490-6094-02
 ;;9002226.02101,"686,23490-6094-02 ",.02)
 ;;23490-6094-02
 ;;9002226.02101,"686,23490-6094-03 ",.01)
 ;;23490-6094-03
 ;;9002226.02101,"686,23490-6094-03 ",.02)
 ;;23490-6094-03
 ;;9002226.02101,"686,23490-6094-04 ",.01)
 ;;23490-6094-04
 ;;9002226.02101,"686,23490-6094-04 ",.02)
 ;;23490-6094-04
 ;;9002226.02101,"686,23490-6094-05 ",.01)
 ;;23490-6094-05
 ;;9002226.02101,"686,23490-6094-05 ",.02)
 ;;23490-6094-05
 ;;9002226.02101,"686,23490-6094-06 ",.01)
 ;;23490-6094-06
 ;;9002226.02101,"686,23490-6094-06 ",.02)
 ;;23490-6094-06
 ;;9002226.02101,"686,23490-6094-09 ",.01)
 ;;23490-6094-09
 ;;9002226.02101,"686,23490-6094-09 ",.02)
 ;;23490-6094-09
 ;;9002226.02101,"686,23490-7240-00 ",.01)
 ;;23490-7240-00
 ;;9002226.02101,"686,23490-7240-00 ",.02)
 ;;23490-7240-00
 ;;9002226.02101,"686,23490-7240-01 ",.01)
 ;;23490-7240-01
 ;;9002226.02101,"686,23490-7240-01 ",.02)
 ;;23490-7240-01
 ;;9002226.02101,"686,23490-7240-02 ",.01)
 ;;23490-7240-02
 ;;9002226.02101,"686,23490-7240-02 ",.02)
 ;;23490-7240-02
 ;;9002226.02101,"686,23490-7240-03 ",.01)
 ;;23490-7240-03
 ;;9002226.02101,"686,23490-7240-03 ",.02)
 ;;23490-7240-03
 ;;9002226.02101,"686,23490-7240-04 ",.01)
 ;;23490-7240-04
 ;;9002226.02101,"686,23490-7240-04 ",.02)
 ;;23490-7240-04
 ;;9002226.02101,"686,23490-7921-01 ",.01)
 ;;23490-7921-01
 ;;9002226.02101,"686,23490-7921-01 ",.02)
 ;;23490-7921-01
 ;;9002226.02101,"686,23490-7921-02 ",.01)
 ;;23490-7921-02
 ;;9002226.02101,"686,23490-7921-02 ",.02)
 ;;23490-7921-02
 ;;9002226.02101,"686,23490-7921-03 ",.01)
 ;;23490-7921-03
 ;;9002226.02101,"686,23490-7921-03 ",.02)
 ;;23490-7921-03
 ;;9002226.02101,"686,23490-7921-04 ",.01)
 ;;23490-7921-04
 ;;9002226.02101,"686,23490-7921-04 ",.02)
 ;;23490-7921-04
 ;;9002226.02101,"686,23490-7954-03 ",.01)
 ;;23490-7954-03
 ;;9002226.02101,"686,23490-7954-03 ",.02)
 ;;23490-7954-03
 ;;9002226.02101,"686,23490-7955-03 ",.01)
 ;;23490-7955-03
 ;;9002226.02101,"686,23490-7955-03 ",.02)
 ;;23490-7955-03
 ;;9002226.02101,"686,23490-7973-03 ",.01)
 ;;23490-7973-03
 ;;9002226.02101,"686,23490-7973-03 ",.02)
 ;;23490-7973-03
 ;;9002226.02101,"686,23490-7974-03 ",.01)
 ;;23490-7974-03
 ;;9002226.02101,"686,23490-7974-03 ",.02)
 ;;23490-7974-03
 ;;9002226.02101,"686,23490-7975-06 ",.01)
 ;;23490-7975-06
 ;;9002226.02101,"686,23490-7975-06 ",.02)
 ;;23490-7975-06
 ;;9002226.02101,"686,23589-0036-16 ",.01)
 ;;23589-0036-16
 ;;9002226.02101,"686,23589-0036-16 ",.02)
 ;;23589-0036-16
 ;;9002226.02101,"686,25332-1113-01 ",.01)
 ;;25332-1113-01
 ;;9002226.02101,"686,25332-1113-01 ",.02)
 ;;25332-1113-01
 ;;9002226.02101,"686,33358-0287-15 ",.01)
 ;;33358-0287-15
 ;;9002226.02101,"686,33358-0287-15 ",.02)
 ;;33358-0287-15
 ;;9002226.02101,"686,33358-0287-30 ",.01)
 ;;33358-0287-30
 ;;9002226.02101,"686,33358-0287-30 ",.02)
 ;;33358-0287-30
 ;;9002226.02101,"686,33358-0287-60 ",.01)
 ;;33358-0287-60
 ;;9002226.02101,"686,33358-0287-60 ",.02)
 ;;33358-0287-60
 ;;9002226.02101,"686,35356-0003-28 ",.01)
 ;;35356-0003-28
 ;;9002226.02101,"686,35356-0003-28 ",.02)
 ;;35356-0003-28
 ;;9002226.02101,"686,35356-0003-30 ",.01)
 ;;35356-0003-30
 ;;9002226.02101,"686,35356-0003-30 ",.02)
 ;;35356-0003-30
 ;;9002226.02101,"686,35356-0003-60 ",.01)
 ;;35356-0003-60
 ;;9002226.02101,"686,35356-0003-60 ",.02)
 ;;35356-0003-60
 ;;9002226.02101,"686,35356-0003-90 ",.01)
 ;;35356-0003-90
 ;;9002226.02101,"686,35356-0003-90 ",.02)
 ;;35356-0003-90
 ;;9002226.02101,"686,35356-0147-30 ",.01)
 ;;35356-0147-30
 ;;9002226.02101,"686,35356-0147-30 ",.02)
 ;;35356-0147-30
 ;;9002226.02101,"686,35356-0147-90 ",.01)
 ;;35356-0147-90
 ;;9002226.02101,"686,35356-0147-90 ",.02)
 ;;35356-0147-90
 ;;9002226.02101,"686,35356-0148-30 ",.01)
 ;;35356-0148-30
 ;;9002226.02101,"686,35356-0148-30 ",.02)
 ;;35356-0148-30
 ;;9002226.02101,"686,35356-0148-90 ",.01)
 ;;35356-0148-90
 ;;9002226.02101,"686,35356-0148-90 ",.02)
 ;;35356-0148-90
 ;;9002226.02101,"686,35356-0149-30 ",.01)
 ;;35356-0149-30
 ;;9002226.02101,"686,35356-0149-30 ",.02)
 ;;35356-0149-30
 ;;9002226.02101,"686,35356-0149-90 ",.01)
 ;;35356-0149-90
 ;;9002226.02101,"686,35356-0149-90 ",.02)
 ;;35356-0149-90
 ;;9002226.02101,"686,35356-0150-30 ",.01)
 ;;35356-0150-30
 ;;9002226.02101,"686,35356-0150-30 ",.02)
 ;;35356-0150-30
 ;;9002226.02101,"686,35356-0150-90 ",.01)
 ;;35356-0150-90
 ;;9002226.02101,"686,35356-0150-90 ",.02)
 ;;35356-0150-90
 ;;9002226.02101,"686,35356-0151-30 ",.01)
 ;;35356-0151-30
 ;;9002226.02101,"686,35356-0151-30 ",.02)
 ;;35356-0151-30
 ;;9002226.02101,"686,35356-0151-90 ",.01)
 ;;35356-0151-90
 ;;9002226.02101,"686,35356-0151-90 ",.02)
 ;;35356-0151-90
 ;;9002226.02101,"686,35356-0152-30 ",.01)
 ;;35356-0152-30
 ;;9002226.02101,"686,35356-0152-30 ",.02)
 ;;35356-0152-30
 ;;9002226.02101,"686,35356-0152-90 ",.01)
 ;;35356-0152-90
 ;;9002226.02101,"686,35356-0152-90 ",.02)
 ;;35356-0152-90
 ;;9002226.02101,"686,35356-0153-30 ",.01)
 ;;35356-0153-30
 ;;9002226.02101,"686,35356-0153-30 ",.02)
 ;;35356-0153-30
 ;;9002226.02101,"686,35356-0153-90 ",.01)
 ;;35356-0153-90
 ;;9002226.02101,"686,35356-0153-90 ",.02)
 ;;35356-0153-90
 ;;9002226.02101,"686,35356-0154-30 ",.01)
 ;;35356-0154-30
 ;;9002226.02101,"686,35356-0154-30 ",.02)
 ;;35356-0154-30
 ;;9002226.02101,"686,35356-0154-90 ",.01)
 ;;35356-0154-90
 ;;9002226.02101,"686,35356-0154-90 ",.02)
 ;;35356-0154-90
 ;;9002226.02101,"686,35356-0158-30 ",.01)
 ;;35356-0158-30
 ;;9002226.02101,"686,35356-0158-30 ",.02)
 ;;35356-0158-30
 ;;9002226.02101,"686,35356-0158-90 ",.01)
 ;;35356-0158-90
 ;;9002226.02101,"686,35356-0158-90 ",.02)
 ;;35356-0158-90
 ;;9002226.02101,"686,35356-0159-30 ",.01)
 ;;35356-0159-30
 ;;9002226.02101,"686,35356-0159-30 ",.02)
 ;;35356-0159-30
 ;;9002226.02101,"686,35356-0159-90 ",.01)
 ;;35356-0159-90
 ;;9002226.02101,"686,35356-0159-90 ",.02)
 ;;35356-0159-90
 ;;9002226.02101,"686,35356-0160-30 ",.01)
 ;;35356-0160-30
 ;;9002226.02101,"686,35356-0160-30 ",.02)
 ;;35356-0160-30
 ;;9002226.02101,"686,35356-0160-90 ",.01)
 ;;35356-0160-90
 ;;9002226.02101,"686,35356-0160-90 ",.02)
 ;;35356-0160-90
 ;;9002226.02101,"686,35356-0165-30 ",.01)
 ;;35356-0165-30
 ;;9002226.02101,"686,35356-0165-30 ",.02)
 ;;35356-0165-30
 ;;9002226.02101,"686,35356-0165-90 ",.01)
 ;;35356-0165-90
 ;;9002226.02101,"686,35356-0165-90 ",.02)
 ;;35356-0165-90
 ;;9002226.02101,"686,49999-0003-28 ",.01)
 ;;49999-0003-28
 ;;9002226.02101,"686,49999-0003-28 ",.02)
 ;;49999-0003-28
 ;;9002226.02101,"686,49999-0360-30 ",.01)
 ;;49999-0360-30
 ;;9002226.02101,"686,49999-0360-30 ",.02)
 ;;49999-0360-30
 ;;9002226.02101,"686,49999-0361-15 ",.01)
 ;;49999-0361-15
 ;;9002226.02101,"686,49999-0361-15 ",.02)
 ;;49999-0361-15
 ;;9002226.02101,"686,49999-0361-30 ",.01)
 ;;49999-0361-30
 ;;9002226.02101,"686,49999-0361-30 ",.02)
 ;;49999-0361-30
 ;;9002226.02101,"686,49999-0405-07 ",.01)
 ;;49999-0405-07
 ;;9002226.02101,"686,49999-0405-07 ",.02)
 ;;49999-0405-07
 ;;9002226.02101,"686,49999-0405-28 ",.01)
 ;;49999-0405-28
 ;;9002226.02101,"686,49999-0405-28 ",.02)
 ;;49999-0405-28
 ;;9002226.02101,"686,49999-0405-30 ",.01)
 ;;49999-0405-30
 ;;9002226.02101,"686,49999-0405-30 ",.02)
 ;;49999-0405-30
 ;;9002226.02101,"686,49999-0457-28 ",.01)
 ;;49999-0457-28
 ;;9002226.02101,"686,49999-0457-28 ",.02)
 ;;49999-0457-28
 ;;9002226.02101,"686,49999-0517-15 ",.01)
 ;;49999-0517-15
 ;;9002226.02101,"686,49999-0517-15 ",.02)
 ;;49999-0517-15
 ;;9002226.02101,"686,49999-0517-30 ",.01)
 ;;49999-0517-30
 ;;9002226.02101,"686,49999-0517-30 ",.02)
 ;;49999-0517-30
 ;;9002226.02101,"686,49999-0517-45 ",.01)
 ;;49999-0517-45
 ;;9002226.02101,"686,49999-0517-45 ",.02)
 ;;49999-0517-45
 ;;9002226.02101,"686,49999-0517-60 ",.01)
 ;;49999-0517-60
 ;;9002226.02101,"686,49999-0517-60 ",.02)
 ;;49999-0517-60
 ;;9002226.02101,"686,49999-0724-28 ",.01)
 ;;49999-0724-28
 ;;9002226.02101,"686,49999-0724-28 ",.02)
 ;;49999-0724-28
 ;;9002226.02101,"686,49999-0724-30 ",.01)
 ;;49999-0724-30
 ;;9002226.02101,"686,49999-0724-30 ",.02)
 ;;49999-0724-30
 ;;9002226.02101,"686,49999-0724-60 ",.01)
 ;;49999-0724-60
 ;;9002226.02101,"686,49999-0724-60 ",.02)
 ;;49999-0724-60