TIURTITH ; SLC/JER - Review Screen Header ;4/20/94 16:18
;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
HDR ; Initialize header for clinician's review screen
N BY,TIUI,TIUX,SCREEN,STATUS,RANGE,TIUBY,TIUDOCS,XREF
I +TIUEDT>1 S RANGE=" from "_$$DATE^TIULS(TIUEDT,"MM/DD/YY")_" to "_$$DATE^TIULS(TIULDT,"MM/DD/YY")
S VALMHDR(1)=$$CENTER^TIULS($G(RANGE))
S TIUDOCS=$J(+$G(^TMP("TIUR",$J,0)),4)_" documents"
S VALMHDR(1)=$$SETSTR^VALM1(TIUDOCS,VALMHDR(1),(IOM-$L(TIUDOCS)),$L(TIUDOCS))
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIURTITH 500 printed Oct 16, 2024@18:46:10 Page 2
TIURTITH ; SLC/JER - Review Screen Header ;4/20/94 16:18
+1 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
HDR ; Initialize header for clinician's review screen
+1 NEW BY,TIUI,TIUX,SCREEN,STATUS,RANGE,TIUBY,TIUDOCS,XREF
+2 IF +TIUEDT>1
SET RANGE=" from "_$$DATE^TIULS(TIUEDT,"MM/DD/YY")_" to "_$$DATE^TIULS(TIULDT,"MM/DD/YY")
+3 SET VALMHDR(1)=$$CENTER^TIULS($GET(RANGE))
+4 SET TIUDOCS=$JUSTIFY(+$GET(^TMP("TIUR",$JOB,0)),4)_" documents"
+5 SET VALMHDR(1)=$$SETSTR^VALM1(TIUDOCS,VALMHDR(1),(IOM-$LENGTH(TIUDOCS)),$LENGTH(TIUDOCS))
+6 QUIT
