TIUU ; SLC/JER - Utility subroutines for Discharge Summary ;9/7/94 16:37
Source file <TIUU.m>
Package | Total | Call Graph |
---|---|---|
Registration | 1 | $$SETSTR^VALM1 |
Text Integration Utility | 1 | $$STATUS^TIULC |
VA Fileman | 1 | ^DIR |
Name | Comments | DBIA/ICR reference |
---|---|---|
STOPX | ||
UPDATE | ; Updates fields in review screen
; Receives: X=new value of field ; FLD=name of field to be modified |
|
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
|
|
LISTREAD(TIULIST,ANSTYPE) | ; Present list to user for selection of item(s)
|
|
TITLE(X) | ; Pads titles
; Recieves: X=title to be padded |
|
READX | ||
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN) | ; Calls reader, returns response
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("TIUVIEW" | UPDATE+3, UPDATE+4* |
Name | Line Occurrences |
---|---|
$$READ | LISTREAD+7 |
READX | READ+8 |
STOPX | STOP+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ANSTYPE | LISTREAD~, LISTREAD+2*, LISTREAD+7 |
DEFAULT | READ~, READ+5 |
DIR | STOP+1~, READ+1~ |
DIR("?" | STOP+5*, READ+6* |
DIR("A" | STOP+4*, READ+4* |
DIR("B" | READ+5* |
DIR("S" | READ+3* |
DIR(0 | STOP+4*, READ+2* |
DIRUT | STOP+6! |
>> DTOUT | STOP+7 |
HELP | READ~, READ+6 |
I | TITLE+2~, TITLE+3* |
IOSL | STOP+3 |
IOST | STOP+2 |
JUST | JUSTIFY~, JUSTIFY+5, JUSTIFY+6, JUSTIFY+7 |
PROMPT | STOP~, STOP+4, READ~, READ+4 |
SCREEN | READ~, READ+3 |
SCROLL | STOP~, STOP+3 |
TITLE | TITLE+2~, TITLE+3*, TITLE+4 |
>> TIUDA | UPDATE+3, UPDATE+4 |
TIUI | LISTREAD+1~*, LISTREAD+3*, LISTREAD+4 |
TIUL | LISTREAD+1~, LISTREAD+4*, LISTREAD+5, LISTREAD+7 |
TIULIST | LISTREAD~, LISTREAD+7 |
TIULIST( | LISTREAD+3, LISTREAD+4, LISTREAD+8 |
TIUY | LISTREAD+1~*, LISTREAD+7*, LISTREAD+8*, LISTREAD+9 |
TYPE | READ~, READ+2 |
U | STOP+7, READ+9, UPDATE+4, LISTREAD+4, LISTREAD+7 |
X | TITLE~, TITLE+3, JUSTIFY~, JUSTIFY+5, JUSTIFY+6, JUSTIFY+7, STOP+1~, READ+1~, READ+8 |
Y | STOP+1~, STOP+2*, STOP+6, STOP+7*, STOPX, READ+1~, READ+8*, READ+9*, READX |
Y(0 | READ+9 |