Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
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>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Order Entry Results Reporting 6 ($$DUP,$$INPT,$$PTR,$$VAL,GETDLG)^ORCD  EN^ORCDLG1  EN^ORCSAVE  $$LOC^OREVNTX  TEXT^ORQ12  $$VALUE^ORX8  
Dietetics 2 CUR^FHORD7  (EN,EN1,EN2)^FHWOR8  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  
VA Fileman 2 ^%DT  ^DIR  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Order Entry Results Reporting 7 ORCDFHO  ORCDFHTF  ORCSIGN  ORMBLDFH  ORMFH  ORWDFH  ORWDXM2  
Dietetics 2 FHWOR2  FHWOR5  

Entry Points

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

External References

Name Field # of Occurrence
^%DT FMTIME+1, FUTURE+2, LATETRAY+4
^DIR CONT+3, ORDTRAY+3
CUR^FHORD7 DIET+2
EN^FHWOR8 LTRAY+2
EN1^FHWOR8 EN+7
EN2^FHWOR8 EN+4, EN+5
$$DUP^ORCD VALID+9
$$INPT^ORCD EN+1
$$PTR^ORCD LT1+3, LT1+4, LT1+5, ASKSTOP+1
$$VAL^ORCD FUTURE+2
GETDLG^ORCD LT1+3
EN^ORCDLG1 LT1+6
EN^ORCSAVE LT1+8
$$LOC^OREVNTX EN+6
TEXT^ORQ12 CKFUTURE+6
$$VALUE^ORX8 LATETRAY+1
$$FMTE^XLFDT CKFUTURE+6
$$NOW^XLFDT CKFUTURE+2, CURRENT+2, NOTIMES+3, CKTIME+1, LT1+2
$$UP^XLFSTR SCHEDOK+1

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
Routine Call
  • DIR
  • Line Location:
    • CONT+3
    • ORDTRAY+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DIET+2
^OR(100 - [#100] CKFUTURE+3, CKFUTURE+4, CURRENT+3, CANCEL+1, CANCEL+2, RESUME+1, RESUME+2, LATETRAY+3, LATETRAY+6
^ORD(100.98 - [#100.98] EN+3, CKFUTURE+2, CURRENT+2
^ORD(101.41 - [#101.41] LT1+1, LT1+6
^ORD(101.43 - [#101.43] EN2+3, VALID+3, VALID+10, VALID+12, NOTIMES+2, NOTIMES+5, LTRAY+5, ASKSTOP+2

Label References

Name Line Occurrences
$$CONT CKFUTURE+8
$$FMTIME NOTIMES+4, CKTIME+2, LTRAY+6
$$ORDTRAY LTRAY+7
EN2 LTRAY+2
NTQ NOTIMES+1, NOTIMES+2, NOTIMES+3

Naked Globals

Name Field # of Occurrence
^( CURRENT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DIET+1~
%DT FMTIME+1~*, FUTURE+1~, FUTURE+2*, LATETRAY+2~, LATETRAY+4*
A1 DIET+1~
ADM DIET+1~, DIET+2*
CNT EN2+1~, EN2+4*, EN2+5*, EN2+6
D3 DIET+1~
DA CANCEL+1~*, CANCEL+2, LT1~, LT1+6*
DFN DIET~, DIET+2
DG CKFUTURE+1~, CKFUTURE+2*, CKFUTURE+3, CKFUTURE+4, CURRENT~, CURRENT+2
DIR CONT+1~, ORDTRAY+1~
DIR("A" CONT+2*, ORDTRAY+2*
DIR("B" CONT+2*, ORDTRAY+2*
DIR(0 CONT+2*, ORDTRAY+2*
DONE NOTIMES+2!, NOTIMES+5!, CKTIME+3!
DT FUTURE+2, NOTIMES+3, CKTIME+1, LATETRAY+4
DUZ LT1+2
EARLY EN2+1~, EN2+4
FHDU DIET+1~
FHLD DIET+1~
FHOR DIET+1~
FHORD DIET+1~
FIRST LT1~, LT1+2*
FLD FUTURE~, FUTURE+2
I EN2+1~, EN2+3*, EN2+5*, VALID+1~, VALID+11*, VALID+12, SCHEDOK+1~, SCHEDOK+2*, NOTIMES+1~, NOTIMES+4*
, DELIVERY+3~, DELIVERY+4*, RESUME+1~*, RESUME+2, LTRAY+1~, LTRAY+3*, LTRAY+6*, ASKSTOP+1~, ASKSTOP+2*
>> INST DELIVERY+1
LATE EN2+1~, EN2+4
M EN2+1~, EN2+4*, EN2+5, EN2+6, ORDTRAY~, ORDTRAY+2
>> MAX VALID+5*, VALID+6*, VALID+8*
MEAL NOTIMES~, NOTIMES+1, NOTIMES+2, NOTIMES+4, NOTIMES+5
NOW NOTIMES+3*, NOTIMES+4, CKTIME+1~*, CKTIME+3
NUM VALID+1~, VALID+10*, VALID+12
OFFSET EN2+1~, EN2+2*, EN2+5, EN2+6*
OI VALID+1~, VALID+3*, VALID+4, VALID+7, ASKSTOP+1~*, ASKSTOP+2
>> OK LTRAY+6*, LTRAY+7
ORCAT EN+1*, EN+2, EX+1!
ORCHECK LT1~
ORDATE NOTIMES+3, CKTIME+1, LATETRAY+2~, LATETRAY+5*, LT1+5
ORDER RESUME~, RESUME+1, RESUME+2
ORDG EN+3, LT1~
ORDIALOG LT1~, LT1+1*, LT1+3, LT1+6
ORDIALOG( VALID+2, VALID+3, VALID+5*, VALID+6*, VALID+8*, VALID+10, VALID+11, VALID+12, MEALS+1!, MEALS+2*
, CKTIME+2, DELIVERY+1!, DELIVERY+2, DELIVERY+5*, DELIVERY+6*, LT1+3*, LT1+4*, LT1+5*, ASKSTOP+2
ORDT EN+5, CKFUTURE+1~, CKFUTURE+2*, CKFUTURE+3*, CKFUTURE+4, CKFUTURE+5*, CKFUTURE+6*, EX+1!
ORDT(0 EN+5
ORDUZ LT1~, LT1+2*
>> ORES( LT1+8*
>> ORESET VALID+5, VALID+6
>> OREVENT EN+6
>> ORI VALID+3, VALID+9, VALID+10, VALID+12, CKTIME+2
ORIFN CKFUTURE+1~, CKFUTURE+3*, CKFUTURE+4*, CURRENT+1~, CURRENT+3*!, CURRENT+4, CANCEL~, CANCEL+1, CANCEL+2, LATETRAY+1
, LATETRAY+3, LATETRAY+6, LT1~, LT1+8
>> ORL EN+6
ORLOG LT1~, LT1+2*
ORMEAL MEALS+1, MEALS+2, LTRAY+1~, LTRAY+3*, LTRAY+4*, LTRAY+5, LTRAY+6, LTRAY+7, LT1+3
ORNP LATETRAY+2~, LATETRAY+6*
ORNPO EX+1!, DELIVERY+1
ORPARAM EN+7, EX+1!, LTRAY+1~, LTRAY+2
ORPARAM(1 EN2+2
ORPARAM(2 LTRAY+2, LTRAY+3
ORPARAM(3 EN+8*, DELIVERY+3
ORQUIT EN+2, EN+3*, EN+4*, EN+5*, CKFUTURE+8*, LT1~, LT1+6, LT1+7
ORSTRT CKFUTURE+1~, CKFUTURE+5, LATETRAY+2~, LATETRAY+5*, LTRAY+3, LTRAY+6
ORSTRT( CKFUTURE+4*, CKFUTURE+6
ORTIME EX+1!, LTRAY+1~
ORTIME( EN2+5*, EN2+6*, MEALS+2, NOTIMES+2, NOTIMES+4, LTRAY+6
ORTRAIL EX+1!
ORTRAY MEALS+1, MEALS+2, LTRAY+1~, LTRAY+5*, LTRAY+6, LT1+4
ORTX CKFUTURE+1~, CKFUTURE+6
ORTX(1 CKFUTURE+6
ORTYPE EN+1, LT1~, LT1+2*
>> ORVP EN+5, CKFUTURE+3, CKFUTURE+4, CURRENT+3, LTRAY+2
PAST NOTIMES+1~, NOTIMES+3*, NOTIMES+4*, NOTIMES+5
>> PROMPT VALID+2, VALID+3, VALID+5, VALID+6, VALID+8, VALID+9, VALID+10, VALID+11, VALID+12, MEALS+1
, MEALS+2, CKTIME+2, DELIVERY+1, DELIVERY+2, DELIVERY+5, DELIVERY+6
SEQ LT1~, LT1+6*
START CURRENT+1~, CURRENT+2*, CURRENT+3*
T EN2+1~, EN2+4*, EN2+5, EN2+6
TIME NOTIMES~, NOTIMES+1, NOTIMES+2, NOTIMES+4, NOTIMES+5
TIMES EN2+1~, EN2+2*, EN2+5
TOTAL VALID+1~, VALID+2*, VALID+5, VALID+6
TYPE CURRENT+1~, CURRENT+2*, CURRENT+3
U EN+3, CKFUTURE+4, EN2+5, VALID+3, VALID+10, VALID+12, CURRENT+3, SCHEDOK+2, NOTIMES+2, NOTIMES+4
, NOTIMES+5, DELIVERY+5, LATETRAY+6, LTRAY+3, LTRAY+4, LTRAY+6, ASKSTOP+2
X EN+6~*, EN+7, CONT+1~, EN2+1~, EN2+5*, FMTIME~, DIET+1~, FUTURE+1~, FUTURE+2*, SCHEDOK~
, SCHEDOK+1*, SCHEDOK+2, NOTIMES+4*, CKTIME+1~, CKTIME+2*, CKTIME+3, DELIVERY+3~*, DELIVERY+4, DELIVERY+6, RESUME+1~*
, RESUME+2*, RESUME+3, LATETRAY+2~, LATETRAY+3*, LATETRAY+4, ORDTRAY+1~
X1 DIET+1~
Y CONT+1~, CONT+4, FMTIME+1~, FMTIME+2, DIET+1~, DIET+2*, DIET+3, VALID+1~, VALID+2*, VALID+4
, VALID+7*, VALID+11, VALID+13*, VALID+14, FUTURE+1~, FUTURE+2, SCHEDOK+1~*, SCHEDOK+2*, SCHEDOK+3, NOTIMES+1~*
, NOTIMES+2*, NOTIMES+5*, NTQ, DELIVERY+3~, DELIVERY+4*, CANCEL+1~*, CANCEL+2*, CANCEL+3, LATETRAY+2~, LATETRAY+4
, LATETRAY+5, ORDTRAY+1~, ORDTRAY+4, ASKSTOP+1~*, ASKSTOP+2*, ASKSTOP+3
Z FUTURE+1~, FUTURE+2*, FUTURE+3, DELIVERY+3~, DELIVERY+4*, DELIVERY+5, LTRAY+6*

Marked Items

Name Field # of Occurrence
$T(EN2^FHWOR8 EN+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All