| NAME |
ORC EVENT MENU |
| ITEM TEXT |
Order events menu |
| ITEM |
|
| EXIT ACTION |
I $G(OREVENT)'=$P(^TMP("ORMENU",$J,ORMENU,0),U,5) D INIT^ORCMENU S VALMBCK="R" |
| ENTRY ACTION |
S VALMBCK="",XQORM(0)="1AD\" S:$L($G(OREVENT)) XQORM("B")=$S(OREVENT="A":"Admission",OREVENT="D":"Discharge",OREVENT="T":"Transfer",1:"No Delay") |
| SCREEN |
I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),U),24)) ^(24) |
| HEADER |
W "" |
| MENU PROMPT |
Delay release of orders until: |
| TYPE |
menu |
| COLUMN WIDTH |
40 |
| MNEMONIC WIDTH |
5 |
| CREATOR |
USER,ONE |
| TIMESTAMP |
1999-04-16 15:22:37 |
