| ITEMS |
-
- SEQUENCE: 1
- INPUT TRANSFORM: K:X?1." " X W:'$D(X) !,"Use of spaces only not allowed!"
- HELP MESSAGE: Enter the text of this diet order, up to 80 characters.
- ENTRY ACTION: S $P(ORDIALOG(PROMPT,0),"^",2)="1:80"
- ITEM: OR GTX FREE TEXT 1
- ORDER TEXT SEQUENCE: 1
- LEADING TEXT: Additional Diet Order:
- DISPLAY TEXT: Additional Orders:
- REQUIRED: YES
-
- SEQUENCE: 2
- HELP MESSAGE: Enter the date/time for this order to take effect.
- ASK ON CONDITION: I ORCAT="O",$G(ORDIALOG(PROMPT,"LIST"))
- XECUTABLE HELP: D LIST^ORCD
- ENTRY ACTION: D DATES^ORCDFHTF I FIRST,$G(ORDIALOG(PROMPT,"LIST")) D LIST^ORCD
- ITEM: OR GTX DATE/TIME
- DISPLAY TEXT: Start Time:
- REQUIRED: YES
- ASK ON ACTION: CW
|
