©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
TIUFL ; SLC/MAM - Library of Modules and Functions: SETUP, RMSG, CENTER(X,N) ;02/16/06
Source file <TIUFL.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | ^DIC FIELD^DID |
| Kernel | 1 | ENDR^%ZISS |
| Registration | 1 | MSG^VALM10 |
| Text Integration Utility | 1 | PAUSE^TIUFXHLX |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| STAT | ; subscripts "STATI" (I for Inactive), "STATT" (T for Test),
|
|
| SETUP | ; Sets ^TMP("TIUF",$J) array before entering Document Definition Utility, etc.
; Array is used in routines and in protocols, including protocol |
|
| NEWHELP | ; Subscript NEWHELP for IFN of protocol TIUFC ACTION MENU
|
|
| ARRNO | ; ^TMP("TIUF",$J) subscripts ARRNO_H/A/C/J/T/D/O.
; e.g. ^TMP("TIUF",$J,"ARRNOH")= 1 since LM Template H uses Array |
|
| CLPAC | ; Subscript "CLPAC" NOTE: may not find it so subscript may not exist
|
|
| MSG | ||
| RMSG | ; redisplays standard TIUF msg. Sets VALMSG=stnd msg. Called by items of LM Protocol Menus, items of TIUF HIDDEN ACTIONS.
; Requires TIUFSTMP if currently in subtemplate; ; Requires TIUF messages as set in TIUFL. |
|
| CREATE | ; Subscript CREATE for IFN of protocol TIUFC ACTION MENU.
|
|
| RM | ; Subscripts "RMAC", "RMAM", "RMHC", "RMHM",
|
|
| LEFT | ; Subscript LEFT for IFN of protocol TIUF LEFT.
|
|
| SORT | ; subscripts "SORT", "SORTCM" (CM for CHANGE SORT MENU),
; e.g. ^TMP("TIUF",$J,"SORT")=3766, =IFN of protocol TIUF SORT ; e.g. ^TMP("TIUF",$J,"SORTCM")=3819, =IFN of protocol TIUF CHANGE SORT MENU ; e.g. ^TMP("TIUF",$J,"SORTT")=3635, =IFN of protocol TIUF SORT BY TYPE |
|
| VMSG1 | ||
| CENTER(X,N) | ; Center X in space of N Characters. Adapted from TIULS.
; Truncates X to N chars if X>N. NOTE: LM truncates header at scroll lock if header longer than VALMWD-1. |
|
| INHERIT | ; Subscript INHERIT for IFN of protocol TIUFD ACTION MENU MGR
|
|
| SETUX | ||
| FLDTYPE | ; Sets ^ piece after FLDNAME = BASICS, TECH, UPLOAD or UPHEAD, i.e. which part of the display the field is in.
|
|
| NMWIDTH | ; Subscript NMWIDTH for entry name in Temps HACJ.
|
|
| RIGHT | ; Subscript RIGHT for IFN of protocol TIUF RIGHT.
|
|
| STOP | ; Subscript STOP for IFN of protocol TIUF QUIT1
|
|
| TYPE | ; Subscripts TYPECL, TYPEDC, TYPETL, etc.
|
|
| VMSG() | ; Function returns standard VALMSG for a Template.
|
|
| CLINDOC | ; subscript "CLINDOC".
; e.g. ^TMP("TIUF",$J,"CLINDOC")=38 |
|
| HIDDEN | ; Subscript HIDDEN for IFN of protocol TIUF HIDDEN ACTIONS
|
|
| FLDNAM | ; Single Subscripts are Field Numbers: e.g. ^TMP("TIUF",$J,4,"LABEL")="Upload Look-Up Method".
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("TIUF" | ARRNO+3*, CLINDOC+4*, CLPAC+3*, NMWIDTH+1*, HIDDEN+3*, STOP+3*, NEWHELP+3*, INHERIT+3*, RIGHT+3*, LEFT+3* , CREATE+3*, TYPE+1*, TYPE+2*, TYPE+3*, TYPE+4*, TYPE+5*, TYPE+6*, STAT+10*, SORT+5*, SORT+7* , SORT+10*, MSG*, MSG+1*, MSG+2*, FLDNAM+2*, FLDNAM+3*, FLDTYPE+1*, FLDTYPE+2*, FLDTYPE+3*, FLDTYPE+4* , VMSG+2, VMSG+4, VMSG+5, VMSG+6, VMSG+7, VMSG+9, VMSG+10, VMSG+11, VMSG+12, VMSG+13 |
| Name | Line Occurrences |
|---|---|
| $$VMSG | RMSG+4 |
| SETUX | CLINDOC+3, HIDDEN+2, STOP+2, NEWHELP+2, INHERIT+2, RIGHT+2, LEFT+2, CREATE+2, STAT+8, SORT+4 , SORT+6, SORT+8 |
| VMSG1 | VMSG+2, VMSG+3, VMSG+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ANSCTR | CENTER+2~, CENTER+4*, CENTER+5 |
| DA | SETUP+8~, SORT+4! |
| DIC | SETUP+8~, CLINDOC+2*, CLPAC+1*, HIDDEN+1*, STOP+1*, NEWHELP+1*, INHERIT+1*, RIGHT+1*, LEFT+1*, CREATE+1* , STAT+7*, SORT+4!* |
| DIC(0 | CLINDOC+2*, CLPAC+1*, STAT+7*, SORT+4* |
| MSG | RMSG+3~, RMSG+5 |
| N | CENTER~, CENTER+3, CENTER+4 |
| SP | CENTER+2~, CENTER+3*, CENTER+4 |
| >> TIUF("RMAC" | RM+4* |
| >> TIUF("RMAM" | RM+5* |
| >> TIUF("RMCM" | RM+8* |
| >> TIUF("RMD" | RM+12* |
| >> TIUF("RMHC" | RM+6* |
| >> TIUF("RMHM" | RM+7* |
| >> TIUF("RMJC" | RM+9* |
| >> TIUF("RMJM" | RM+10* |
| >> TIUF("RMT" | RM+11* |
| >> TIUF("RMXC" | RM+12* |
| >> TIUF("RMXM" | RM+12* |
| >> TIUFCBEG | VMSG+2 |
| TIUFI | SETUP+8~, ARRNO+3*, STAT+8*, STAT+9, STAT+10, SORT+8*, SORT+9, SORT+10, FLDNAM+4*, FLDNAM+8* , FLDNAM+9*, FLDTYPE+1*, FLDTYPE+2*, FLDTYPE+3*, FLDTYPE+4* |
| >> TIUFPRIV | SETUP+9* |
| >> TIUFSTMP | VMSG+3, VMSG+8, VMSG+13 |
| >> TIUFTMPL | VMSG+3 |
| >> TIUFWHO | NMWIDTH+1 |
| U | STAT+10, SORT+9, SORT+10, FLDTYPE+1, FLDTYPE+2, FLDTYPE+3, FLDTYPE+4 |
| >> VALMLFT | VMSG+6, VMSG+11 |
| >> VALMQUIT | SETUX* |
| >> VALMSG | RMSG+4* |
| VMSG | VMSG+1~, VMSG+2*, VMSG+4*, VMSG+5*, VMSG+6*, VMSG+7*, VMSG+9*, VMSG+10*, VMSG+11*, VMSG+12* , VMSG+13*, VMSG1 |
| X | CENTER~, CENTER+3, CENTER+4, SETUP+8~, SETUP+10*, CLINDOC+2*, CLPAC+2*, HIDDEN+2*, STOP+2*, NEWHELP+2* , INHERIT+2*, RIGHT+2*, LEFT+2*, CREATE+2*, STAT+9*, SORT+4*, SORT+6*, SORT+9* |
| >> XQORNOD | VMSG+4, VMSG+5, VMSG+9, VMSG+10 |
| Y | SETUP+8~, CLINDOC+3, CLINDOC+4, CLPAC+3, HIDDEN+2, HIDDEN+3, STOP+2, STOP+3, NEWHELP+2, NEWHELP+3 , INHERIT+2, INHERIT+3, RIGHT+2, RIGHT+3, LEFT+2, LEFT+3, CREATE+2, CREATE+3, STAT+8, STAT+9 , STAT+10, SORT+4, SORT+5, SORT+6, SORT+7, SORT+8, SORT+9, SORT+10, SETUX |