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

BGP9XXNB.m

Go to the documentation of this file.
  1. BGP9XXNB ; 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,"312,38237-4 ",.02)
  1. ;;38237-4
  1. ;;9002226.02101,"312,38238-2 ",.01)
  1. ;;38238-2
  1. ;;9002226.02101,"312,38238-2 ",.02)
  1. ;;38238-2
  1. ;;9002226.02101,"312,38239-0 ",.01)
  1. ;;38239-0
  1. ;;9002226.02101,"312,38239-0 ",.02)
  1. ;;38239-0
  1. ;;9002226.02101,"312,38240-8 ",.01)
  1. ;;38240-8
  1. ;;9002226.02101,"312,38240-8 ",.02)
  1. ;;38240-8
  1. ;;9002226.02101,"312,41994-5 ",.01)
  1. ;;41994-5
  1. ;;9002226.02101,"312,41994-5 ",.02)
  1. ;;41994-5
  1. ;;9002226.02101,"312,42737-7 ",.01)
  1. ;;42737-7
  1. ;;9002226.02101,"312,42737-7 ",.02)
  1. ;;42737-7
  1. ;;9002226.02101,"312,43944-8 ",.01)
  1. ;;43944-8
  1. ;;9002226.02101,"312,43944-8 ",.02)
  1. ;;43944-8
  1. ;;9002226.02101,"312,43952-1 ",.01)
  1. ;;43952-1
  1. ;;9002226.02101,"312,43952-1 ",.02)
  1. ;;43952-1
  1. ;;9002226.02101,"312,43962-0 ",.01)
  1. ;;43962-0
  1. ;;9002226.02101,"312,43962-0 ",.02)
  1. ;;43962-0
  1. ;;9002226.02101,"312,44056-0 ",.01)
  1. ;;44056-0
  1. ;;9002226.02101,"312,44056-0 ",.02)
  1. ;;44056-0
  1. ;;9002226.02101,"312,5472-6 ",.01)
  1. ;;5472-6
  1. ;;9002226.02101,"312,5472-6 ",.02)
  1. ;;5472-6
  1. ;;9002226.02101,"312,5473-4 ",.01)
  1. ;;5473-4
  1. ;;9002226.02101,"312,5473-4 ",.02)
  1. ;;5473-4
  1. ;;9002226.02101,"312,5474-2 ",.01)
  1. ;;5474-2
  1. ;;9002226.02101,"312,5474-2 ",.02)
  1. ;;5474-2
  1. ;;9002226.02101,"312,8123-2 ",.01)
  1. ;;8123-2
  1. ;;9002226.02101,"312,8123-2 ",.02)
  1. ;;8123-2
  1. ;;9002226.02101,"312,8127-3 ",.01)
  1. ;;8127-3
  1. ;;9002226.02101,"312,8127-3 ",.02)
  1. ;;8127-3
  1. ;;9002226.02101,"312,8128-1 ",.01)
  1. ;;8128-1
  1. ;;9002226.02101,"312,8128-1 ",.02)
  1. ;;8128-1
  1. ;;9002226.02101,"312,8129-9 ",.01)
  1. ;;8129-9
  1. ;;9002226.02101,"312,8129-9 ",.02)
  1. ;;8129-9