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

BGP61C16.m

Go to the documentation of this file.
  1. BGP61C16 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  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,"1801,68968-6650-08 ",.02)
  1. ;;68968-6650-08
  1. ;;9002226.02101,"1801,68968-6675-08 ",.01)
  1. ;;68968-6675-08
  1. ;;9002226.02101,"1801,68968-6675-08 ",.02)
  1. ;;68968-6675-08
  1. ;;9002226.02101,"1801,69238-1251-06 ",.01)
  1. ;;69238-1251-06
  1. ;;9002226.02101,"1801,69238-1251-06 ",.02)
  1. ;;69238-1251-06
  1. ;;9002226.02101,"1801,69238-1251-08 ",.01)
  1. ;;69238-1251-08
  1. ;;9002226.02101,"1801,69238-1251-08 ",.02)
  1. ;;69238-1251-08
  1. ;;9002226.02101,"1801,69238-1252-06 ",.01)
  1. ;;69238-1252-06
  1. ;;9002226.02101,"1801,69238-1252-06 ",.02)
  1. ;;69238-1252-06
  1. ;;9002226.02101,"1801,69238-1252-08 ",.01)
  1. ;;69238-1252-08
  1. ;;9002226.02101,"1801,69238-1252-08 ",.02)
  1. ;;69238-1252-08
  1. ;;9002226.02101,"1801,99207-0190-56 ",.01)
  1. ;;99207-0190-56
  1. ;;9002226.02101,"1801,99207-0190-56 ",.02)
  1. ;;99207-0190-56