HLCSRPT6.m

HLCSRPT6 ;ISC-SF/RAH-TRANS LOG ERROR LIST ;08/25/2010

 ;;1.6;HEALTH LEVEL SEVEN;**151**;Oct 13, 1995;Build 1

 ;Per VHA Directive 2004-038, this routine should not be modified.

 ;

EXIT ;

 K I,J

 K HLCSER,HLCSER1,HLCSER2,HLCSI,HLCSJ,HLCSLN,HLCSN

 K HLCSST,HLCSTER1,HLCSTER2,HLCSERMS,HLCSX,HLCSY

 K ^TMP($J,"LIST",HLCSTITL_" ERR") ;HL*1.6*85

 I VERS22'="YES" S ^TMP("DDBPF1Z",$J)="D SHOWMSG^HLCSRPT Q"

 Q

 ;

HLCSBAR ; Center Title on Top Line of Screen

 W RVON,?(80-$L(HLCSHDR)\2),HLCSHDR,$E(SPACE,$X,77),RVOFF,!

 Q

 ;

TEST ;

 S HLCSJ=$O(^TMP("TLOG",$J,0))

 S HLCSJ=+$P(HLCSJ," ",1)

 S ^TMP($J,"MESSAGE",HLCSJ,0)="^^1^1"

 S ^TMP($J,"MESSAGE",HLCSJ,1,0)=" HEADER: "

 S HLCSRNO=HLCSJ

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---HLCSRPT6   709     printed  Dec 13, 2024@01:57:02                                                                                                                                                                                                     Page 2

HLCSRPT6  ;ISC-SF/RAH-TRANS LOG ERROR LIST ;08/25/2010

 +1       ;;1.6;HEALTH LEVEL SEVEN;**151**;Oct 13, 1995;Build 1

 +2       ;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

EXIT      ;

 +1        KILL I,J

 +2        KILL HLCSER,HLCSER1,HLCSER2,HLCSI,HLCSJ,HLCSLN,HLCSN

 +3        KILL HLCSST,HLCSTER1,HLCSTER2,HLCSERMS,HLCSX,HLCSY

 +4       ;HL*1.6*85

           KILL ^TMP($JOB,"LIST",HLCSTITL_" ERR")

 +5        IF VERS22'="YES"

               SET ^TMP("DDBPF1Z",$JOB)="D SHOWMSG^HLCSRPT Q"

 +6        QUIT 

 +7       ;

HLCSBAR   ; Center Title on Top Line of Screen

 +1        WRITE RVON,?(80-$LENGTH(HLCSHDR)\2),HLCSHDR,$EXTRACT(SPACE,$X,77),RVOFF,!

 +2        QUIT 

 +3       ;

TEST      ;

 +1        SET HLCSJ=$ORDER(^TMP("TLOG",$JOB,0))

 +2        SET HLCSJ=+$PIECE(HLCSJ," ",1)

 +3        SET ^TMP($JOB,"MESSAGE",HLCSJ,0)="^^1^1"

 +4        SET ^TMP($JOB,"MESSAGE",HLCSJ,1,0)=" HEADER: "

 +5        SET HLCSRNO=HLCSJ

 +6        QUIT 

 +7       ;