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 |