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

BGP9SXVT.m

Go to the documentation of this file.
  1. BGP9SXVT ; 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,"747,65162-0325-11 ",.02)
  1. ;;65162-0325-11
  1. ;;9002226.02101,"747,65162-0335-10 ",.01)
  1. ;;65162-0335-10
  1. ;;9002226.02101,"747,65162-0335-10 ",.02)
  1. ;;65162-0335-10
  1. ;;9002226.02101,"747,66105-0164-02 ",.01)
  1. ;;66105-0164-02
  1. ;;9002226.02101,"747,66105-0164-02 ",.02)
  1. ;;66105-0164-02
  1. ;;9002226.02101,"747,66105-0164-03 ",.01)
  1. ;;66105-0164-03
  1. ;;9002226.02101,"747,66105-0164-03 ",.02)
  1. ;;66105-0164-03
  1. ;;9002226.02101,"747,66105-0164-06 ",.01)
  1. ;;66105-0164-06
  1. ;;9002226.02101,"747,66105-0164-06 ",.02)
  1. ;;66105-0164-06
  1. ;;9002226.02101,"747,66105-0164-09 ",.01)
  1. ;;66105-0164-09
  1. ;;9002226.02101,"747,66105-0164-09 ",.02)
  1. ;;66105-0164-09
  1. ;;9002226.02101,"747,66105-0164-10 ",.01)
  1. ;;66105-0164-10
  1. ;;9002226.02101,"747,66105-0164-10 ",.02)
  1. ;;66105-0164-10
  1. ;;9002226.02101,"747,66239-0111-16 ",.01)
  1. ;;66239-0111-16
  1. ;;9002226.02101,"747,66239-0111-16 ",.02)
  1. ;;66239-0111-16
  1. ;;9002226.02101,"747,66336-0596-30 ",.01)
  1. ;;66336-0596-30
  1. ;;9002226.02101,"747,66336-0596-30 ",.02)
  1. ;;66336-0596-30
  1. ;;9002226.02101,"747,67781-0251-01 ",.01)
  1. ;;67781-0251-01
  1. ;;9002226.02101,"747,67781-0251-01 ",.02)
  1. ;;67781-0251-01
  1. ;;9002226.02101,"747,67781-0251-05 ",.01)
  1. ;;67781-0251-05
  1. ;;9002226.02101,"747,67781-0251-05 ",.02)
  1. ;;67781-0251-05
  1. ;;9002226.02101,"747,67781-0252-01 ",.01)
  1. ;;67781-0252-01
  1. ;;9002226.02101,"747,67781-0252-01 ",.02)
  1. ;;67781-0252-01
  1. ;;9002226.02101,"747,67801-0305-03 ",.01)
  1. ;;67801-0305-03
  1. ;;9002226.02101,"747,67801-0305-03 ",.02)
  1. ;;67801-0305-03
  1. ;;9002226.02101,"747,68115-0328-60 ",.01)
  1. ;;68115-0328-60
  1. ;;9002226.02101,"747,68115-0328-60 ",.02)
  1. ;;68115-0328-60
  1. ;;9002226.02101,"747,68115-0547-20 ",.01)
  1. ;;68115-0547-20
  1. ;;9002226.02101,"747,68115-0547-20 ",.02)
  1. ;;68115-0547-20
  1. ;;9002226.02101,"747,68115-0637-13 ",.01)
  1. ;;68115-0637-13
  1. ;;9002226.02101,"747,68115-0637-13 ",.02)
  1. ;;68115-0637-13
  1. ;;9002226.02101,"747,68115-0638-60 ",.01)
  1. ;;68115-0638-60
  1. ;;9002226.02101,"747,68115-0638-60 ",.02)
  1. ;;68115-0638-60
  1. ;;9002226.02101,"747,68115-0652-01 ",.01)
  1. ;;68115-0652-01
  1. ;;9002226.02101,"747,68115-0652-01 ",.02)
  1. ;;68115-0652-01
  1. ;;9002226.02101,"747,68115-0653-01 ",.01)
  1. ;;68115-0653-01
  1. ;;9002226.02101,"747,68115-0653-01 ",.02)
  1. ;;68115-0653-01
  1. ;;9002226.02101,"747,68115-0657-01 ",.01)
  1. ;;68115-0657-01
  1. ;;9002226.02101,"747,68115-0657-01 ",.02)
  1. ;;68115-0657-01
  1. ;;9002226.02101,"747,68115-0760-01 ",.01)
  1. ;;68115-0760-01
  1. ;;9002226.02101,"747,68115-0760-01 ",.02)
  1. ;;68115-0760-01
  1. ;;9002226.02101,"747,68115-0775-07 ",.01)
  1. ;;68115-0775-07
  1. ;;9002226.02101,"747,68115-0775-07 ",.02)
  1. ;;68115-0775-07
  1. ;;9002226.02101,"747,68115-0923-30 ",.01)
  1. ;;68115-0923-30
  1. ;;9002226.02101,"747,68115-0923-30 ",.02)
  1. ;;68115-0923-30
  1. ;;9002226.02101,"747,68115-0923-90 ",.01)
  1. ;;68115-0923-90
  1. ;;9002226.02101,"747,68115-0923-90 ",.02)
  1. ;;68115-0923-90
  1. ;;9002226.02101,"747,68115-0924-60 ",.01)
  1. ;;68115-0924-60
  1. ;;9002226.02101,"747,68115-0924-60 ",.02)
  1. ;;68115-0924-60
  1. ;;9002226.02101,"747,68734-0700-10 ",.01)
  1. ;;68734-0700-10
  1. ;;9002226.02101,"747,68734-0700-10 ",.02)
  1. ;;68734-0700-10
  1. ;;9002226.02101,"747,68734-0710-10 ",.01)
  1. ;;68734-0710-10
  1. ;;9002226.02101,"747,68734-0710-10 ",.02)
  1. ;;68734-0710-10