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

BGP21I16.m

Go to the documentation of this file.
BGP21I16 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"1198,23155-0104-01 ",.01)
 ;;23155-0104-01
 ;;9002226.02101,"1198,23155-0104-01 ",.02)
 ;;23155-0104-01
 ;;9002226.02101,"1198,23155-0104-05 ",.01)
 ;;23155-0104-05
 ;;9002226.02101,"1198,23155-0104-05 ",.02)
 ;;23155-0104-05
 ;;9002226.02101,"1198,23155-0104-10 ",.01)
 ;;23155-0104-10
 ;;9002226.02101,"1198,23155-0104-10 ",.02)
 ;;23155-0104-10
 ;;9002226.02101,"1198,23155-0115-01 ",.01)
 ;;23155-0115-01
 ;;9002226.02101,"1198,23155-0115-01 ",.02)
 ;;23155-0115-01
 ;;9002226.02101,"1198,23155-0116-01 ",.01)
 ;;23155-0116-01
 ;;9002226.02101,"1198,23155-0116-01 ",.02)
 ;;23155-0116-01
 ;;9002226.02101,"1198,23155-0117-01 ",.01)
 ;;23155-0117-01
 ;;9002226.02101,"1198,23155-0117-01 ",.02)
 ;;23155-0117-01
 ;;9002226.02101,"1198,23490-6838-01 ",.01)
 ;;23490-6838-01
 ;;9002226.02101,"1198,23490-6838-01 ",.02)
 ;;23490-6838-01
 ;;9002226.02101,"1198,23490-6838-02 ",.01)
 ;;23490-6838-02
 ;;9002226.02101,"1198,23490-6838-02 ",.02)
 ;;23490-6838-02
 ;;9002226.02101,"1198,23490-6838-03 ",.01)
 ;;23490-6838-03
 ;;9002226.02101,"1198,23490-6838-03 ",.02)
 ;;23490-6838-03
 ;;9002226.02101,"1198,23490-6838-04 ",.01)
 ;;23490-6838-04
 ;;9002226.02101,"1198,23490-6838-04 ",.02)
 ;;23490-6838-04
 ;;9002226.02101,"1198,23490-6839-01 ",.01)
 ;;23490-6839-01
 ;;9002226.02101,"1198,23490-6839-01 ",.02)
 ;;23490-6839-01
 ;;9002226.02101,"1198,23490-6839-02 ",.01)
 ;;23490-6839-02
 ;;9002226.02101,"1198,23490-6839-02 ",.02)
 ;;23490-6839-02
 ;;9002226.02101,"1198,23490-7260-01 ",.01)
 ;;23490-7260-01
 ;;9002226.02101,"1198,23490-7260-01 ",.02)
 ;;23490-7260-01
 ;;9002226.02101,"1198,23490-7260-02 ",.01)
 ;;23490-7260-02
 ;;9002226.02101,"1198,23490-7260-02 ",.02)
 ;;23490-7260-02
 ;;9002226.02101,"1198,23490-7260-03 ",.01)
 ;;23490-7260-03
 ;;9002226.02101,"1198,23490-7260-03 ",.02)
 ;;23490-7260-03
 ;;9002226.02101,"1198,23490-7260-04 ",.01)
 ;;23490-7260-04
 ;;9002226.02101,"1198,23490-7260-04 ",.02)
 ;;23490-7260-04
 ;;9002226.02101,"1198,23490-7449-01 ",.01)
 ;;23490-7449-01
 ;;9002226.02101,"1198,23490-7449-01 ",.02)
 ;;23490-7449-01
 ;;9002226.02101,"1198,23490-7458-06 ",.01)
 ;;23490-7458-06
 ;;9002226.02101,"1198,23490-7458-06 ",.02)
 ;;23490-7458-06
 ;;9002226.02101,"1198,33261-0145-02 ",.01)
 ;;33261-0145-02
 ;;9002226.02101,"1198,33261-0145-02 ",.02)
 ;;33261-0145-02
 ;;9002226.02101,"1198,33261-0145-30 ",.01)
 ;;33261-0145-30
 ;;9002226.02101,"1198,33261-0145-30 ",.02)
 ;;33261-0145-30
 ;;9002226.02101,"1198,33261-0145-60 ",.01)
 ;;33261-0145-60
 ;;9002226.02101,"1198,33261-0145-60 ",.02)
 ;;33261-0145-60
 ;;9002226.02101,"1198,33261-0145-90 ",.01)
 ;;33261-0145-90
 ;;9002226.02101,"1198,33261-0145-90 ",.02)
 ;;33261-0145-90
 ;;9002226.02101,"1198,33261-0157-02 ",.01)
 ;;33261-0157-02
 ;;9002226.02101,"1198,33261-0157-02 ",.02)
 ;;33261-0157-02
 ;;9002226.02101,"1198,33261-0157-30 ",.01)
 ;;33261-0157-30
 ;;9002226.02101,"1198,33261-0157-30 ",.02)
 ;;33261-0157-30
 ;;9002226.02101,"1198,33261-0157-60 ",.01)
 ;;33261-0157-60
 ;;9002226.02101,"1198,33261-0157-60 ",.02)
 ;;33261-0157-60
 ;;9002226.02101,"1198,33261-0157-90 ",.01)
 ;;33261-0157-90
 ;;9002226.02101,"1198,33261-0157-90 ",.02)
 ;;33261-0157-90
 ;;9002226.02101,"1198,33261-0372-30 ",.01)
 ;;33261-0372-30
 ;;9002226.02101,"1198,33261-0372-30 ",.02)
 ;;33261-0372-30
 ;;9002226.02101,"1198,33261-0372-60 ",.01)
 ;;33261-0372-60
 ;;9002226.02101,"1198,33261-0372-60 ",.02)
 ;;33261-0372-60
 ;;9002226.02101,"1198,33261-0372-90 ",.01)
 ;;33261-0372-90
 ;;9002226.02101,"1198,33261-0372-90 ",.02)
 ;;33261-0372-90
 ;;9002226.02101,"1198,33358-0234-00 ",.01)
 ;;33358-0234-00
 ;;9002226.02101,"1198,33358-0234-00 ",.02)
 ;;33358-0234-00
 ;;9002226.02101,"1198,33358-0234-30 ",.01)
 ;;33358-0234-30
 ;;9002226.02101,"1198,33358-0234-30 ",.02)
 ;;33358-0234-30
 ;;9002226.02101,"1198,33358-0234-60 ",.01)
 ;;33358-0234-60
 ;;9002226.02101,"1198,33358-0234-60 ",.02)
 ;;33358-0234-60
 ;;9002226.02101,"1198,33358-0235-60 ",.01)
 ;;33358-0235-60
 ;;9002226.02101,"1198,33358-0235-60 ",.02)
 ;;33358-0235-60
 ;;9002226.02101,"1198,33358-0236-30 ",.01)
 ;;33358-0236-30
 ;;9002226.02101,"1198,33358-0236-30 ",.02)
 ;;33358-0236-30
 ;;9002226.02101,"1198,33358-0236-60 ",.01)
 ;;33358-0236-60
 ;;9002226.02101,"1198,33358-0236-60 ",.02)
 ;;33358-0236-60
 ;;9002226.02101,"1198,33358-0237-30 ",.01)
 ;;33358-0237-30
 ;;9002226.02101,"1198,33358-0237-30 ",.02)
 ;;33358-0237-30
 ;;9002226.02101,"1198,33358-0237-60 ",.01)
 ;;33358-0237-60
 ;;9002226.02101,"1198,33358-0237-60 ",.02)
 ;;33358-0237-60
 ;;9002226.02101,"1198,35356-0130-60 ",.01)
 ;;35356-0130-60
 ;;9002226.02101,"1198,35356-0130-60 ",.02)
 ;;35356-0130-60
 ;;9002226.02101,"1198,35356-0136-60 ",.01)
 ;;35356-0136-60
 ;;9002226.02101,"1198,35356-0136-60 ",.02)
 ;;35356-0136-60
 ;;9002226.02101,"1198,35356-0269-28 ",.01)
 ;;35356-0269-28
 ;;9002226.02101,"1198,35356-0269-28 ",.02)
 ;;35356-0269-28
 ;;9002226.02101,"1198,42291-0610-18 ",.01)
 ;;42291-0610-18
 ;;9002226.02101,"1198,42291-0610-18 ",.02)
 ;;42291-0610-18
 ;;9002226.02101,"1198,42291-0610-36 ",.01)
 ;;42291-0610-36
 ;;9002226.02101,"1198,42291-0610-36 ",.02)
 ;;42291-0610-36
 ;;9002226.02101,"1198,42291-0610-90 ",.01)
 ;;42291-0610-90