ORC OUTPT MED ACTIONS (2373)    PROTOCOL (101)

View in ViViaN Menu
Name Value
NAME ORC OUTPT MED ACTIONS
ITEM TEXT Outpt Med action menu
ITEM
EXIT ACTION D DESELECT^ORCHART(ORNMBR) S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU")
ENTRY ACTION S XQORM(0)="1AD",(XQORM("?"),XQORM("??"))="D ITEMHELP^ORCHART",VALMBCK="",ORNMBR=$P(XQORNOD(0),"=",2) D SELECT^ORCHART(ORNMBR)
HEADER W ""
MENU PROMPT Select Action:
TYPE menu
COLUMN WIDTH 20
MNEMONIC WIDTH 4
CREATOR USER,ONE
TIMESTAMP 2001-09-26 13:19:47