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

BGP21J36.m

Go to the documentation of this file.
  1. BGP21J36 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
  1. ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
  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,"1199,65862-0081-05 ",.01)
  1. ;;65862-0081-05
  1. ;;9002226.02101,"1199,65862-0081-05 ",.02)
  1. ;;65862-0081-05
  1. ;;9002226.02101,"1199,65862-0082-01 ",.01)
  1. ;;65862-0082-01
  1. ;;9002226.02101,"1199,65862-0082-01 ",.02)
  1. ;;65862-0082-01
  1. ;;9002226.02101,"1199,65862-0082-05 ",.01)
  1. ;;65862-0082-05
  1. ;;9002226.02101,"1199,65862-0082-05 ",.02)
  1. ;;65862-0082-05
  1. ;;9002226.02101,"1199,66105-0984-03 ",.01)
  1. ;;66105-0984-03
  1. ;;9002226.02101,"1199,66105-0984-03 ",.02)
  1. ;;66105-0984-03
  1. ;;9002226.02101,"1199,66105-0984-06 ",.01)
  1. ;;66105-0984-06
  1. ;;9002226.02101,"1199,66105-0984-06 ",.02)
  1. ;;66105-0984-06
  1. ;;9002226.02101,"1199,66105-0984-10 ",.01)
  1. ;;66105-0984-10
  1. ;;9002226.02101,"1199,66105-0984-10 ",.02)
  1. ;;66105-0984-10
  1. ;;9002226.02101,"1199,66105-0984-11 ",.01)
  1. ;;66105-0984-11
  1. ;;9002226.02101,"1199,66105-0984-11 ",.02)
  1. ;;66105-0984-11
  1. ;;9002226.02101,"1199,66105-0984-50 ",.01)
  1. ;;66105-0984-50
  1. ;;9002226.02101,"1199,66105-0984-50 ",.02)
  1. ;;66105-0984-50
  1. ;;9002226.02101,"1199,66105-0985-03 ",.01)
  1. ;;66105-0985-03
  1. ;;9002226.02101,"1199,66105-0985-03 ",.02)
  1. ;;66105-0985-03
  1. ;;9002226.02101,"1199,66105-0985-06 ",.01)
  1. ;;66105-0985-06
  1. ;;9002226.02101,"1199,66105-0985-06 ",.02)
  1. ;;66105-0985-06
  1. ;;9002226.02101,"1199,66105-0985-10 ",.01)
  1. ;;66105-0985-10
  1. ;;9002226.02101,"1199,66105-0985-10 ",.02)
  1. ;;66105-0985-10
  1. ;;9002226.02101,"1199,66105-0985-11 ",.01)
  1. ;;66105-0985-11
  1. ;;9002226.02101,"1199,66105-0985-11 ",.02)
  1. ;;66105-0985-11
  1. ;;9002226.02101,"1199,66105-0985-50 ",.01)
  1. ;;66105-0985-50
  1. ;;9002226.02101,"1199,66105-0985-50 ",.02)
  1. ;;66105-0985-50
  1. ;;9002226.02101,"1199,66105-0986-03 ",.01)
  1. ;;66105-0986-03
  1. ;;9002226.02101,"1199,66105-0986-03 ",.02)
  1. ;;66105-0986-03
  1. ;;9002226.02101,"1199,66105-0986-06 ",.01)
  1. ;;66105-0986-06
  1. ;;9002226.02101,"1199,66105-0986-06 ",.02)
  1. ;;66105-0986-06
  1. ;;9002226.02101,"1199,66105-0986-10 ",.01)
  1. ;;66105-0986-10
  1. ;;9002226.02101,"1199,66105-0986-10 ",.02)
  1. ;;66105-0986-10
  1. ;;9002226.02101,"1199,66105-0986-11 ",.01)
  1. ;;66105-0986-11
  1. ;;9002226.02101,"1199,66105-0986-11 ",.02)
  1. ;;66105-0986-11
  1. ;;9002226.02101,"1199,66105-0986-50 ",.01)
  1. ;;66105-0986-50
  1. ;;9002226.02101,"1199,66105-0986-50 ",.02)
  1. ;;66105-0986-50
  1. ;;9002226.02101,"1199,66116-0233-30 ",.01)
  1. ;;66116-0233-30
  1. ;;9002226.02101,"1199,66116-0233-30 ",.02)
  1. ;;66116-0233-30
  1. ;;9002226.02101,"1199,66116-0440-30 ",.01)
  1. ;;66116-0440-30
  1. ;;9002226.02101,"1199,66116-0440-30 ",.02)
  1. ;;66116-0440-30
  1. ;;9002226.02101,"1199,66267-0100-30 ",.01)
  1. ;;66267-0100-30
  1. ;;9002226.02101,"1199,66267-0100-30 ",.02)
  1. ;;66267-0100-30
  1. ;;9002226.02101,"1199,66267-0100-60 ",.01)
  1. ;;66267-0100-60
  1. ;;9002226.02101,"1199,66267-0100-60 ",.02)
  1. ;;66267-0100-60
  1. ;;9002226.02101,"1199,66267-0100-90 ",.01)
  1. ;;66267-0100-90
  1. ;;9002226.02101,"1199,66267-0100-90 ",.02)
  1. ;;66267-0100-90
  1. ;;9002226.02101,"1199,66267-0100-91 ",.01)
  1. ;;66267-0100-91
  1. ;;9002226.02101,"1199,66267-0100-91 ",.02)
  1. ;;66267-0100-91
  1. ;;9002226.02101,"1199,66267-0100-92 ",.01)
  1. ;;66267-0100-92
  1. ;;9002226.02101,"1199,66267-0100-92 ",.02)
  1. ;;66267-0100-92
  1. ;;9002226.02101,"1199,66267-0103-30 ",.01)
  1. ;;66267-0103-30
  1. ;;9002226.02101,"1199,66267-0103-30 ",.02)
  1. ;;66267-0103-30
  1. ;;9002226.02101,"1199,66336-0028-30 ",.01)
  1. ;;66336-0028-30
  1. ;;9002226.02101,"1199,66336-0028-30 ",.02)
  1. ;;66336-0028-30
  1. ;;9002226.02101,"1199,66336-0269-30 ",.01)
  1. ;;66336-0269-30
  1. ;;9002226.02101,"1199,66336-0269-30 ",.02)
  1. ;;66336-0269-30
  1. ;;9002226.02101,"1199,66336-0319-30 ",.01)
  1. ;;66336-0319-30
  1. ;;9002226.02101,"1199,66336-0319-30 ",.02)
  1. ;;66336-0319-30
  1. ;;9002226.02101,"1199,66336-0573-30 ",.01)
  1. ;;66336-0573-30
  1. ;;9002226.02101,"1199,66336-0573-30 ",.02)
  1. ;;66336-0573-30
  1. ;;9002226.02101,"1199,66336-0662-30 ",.01)
  1. ;;66336-0662-30
  1. ;;9002226.02101,"1199,66336-0662-30 ",.02)
  1. ;;66336-0662-30
  1. ;;9002226.02101,"1199,66336-0662-60 ",.01)
  1. ;;66336-0662-60
  1. ;;9002226.02101,"1199,66336-0662-60 ",.02)
  1. ;;66336-0662-60
  1. ;;9002226.02101,"1199,66336-0662-90 ",.01)
  1. ;;66336-0662-90
  1. ;;9002226.02101,"1199,66336-0662-90 ",.02)
  1. ;;66336-0662-90
  1. ;;9002226.02101,"1199,66336-0662-94 ",.01)
  1. ;;66336-0662-94
  1. ;;9002226.02101,"1199,66336-0662-94 ",.02)
  1. ;;66336-0662-94
  1. ;;9002226.02101,"1199,66336-0730-14 ",.01)
  1. ;;66336-0730-14
  1. ;;9002226.02101,"1199,66336-0730-14 ",.02)
  1. ;;66336-0730-14
  1. ;;9002226.02101,"1199,66336-0730-30 ",.01)
  1. ;;66336-0730-30
  1. ;;9002226.02101,"1199,66336-0730-30 ",.02)
  1. ;;66336-0730-30
  1. ;;9002226.02101,"1199,66336-0730-60 ",.01)
  1. ;;66336-0730-60
  1. ;;9002226.02101,"1199,66336-0730-60 ",.02)
  1. ;;66336-0730-60
  1. ;;9002226.02101,"1199,66336-0730-90 ",.01)
  1. ;;66336-0730-90
  1. ;;9002226.02101,"1199,66336-0730-90 ",.02)
  1. ;;66336-0730-90
  1. ;;9002226.02101,"1199,66336-0784-30 ",.01)
  1. ;;66336-0784-30
  1. ;;9002226.02101,"1199,66336-0784-30 ",.02)
  1. ;;66336-0784-30
  1. ;;9002226.02101,"1199,66336-0784-60 ",.01)
  1. ;;66336-0784-60
  1. ;;9002226.02101,"1199,66336-0784-60 ",.02)
  1. ;;66336-0784-60
  1. ;;9002226.02101,"1199,66336-0784-90 ",.01)
  1. ;;66336-0784-90
  1. ;;9002226.02101,"1199,66336-0784-90 ",.02)
  1. ;;66336-0784-90
  1. ;;9002226.02101,"1199,66336-0850-30 ",.01)
  1. ;;66336-0850-30
  1. ;;9002226.02101,"1199,66336-0850-30 ",.02)
  1. ;;66336-0850-30
  1. ;;9002226.02101,"1199,66336-0850-60 ",.01)
  1. ;;66336-0850-60