- TIURMH ; SLC/JER - MIS 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
- S TIUX=$G(^TMP("TIUR",$J,0)),STATUS=$P(TIUX,U,2),SCREEN=$P(TIUX,U,3,99)
- S VALM("TITLE")=$S($L(STATUS,",")>1:$S(VALM("ENTITY")="Document":"Clinical",1:""),1:STATUS)
- S:$L(VALM("TITLE")) VALM("TITLE")=VALM("TITLE")_" "
- S VALM("TITLE")=VALM("TITLE")_$S($L(VALM("ENTITY")):$$NTTNM(VALM("ENTITY")),1:"Document")_"s"
- 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
- NTTNM(NAME) ; Handle plural names appropriately
- I "Yy"[$E(NAME,$L(NAME)) S NAME=$E(NAME,1,($L(NAME)-1))_"ie"
- Q NAME
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIURMH 941 printed Jan 18, 2025@03:46:33 Page 2
- TIURMH ; SLC/JER - MIS 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 SET TIUX=$GET(^TMP("TIUR",$JOB,0))
- SET STATUS=$PIECE(TIUX,U,2)
- SET SCREEN=$PIECE(TIUX,U,3,99)
- +3 SET VALM("TITLE")=$SELECT($LENGTH(STATUS,",")>1:$SELECT(VALM("ENTITY")="Document":"Clinical",1:""),1:STATUS)
- +4 if $LENGTH(VALM("TITLE"))
- SET VALM("TITLE")=VALM("TITLE")_" "
- +5 SET VALM("TITLE")=VALM("TITLE")_$SELECT($LENGTH(VALM("ENTITY")):$$NTTNM(VALM("ENTITY")),1:"Document")_"s"
- +6 IF +TIUEDT>1
- SET RANGE=" from "_$$DATE^TIULS(TIUEDT,"MM/DD/YY")_" to "_$$DATE^TIULS(TIULDT,"MM/DD/YY")
- +7 SET VALMHDR(1)=$$CENTER^TIULS($GET(RANGE))
- +8 SET TIUDOCS=$JUSTIFY(+$GET(^TMP("TIUR",$JOB,0)),4)_" documents"
- +9 SET VALMHDR(1)=$$SETSTR^VALM1(TIUDOCS,VALMHDR(1),(IOM-$LENGTH(TIUDOCS)),$LENGTH(TIUDOCS))
- +10 QUIT
- NTTNM(NAME) ; Handle plural names appropriately
- +1 IF "Yy"[$EXTRACT(NAME,$LENGTH(NAME))
- SET NAME=$EXTRACT(NAME,1,($LENGTH(NAME)-1))_"ie"
- +2 QUIT NAME