| 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.
- DEFAULT: S:$G(ORTYPE)'="Z" Y="TODAY"
- ITEM: OR GTX START DATE
- EXIT ACTION: S ORDAY=$G(ORDIALOG(PROMPT,INST))
- REQUIRED: YES
- ASK ON ACTION: W
-
- SEQUENCE: 3
- HELP MESSAGE: Enter the date for this order to expire.
- ASK ON CONDITION: I 0
- POST-SELECTION ACTION: I $$FTDCOMP^ORCD("START DATE","END DATE",">") K DONE W $C(7),!,"Cannot end before start date!",!
- DEFAULT: S Y=$$VAL^ORCD("START DATE")
- ITEM: OR GTX STOP DATE
- DISPLAY TEXT: End date:
- REQUIRED: YES
- ASK ON ACTION: W
-
- 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 $G(ORNPO) ;only ask for NPO
- ENTRY ACTION: S $P(ORDIALOG(PROMPT,0),U,2)="1:80"
- ITEM: OR GTX FREE TEXT 1
- ORDER TEXT SEQUENCE: 5
- START NEW LINE: YES
- DISPLAY TEXT: Special Instructions:
-
- SEQUENCE: 4
- INPUT TRANSFORM: S X=$$UP^XLFSTR(X)
- HELP MESSAGE: Enter the days of the week to deliver this meal, e.g. MWF; choose from (M)onday, (T)uesday, (W)ednesday, Thu(R)sday, (F)riday, (S)aturday, and Sunday(X).
- ASK ON CONDITION: I '$$ONETIME^ORCDFHO
- POST-SELECTION ACTION: I '$$SCHEDOK^ORCDFH(ORDIALOG(PROMPT,ORI)) K DONE W $C(7),!,ORDIALOG(PROMPT,"?"),!
- ITEM: OR GTX SCHEDULE
- ORDER TEXT SEQUENCE: 3
- OMIT TEXT: ONCE
- LEADING TEXT: every
- DISPLAY TEXT: Days of Week:
- REQUIRED: YES
-
- 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,$G(ORL)) 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
-
- SEQUENCE: 8.1
- PARENT: OR GTX ADDL DIETS
- ASK ON CONDITION: I 0 ;created by backdoor change
- ITEM: OR GTX MEAL DATE
- FORMAT: 2D
- ASK ON ACTION: *
-
- SEQUENCE: 8
- ASK ON CONDITION: I 0 ;created by backdoor change
- ITEM: OR GTX ADDL DIETS
- ORDER TEXT SEQUENCE: 4
- LEADING TEXT: except
- START NEW LINE: YES
- MULTIPLE VALUED: YES
- TITLE: Except:
- ASK ON ACTION: *
|
