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

BGP9SXKM.m

Go to the documentation of this file.
  1. BGP9SXKM ; 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,"729,00839-7279-12 ",.02)
  1. ;;00839-7279-12
  1. ;;9002226.02101,"729,00839-7280-06 ",.01)
  1. ;;00839-7280-06
  1. ;;9002226.02101,"729,00839-7280-06 ",.02)
  1. ;;00839-7280-06
  1. ;;9002226.02101,"729,00839-7280-12 ",.01)
  1. ;;00839-7280-12
  1. ;;9002226.02101,"729,00839-7280-12 ",.02)
  1. ;;00839-7280-12
  1. ;;9002226.02101,"729,00904-0090-40 ",.01)
  1. ;;00904-0090-40
  1. ;;9002226.02101,"729,00904-0090-40 ",.02)
  1. ;;00904-0090-40
  1. ;;9002226.02101,"729,00904-0090-60 ",.01)
  1. ;;00904-0090-60
  1. ;;9002226.02101,"729,00904-0090-60 ",.02)
  1. ;;00904-0090-60
  1. ;;9002226.02101,"729,00904-0090-80 ",.01)
  1. ;;00904-0090-80
  1. ;;9002226.02101,"729,00904-0090-80 ",.02)
  1. ;;00904-0090-80
  1. ;;9002226.02101,"729,00904-0091-40 ",.01)
  1. ;;00904-0091-40
  1. ;;9002226.02101,"729,00904-0091-40 ",.02)
  1. ;;00904-0091-40
  1. ;;9002226.02101,"729,00904-0091-60 ",.01)
  1. ;;00904-0091-60
  1. ;;9002226.02101,"729,00904-0091-60 ",.02)
  1. ;;00904-0091-60
  1. ;;9002226.02101,"729,00904-0091-80 ",.01)
  1. ;;00904-0091-80
  1. ;;9002226.02101,"729,00904-0091-80 ",.02)
  1. ;;00904-0091-80
  1. ;;9002226.02101,"729,00904-0092-40 ",.01)
  1. ;;00904-0092-40
  1. ;;9002226.02101,"729,00904-0092-40 ",.02)
  1. ;;00904-0092-40
  1. ;;9002226.02101,"729,00904-0092-60 ",.01)
  1. ;;00904-0092-60
  1. ;;9002226.02101,"729,00904-0092-60 ",.02)
  1. ;;00904-0092-60
  1. ;;9002226.02101,"729,00904-1700-40 ",.01)
  1. ;;00904-1700-40
  1. ;;9002226.02101,"729,00904-1700-40 ",.02)
  1. ;;00904-1700-40
  1. ;;9002226.02101,"729,00904-1700-60 ",.01)
  1. ;;00904-1700-60
  1. ;;9002226.02101,"729,00904-1700-60 ",.02)
  1. ;;00904-1700-60
  1. ;;9002226.02101,"729,00904-1701-40 ",.01)
  1. ;;00904-1701-40
  1. ;;9002226.02101,"729,00904-1701-40 ",.02)
  1. ;;00904-1701-40
  1. ;;9002226.02101,"729,00904-2800-40 ",.01)
  1. ;;00904-2800-40
  1. ;;9002226.02101,"729,00904-2800-40 ",.02)
  1. ;;00904-2800-40
  1. ;;9002226.02101,"729,00904-2800-60 ",.01)
  1. ;;00904-2800-60
  1. ;;9002226.02101,"729,00904-2800-60 ",.02)
  1. ;;00904-2800-60
  1. ;;9002226.02101,"729,00904-2800-61 ",.01)
  1. ;;00904-2800-61
  1. ;;9002226.02101,"729,00904-2800-61 ",.02)
  1. ;;00904-2800-61
  1. ;;9002226.02101,"729,00904-2801-40 ",.01)
  1. ;;00904-2801-40
  1. ;;9002226.02101,"729,00904-2801-40 ",.02)
  1. ;;00904-2801-40
  1. ;;9002226.02101,"729,00904-2801-60 ",.01)
  1. ;;00904-2801-60
  1. ;;9002226.02101,"729,00904-2801-60 ",.02)
  1. ;;00904-2801-60
  1. ;;9002226.02101,"729,00904-2801-61 ",.01)
  1. ;;00904-2801-61
  1. ;;9002226.02101,"729,00904-2801-61 ",.02)
  1. ;;00904-2801-61
  1. ;;9002226.02101,"729,00904-3901-40 ",.01)
  1. ;;00904-3901-40
  1. ;;9002226.02101,"729,00904-3901-40 ",.02)
  1. ;;00904-3901-40
  1. ;;9002226.02101,"729,00904-3901-60 ",.01)
  1. ;;00904-3901-60
  1. ;;9002226.02101,"729,00904-3901-60 ",.02)
  1. ;;00904-3901-60
  1. ;;9002226.02101,"729,00904-3901-61 ",.01)
  1. ;;00904-3901-61
  1. ;;9002226.02101,"729,00904-3901-61 ",.02)
  1. ;;00904-3901-61
  1. ;;9002226.02101,"729,00904-3901-80 ",.01)
  1. ;;00904-3901-80
  1. ;;9002226.02101,"729,00904-3901-80 ",.02)
  1. ;;00904-3901-80
  1. ;;9002226.02101,"729,00904-3902-40 ",.01)
  1. ;;00904-3902-40
  1. ;;9002226.02101,"729,00904-3902-40 ",.02)
  1. ;;00904-3902-40
  1. ;;9002226.02101,"729,00904-3902-60 ",.01)
  1. ;;00904-3902-60
  1. ;;9002226.02101,"729,00904-3902-60 ",.02)
  1. ;;00904-3902-60
  1. ;;9002226.02101,"729,00904-3902-61 ",.01)
  1. ;;00904-3902-61
  1. ;;9002226.02101,"729,00904-3902-61 ",.02)
  1. ;;00904-3902-61
  1. ;;9002226.02101,"729,00904-3902-80 ",.01)
  1. ;;00904-3902-80
  1. ;;9002226.02101,"729,00904-3902-80 ",.02)
  1. ;;00904-3902-80
  1. ;;9002226.02101,"729,00904-3903-40 ",.01)
  1. ;;00904-3903-40
  1. ;;9002226.02101,"729,00904-3903-40 ",.02)
  1. ;;00904-3903-40
  1. ;;9002226.02101,"729,00904-3903-60 ",.01)
  1. ;;00904-3903-60
  1. ;;9002226.02101,"729,00904-3903-60 ",.02)
  1. ;;00904-3903-60
  1. ;;9002226.02101,"729,00904-3903-80 ",.01)
  1. ;;00904-3903-80
  1. ;;9002226.02101,"729,00904-3903-80 ",.02)
  1. ;;00904-3903-80
  1. ;;9002226.02101,"729,10019-0004-44 ",.01)
  1. ;;10019-0004-44
  1. ;;9002226.02101,"729,10019-0004-44 ",.02)
  1. ;;10019-0004-44
  1. ;;9002226.02101,"729,10019-0005-42 ",.01)
  1. ;;10019-0005-42
  1. ;;9002226.02101,"729,10019-0005-42 ",.02)
  1. ;;10019-0005-42
  1. ;;9002226.02101,"729,10019-0005-67 ",.01)
  1. ;;10019-0005-67
  1. ;;9002226.02101,"729,10019-0005-67 ",.02)
  1. ;;10019-0005-67
  1. ;;9002226.02101,"729,12280-0006-00 ",.01)
  1. ;;12280-0006-00
  1. ;;9002226.02101,"729,12280-0006-00 ",.02)
  1. ;;12280-0006-00
  1. ;;9002226.02101,"729,12280-0219-00 ",.01)
  1. ;;12280-0219-00
  1. ;;9002226.02101,"729,12280-0219-00 ",.02)
  1. ;;12280-0219-00
  1. ;;9002226.02101,"729,49884-0958-01 ",.01)
  1. ;;49884-0958-01
  1. ;;9002226.02101,"729,49884-0958-01 ",.02)
  1. ;;49884-0958-01
  1. ;;9002226.02101,"729,49884-0959-01 ",.01)
  1. ;;49884-0959-01
  1. ;;9002226.02101,"729,49884-0959-01 ",.02)
  1. ;;49884-0959-01
  1. ;;9002226.02101,"729,49884-0960-01 ",.01)
  1. ;;49884-0960-01
  1. ;;9002226.02101,"729,49884-0960-01 ",.02)
  1. ;;49884-0960-01
  1. ;;9002226.02101,"729,49884-0961-01 ",.01)
  1. ;;49884-0961-01
  1. ;;9002226.02101,"729,49884-0961-01 ",.02)
  1. ;;49884-0961-01
  1. ;;9002226.02101,"729,49884-0962-01 ",.01)
  1. ;;49884-0962-01
  1. ;;9002226.02101,"729,49884-0962-01 ",.02)
  1. ;;49884-0962-01
  1. ;;9002226.02101,"729,51079-0141-20 ",.01)
  1. ;;51079-0141-20
  1. ;;9002226.02101,"729,51079-0141-20 ",.02)
  1. ;;51079-0141-20
  1. ;;9002226.02101,"729,51079-0284-20 ",.01)
  1. ;;51079-0284-20
  1. ;;9002226.02101,"729,51079-0284-20 ",.02)
  1. ;;51079-0284-20
  1. ;;9002226.02101,"729,51079-0284-21 ",.01)
  1. ;;51079-0284-21