NAME |
TIU ACTION MENU CLINICIAN 2 |
ITEM TEXT |
Act on Documents |
ITEM |
|
PACKAGE |
TEXT INTEGRATION UTILITIES |
ENTRY ACTION |
S XQORM("SH")=0 S:$G(VALMSG)'["*" VALMSG="+ Next Screen - Prev Screen ?? More Actions",VALM("MAX")=+$G(VALMCNT) S:$G(TIUGLINK) VALMSG=$$LINKMSG^TIUGR2(TIUGLINK) |
SCREEN |
I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),"^"),24)) ^(24) |
HEADER |
S XQORM("#")=$G(^TMP("TIUR",$J,"#")) D RESIZE^TIULM(21,17),SHOW^VALM K XQORM("XLATE","FIND") |
MENU PROMPT |
Select Action: |
DESCRIPTION |
Menu of actions which may be executed by clinicians.
|
TYPE |
menu |
CREATOR |
USER,ONE |
TIMESTAMP |
2006-05-05 12:43:19 |