Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: ORCDFH

Package: Order Entry Results Reporting

Routine: ORCDFH


Information

ORCDFH ;SLC/MKB-Utility functions for FH dialogs ; 08 May 2002 2:12 PM

Source Information

Source file <ORCDFH.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- entry action
CKFUTURE ; -- Ck for future diet orders
CONT() ; -- Ok to continue?
EN2 ; -- Reformat ORPARAM() into ORTIME(<tray>,<meal>,1-3)=ext^ext
FMTIME(X) ; -- Returns FM format of time
EX ; -- exit action
DIET(DFN) ; -- Returns patient DFN's current diet order
VALID() ; -- Returns 1 or 0, if selected diet modification is valid
CURRENT(DG) ; -- Returns order number of currently active DG order
FUTURE(FLD) ; -- Returns 1 or 0, if date from FLD is future
SCHEDOK(X) ; -- Validates days of the week
MEALS ; -- Sets meal times into ORDIALOG(PROMPT,"LIST")
NOTIMES(MEAL,TIME) ; -- If no tray times defined, write msg and reask
NTQ
CKTIME ; -- Validate meal time
DELIVERY ; -- Set available delivery/service types by location
CANCEL(ORIFN) ; -- Return 1 or 0, if future trays should be cancelled
RESUME(ORDER) ; -- Returns 1 or 0, if tray service should be resumed
LATETRAY ; -- Order a late tray with diet ORIFN? [from VALID^ORCSIGN]
LTRAY ; -- enter here w/ORDATE,ORSTRT,ORNP [reinstated diet after dc'ing NPO]
LT1
ORDTRAY(M) ; -- Want to order tray for meal M?
ASKSTOP() ; -- Ck OI's for parameter

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"This patient is not an inpatient!"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Dietetics v5.5 must be installed to place outpatient diet orders!"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no existing recurring meals with which to associate this type of",!,"order!"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Future Diet Orders: ",!
  • Line Location: CKFUTURE+5
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(ORDT,2)_" "_$G(ORTX(1))
  • Line Location: CKFUTURE+6
Function Call: WRITE
  • Prompt: !!,"A new order with no expiration date will CANCEL these diets."
  • Line Location: CKFUTURE+7
Function Call: WRITE
  • Prompt: !!,"Diet Order for this Patient is UNCHANGED -- No order entered!"
  • Line Location: CKFUTURE+9
Function Call: WRITE
  • Prompt: $C(7),!,OI_" may not be ordered with other diets!"
  • Line Location: VALID+7
Function Call: WRITE
  • Prompt: $C(7),"This diet has already been selected!"
  • Line Location: VALID+9
Function Call: WRITE
  • Prompt: $C(7),!,"This diet is not orderable with those already selected!",!
  • Line Location: VALID+13
Function Call: WRITE
  • Prompt: $C(7),!,"There are no "_$P($G(^ORD(101.43,TIME,0)),U)_" times defined for the "_$S(MEAL="B":"breakfast ",MEAL="N":"noon ",MEAL="E":"evening ",1:"")_"meal at this location!",!
  • Line Location: NOTIMES+2
Function Call: WRITE
  • Prompt: $C(7),!,"All "_$P($G(^ORD(101.43,TIME,0)),U)_" times have passed for the "_$S(MEAL="B":"breakfast ",MEAL="N":"noon ",MEAL="E":"evening ",1:"")_"meal at this location!",!
  • Line Location: NOTIMES+5
Function Call: WRITE
  • Prompt: $C(7),!,"This time has already passed!",!
  • Line Location: CKTIME+3
Function Call: WRITE
  • Prompt: $C(7),!!,"No late tray ordered!",!
  • Line Location: LT1+7
Function Call: WRITE
  • Prompt: !?10,"... order placed.",!
  • Line Location: LT1+9
Info |  Source |  Entry Points |  Interaction Calls