Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: TIUU

Package: Text Integration Utility

Routine: TIUU


Information

TIUU ; SLC/JER - Utility subroutines for Discharge Summary ;9/7/94 16:37

Source Information

Source file <TIUU.m>

Entry Points

Name Comments DBIA/ICR reference
TITLE(X) ; Pads titles
; Recieves: X=title to be padded
JUSTIFY(X,JUST) ; Justifies Text
; Receives: X=text to be justified
; JUST="L" --> left, "C" --> center, "R" --> right,
; "J" --> justified to WIDTH
; WIDTH=justification width (when JUST="j"
STOP(PROMPT,SCROLL) ; Call DIR at bottom of screen
STOPX
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN) ; Calls reader, returns response
READX
UPDATE ; Updates fields in review screen
; Receives: X=new value of field
; FLD=name of field to be modified
LISTREAD(TIULIST,ANSTYPE) ; Present list to user for selection of item(s)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?((80-$L(X))/2),X
  • Line Location: JUSTIFY+5
Function Call: WRITE
  • Prompt: X,!!
  • Line Location: JUSTIFY+6
Function Call: WRITE
  • Prompt: ?(80-$L(X)),X
  • Line Location: JUSTIFY+7
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+3
Function Call: WRITE
  • Prompt: !,TIUI,?5,$P(TIULIST(TIUI),U,2)
  • Line Location: LISTREAD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTREAD+6
Info |  Source |  Entry Points |  Interaction Calls