ORC ADD ORDERS MENU (2234)    PROTOCOL (101)

View in ViViaN Menu
Name Value
NAME ORC ADD ORDERS MENU
ITEM TEXT Add Orders menu
ITEM
HEADER M XQORM("KEY")=^TMP("ORMENU",$J,ORMENU,"KEY") S XQORM("ALT")="D ALT^ORCMENU",ZTSAVE("ORMENU")="",VALM("MAX")=$P(^TMP("ORMENU",$J,ORMENU,0),U,2),VALMSG=$$MSG^ORCMENU D SHOW^VALM S:XQORM("B")="Quit" XQORM("B")="Done"
TYPE menu
COLUMN WIDTH 26
MNEMONIC WIDTH 4
CREATOR USER,ONE
TIMESTAMP 2024-07-26 10:39:38