| Name | Value |
|---|---|
| NAME | PSJU LM ACCEPT MENU |
| ITEM |
|
| PACKAGE | INPATIENT MEDICATIONS |
| ENTRY ACTION | ;D:$D(PSGP)&($D(PSGORD)) INIT^PSJLMUDE(PSGP,PSGORD) |
| SCREEN | I $$AESCREEN^PSGOEV |
| HEADER | D A^PSJ200(21,20),SHOW^VALM S XQORM("#")=+$O(^ORD(101,"B","PSJU LM ACCEPT EDIT NEW",0))_"^1:"_+$P(PSGEFN,":",2) S:XQORM("B")="Quit" XQORM("B")="Edit" |
| TYPE | menu |
| COLUMN WIDTH | 40 |
| MNEMONIC WIDTH | 4 |
| CREATOR | USER,ONE |
| TIMESTAMP | 2012-01-30 10:42:05 |