| ITEMS |
-
- SEQUENCE: 1
- INDEX: S.DO
- HELP MESSAGE: Enter a diet to be ordered for this patient; a maximum of 5 modifications are allowed.
- SPECIAL LOOKUP ROUTINE: LKUP;ORCDFH1
- SCREEN: I $$ACTIVE^ORDD43(Y)
- POST-SELECTION ACTION: K:'$$VALID^ORCDFH1 DONE I $G(DONE) D ORDMSG^ORCD(+Y)
- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,"D")),SCR=$G(ORDIALOG(PROMPT,"S")) D XHELP^ORDD43(IDX,SCR)
- ENTRY ACTION: I FIRST,'$O(ORDIALOG(PROMPT,0)) D RECENT^ORCDFH1 I $G(ORDIALOG(PROMPT,"LIST")) W !,"Choose a diet this patient has previously received (top is most recent),",!,"or enter another: " D LIST1^ORCD
- 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:"Diet",1:"") D PREV^ORCDFH1
- ORDER TEXT SEQUENCE: 1
- TRAILING TEXT: @ORTRAIL
- DISPLAY TEXT: Diet:
- REQUIRED: YES
- MULTIPLE VALUED: YES
- MAX NUMBER OF MULTIPLES: 5
- TITLE: Diet:
-
- SEQUENCE: 2
- INPUT TRANSFORM: D:$L(X) CNV^ORCDFH1
- HELP MESSAGE: Enter the date/time for this order to take effect.
- DEFAULT: S:$G(ORTYPE)'="Z" Y=$S($D(ORSTRT):ORSTRT,1:"NOW")
- ENTRY ACTION: N X S X=$P(ORDIALOG(PROMPT,0),U,2),$P(X,":",3)="ETRX",$P(ORDIALOG(PROMPT,0),U,2)=X I $G(ORTYPE)="Q",FIRST S X=$G(ORDIALOG(PROMPT,INST)) I $L(X) D CNV^ORCDFH1 S ORDIALOG(PROMPT,INST)=$G(X)
- ITEM: OR GTX START DATE/TIME
- EXIT ACTION: I $G(ORNPO) N X S X=$G(ORDIALOG(PROMPT,INST)),X=$$FMTIME^ORCDFH(X),ORTRAIL=$S(X=.24:"at MIDNIGHT",1:"")
- DISPLAY TEXT: Effective date/time:
- REQUIRED: YES
- ASK ON ACTION: W
-
- SEQUENCE: 3
- HELP MESSAGE: Enter the date/time for this order to expire.
- ASK ON CONDITION: I 0
- POST-SELECTION ACTION: I '$$FTDCOMP^ORCD("EFFECTIVE DATE/TIME","EXPIRATION DATE/TIME","<") K DONE W $C(7),!,"Cannot end before effective date/time!",!
- ITEM: OR GTX STOP DATE/TIME
- EXIT ACTION: Q S ORSTRT=$G(ORDIALOG(PROMPT,INST)),ASK=$S($L(ORSTRT):2,1:0) K:'ASK ORSTRT
- DISPLAY TEXT: Expiration date/time:
- ASK ON ACTION: W
-
- SEQUENCE: 4
- HELP MESSAGE: Enter the method of delivery of this diet.
- ASK ON CONDITION: I $G(ORDIALOG(PROMPT,"LIST"))>1,'$G(ORNPO)
- XECUTABLE HELP: D SETLIST^ORCD
- DEFAULT: S:$G(ORTYPE)'="Z" ORDIALOG(PROMPT,INST)=$E($G(ORPARAM(3)))
- ENTRY ACTION: D DELIVERY^ORCDFH
- ITEM: OR GTX DELIVERY
- EXIT ACTION: K:$G(ORNPO) ORDIALOG(PROMPT,INST)
- DISPLAY TEXT: Delivery:
- REQUIRED: YES
- ASK ON ACTION: W
-
- SEQUENCE: 5
- HELP MESSAGE: Enter any special instructions for this order, up to 80 characters.
- ENTRY ACTION: S $P(ORDIALOG(PROMPT,0),U,2)="1:80"
- ITEM: OR GTX FREE TEXT 1
- DISPLAY TEXT: Special Instructions:
-
- SEQUENCE: 6
- HELP MESSAGE: Enter NO to continue the current tubefeeding order along with this diet order, or YES to cancel it.
- ASK ON CONDITION: I 0 ;'$G(ORNPO),$$CURRENT^ORCDFH("TF"),'$$FUTURE^ORCDFH("EFFECTIVE DATE/TIME")
- ITEM: OR GTX CANCEL FUTURE ORDERS
- EXIT ACTION: K:$G(ORNPO) ORDIALOG(PROMPT,INST)
- DISPLAY TEXT: Cancel the current tubefeeding order?
- TITLE: Cancel Tubefeeding order:
- ASK ON ACTION: W
|
