Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: TIURH

TIURH.m

Go to the documentation of this file.
  1. TIURH ; SLC/JER - Review Screen Header ;5/7/03
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**113,207**;Jun 20, 1997
  1. HDR ; Initialize header for clinician's review screen
  1. N BY,TIUI,TIUX,SCREEN,STATUS,RANGE,TIUBY,TIUDOCS,XREF,TIUNAME
  1. S TIUX=$G(^TMP("TIUR",$J,0)),STATUS=$P(TIUX,U,2),SCREEN=$P(TIUX,U,3,99)
  1. S VALM("TITLE")=$S($L(STATUS,",")>1:$S(VALM("ENTITY")="Document":"Clinical",1:""),1:STATUS)
  1. I $G(XQY0)["MY UNSIGNED" S VALM("TITLE")="MY UNSIGNED"
  1. S:$L(VALM("TITLE")) VALM("TITLE")=VALM("TITLE")_" "
  1. S VALM("TITLE")=VALM("TITLE")_$S($L(VALM("ENTITY")):$$NTTNM(VALM("ENTITY")),1:"Document")_"s"
  1. I +TIUEDT>1 S RANGE=" from "_$$DATE^TIULS(TIUEDT,"MM/DD/YY")_" to "_$$DATE^TIULS(TIULDT,"MM/DD/YY")
  1. F TIUI=1:1:$L(SCREEN,";") D
  1. . S XREF=$P($P(SCREEN,";",TIUI),U),XREF=$O(^TIU(8925.8,"C",XREF,0))
  1. . I $D(TIUQUIK) D
  1. . . S TIUBY=$G(TIUBY)_$S($G(TIUBY)]"":" or ",1:"")
  1. . E D
  1. . . S TIUBY=$G(TIUBY)_$S($G(TIUBY)]"":" and ",1:"")
  1. . S TIUNAME=$P($G(^TIU(8925.8,+XREF,0)),U)
  1. . I TIUNAME="ALL CATEGORIES",$G(^TMP("TIUR",$J,"TITLE OVERRIDE"))["TITLE" S TIUNAME="TITLE"
  1. . S TIUBY=$G(TIUBY)_TIUNAME
  1. . S:$P($P(SCREEN,";",TIUI),U,3)]"" TIUBY=$G(TIUBY)_" ("_$P($P(SCREEN,";",TIUI),U,3)_")"
  1. S BY="by "_TIUBY
  1. ; I BY'["ALL",(BY'["SUBJECT") S BY=BY_" for "_$P($P(SCREEN,U,3),";")
  1. S VALMHDR(1)=$$CENTER^TIULS(BY_$S($L(SCREEN,";")=1:$G(RANGE),1:""))
  1. S TIUDOCS=$J(+$G(^TMP("TIUR",$J,0)),4)_" documents"
  1. S VALMHDR(1)=$$SETSTR^VALM1(TIUDOCS,VALMHDR(1),(IOM-$L(TIUDOCS)),$L(TIUDOCS))
  1. ; I $L($G(RANGE)) S VALMHDR(2)=$$CENTER^TIULS(RANGE)
  1. Q
  1. NTTNM(NAME) ; Handle plural names appropriately
  1. I "Yy"[$E(NAME,$L(NAME)) S NAME=$E(NAME,1,($L(NAME)-1))_"ie"
  1. I NAME="Discharge Summarie" S NAME="Disch Summarie"
  1. Q NAME