- 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 ---[H[J[2J[HHLCSRPT6 709 printed Jan 18, 2025@02:58:18 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 ;