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

BGP82TLB.m

Go to the documentation of this file.
BGP82TLB ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUN 09, 2008;
 ;;8.0;IHS CLINICAL REPORTING;**2**;MAR 12, 2008
 ;
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,"337,00173-0511-00 ",.01)
 ;;00173-0511-00
 ;;9002226.02101,"337,00173-0511-00 ",.02)
 ;;00173-0511-00
 ;;9002226.02101,"337,00173-0695-00 ",.01)
 ;;00173-0695-00
 ;;9002226.02101,"337,00173-0695-00 ",.02)
 ;;00173-0695-00
 ;;9002226.02101,"337,00173-0695-02 ",.01)
 ;;00173-0695-02
 ;;9002226.02101,"337,00173-0695-02 ",.02)
 ;;00173-0695-02
 ;;9002226.02101,"337,00173-0696-00 ",.01)
 ;;00173-0696-00
 ;;9002226.02101,"337,00173-0696-00 ",.02)
 ;;00173-0696-00
 ;;9002226.02101,"337,00173-0696-02 ",.01)
 ;;00173-0696-02
 ;;9002226.02101,"337,00173-0696-02 ",.02)
 ;;00173-0696-02
 ;;9002226.02101,"337,00173-0697-00 ",.01)
 ;;00173-0697-00
 ;;9002226.02101,"337,00173-0697-00 ",.02)
 ;;00173-0697-00
 ;;9002226.02101,"337,00173-0697-02 ",.01)
 ;;00173-0697-02
 ;;9002226.02101,"337,00173-0697-02 ",.02)
 ;;00173-0697-02
 ;;9002226.02101,"337,00173-0715-00 ",.01)
 ;;00173-0715-00
 ;;9002226.02101,"337,00173-0715-00 ",.02)
 ;;00173-0715-00
 ;;9002226.02101,"337,00173-0716-00 ",.01)
 ;;00173-0716-00
 ;;9002226.02101,"337,00173-0716-00 ",.02)
 ;;00173-0716-00
 ;;9002226.02101,"337,00173-0717-00 ",.01)
 ;;00173-0717-00
 ;;9002226.02101,"337,00173-0717-00 ",.02)
 ;;00173-0717-00
 ;;9002226.02101,"337,00186-0370-20 ",.01)
 ;;00186-0370-20
 ;;9002226.02101,"337,00186-0370-20 ",.02)
 ;;00186-0370-20
 ;;9002226.02101,"337,00186-0370-28 ",.01)
 ;;00186-0370-28
 ;;9002226.02101,"337,00186-0370-28 ",.02)
 ;;00186-0370-28
 ;;9002226.02101,"337,00186-0372-20 ",.01)
 ;;00186-0372-20
 ;;9002226.02101,"337,00186-0372-20 ",.02)
 ;;00186-0372-20
 ;;9002226.02101,"337,00186-0372-28 ",.01)
 ;;00186-0372-28
 ;;9002226.02101,"337,00186-0372-28 ",.02)
 ;;00186-0372-28
 ;;9002226.02101,"337,00186-0915-42 ",.01)
 ;;00186-0915-42
 ;;9002226.02101,"337,00186-0915-42 ",.02)
 ;;00186-0915-42
 ;;9002226.02101,"337,00186-1988-04 ",.01)
 ;;00186-1988-04
 ;;9002226.02101,"337,00186-1988-04 ",.02)
 ;;00186-1988-04
 ;;9002226.02101,"337,00186-1989-04 ",.01)
 ;;00186-1989-04
 ;;9002226.02101,"337,00186-1989-04 ",.02)
 ;;00186-1989-04
 ;;9002226.02101,"337,00247-1973-60 ",.01)
 ;;00247-1973-60
 ;;9002226.02101,"337,00247-1973-60 ",.02)
 ;;00247-1973-60
 ;;9002226.02101,"337,00247-1983-60 ",.01)
 ;;00247-1983-60
 ;;9002226.02101,"337,00247-1983-60 ",.02)
 ;;00247-1983-60
 ;;9002226.02101,"337,00247-2215-60 ",.01)
 ;;00247-2215-60
 ;;9002226.02101,"337,00247-2215-60 ",.02)
 ;;00247-2215-60
 ;;9002226.02101,"337,51479-0011-03 ",.01)
 ;;51479-0011-03
 ;;9002226.02101,"337,51479-0011-03 ",.02)
 ;;51479-0011-03
 ;;9002226.02101,"337,52959-0286-03 ",.01)
 ;;52959-0286-03
 ;;9002226.02101,"337,52959-0286-03 ",.02)
 ;;52959-0286-03
 ;;9002226.02101,"337,52959-0585-00 ",.01)
 ;;52959-0585-00
 ;;9002226.02101,"337,52959-0585-00 ",.02)
 ;;52959-0585-00
 ;;9002226.02101,"337,52959-0596-01 ",.01)
 ;;52959-0596-01
 ;;9002226.02101,"337,52959-0596-01 ",.02)
 ;;52959-0596-01
 ;;9002226.02101,"337,52959-0598-01 ",.01)
 ;;52959-0598-01
 ;;9002226.02101,"337,52959-0598-01 ",.02)
 ;;52959-0598-01
 ;;9002226.02101,"337,54569-0053-00 ",.01)
 ;;54569-0053-00
 ;;9002226.02101,"337,54569-0053-00 ",.02)
 ;;54569-0053-00
 ;;9002226.02101,"337,54569-0067-00 ",.01)
 ;;54569-0067-00
 ;;9002226.02101,"337,54569-0067-00 ",.02)
 ;;54569-0067-00
 ;;9002226.02101,"337,54569-1004-00 ",.01)
 ;;54569-1004-00
 ;;9002226.02101,"337,54569-1004-00 ",.02)
 ;;54569-1004-00
 ;;9002226.02101,"337,54569-3656-00 ",.01)
 ;;54569-3656-00
 ;;9002226.02101,"337,54569-3656-00 ",.02)
 ;;54569-3656-00
 ;;9002226.02101,"337,54569-4540-00 ",.01)
 ;;54569-4540-00
 ;;9002226.02101,"337,54569-4540-00 ",.02)
 ;;54569-4540-00
 ;;9002226.02101,"337,54569-4602-00 ",.01)
 ;;54569-4602-00
 ;;9002226.02101,"337,54569-4602-00 ",.02)
 ;;54569-4602-00
 ;;9002226.02101,"337,54569-4603-00 ",.01)
 ;;54569-4603-00
 ;;9002226.02101,"337,54569-4603-00 ",.02)
 ;;54569-4603-00
 ;;9002226.02101,"337,54569-4863-00 ",.01)
 ;;54569-4863-00
 ;;9002226.02101,"337,54569-4863-00 ",.02)
 ;;54569-4863-00
 ;;9002226.02101,"337,54569-4896-00 ",.01)
 ;;54569-4896-00
 ;;9002226.02101,"337,54569-4896-00 ",.02)
 ;;54569-4896-00
 ;;9002226.02101,"337,54569-5162-00 ",.01)
 ;;54569-5162-00
 ;;9002226.02101,"337,54569-5162-00 ",.02)
 ;;54569-5162-00
 ;;9002226.02101,"337,54569-5163-00 ",.01)
 ;;54569-5163-00
 ;;9002226.02101,"337,54569-5163-00 ",.02)
 ;;54569-5163-00
 ;;9002226.02101,"337,54569-5241-00 ",.01)
 ;;54569-5241-00
 ;;9002226.02101,"337,54569-5241-00 ",.02)
 ;;54569-5241-00
 ;;9002226.02101,"337,54569-5242-00 ",.01)
 ;;54569-5242-00
 ;;9002226.02101,"337,54569-5242-00 ",.02)
 ;;54569-5242-00
 ;;9002226.02101,"337,54569-5243-00 ",.01)
 ;;54569-5243-00
 ;;9002226.02101,"337,54569-5243-00 ",.02)
 ;;54569-5243-00
 ;;9002226.02101,"337,54868-1268-01 ",.01)
 ;;54868-1268-01
 ;;9002226.02101,"337,54868-1268-01 ",.02)
 ;;54868-1268-01
 ;;9002226.02101,"337,54868-1269-01 ",.01)
 ;;54868-1269-01
 ;;9002226.02101,"337,54868-1269-01 ",.02)
 ;;54868-1269-01
 ;;9002226.02101,"337,54868-1841-01 ",.01)
 ;;54868-1841-01
 ;;9002226.02101,"337,54868-1841-01 ",.02)
 ;;54868-1841-01
 ;;9002226.02101,"337,54868-4182-00 ",.01)
 ;;54868-4182-00
 ;;9002226.02101,"337,54868-4182-00 ",.02)
 ;;54868-4182-00