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

BGP82I34.m

Go to the documentation of this file.
  1. BGP82I34 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1733,43353-0271-30 ",.02)
  1. ;;43353-0271-30
  1. ;;9002226.02101,"1733,43353-0271-60 ",.01)
  1. ;;43353-0271-60
  1. ;;9002226.02101,"1733,43353-0271-60 ",.02)
  1. ;;43353-0271-60
  1. ;;9002226.02101,"1733,43353-0293-30 ",.01)
  1. ;;43353-0293-30
  1. ;;9002226.02101,"1733,43353-0293-30 ",.02)
  1. ;;43353-0293-30
  1. ;;9002226.02101,"1733,43353-0293-60 ",.01)
  1. ;;43353-0293-60
  1. ;;9002226.02101,"1733,43353-0293-60 ",.02)
  1. ;;43353-0293-60
  1. ;;9002226.02101,"1733,43353-0313-15 ",.01)
  1. ;;43353-0313-15
  1. ;;9002226.02101,"1733,43353-0313-15 ",.02)
  1. ;;43353-0313-15
  1. ;;9002226.02101,"1733,43353-0313-60 ",.01)
  1. ;;43353-0313-60
  1. ;;9002226.02101,"1733,43353-0313-60 ",.02)
  1. ;;43353-0313-60
  1. ;;9002226.02101,"1733,43353-0318-60 ",.01)
  1. ;;43353-0318-60
  1. ;;9002226.02101,"1733,43353-0318-60 ",.02)
  1. ;;43353-0318-60
  1. ;;9002226.02101,"1733,43353-0333-30 ",.01)
  1. ;;43353-0333-30
  1. ;;9002226.02101,"1733,43353-0333-30 ",.02)
  1. ;;43353-0333-30
  1. ;;9002226.02101,"1733,43353-0333-45 ",.01)
  1. ;;43353-0333-45
  1. ;;9002226.02101,"1733,43353-0333-45 ",.02)
  1. ;;43353-0333-45
  1. ;;9002226.02101,"1733,43353-0350-30 ",.01)
  1. ;;43353-0350-30
  1. ;;9002226.02101,"1733,43353-0350-30 ",.02)
  1. ;;43353-0350-30
  1. ;;9002226.02101,"1733,43353-0350-45 ",.01)
  1. ;;43353-0350-45
  1. ;;9002226.02101,"1733,43353-0350-45 ",.02)
  1. ;;43353-0350-45
  1. ;;9002226.02101,"1733,43353-0350-60 ",.01)
  1. ;;43353-0350-60
  1. ;;9002226.02101,"1733,43353-0350-60 ",.02)
  1. ;;43353-0350-60
  1. ;;9002226.02101,"1733,43353-0350-80 ",.01)
  1. ;;43353-0350-80
  1. ;;9002226.02101,"1733,43353-0350-80 ",.02)
  1. ;;43353-0350-80
  1. ;;9002226.02101,"1733,43353-0365-15 ",.01)
  1. ;;43353-0365-15
  1. ;;9002226.02101,"1733,43353-0365-15 ",.02)
  1. ;;43353-0365-15
  1. ;;9002226.02101,"1733,43353-0365-30 ",.01)
  1. ;;43353-0365-30
  1. ;;9002226.02101,"1733,43353-0365-30 ",.02)
  1. ;;43353-0365-30
  1. ;;9002226.02101,"1733,43353-0365-45 ",.01)
  1. ;;43353-0365-45
  1. ;;9002226.02101,"1733,43353-0365-45 ",.02)
  1. ;;43353-0365-45
  1. ;;9002226.02101,"1733,43353-0365-60 ",.01)
  1. ;;43353-0365-60
  1. ;;9002226.02101,"1733,43353-0365-60 ",.02)
  1. ;;43353-0365-60
  1. ;;9002226.02101,"1733,43353-0459-45 ",.01)
  1. ;;43353-0459-45
  1. ;;9002226.02101,"1733,43353-0459-45 ",.02)
  1. ;;43353-0459-45
  1. ;;9002226.02101,"1733,43353-0516-45 ",.01)
  1. ;;43353-0516-45
  1. ;;9002226.02101,"1733,43353-0516-45 ",.02)
  1. ;;43353-0516-45
  1. ;;9002226.02101,"1733,43353-0521-60 ",.01)
  1. ;;43353-0521-60
  1. ;;9002226.02101,"1733,43353-0521-60 ",.02)
  1. ;;43353-0521-60
  1. ;;9002226.02101,"1733,43353-0521-80 ",.01)
  1. ;;43353-0521-80
  1. ;;9002226.02101,"1733,43353-0521-80 ",.02)
  1. ;;43353-0521-80
  1. ;;9002226.02101,"1733,43353-0643-60 ",.01)
  1. ;;43353-0643-60
  1. ;;9002226.02101,"1733,43353-0643-60 ",.02)
  1. ;;43353-0643-60
  1. ;;9002226.02101,"1733,43353-0655-60 ",.01)
  1. ;;43353-0655-60
  1. ;;9002226.02101,"1733,43353-0655-60 ",.02)
  1. ;;43353-0655-60
  1. ;;9002226.02101,"1733,43353-0662-16 ",.01)
  1. ;;43353-0662-16
  1. ;;9002226.02101,"1733,43353-0662-16 ",.02)
  1. ;;43353-0662-16
  1. ;;9002226.02101,"1733,43353-0662-30 ",.01)
  1. ;;43353-0662-30
  1. ;;9002226.02101,"1733,43353-0662-30 ",.02)
  1. ;;43353-0662-30
  1. ;;9002226.02101,"1733,43353-0662-80 ",.01)
  1. ;;43353-0662-80
  1. ;;9002226.02101,"1733,43353-0662-80 ",.02)
  1. ;;43353-0662-80
  1. ;;9002226.02101,"1733,43353-0676-60 ",.01)
  1. ;;43353-0676-60
  1. ;;9002226.02101,"1733,43353-0676-60 ",.02)
  1. ;;43353-0676-60
  1. ;;9002226.02101,"1733,43353-0712-60 ",.01)
  1. ;;43353-0712-60
  1. ;;9002226.02101,"1733,43353-0712-60 ",.02)
  1. ;;43353-0712-60
  1. ;;9002226.02101,"1733,43353-0722-60 ",.01)
  1. ;;43353-0722-60
  1. ;;9002226.02101,"1733,43353-0722-60 ",.02)
  1. ;;43353-0722-60
  1. ;;9002226.02101,"1733,43353-0726-60 ",.01)
  1. ;;43353-0726-60
  1. ;;9002226.02101,"1733,43353-0726-60 ",.02)
  1. ;;43353-0726-60
  1. ;;9002226.02101,"1733,43353-0726-80 ",.01)
  1. ;;43353-0726-80
  1. ;;9002226.02101,"1733,43353-0726-80 ",.02)
  1. ;;43353-0726-80
  1. ;;9002226.02101,"1733,43353-0728-60 ",.01)
  1. ;;43353-0728-60
  1. ;;9002226.02101,"1733,43353-0728-60 ",.02)
  1. ;;43353-0728-60
  1. ;;9002226.02101,"1733,43353-0729-30 ",.01)
  1. ;;43353-0729-30
  1. ;;9002226.02101,"1733,43353-0729-30 ",.02)
  1. ;;43353-0729-30
  1. ;;9002226.02101,"1733,43353-0729-45 ",.01)
  1. ;;43353-0729-45
  1. ;;9002226.02101,"1733,43353-0729-45 ",.02)
  1. ;;43353-0729-45
  1. ;;9002226.02101,"1733,43353-0729-60 ",.01)
  1. ;;43353-0729-60
  1. ;;9002226.02101,"1733,43353-0729-60 ",.02)
  1. ;;43353-0729-60
  1. ;;9002226.02101,"1733,43353-0730-30 ",.01)
  1. ;;43353-0730-30
  1. ;;9002226.02101,"1733,43353-0730-30 ",.02)
  1. ;;43353-0730-30
  1. ;;9002226.02101,"1733,43353-0730-60 ",.01)
  1. ;;43353-0730-60
  1. ;;9002226.02101,"1733,43353-0730-60 ",.02)
  1. ;;43353-0730-60
  1. ;;9002226.02101,"1733,43353-0800-60 ",.01)
  1. ;;43353-0800-60
  1. ;;9002226.02101,"1733,43353-0800-60 ",.02)
  1. ;;43353-0800-60
  1. ;;9002226.02101,"1733,43353-0865-60 ",.01)
  1. ;;43353-0865-60
  1. ;;9002226.02101,"1733,43353-0865-60 ",.02)
  1. ;;43353-0865-60
  1. ;;9002226.02101,"1733,43353-0865-80 ",.01)
  1. ;;43353-0865-80
  1. ;;9002226.02101,"1733,43353-0865-80 ",.02)
  1. ;;43353-0865-80
  1. ;;9002226.02101,"1733,43353-0866-30 ",.01)
  1. ;;43353-0866-30
  1. ;;9002226.02101,"1733,43353-0866-30 ",.02)
  1. ;;43353-0866-30
  1. ;;9002226.02101,"1733,43353-0866-60 ",.01)
  1. ;;43353-0866-60
  1. ;;9002226.02101,"1733,43353-0866-60 ",.02)
  1. ;;43353-0866-60
  1. ;;9002226.02101,"1733,43353-0867-60 ",.01)
  1. ;;43353-0867-60
  1. ;;9002226.02101,"1733,43353-0867-60 ",.02)
  1. ;;43353-0867-60
  1. ;;9002226.02101,"1733,43353-0870-45 ",.01)
  1. ;;43353-0870-45
  1. ;;9002226.02101,"1733,43353-0870-45 ",.02)
  1. ;;43353-0870-45
  1. ;;9002226.02101,"1733,43353-0910-83 ",.01)
  1. ;;43353-0910-83
  1. ;;9002226.02101,"1733,43353-0910-83 ",.02)
  1. ;;43353-0910-83
  1. ;;9002226.02101,"1733,43353-0926-60 ",.01)
  1. ;;43353-0926-60
  1. ;;9002226.02101,"1733,43353-0926-60 ",.02)
  1. ;;43353-0926-60
  1. ;;9002226.02101,"1733,43353-0968-60 ",.01)
  1. ;;43353-0968-60
  1. ;;9002226.02101,"1733,43353-0968-60 ",.02)
  1. ;;43353-0968-60
  1. ;;9002226.02101,"1733,43353-0968-80 ",.01)
  1. ;;43353-0968-80
  1. ;;9002226.02101,"1733,43353-0968-80 ",.02)
  1. ;;43353-0968-80
  1. ;;9002226.02101,"1733,43353-0976-30 ",.01)
  1. ;;43353-0976-30
  1. ;;9002226.02101,"1733,43353-0976-30 ",.02)
  1. ;;43353-0976-30
  1. ;;9002226.02101,"1733,43353-0976-60 ",.01)
  1. ;;43353-0976-60
  1. ;;9002226.02101,"1733,43353-0976-60 ",.02)
  1. ;;43353-0976-60
  1. ;;9002226.02101,"1733,43353-0977-60 ",.01)
  1. ;;43353-0977-60
  1. ;;9002226.02101,"1733,43353-0977-60 ",.02)
  1. ;;43353-0977-60
  1. ;;9002226.02101,"1733,43353-0993-30 ",.01)
  1. ;;43353-0993-30
  1. ;;9002226.02101,"1733,43353-0993-30 ",.02)
  1. ;;43353-0993-30
  1. ;;9002226.02101,"1733,43353-0993-45 ",.01)
  1. ;;43353-0993-45
  1. ;;9002226.02101,"1733,43353-0993-45 ",.02)
  1. ;;43353-0993-45
  1. ;;9002226.02101,"1733,43353-0993-53 ",.01)
  1. ;;43353-0993-53
  1. ;;9002226.02101,"1733,43353-0993-53 ",.02)
  1. ;;43353-0993-53
  1. ;;9002226.02101,"1733,43353-0993-60 ",.01)
  1. ;;43353-0993-60
  1. ;;9002226.02101,"1733,43353-0993-60 ",.02)
  1. ;;43353-0993-60
  1. ;;9002226.02101,"1733,43353-0993-80 ",.01)
  1. ;;43353-0993-80
  1. ;;9002226.02101,"1733,43353-0993-80 ",.02)
  1. ;;43353-0993-80
  1. ;;9002226.02101,"1733,43353-0993-92 ",.01)
  1. ;;43353-0993-92
  1. ;;9002226.02101,"1733,43353-0993-92 ",.02)
  1. ;;43353-0993-92
  1. ;;9002226.02101,"1733,43386-0080-03 ",.01)
  1. ;;43386-0080-03
  1. ;;9002226.02101,"1733,43386-0080-03 ",.02)
  1. ;;43386-0080-03
  1. ;;9002226.02101,"1733,43386-0080-09 ",.01)
  1. ;;43386-0080-09
  1. ;;9002226.02101,"1733,43386-0080-09 ",.02)
  1. ;;43386-0080-09
  1. ;;9002226.02101,"1733,43386-0081-03 ",.01)
  1. ;;43386-0081-03
  1. ;;9002226.02101,"1733,43386-0081-03 ",.02)
  1. ;;43386-0081-03
  1. ;;9002226.02101,"1733,43386-0081-09 ",.01)
  1. ;;43386-0081-09
  1. ;;9002226.02101,"1733,43386-0081-09 ",.02)
  1. ;;43386-0081-09
  1. ;;9002226.02101,"1733,43386-0082-03 ",.01)
  1. ;;43386-0082-03
  1. ;;9002226.02101,"1733,43386-0082-03 ",.02)
  1. ;;43386-0082-03
  1. ;;9002226.02101,"1733,43386-0082-09 ",.01)
  1. ;;43386-0082-09
  1. ;;9002226.02101,"1733,43386-0082-09 ",.02)
  1. ;;43386-0082-09
  1. ;;9002226.02101,"1733,43386-0083-03 ",.01)
  1. ;;43386-0083-03
  1. ;;9002226.02101,"1733,43386-0083-03 ",.02)
  1. ;;43386-0083-03
  1. ;;9002226.02101,"1733,43386-0083-09 ",.01)
  1. ;;43386-0083-09
  1. ;;9002226.02101,"1733,43386-0083-09 ",.02)
  1. ;;43386-0083-09
  1. ;;9002226.02101,"1733,43386-0710-05 ",.01)
  1. ;;43386-0710-05
  1. ;;9002226.02101,"1733,43386-0710-05 ",.02)
  1. ;;43386-0710-05
  1. ;;9002226.02101,"1733,43386-0710-09 ",.01)
  1. ;;43386-0710-09
  1. ;;9002226.02101,"1733,43386-0710-09 ",.02)
  1. ;;43386-0710-09
  1. ;;9002226.02101,"1733,43386-0711-05 ",.01)
  1. ;;43386-0711-05
  1. ;;9002226.02101,"1733,43386-0711-05 ",.02)
  1. ;;43386-0711-05
  1. ;;9002226.02101,"1733,43386-0711-09 ",.01)
  1. ;;43386-0711-09
  1. ;;9002226.02101,"1733,43386-0711-09 ",.02)
  1. ;;43386-0711-09
  1. ;;9002226.02101,"1733,43386-0712-05 ",.01)
  1. ;;43386-0712-05
  1. ;;9002226.02101,"1733,43386-0712-05 ",.02)
  1. ;;43386-0712-05
  1. ;;9002226.02101,"1733,43386-0712-09 ",.01)
  1. ;;43386-0712-09
  1. ;;9002226.02101,"1733,43386-0712-09 ",.02)
  1. ;;43386-0712-09
  1. ;;9002226.02101,"1733,43547-0277-03 ",.01)
  1. ;;43547-0277-03
  1. ;;9002226.02101,"1733,43547-0277-03 ",.02)
  1. ;;43547-0277-03
  1. ;;9002226.02101,"1733,43547-0277-09 ",.01)
  1. ;;43547-0277-09
  1. ;;9002226.02101,"1733,43547-0277-09 ",.02)
  1. ;;43547-0277-09
  1. ;;9002226.02101,"1733,43547-0277-50 ",.01)
  1. ;;43547-0277-50
  1. ;;9002226.02101,"1733,43547-0277-50 ",.02)
  1. ;;43547-0277-50
  1. ;;9002226.02101,"1733,43547-0278-03 ",.01)
  1. ;;43547-0278-03
  1. ;;9002226.02101,"1733,43547-0278-03 ",.02)
  1. ;;43547-0278-03
  1. ;;9002226.02101,"1733,43547-0278-09 ",.01)
  1. ;;43547-0278-09
  1. ;;9002226.02101,"1733,43547-0278-09 ",.02)
  1. ;;43547-0278-09
  1. ;;9002226.02101,"1733,43547-0278-50 ",.01)
  1. ;;43547-0278-50
  1. ;;9002226.02101,"1733,43547-0278-50 ",.02)
  1. ;;43547-0278-50
  1. ;;9002226.02101,"1733,43547-0279-03 ",.01)
  1. ;;43547-0279-03
  1. ;;9002226.02101,"1733,43547-0279-03 ",.02)
  1. ;;43547-0279-03
  1. ;;9002226.02101,"1733,43547-0279-09 ",.01)
  1. ;;43547-0279-09
  1. ;;9002226.02101,"1733,43547-0279-09 ",.02)
  1. ;;43547-0279-09
  1. ;;9002226.02101,"1733,43547-0279-50 ",.01)
  1. ;;43547-0279-50
  1. ;;9002226.02101,"1733,43547-0279-50 ",.02)
  1. ;;43547-0279-50
  1. ;;9002226.02101,"1733,43547-0311-09 ",.01)
  1. ;;43547-0311-09
  1. ;;9002226.02101,"1733,43547-0311-09 ",.02)
  1. ;;43547-0311-09
  1. ;;9002226.02101,"1733,43547-0312-09 ",.01)
  1. ;;43547-0312-09
  1. ;;9002226.02101,"1733,43547-0312-09 ",.02)
  1. ;;43547-0312-09
  1. ;;9002226.02101,"1733,43547-0313-09 ",.01)
  1. ;;43547-0313-09
  1. ;;9002226.02101,"1733,43547-0313-09 ",.02)
  1. ;;43547-0313-09
  1. ;;9002226.02101,"1733,43547-0314-09 ",.01)
  1. ;;43547-0314-09
  1. ;;9002226.02101,"1733,43547-0314-09 ",.02)
  1. ;;43547-0314-09
  1. ;;9002226.02101,"1733,43547-0315-09 ",.01)
  1. ;;43547-0315-09
  1. ;;9002226.02101,"1733,43547-0315-09 ",.02)
  1. ;;43547-0315-09
  1. ;;9002226.02101,"1733,43547-0330-03 ",.01)
  1. ;;43547-0330-03
  1. ;;9002226.02101,"1733,43547-0330-03 ",.02)
  1. ;;43547-0330-03
  1. ;;9002226.02101,"1733,43547-0330-09 ",.01)
  1. ;;43547-0330-09
  1. ;;9002226.02101,"1733,43547-0330-09 ",.02)
  1. ;;43547-0330-09
  1. ;;9002226.02101,"1733,43547-0331-03 ",.01)
  1. ;;43547-0331-03
  1. ;;9002226.02101,"1733,43547-0331-03 ",.02)
  1. ;;43547-0331-03
  1. ;;9002226.02101,"1733,43547-0331-09 ",.01)
  1. ;;43547-0331-09
  1. ;;9002226.02101,"1733,43547-0331-09 ",.02)
  1. ;;43547-0331-09
  1. ;;9002226.02101,"1733,43547-0335-10 ",.01)
  1. ;;43547-0335-10
  1. ;;9002226.02101,"1733,43547-0335-10 ",.02)
  1. ;;43547-0335-10
  1. ;;9002226.02101,"1733,43547-0336-10 ",.01)
  1. ;;43547-0336-10
  1. ;;9002226.02101,"1733,43547-0336-10 ",.02)
  1. ;;43547-0336-10
  1. ;;9002226.02101,"1733,43547-0336-50 ",.01)
  1. ;;43547-0336-50
  1. ;;9002226.02101,"1733,43547-0336-50 ",.02)
  1. ;;43547-0336-50
  1. ;;9002226.02101,"1733,43547-0337-10 ",.01)
  1. ;;43547-0337-10
  1. ;;9002226.02101,"1733,43547-0337-10 ",.02)
  1. ;;43547-0337-10
  1. ;;9002226.02101,"1733,43547-0337-50 ",.01)
  1. ;;43547-0337-50
  1. ;;9002226.02101,"1733,43547-0337-50 ",.02)
  1. ;;43547-0337-50
  1. ;;9002226.02101,"1733,43547-0338-10 ",.01)
  1. ;;43547-0338-10
  1. ;;9002226.02101,"1733,43547-0338-10 ",.02)
  1. ;;43547-0338-10