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

BGP8CXMH.m

Go to the documentation of this file.
BGP8CXMH ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
 ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
 ;;;BGP6;;SEP 28, 2007
 ;
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,"692,040.89 ",.01)
 ;;040.89 
 ;;9002226.02101,"692,040.89 ",.02)
 ;;040.89 
 ;;9002226.02101,"692,041.00 ",.01)
 ;;041.00 
 ;;9002226.02101,"692,041.00 ",.02)
 ;;041.00 
 ;;9002226.02101,"692,041.01 ",.01)
 ;;041.01 
 ;;9002226.02101,"692,041.01 ",.02)
 ;;041.01 
 ;;9002226.02101,"692,041.02 ",.01)
 ;;041.02 
 ;;9002226.02101,"692,041.02 ",.02)
 ;;041.02 
 ;;9002226.02101,"692,041.03 ",.01)
 ;;041.03 
 ;;9002226.02101,"692,041.03 ",.02)
 ;;041.03 
 ;;9002226.02101,"692,041.04 ",.01)
 ;;041.04 
 ;;9002226.02101,"692,041.04 ",.02)
 ;;041.04 
 ;;9002226.02101,"692,041.05 ",.01)
 ;;041.05 
 ;;9002226.02101,"692,041.05 ",.02)
 ;;041.05 
 ;;9002226.02101,"692,041.09 ",.01)
 ;;041.09 
 ;;9002226.02101,"692,041.09 ",.02)
 ;;041.09 
 ;;9002226.02101,"692,041.10 ",.01)
 ;;041.10 
 ;;9002226.02101,"692,041.10 ",.02)
 ;;041.10 
 ;;9002226.02101,"692,041.11 ",.01)
 ;;041.11 
 ;;9002226.02101,"692,041.11 ",.02)
 ;;041.11 
 ;;9002226.02101,"692,041.19 ",.01)
 ;;041.19 
 ;;9002226.02101,"692,041.19 ",.02)
 ;;041.19 
 ;;9002226.02101,"692,041.2 ",.01)
 ;;041.2 
 ;;9002226.02101,"692,041.2 ",.02)
 ;;041.2 
 ;;9002226.02101,"692,041.3 ",.01)
 ;;041.3 
 ;;9002226.02101,"692,041.3 ",.02)
 ;;041.3 
 ;;9002226.02101,"692,041.4 ",.01)
 ;;041.4 
 ;;9002226.02101,"692,041.4 ",.02)
 ;;041.4 
 ;;9002226.02101,"692,041.5 ",.01)
 ;;041.5 
 ;;9002226.02101,"692,041.5 ",.02)
 ;;041.5 
 ;;9002226.02101,"692,041.6 ",.01)
 ;;041.6 
 ;;9002226.02101,"692,041.6 ",.02)
 ;;041.6 
 ;;9002226.02101,"692,041.7 ",.01)
 ;;041.7 
 ;;9002226.02101,"692,041.7 ",.02)
 ;;041.7 
 ;;9002226.02101,"692,041.81 ",.01)
 ;;041.81 
 ;;9002226.02101,"692,041.81 ",.02)
 ;;041.81 
 ;;9002226.02101,"692,041.82 ",.01)
 ;;041.82 
 ;;9002226.02101,"692,041.82 ",.02)
 ;;041.82 
 ;;9002226.02101,"692,041.83 ",.01)
 ;;041.83 
 ;;9002226.02101,"692,041.83 ",.02)
 ;;041.83 
 ;;9002226.02101,"692,041.84 ",.01)
 ;;041.84 
 ;;9002226.02101,"692,041.84 ",.02)
 ;;041.84 
 ;;9002226.02101,"692,041.85 ",.01)
 ;;041.85 
 ;;9002226.02101,"692,041.85 ",.02)
 ;;041.85 
 ;;9002226.02101,"692,041.86 ",.01)
 ;;041.86 
 ;;9002226.02101,"692,041.86 ",.02)
 ;;041.86 
 ;;9002226.02101,"692,041.89 ",.01)
 ;;041.89 
 ;;9002226.02101,"692,041.89 ",.02)
 ;;041.89 
 ;;9002226.02101,"692,041.9 ",.01)
 ;;041.9 
 ;;9002226.02101,"692,041.9 ",.02)
 ;;041.9 
 ;;9002226.02101,"692,050.1 ",.01)
 ;;050.1 
 ;;9002226.02101,"692,050.1 ",.02)
 ;;050.1 
 ;;9002226.02101,"692,051.2 ",.01)
 ;;051.2 
 ;;9002226.02101,"692,051.2 ",.02)
 ;;051.2 
 ;;9002226.02101,"692,053.12 ",.01)
 ;;053.12 
 ;;9002226.02101,"692,053.12 ",.02)
 ;;053.12 
 ;;9002226.02101,"692,053.13 ",.01)
 ;;053.13 
 ;;9002226.02101,"692,053.13 ",.02)
 ;;053.13 
 ;;9002226.02101,"692,053.79 ",.01)
 ;;053.79 
 ;;9002226.02101,"692,053.79 ",.02)
 ;;053.79 
 ;;9002226.02101,"692,054.0 ",.01)
 ;;054.0 
 ;;9002226.02101,"692,054.0 ",.02)
 ;;054.0 
 ;;9002226.02101,"692,060.0 ",.01)
 ;;060.0 
 ;;9002226.02101,"692,060.0 ",.02)
 ;;060.0 
 ;;9002226.02101,"692,060.1 ",.01)
 ;;060.1 
 ;;9002226.02101,"692,060.1 ",.02)
 ;;060.1 
 ;;9002226.02101,"692,060.9 ",.01)
 ;;060.9 
 ;;9002226.02101,"692,060.9 ",.02)
 ;;060.9 
 ;;9002226.02101,"692,061 ",.01)
 ;;061 
 ;;9002226.02101,"692,061 ",.02)
 ;;061 
 ;;9002226.02101,"692,063.1 ",.01)
 ;;063.1 
 ;;9002226.02101,"692,063.1 ",.02)
 ;;063.1 
 ;;9002226.02101,"692,065.1 ",.01)
 ;;065.1 
 ;;9002226.02101,"692,065.1 ",.02)
 ;;065.1 
 ;;9002226.02101,"692,065.2 ",.01)
 ;;065.2 
 ;;9002226.02101,"692,065.2 ",.02)
 ;;065.2 
 ;;9002226.02101,"692,065.3 ",.01)
 ;;065.3 
 ;;9002226.02101,"692,065.3 ",.02)
 ;;065.3 
 ;;9002226.02101,"692,065.4 ",.01)
 ;;065.4 
 ;;9002226.02101,"692,065.4 ",.02)
 ;;065.4 
 ;;9002226.02101,"692,065.8 ",.01)
 ;;065.8 
 ;;9002226.02101,"692,065.8 ",.02)
 ;;065.8 
 ;;9002226.02101,"692,065.9 ",.01)
 ;;065.9 
 ;;9002226.02101,"692,065.9 ",.02)
 ;;065.9 
 ;;9002226.02101,"692,066.0 ",.01)
 ;;066.0 
 ;;9002226.02101,"692,066.0 ",.02)
 ;;066.0 
 ;;9002226.02101,"692,066.1 ",.01)
 ;;066.1 
 ;;9002226.02101,"692,066.1 ",.02)
 ;;066.1 
 ;;9002226.02101,"692,066.2 ",.01)
 ;;066.2 
 ;;9002226.02101,"692,066.2 ",.02)
 ;;066.2 
 ;;9002226.02101,"692,066.3 ",.01)
 ;;066.3 
 ;;9002226.02101,"692,066.3 ",.02)
 ;;066.3 
 ;;9002226.02101,"692,066.40 ",.01)
 ;;066.40 
 ;;9002226.02101,"692,066.40 ",.02)
 ;;066.40 
 ;;9002226.02101,"692,066.41 ",.01)
 ;;066.41 
 ;;9002226.02101,"692,066.41 ",.02)
 ;;066.41 
 ;;9002226.02101,"692,066.42 ",.01)
 ;;066.42 
 ;;9002226.02101,"692,066.42 ",.02)
 ;;066.42 
 ;;9002226.02101,"692,066.49 ",.01)
 ;;066.49 
 ;;9002226.02101,"692,066.49 ",.02)
 ;;066.49 
 ;;9002226.02101,"692,071 ",.01)
 ;;071 
 ;;9002226.02101,"692,071 ",.02)
 ;;071 
 ;;9002226.02101,"692,073.0 ",.01)
 ;;073.0 
 ;;9002226.02101,"692,073.0 ",.02)
 ;;073.0 
 ;;9002226.02101,"692,073.7 ",.01)
 ;;073.7 
 ;;9002226.02101,"692,073.7 ",.02)
 ;;073.7 
 ;;9002226.02101,"692,073.8 ",.01)
 ;;073.8 
 ;;9002226.02101,"692,073.8 ",.02)
 ;;073.8 
 ;;9002226.02101,"692,073.9 ",.01)
 ;;073.9 
 ;;9002226.02101,"692,073.9 ",.02)
 ;;073.9 
 ;;9002226.02101,"692,074.0 ",.01)
 ;;074.0 
 ;;9002226.02101,"692,074.0 ",.02)
 ;;074.0 
 ;;9002226.02101,"692,074.1 ",.01)
 ;;074.1 
 ;;9002226.02101,"692,074.1 ",.02)
 ;;074.1 
 ;;9002226.02101,"692,074.3 ",.01)
 ;;074.3 
 ;;9002226.02101,"692,074.3 ",.02)
 ;;074.3 
 ;;9002226.02101,"692,075 ",.01)
 ;;075 
 ;;9002226.02101,"692,075 ",.02)
 ;;075 
 ;;9002226.02101,"692,076.0 ",.01)
 ;;076.0 
 ;;9002226.02101,"692,076.0 ",.02)
 ;;076.0 
 ;;9002226.02101,"692,076.1 ",.01)
 ;;076.1 
 ;;9002226.02101,"692,076.1 ",.02)
 ;;076.1 
 ;;9002226.02101,"692,076.9 ",.01)
 ;;076.9 
 ;;9002226.02101,"692,076.9 ",.02)
 ;;076.9 
 ;;9002226.02101,"692,077.0 ",.01)
 ;;077.0 
 ;;9002226.02101,"692,077.0 ",.02)
 ;;077.0 
 ;;9002226.02101,"692,077.1 ",.01)
 ;;077.1 
 ;;9002226.02101,"692,077.1 ",.02)
 ;;077.1 
 ;;9002226.02101,"692,077.2 ",.01)
 ;;077.2 
 ;;9002226.02101,"692,077.2 ",.02)
 ;;077.2 
 ;;9002226.02101,"692,077.4 ",.01)
 ;;077.4 
 ;;9002226.02101,"692,077.4 ",.02)
 ;;077.4 
 ;;9002226.02101,"692,077.98 ",.01)
 ;;077.98 
 ;;9002226.02101,"692,077.98 ",.02)
 ;;077.98 
 ;;9002226.02101,"692,077.99 ",.01)
 ;;077.99 
 ;;9002226.02101,"692,077.99 ",.02)
 ;;077.99 
 ;;9002226.02101,"692,078.2 ",.01)
 ;;078.2 
 ;;9002226.02101,"692,078.2 ",.02)
 ;;078.2 
 ;;9002226.02101,"692,078.3 ",.01)
 ;;078.3 
 ;;9002226.02101,"692,078.3 ",.02)
 ;;078.3 
 ;;9002226.02101,"692,078.4 ",.01)
 ;;078.4 
 ;;9002226.02101,"692,078.4 ",.02)
 ;;078.4 
 ;;9002226.02101,"692,078.6 ",.01)
 ;;078.6 
 ;;9002226.02101,"692,078.6 ",.02)
 ;;078.6 
 ;;9002226.02101,"692,078.81 ",.01)
 ;;078.81 
 ;;9002226.02101,"692,078.81 ",.02)
 ;;078.81 
 ;;9002226.02101,"692,078.82 ",.01)
 ;;078.82 
 ;;9002226.02101,"692,078.82 ",.02)
 ;;078.82 
 ;;9002226.02101,"692,078.88 ",.01)
 ;;078.88 
 ;;9002226.02101,"692,078.88 ",.02)
 ;;078.88 
 ;;9002226.02101,"692,079.88 ",.01)
 ;;079.88 
 ;;9002226.02101,"692,079.88 ",.02)
 ;;079.88 
 ;;9002226.02101,"692,079.98 ",.01)
 ;;079.98 
 ;;9002226.02101,"692,079.98 ",.02)
 ;;079.98 
 ;;9002226.02101,"692,080 ",.01)
 ;;080 
 ;;9002226.02101,"692,080 ",.02)
 ;;080 
 ;;9002226.02101,"692,081.0 ",.01)
 ;;081.0 
 ;;9002226.02101,"692,081.0 ",.02)
 ;;081.0 
 ;;9002226.02101,"692,081.1 ",.01)
 ;;081.1 
 ;;9002226.02101,"692,081.1 ",.02)
 ;;081.1 
 ;;9002226.02101,"692,081.2 ",.01)
 ;;081.2 
 ;;9002226.02101,"692,081.2 ",.02)
 ;;081.2 
 ;;9002226.02101,"692,081.9 ",.01)
 ;;081.9 
 ;;9002226.02101,"692,081.9 ",.02)
 ;;081.9 
 ;;9002226.02101,"692,082.0 ",.01)
 ;;082.0 
 ;;9002226.02101,"692,082.0 ",.02)
 ;;082.0 
 ;;9002226.02101,"692,082.1 ",.01)
 ;;082.1 
 ;;9002226.02101,"692,082.1 ",.02)
 ;;082.1 
 ;;9002226.02101,"692,082.2 ",.01)
 ;;082.2 
 ;;9002226.02101,"692,082.2 ",.02)
 ;;082.2 
 ;;9002226.02101,"692,082.3 ",.01)
 ;;082.3 
 ;;9002226.02101,"692,082.3 ",.02)
 ;;082.3 
 ;;9002226.02101,"692,082.40 ",.01)
 ;;082.40 
 ;;9002226.02101,"692,082.40 ",.02)
 ;;082.40 
 ;;9002226.02101,"692,082.41 ",.01)
 ;;082.41 
 ;;9002226.02101,"692,082.41 ",.02)
 ;;082.41 
 ;;9002226.02101,"692,082.49 ",.01)
 ;;082.49 
 ;;9002226.02101,"692,082.49 ",.02)
 ;;082.49 
 ;;9002226.02101,"692,082.8 ",.01)
 ;;082.8 
 ;;9002226.02101,"692,082.8 ",.02)
 ;;082.8 
 ;;9002226.02101,"692,082.9 ",.01)
 ;;082.9 
 ;;9002226.02101,"692,082.9 ",.02)
 ;;082.9 
 ;;9002226.02101,"692,083.0 ",.01)
 ;;083.0 
 ;;9002226.02101,"692,083.0 ",.02)
 ;;083.0 
 ;;9002226.02101,"692,083.1 ",.01)
 ;;083.1 
 ;;9002226.02101,"692,083.1 ",.02)
 ;;083.1 
 ;;9002226.02101,"692,083.2 ",.01)
 ;;083.2 
 ;;9002226.02101,"692,083.2 ",.02)
 ;;083.2 
 ;;9002226.02101,"692,083.8 ",.01)
 ;;083.8 
 ;;9002226.02101,"692,083.8 ",.02)
 ;;083.8 
 ;;9002226.02101,"692,083.9 ",.01)
 ;;083.9 
 ;;9002226.02101,"692,083.9 ",.02)
 ;;083.9 
 ;;9002226.02101,"692,084.0 ",.01)
 ;;084.0 
 ;;9002226.02101,"692,084.0 ",.02)
 ;;084.0 
 ;;9002226.02101,"692,084.1 ",.01)
 ;;084.1 
 ;;9002226.02101,"692,084.1 ",.02)
 ;;084.1 
 ;;9002226.02101,"692,084.2 ",.01)
 ;;084.2 
 ;;9002226.02101,"692,084.2 ",.02)
 ;;084.2 
 ;;9002226.02101,"692,084.3 ",.01)
 ;;084.3 
 ;;9002226.02101,"692,084.3 ",.02)
 ;;084.3 
 ;;9002226.02101,"692,084.4 ",.01)
 ;;084.4 
 ;;9002226.02101,"692,084.4 ",.02)
 ;;084.4 
 ;;9002226.02101,"692,084.5 ",.01)
 ;;084.5 
 ;;9002226.02101,"692,084.5 ",.02)
 ;;084.5 
 ;;9002226.02101,"692,084.6 ",.01)
 ;;084.6 
 ;;9002226.02101,"692,084.6 ",.02)
 ;;084.6 
 ;;9002226.02101,"692,084.7 ",.01)
 ;;084.7 
 ;;9002226.02101,"692,084.7 ",.02)
 ;;084.7 
 ;;9002226.02101,"692,084.8 ",.01)
 ;;084.8 
 ;;9002226.02101,"692,084.8 ",.02)
 ;;084.8 
 ;;9002226.02101,"692,084.9 ",.01)
 ;;084.9 
 ;;9002226.02101,"692,084.9 ",.02)
 ;;084.9 
 ;;9002226.02101,"692,085.0 ",.01)
 ;;085.0 
 ;;9002226.02101,"692,085.0 ",.02)
 ;;085.0 
 ;;9002226.02101,"692,085.1 ",.01)
 ;;085.1 
 ;;9002226.02101,"692,085.1 ",.02)
 ;;085.1 
 ;;9002226.02101,"692,085.2 ",.01)
 ;;085.2 
 ;;9002226.02101,"692,085.2 ",.02)
 ;;085.2 
 ;;9002226.02101,"692,085.3 ",.01)
 ;;085.3 
 ;;9002226.02101,"692,085.3 ",.02)
 ;;085.3 
 ;;9002226.02101,"692,085.4 ",.01)
 ;;085.4 
 ;;9002226.02101,"692,085.4 ",.02)
 ;;085.4 
 ;;9002226.02101,"692,085.5 ",.01)
 ;;085.5 
 ;;9002226.02101,"692,085.5 ",.02)
 ;;085.5 
 ;;9002226.02101,"692,085.9 ",.01)
 ;;085.9 
 ;;9002226.02101,"692,085.9 ",.02)
 ;;085.9 
 ;;9002226.02101,"692,086.0 ",.01)
 ;;086.0 
 ;;9002226.02101,"692,086.0 ",.02)
 ;;086.0 
 ;;9002226.02101,"692,086.1 ",.01)
 ;;086.1 
 ;;9002226.02101,"692,086.1 ",.02)
 ;;086.1 
 ;;9002226.02101,"692,086.2 ",.01)
 ;;086.2 
 ;;9002226.02101,"692,086.2 ",.02)
 ;;086.2 
 ;;9002226.02101,"692,086.3 ",.01)
 ;;086.3 
 ;;9002226.02101,"692,086.3 ",.02)
 ;;086.3 
 ;;9002226.02101,"692,086.4 ",.01)
 ;;086.4 
 ;;9002226.02101,"692,086.4 ",.02)
 ;;086.4 
 ;;9002226.02101,"692,086.5 ",.01)
 ;;086.5 
 ;;9002226.02101,"692,086.5 ",.02)
 ;;086.5 
 ;;9002226.02101,"692,086.9 ",.01)
 ;;086.9 
 ;;9002226.02101,"692,086.9 ",.02)
 ;;086.9 
 ;;9002226.02101,"692,087.0 ",.01)
 ;;087.0 
 ;;9002226.02101,"692,087.0 ",.02)
 ;;087.0 
 ;;9002226.02101,"692,087.1 ",.01)
 ;;087.1 
 ;;9002226.02101,"692,087.1 ",.02)
 ;;087.1 
 ;;9002226.02101,"692,087.9 ",.01)
 ;;087.9 
 ;;9002226.02101,"692,087.9 ",.02)
 ;;087.9 
 ;;9002226.02101,"692,088.0 ",.01)
 ;;088.0 
 ;;9002226.02101,"692,088.0 ",.02)
 ;;088.0 
 ;;9002226.02101,"692,088.81 ",.01)
 ;;088.81 
 ;;9002226.02101,"692,088.81 ",.02)
 ;;088.81 
 ;;9002226.02101,"692,088.82 ",.01)
 ;;088.82 
 ;;9002226.02101,"692,088.82 ",.02)
 ;;088.82 
 ;;9002226.02101,"692,088.89 ",.01)
 ;;088.89 
 ;;9002226.02101,"692,088.89 ",.02)
 ;;088.89 
 ;;9002226.02101,"692,088.9 ",.01)
 ;;088.9 
 ;;9002226.02101,"692,088.9 ",.02)
 ;;088.9 
 ;;9002226.02101,"692,090.0 ",.01)
 ;;090.0 
 ;;9002226.02101,"692,090.0 ",.02)
 ;;090.0 
 ;;9002226.02101,"692,090.1 ",.01)
 ;;090.1 
 ;;9002226.02101,"692,090.1 ",.02)
 ;;090.1 
 ;;9002226.02101,"692,090.2 ",.01)
 ;;090.2 
 ;;9002226.02101,"692,090.2 ",.02)
 ;;090.2 
 ;;9002226.02101,"692,090.3 ",.01)
 ;;090.3 
 ;;9002226.02101,"692,090.3 ",.02)
 ;;090.3 
 ;;9002226.02101,"692,090.40 ",.01)
 ;;090.40 
 ;;9002226.02101,"692,090.40 ",.02)
 ;;090.40 
 ;;9002226.02101,"692,090.41 ",.01)
 ;;090.41 
 ;;9002226.02101,"692,090.41 ",.02)
 ;;090.41 
 ;;9002226.02101,"692,090.42 ",.01)
 ;;090.42 
 ;;9002226.02101,"692,090.42 ",.02)
 ;;090.42 
 ;;9002226.02101,"692,090.49 ",.01)
 ;;090.49 
 ;;9002226.02101,"692,090.49 ",.02)
 ;;090.49 
 ;;9002226.02101,"692,090.5 ",.01)
 ;;090.5 
 ;;9002226.02101,"692,090.5 ",.02)
 ;;090.5 
 ;;9002226.02101,"692,090.6 ",.01)
 ;;090.6 
 ;;9002226.02101,"692,090.6 ",.02)
 ;;090.6 
 ;;9002226.02101,"692,090.7 ",.01)
 ;;090.7 
 ;;9002226.02101,"692,090.7 ",.02)
 ;;090.7 
 ;;9002226.02101,"692,090.9 ",.01)
 ;;090.9 
 ;;9002226.02101,"692,090.9 ",.02)
 ;;090.9 
 ;;9002226.02101,"692,091.0 ",.01)
 ;;091.0 
 ;;9002226.02101,"692,091.0 ",.02)
 ;;091.0 
 ;;9002226.02101,"692,091.1 ",.01)
 ;;091.1 
 ;;9002226.02101,"692,091.1 ",.02)
 ;;091.1 
 ;;9002226.02101,"692,091.2 ",.01)
 ;;091.2