TIURTITH.m

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 ---TIURTITH   500     printed  Apr 09, 2024@21:48:06                                                                                                                                                                                                     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