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

BGP9SXNE.m

Go to the documentation of this file.
  1. BGP9SXNE ; 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,736,.15)
  1. ;;@
  1. ;;9002226,736,.16)
  1. ;;@
  1. ;;9002226,736,.17)
  1. ;;@
  1. ;;9002226,736,3101)
  1. ;;@
  1. ;;9002226.02101,"736,00002-0351-02 ",.01)
  1. ;;00002-0351-02
  1. ;;9002226.02101,"736,00002-0351-02 ",.02)
  1. ;;00002-0351-02
  1. ;;9002226.02101,"736,00002-0353-02 ",.01)
  1. ;;00002-0353-02
  1. ;;9002226.02101,"736,00002-0353-02 ",.02)
  1. ;;00002-0353-02
  1. ;;9002226.02101,"736,00002-0353-03 ",.01)
  1. ;;00002-0353-03
  1. ;;9002226.02101,"736,00002-0353-03 ",.02)
  1. ;;00002-0353-03
  1. ;;9002226.02101,"736,00002-0353-33 ",.01)
  1. ;;00002-0353-33
  1. ;;9002226.02101,"736,00002-0353-33 ",.02)
  1. ;;00002-0353-33
  1. ;;9002226.02101,"736,00002-0363-02 ",.01)
  1. ;;00002-0363-02
  1. ;;9002226.02101,"736,00002-0363-02 ",.02)
  1. ;;00002-0363-02
  1. ;;9002226.02101,"736,00002-0363-03 ",.01)
  1. ;;00002-0363-03
  1. ;;9002226.02101,"736,00002-0363-03 ",.02)
  1. ;;00002-0363-03
  1. ;;9002226.02101,"736,00002-0363-33 ",.01)
  1. ;;00002-0363-33
  1. ;;9002226.02101,"736,00002-0363-33 ",.02)
  1. ;;00002-0363-33
  1. ;;9002226.02101,"736,00002-0803-02 ",.01)
  1. ;;00002-0803-02
  1. ;;9002226.02101,"736,00002-0803-02 ",.02)
  1. ;;00002-0803-02
  1. ;;9002226.02101,"736,00002-0803-03 ",.01)
  1. ;;00002-0803-03
  1. ;;9002226.02101,"736,00002-0803-03 ",.02)
  1. ;;00002-0803-03
  1. ;;9002226.02101,"736,00002-0803-33 ",.01)
  1. ;;00002-0803-33
  1. ;;9002226.02101,"736,00002-0803-33 ",.02)
  1. ;;00002-0803-33
  1. ;;9002226.02101,"736,00002-3111-02 ",.01)
  1. ;;00002-3111-02
  1. ;;9002226.02101,"736,00002-3111-02 ",.02)
  1. ;;00002-3111-02
  1. ;;9002226.02101,"736,00002-3111-03 ",.01)
  1. ;;00002-3111-03
  1. ;;9002226.02101,"736,00002-3111-03 ",.02)
  1. ;;00002-3111-03
  1. ;;9002226.02101,"736,00008-0259-01 ",.01)
  1. ;;00008-0259-01
  1. ;;9002226.02101,"736,00008-0259-01 ",.02)
  1. ;;00008-0259-01
  1. ;;9002226.02101,"736,00008-0261-02 ",.01)
  1. ;;00008-0261-02
  1. ;;9002226.02101,"736,00008-0261-02 ",.02)
  1. ;;00008-0261-02
  1. ;;9002226.02101,"736,00024-0332-06 ",.01)
  1. ;;00024-0332-06
  1. ;;9002226.02101,"736,00024-0332-06 ",.02)
  1. ;;00024-0332-06
  1. ;;9002226.02101,"736,00024-0335-02 ",.01)
  1. ;;00024-0335-02
  1. ;;9002226.02101,"736,00024-0335-02 ",.02)
  1. ;;00024-0335-02
  1. ;;9002226.02101,"736,00024-0335-04 ",.01)
  1. ;;00024-0335-04
  1. ;;9002226.02101,"736,00024-0335-04 ",.02)
  1. ;;00024-0335-04
  1. ;;9002226.02101,"736,00024-0335-06 ",.01)
  1. ;;00024-0335-06
  1. ;;9002226.02101,"736,00024-0335-06 ",.02)
  1. ;;00024-0335-06
  1. ;;9002226.02101,"736,00024-0337-04 ",.01)
  1. ;;00024-0337-04
  1. ;;9002226.02101,"736,00024-0337-04 ",.02)
  1. ;;00024-0337-04
  1. ;;9002226.02101,"736,00024-0361-04 ",.01)
  1. ;;00024-0361-04
  1. ;;9002226.02101,"736,00024-0361-04 ",.02)
  1. ;;00024-0361-04
  1. ;;9002226.02101,"736,00024-0371-04 ",.01)
  1. ;;00024-0371-04
  1. ;;9002226.02101,"736,00024-0371-04 ",.02)
  1. ;;00024-0371-04
  1. ;;9002226.02101,"736,00024-0373-04 ",.01)
  1. ;;00024-0373-04
  1. ;;9002226.02101,"736,00024-0373-04 ",.02)
  1. ;;00024-0373-04
  1. ;;9002226.02101,"736,00024-0375-04 ",.01)
  1. ;;00024-0375-04
  1. ;;9002226.02101,"736,00024-0375-04 ",.02)
  1. ;;00024-0375-04
  1. ;;9002226.02101,"736,00024-1916-01 ",.01)
  1. ;;00024-1916-01
  1. ;;9002226.02101,"736,00024-1916-01 ",.02)
  1. ;;00024-1916-01
  1. ;;9002226.02101,"736,00024-1924-14 ",.01)
  1. ;;00024-1924-14
  1. ;;9002226.02101,"736,00024-1924-14 ",.02)
  1. ;;00024-1924-14
  1. ;;9002226.02101,"736,00024-1926-04 ",.01)
  1. ;;00024-1926-04
  1. ;;9002226.02101,"736,00024-1926-04 ",.02)
  1. ;;00024-1926-04
  1. ;;9002226.02101,"736,00024-1937-04 ",.01)
  1. ;;00024-1937-04
  1. ;;9002226.02101,"736,00024-1937-04 ",.02)
  1. ;;00024-1937-04
  1. ;;9002226.02101,"736,00024-1951-04 ",.01)
  1. ;;00024-1951-04
  1. ;;9002226.02101,"736,00024-1951-04 ",.02)
  1. ;;00024-1951-04
  1. ;;9002226.02101,"736,00054-3545-63 ",.01)
  1. ;;00054-3545-63
  1. ;;9002226.02101,"736,00054-3545-63 ",.02)
  1. ;;00054-3545-63
  1. ;;9002226.02101,"736,00054-4595-25 ",.01)
  1. ;;00054-4595-25
  1. ;;9002226.02101,"736,00054-4595-25 ",.02)
  1. ;;00054-4595-25
  1. ;;9002226.02101,"736,00054-4596-25 ",.01)
  1. ;;00054-4596-25
  1. ;;9002226.02101,"736,00054-4596-25 ",.02)
  1. ;;00054-4596-25
  1. ;;9002226.02101,"736,00054-8545-16 ",.01)
  1. ;;00054-8545-16
  1. ;;9002226.02101,"736,00054-8545-16 ",.02)
  1. ;;00054-8545-16
  1. ;;9002226.02101,"736,00054-8595-11 ",.01)
  1. ;;00054-8595-11
  1. ;;9002226.02101,"736,00054-8595-11 ",.02)
  1. ;;00054-8595-11
  1. ;;9002226.02101,"736,00054-8596-11 ",.01)
  1. ;;00054-8596-11
  1. ;;9002226.02101,"736,00054-8596-11 ",.02)
  1. ;;00054-8596-11
  1. ;;9002226.02101,"736,00074-1176-02 ",.01)
  1. ;;00074-1176-02
  1. ;;9002226.02101,"736,00074-1176-02 ",.02)
  1. ;;00074-1176-02
  1. ;;9002226.02101,"736,00074-1176-11 ",.01)
  1. ;;00074-1176-11
  1. ;;9002226.02101,"736,00074-1176-11 ",.02)
  1. ;;00074-1176-11
  1. ;;9002226.02101,"736,00074-1176-21 ",.01)
  1. ;;00074-1176-21
  1. ;;9002226.02101,"736,00074-1176-21 ",.02)
  1. ;;00074-1176-21
  1. ;;9002226.02101,"736,00074-1176-30 ",.01)
  1. ;;00074-1176-30
  1. ;;9002226.02101,"736,00074-1176-30 ",.02)
  1. ;;00074-1176-30
  1. ;;9002226.02101,"736,00074-1178-01 ",.01)
  1. ;;00074-1178-01
  1. ;;9002226.02101,"736,00074-1178-01 ",.02)
  1. ;;00074-1178-01
  1. ;;9002226.02101,"736,00074-1178-02 ",.01)
  1. ;;00074-1178-02
  1. ;;9002226.02101,"736,00074-1178-02 ",.02)
  1. ;;00074-1178-02
  1. ;;9002226.02101,"736,00074-1178-11 ",.01)
  1. ;;00074-1178-11
  1. ;;9002226.02101,"736,00074-1178-11 ",.02)
  1. ;;00074-1178-11
  1. ;;9002226.02101,"736,00074-1178-21 ",.01)
  1. ;;00074-1178-21
  1. ;;9002226.02101,"736,00074-1178-21 ",.02)
  1. ;;00074-1178-21