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

BGP9OXTB.m

Go to the documentation of this file.
  1. BGP9OXTB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
  1. ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
  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,"738,34535-5 ",.02)
  1. ;;34535-5
  1. ;;9002226.02101,"738,35663-4 ",.01)
  1. ;;35663-4
  1. ;;9002226.02101,"738,35663-4 ",.02)
  1. ;;35663-4
  1. ;;9002226.02101,"738,40486-3 ",.01)
  1. ;;40486-3
  1. ;;9002226.02101,"738,40486-3 ",.02)
  1. ;;40486-3
  1. ;;9002226.02101,"738,40662-9 ",.01)
  1. ;;40662-9
  1. ;;9002226.02101,"738,40662-9 ",.02)
  1. ;;40662-9
  1. ;;9002226.02101,"738,40663-7 ",.01)
  1. ;;40663-7
  1. ;;9002226.02101,"738,40663-7 ",.02)
  1. ;;40663-7
  1. ;;9002226.02101,"738,43605-5 ",.01)
  1. ;;43605-5
  1. ;;9002226.02101,"738,43605-5 ",.02)
  1. ;;43605-5
  1. ;;9002226.02101,"738,43606-3 ",.01)
  1. ;;43606-3
  1. ;;9002226.02101,"738,43606-3 ",.02)
  1. ;;43606-3
  1. ;;9002226.02101,"738,43607-1 ",.01)
  1. ;;43607-1
  1. ;;9002226.02101,"738,43607-1 ",.02)
  1. ;;43607-1
  1. ;;9002226.02101,"738,44292-1 ",.01)
  1. ;;44292-1
  1. ;;9002226.02101,"738,44292-1 ",.02)
  1. ;;44292-1
  1. ;;9002226.02101,"738,47558-2 ",.01)
  1. ;;47558-2
  1. ;;9002226.02101,"738,47558-2 ",.02)
  1. ;;47558-2
  1. ;;9002226.02101,"738,49002-9 ",.01)
  1. ;;49002-9
  1. ;;9002226.02101,"738,49002-9 ",.02)
  1. ;;49002-9
  1. ;;9002226.02101,"738,49023-5 ",.01)
  1. ;;49023-5
  1. ;;9002226.02101,"738,49023-5 ",.02)
  1. ;;49023-5
  1. ;;9002226.02101,"738,53121-0 ",.01)
  1. ;;53121-0
  1. ;;9002226.02101,"738,53121-0 ",.02)
  1. ;;53121-0
  1. ;;9002226.02101,"738,53530-2 ",.01)
  1. ;;53530-2
  1. ;;9002226.02101,"738,53530-2 ",.02)
  1. ;;53530-2
  1. ;;9002226.02101,"738,53531-0 ",.01)
  1. ;;53531-0
  1. ;;9002226.02101,"738,53531-0 ",.02)
  1. ;;53531-0
  1. ;;9002226.02101,"738,53532-8 ",.01)
  1. ;;53532-8
  1. ;;9002226.02101,"738,53532-8 ",.02)
  1. ;;53532-8
  1. ;;9002226.02101,"738,6941-9 ",.01)
  1. ;;6941-9
  1. ;;9002226.02101,"738,6941-9 ",.02)
  1. ;;6941-9
  1. ;;9002226.02101,"738,6942-7 ",.01)
  1. ;;6942-7
  1. ;;9002226.02101,"738,6942-7 ",.02)
  1. ;;6942-7
  1. ;;9002226.02101,"738,9318-7 ",.01)
  1. ;;9318-7
  1. ;;9002226.02101,"738,9318-7 ",.02)
  1. ;;9318-7