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

BGP21J33.m

Go to the documentation of this file.
  1. BGP21J33 ;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,63739-0116-01 ",.02)
  1. ;;63739-0116-01
  1. ;;9002226.02101,"1199,63739-0116-02 ",.01)
  1. ;;63739-0116-02
  1. ;;9002226.02101,"1199,63739-0116-02 ",.02)
  1. ;;63739-0116-02
  1. ;;9002226.02101,"1199,63739-0116-03 ",.01)
  1. ;;63739-0116-03
  1. ;;9002226.02101,"1199,63739-0116-03 ",.02)
  1. ;;63739-0116-03
  1. ;;9002226.02101,"1199,63739-0116-10 ",.01)
  1. ;;63739-0116-10
  1. ;;9002226.02101,"1199,63739-0116-10 ",.02)
  1. ;;63739-0116-10
  1. ;;9002226.02101,"1199,63739-0116-15 ",.01)
  1. ;;63739-0116-15
  1. ;;9002226.02101,"1199,63739-0116-15 ",.02)
  1. ;;63739-0116-15
  1. ;;9002226.02101,"1199,63739-0117-01 ",.01)
  1. ;;63739-0117-01
  1. ;;9002226.02101,"1199,63739-0117-01 ",.02)
  1. ;;63739-0117-01
  1. ;;9002226.02101,"1199,63739-0117-02 ",.01)
  1. ;;63739-0117-02
  1. ;;9002226.02101,"1199,63739-0117-02 ",.02)
  1. ;;63739-0117-02
  1. ;;9002226.02101,"1199,63739-0117-03 ",.01)
  1. ;;63739-0117-03
  1. ;;9002226.02101,"1199,63739-0117-03 ",.02)
  1. ;;63739-0117-03
  1. ;;9002226.02101,"1199,63739-0117-10 ",.01)
  1. ;;63739-0117-10
  1. ;;9002226.02101,"1199,63739-0117-10 ",.02)
  1. ;;63739-0117-10
  1. ;;9002226.02101,"1199,63739-0117-15 ",.01)
  1. ;;63739-0117-15
  1. ;;9002226.02101,"1199,63739-0117-15 ",.02)
  1. ;;63739-0117-15
  1. ;;9002226.02101,"1199,63739-0118-01 ",.01)
  1. ;;63739-0118-01
  1. ;;9002226.02101,"1199,63739-0118-01 ",.02)
  1. ;;63739-0118-01
  1. ;;9002226.02101,"1199,63739-0118-02 ",.01)
  1. ;;63739-0118-02
  1. ;;9002226.02101,"1199,63739-0118-02 ",.02)
  1. ;;63739-0118-02
  1. ;;9002226.02101,"1199,63739-0118-03 ",.01)
  1. ;;63739-0118-03
  1. ;;9002226.02101,"1199,63739-0118-03 ",.02)
  1. ;;63739-0118-03
  1. ;;9002226.02101,"1199,63739-0118-10 ",.01)
  1. ;;63739-0118-10
  1. ;;9002226.02101,"1199,63739-0118-10 ",.02)
  1. ;;63739-0118-10
  1. ;;9002226.02101,"1199,63739-0118-15 ",.01)
  1. ;;63739-0118-15
  1. ;;9002226.02101,"1199,63739-0118-15 ",.02)
  1. ;;63739-0118-15
  1. ;;9002226.02101,"1199,63739-0119-01 ",.01)
  1. ;;63739-0119-01
  1. ;;9002226.02101,"1199,63739-0119-01 ",.02)
  1. ;;63739-0119-01
  1. ;;9002226.02101,"1199,63739-0119-02 ",.01)
  1. ;;63739-0119-02
  1. ;;9002226.02101,"1199,63739-0119-02 ",.02)
  1. ;;63739-0119-02
  1. ;;9002226.02101,"1199,63739-0119-03 ",.01)
  1. ;;63739-0119-03
  1. ;;9002226.02101,"1199,63739-0119-03 ",.02)
  1. ;;63739-0119-03
  1. ;;9002226.02101,"1199,63739-0119-10 ",.01)
  1. ;;63739-0119-10
  1. ;;9002226.02101,"1199,63739-0119-10 ",.02)
  1. ;;63739-0119-10
  1. ;;9002226.02101,"1199,63739-0119-15 ",.01)
  1. ;;63739-0119-15
  1. ;;9002226.02101,"1199,63739-0119-15 ",.02)
  1. ;;63739-0119-15
  1. ;;9002226.02101,"1199,63874-0316-01 ",.01)
  1. ;;63874-0316-01
  1. ;;9002226.02101,"1199,63874-0316-01 ",.02)
  1. ;;63874-0316-01
  1. ;;9002226.02101,"1199,63874-0316-02 ",.01)
  1. ;;63874-0316-02
  1. ;;9002226.02101,"1199,63874-0316-02 ",.02)
  1. ;;63874-0316-02
  1. ;;9002226.02101,"1199,63874-0316-04 ",.01)
  1. ;;63874-0316-04
  1. ;;9002226.02101,"1199,63874-0316-04 ",.02)
  1. ;;63874-0316-04
  1. ;;9002226.02101,"1199,63874-0316-05 ",.01)
  1. ;;63874-0316-05
  1. ;;9002226.02101,"1199,63874-0316-05 ",.02)
  1. ;;63874-0316-05
  1. ;;9002226.02101,"1199,63874-0316-10 ",.01)
  1. ;;63874-0316-10
  1. ;;9002226.02101,"1199,63874-0316-10 ",.02)
  1. ;;63874-0316-10
  1. ;;9002226.02101,"1199,63874-0316-12 ",.01)
  1. ;;63874-0316-12
  1. ;;9002226.02101,"1199,63874-0316-12 ",.02)
  1. ;;63874-0316-12
  1. ;;9002226.02101,"1199,63874-0316-14 ",.01)
  1. ;;63874-0316-14
  1. ;;9002226.02101,"1199,63874-0316-14 ",.02)
  1. ;;63874-0316-14
  1. ;;9002226.02101,"1199,63874-0316-15 ",.01)
  1. ;;63874-0316-15
  1. ;;9002226.02101,"1199,63874-0316-15 ",.02)
  1. ;;63874-0316-15
  1. ;;9002226.02101,"1199,63874-0316-20 ",.01)
  1. ;;63874-0316-20
  1. ;;9002226.02101,"1199,63874-0316-20 ",.02)
  1. ;;63874-0316-20
  1. ;;9002226.02101,"1199,63874-0316-21 ",.01)
  1. ;;63874-0316-21
  1. ;;9002226.02101,"1199,63874-0316-21 ",.02)
  1. ;;63874-0316-21
  1. ;;9002226.02101,"1199,63874-0316-24 ",.01)
  1. ;;63874-0316-24
  1. ;;9002226.02101,"1199,63874-0316-24 ",.02)
  1. ;;63874-0316-24
  1. ;;9002226.02101,"1199,63874-0316-28 ",.01)
  1. ;;63874-0316-28
  1. ;;9002226.02101,"1199,63874-0316-28 ",.02)
  1. ;;63874-0316-28
  1. ;;9002226.02101,"1199,63874-0316-30 ",.01)
  1. ;;63874-0316-30
  1. ;;9002226.02101,"1199,63874-0316-30 ",.02)
  1. ;;63874-0316-30
  1. ;;9002226.02101,"1199,63874-0316-50 ",.01)
  1. ;;63874-0316-50
  1. ;;9002226.02101,"1199,63874-0316-50 ",.02)
  1. ;;63874-0316-50
  1. ;;9002226.02101,"1199,63874-0316-60 ",.01)
  1. ;;63874-0316-60
  1. ;;9002226.02101,"1199,63874-0316-60 ",.02)
  1. ;;63874-0316-60
  1. ;;9002226.02101,"1199,63874-0316-81 ",.01)
  1. ;;63874-0316-81
  1. ;;9002226.02101,"1199,63874-0316-81 ",.02)
  1. ;;63874-0316-81
  1. ;;9002226.02101,"1199,63874-0316-90 ",.01)
  1. ;;63874-0316-90
  1. ;;9002226.02101,"1199,63874-0316-90 ",.02)
  1. ;;63874-0316-90
  1. ;;9002226.02101,"1199,63874-0317-01 ",.01)
  1. ;;63874-0317-01
  1. ;;9002226.02101,"1199,63874-0317-01 ",.02)
  1. ;;63874-0317-01
  1. ;;9002226.02101,"1199,63874-0317-02 ",.01)
  1. ;;63874-0317-02
  1. ;;9002226.02101,"1199,63874-0317-02 ",.02)
  1. ;;63874-0317-02
  1. ;;9002226.02101,"1199,63874-0317-04 ",.01)
  1. ;;63874-0317-04
  1. ;;9002226.02101,"1199,63874-0317-04 ",.02)
  1. ;;63874-0317-04
  1. ;;9002226.02101,"1199,63874-0317-10 ",.01)
  1. ;;63874-0317-10
  1. ;;9002226.02101,"1199,63874-0317-10 ",.02)
  1. ;;63874-0317-10
  1. ;;9002226.02101,"1199,63874-0317-12 ",.01)
  1. ;;63874-0317-12
  1. ;;9002226.02101,"1199,63874-0317-12 ",.02)
  1. ;;63874-0317-12
  1. ;;9002226.02101,"1199,63874-0317-14 ",.01)
  1. ;;63874-0317-14
  1. ;;9002226.02101,"1199,63874-0317-14 ",.02)
  1. ;;63874-0317-14