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 |