FHW OP MEAL (622) ORDER DIALOG (101.41)

Name	Value
NAME	FHW OP MEAL
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: *
VALIDATION	D LATETRAY^ORCDFHO
DISPLAY TEXT	Outpatient Meal
ENTRY ACTION	D EN^ORCDFHO
QUICK SETUP	S ORPARAM(3)="TCB"
TYPE	dialog
EXIT ACTION	D:'($G(ORNPO)!$G(ORQUIT)) CANCEL^ORCDFHTF D EX^ORCDFHO
DISPLAY GROUP	OUTPATIENT MEALS
LISTBOX TEXT	Outpatient Meal
WINDOW FORM ID	117
SIGNATURE REQUIRED	ORES
PACKAGE	DIETETICS
VERIFY ORDER	YES
TIMESTAMP	2024-09-03 10:47:29