| ITEMS |
-
- SEQUENCE: 1
- INDEX: S.DO
- HELP MESSAGE: Enter a diet to be ordered for this patient.
- POST-SELECTION ACTION: D ORDMSG^ORCD(+Y)
- XECUTABLE HELP: D LIST^ORCD
- ENTRY ACTION: D OPDIETS^ORCDFHO
- ITEM: OR GTX ORDERABLE ITEM
- EXIT ACTION: N OI S OI=+$G(ORDIALOG(PROMPT,INST)),ORNPO=($P($G(^ORD(101.43,OI,0)),U)="NPO"),ORTRAIL=$S('ORNPO:"Meal",1:"")
- ORDER TEXT SEQUENCE: 1
- TRAILING TEXT: @ORTRAIL
- DISPLAY TEXT: Diet:
- REQUIRED: YES
-
- SEQUENCE: 2
- HELP MESSAGE: Enter the date for this order to take effect.
- ASK ON CONDITION: I 0 ;cannot change
- DEFAULT: S Y="TODAY"
- ITEM: OR GTX START DATE
- EXIT ACTION: S ORDAY=$G(ORDIALOG(PROMPT,INST))
- REQUIRED: YES
-
- SEQUENCE: 3
- HELP MESSAGE: Enter the date for this order to expire.
- ASK ON CONDITION: I 0 ;cannot change
- POST-SELECTION ACTION: I $$FTDCOMP^ORCD("START DATE","END DATE",">") K DONE W $C(7),!,"Cannot end before start date!",!
- DEFAULT: S Y="TODAY"
- ITEM: OR GTX STOP DATE
- DISPLAY TEXT: End date:
- REQUIRED: YES
-
- SEQUENCE: 6
- HELP MESSAGE: Enter the method of delivery of this meal.
- ASK ON CONDITION: I $G(ORDIALOG(PROMPT,"LIST"))>1,'$G(ORNPO)
- XECUTABLE HELP: D SETLIST^ORCD
- ENTRY ACTION: D DELIVERY^ORCDFH
- ITEM: OR GTX DELIVERY
- EXIT ACTION: K:$G(ORNPO) ORDIALOG(PROMPT,INST)
- REQUIRED: YES
- ASK ON ACTION: W
-
- SEQUENCE: 7
- HELP MESSAGE: Enter any special instructions for this order, up to 80 characters.
- ASK ON CONDITION: I 0 ;hide for now
- ENTRY ACTION: S $P(ORDIALOG(PROMPT,0),U,2)="1:80"
- ITEM: OR GTX FREE TEXT 1
- ORDER TEXT SEQUENCE: 4
- START NEW LINE: YES
- DISPLAY TEXT: Special Instructions:
-
- SEQUENCE: 5
- HELP MESSAGE: Enter the meal time, (B)reakfast or (N)oon or (E)vening.
- POST-SELECTION ACTION: N X,OK S X=$G(ORDIALOG(PROMPT,INST)) I $L(X) D CKMEAL^ORCDFHO(.OK,$G(ORDAY),X) I 'OK K DONE W $C(7),!,$P(OK,U,2),!
- XECUTABLE HELP: D SETLIST^ORCD
- ITEM: OR GTX MEAL
- ORDER TEXT SEQUENCE: 2
- LEADING TEXT: for
- TRAILING TEXT: meal time
- REQUIRED: YES
|
