ORC ADD NOTE (2312)    PROTOCOL (101)

View in ViViaN Menu
Name Value
NAME ORC ADD NOTE
ITEM TEXT Write New Note
EXIT ACTION S OREBUILD=1 S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") I +$G(OREBUILD) D TAB^ORCHART(ORTAB,1)
ENTRY ACTION D FULL^VALM1,MAIN^TIUEDIT(3,.OREBUILD) S VALMBCK="R"
TYPE action
CREATOR USER,ONE
TIMESTAMP 1999-04-16 15:22:37