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

HLCSRPT6.m

Go to the documentation of this file.
  1. HLCSRPT6 ;ISC-SF/RAH-TRANS LOG ERROR LIST ;08/25/2010
  1. ;;1.6;HEALTH LEVEL SEVEN;**151**;Oct 13, 1995;Build 1
  1. ;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. EXIT ;
  1. K I,J
  1. K HLCSER,HLCSER1,HLCSER2,HLCSI,HLCSJ,HLCSLN,HLCSN
  1. K HLCSST,HLCSTER1,HLCSTER2,HLCSERMS,HLCSX,HLCSY
  1. K ^TMP($J,"LIST",HLCSTITL_" ERR") ;HL*1.6*85
  1. I VERS22'="YES" S ^TMP("DDBPF1Z",$J)="D SHOWMSG^HLCSRPT Q"
  1. Q
  1. ;
  1. HLCSBAR ; Center Title on Top Line of Screen
  1. W RVON,?(80-$L(HLCSHDR)\2),HLCSHDR,$E(SPACE,$X,77),RVOFF,!
  1. Q
  1. ;
  1. TEST ;
  1. S HLCSJ=$O(^TMP("TLOG",$J,0))
  1. S HLCSJ=+$P(HLCSJ," ",1)
  1. S ^TMP($J,"MESSAGE",HLCSJ,0)="^^1^1"
  1. S ^TMP($J,"MESSAGE",HLCSJ,1,0)=" HEADER: "
  1. S HLCSRNO=HLCSJ
  1. Q
  1. ;