ORC ADD ALLERGY (2311) PROTOCOL (101)
View in ViViaN Menu
Name
Value
NAME
ORC ADD ALLERGY
ITEM TEXT
Enter New Allergy/ADR
EXIT ACTION
S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU")
ENTRY ACTION
N DFN,GMRAUSER,GMRAOUT S DFN=+$G(ORVP) D:DFN>0 FULL^VALM1,EN2^
GMRAPEM0
S VALMBCK="R"
TYPE
action
CREATOR
USER,ONE
TIMESTAMP
2005-02-12 12:34:23
