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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ORCDFHO

Package: Order Entry Results Reporting

Routine: ORCDFHO


Information

ORCDFHO ;SLC/MKB-Utility functions for Outpt FH dialogs ;8/27/03 15:28

Source Information

Source file <ORCDFHO.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Order Entry Results Reporting 7 ($$FTDCOMP,$$INPT,$$PTR,GETDLG,LIST)^ORCD  ($$ORDTRAY,EN2)^ORCDFH  EN^ORCDLG1  EN^ORCSAVE  $$VALUE^ORCSAVE2  $$LOC^OREVNTX  $$VALUE^ORX8  
Dietetics 2 DIETLST^FHOMAPI  (EN1,EN2)^FHWOR8  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Order Entry Results Reporting 1 ORCSAVE2  

Entry Points

Name Comments DBIA/ICR reference
CKMEAL(Y,DAY,MEAL,LOC) ; -- Returns Y if valid mealtime or not
; Y = 0^msg if invalid
; 1 if valid
; 2 if valid, but latetray will be needed
; RPC = ORCDFHO CKMEAL
EN ; -- entry action
PTR(X) ; -- Returns ptr value of prompt OR GTX X in Dialog file
ONETIME() ; -- Condition for SCHEDULE
LATETRAY ; -- Check if latetray is needed, if so place order [from VALID^ORCSIGN]
; Expects ORIFN, ORL, ORVP
; Returns ORES(orifn;1)="" of new latetray order
FMTIME(X) ; -- Returns FM format of time
LT1
TIMES ; -- get existing outpatient meal times
MEALTIME(IFN) ; -- gets meal time for order IFN [from STARTDT^ORCSAVE2]
EXDT(X) ; -- populate E/L T values from START
OPDIETS ; -- Get list of diets ok for outpatients
LTRAY ; -- enter here w/ORDATE,ORNP,ORL [reinstated diet after dc'ing NPO]
FMDATE(X) ; -- Ensure X is in FM date format, return day only
ENDT ; -- setup START
EX ; -- exit action

External References

Name Field # of Occurrence
^%DT FMDATE+1, FMTIME+1, LATETRAY+6
DIETLST^FHOMAPI EN+2, OPDIETS+2
EN1^FHWOR8 EN+4, MEALTIME+3, CKMEAL+13, LTRAY+2
EN2^FHWOR8 EN+2, TIMES+1
$$FTDCOMP^ORCD ONETIME+2
$$INPT^ORCD EN+1
$$PTR^ORCD LT1+3, LT1+4, LT1+5
GETDLG^ORCD LT1+3
LIST^ORCD ENDT+2
$$ORDTRAY^ORCDFH LTRAY+8
EN2^ORCDFH LTRAY+6
EN^ORCDLG1 LT1+6
EN^ORCSAVE LT1+8
$$VALUE^ORCSAVE2 MEALTIME+3
$$LOC^OREVNTX EN+3
$$VALUE^ORX8 LATETRAY+3
$$FMTE^XLFDT TIMES+3
$$NOW^XLFDT CKMEAL+10, LTRAY+6, LT1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"This patient is not an outpatient!"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Dietetics v5.5 must be installed to place outpatient diet orders!"
  • Line Location: EN+2
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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OR(100 - [#100] MEALTIME+2, LATETRAY+5, LATETRAY+7, LTRAY+3
^ORD(101.41 - [#101.41] PTR+1, LT1+1, LT1+6
^ORD(101.43 - [#101.43] OPDIETS+5, LTRAY+5

Label References

Name Line Occurrences
$$FMDATE CKMEAL+7
$$FMTIME CKMEAL+16, LTRAY+7
$$PTR EN+7, EXDT+3, EXDT+4
CKMEAL LTRAY+4
TIMES ENDT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT FMDATE+1~*, FMTIME+1~*, LATETRAY+4~, LATETRAY+6*
BEGIN CKMEAL+6~, CKMEAL+16*
CNT OPDIETS+1~, OPDIETS+2*, OPDIETS+6*, OPDIETS+7, TIMES+2~*, TIMES+5*, TIMES+7
DA LT1~, LT1+6*
DATE EXDT+1~, EXDT+2*, EXDT+3
DAY CKMEAL~, CKMEAL+7*, CKMEAL+8
DT CKMEAL+8, LATETRAY+6
DUZ LT1+2
FHDIET OPDIETS+1~
FHDIET( OPDIETS+3, OPDIETS+4
FIRST ENDT+2, LT1~, LT1+2*
I EN+7~, EN+8*, OPDIETS+1~, OPDIETS+3*, OPDIETS+4, TIMES+2~*, TIMES+3, TIMES+6, LTRAY+1~, LTRAY+3*
, LTRAY+7*
IFN MEALTIME~, MEALTIME+1*, MEALTIME+2, MEALTIME+3
>> INST ONETIME+3, ONETIME+4, EXDT+3
LATE CKMEAL+6~, CKMEAL+17*, CKMEAL+18, CKMEAL+19*, CKMEAL+20
LOC CKMEAL~, CKMEAL+12, CKMEAL+13
M TIMES+2~, TIMES+3*, TIMES+4
MEAL EXDT+1~, EXDT+2*, EXDT+4, CKMEAL~, CKMEAL+9, CKMEAL+16, CKMEAL+17, CKMEAL+19
NOW CKMEAL+6~, CKMEAL+10*, CKMEAL+16, CKMEAL+18, CKMEAL+20
>> OK LTRAY+7*, LTRAY+8
ORCAT EN+4*, EX+1!, LT1~, LT1+2*
ORCHECK LT1~
ORDATE LATETRAY+4~, LATETRAY+7*, LTRAY+4, LT1+5
ORDAY EX+1!
ORDG LT1~
ORDIALOG LT1~, LT1+1*, LT1+3, LT1+6
ORDIALOG( EN+8!, OPDIETS+1, OPDIETS+6*, OPDIETS+7*, ONETIME+3, ONETIME+4*!, TIMES+1, TIMES+6*, TIMES+7*, ENDT+2
, EXDT+3*, EXDT+4*, LT1+3*, LT1+4*, LT1+5*
ORDT EX+1!, TIMES+1
ORDT( TIMES+2, TIMES+3
ORDUZ LT1~, LT1+2*
>> ORES( LT1+8*
>> OREVENT EN+3
>> OREWRITE EN+6
ORIFN LATETRAY+3, LATETRAY+5, LATETRAY+7, LTRAY+3, LT1~, LT1+8
>> ORL EN+3, MEALTIME+2, LTRAY+2
ORLOC MEALTIME+1~, MEALTIME+2*, MEALTIME+3
ORLOG LT1~, LT1+2*
ORMEAL LTRAY+1~, LTRAY+3*, LTRAY+4, LTRAY+7, LTRAY+8, LT1+3
ORNP LATETRAY+4~, LATETRAY+7*
ORNPO EX+1!
ORPARAM EN+4, EX+1!, MEALTIME+1~, MEALTIME+3, CKMEAL+13~, LTRAY+1~, LTRAY+2
ORPARAM(2 MEALTIME+4*, MEALTIME+5, CKMEAL+10, CKMEAL+14, LTRAY+2
ORPARAM(3 EN+5*
ORQUIT EN+1*, EN+2*, LT1~, LT1+6, LT1+7
ORSTRT LTRAY+1~, LTRAY+6*, LTRAY+7
ORTIME LTRAY+1~
ORTIME( LTRAY+7
ORTRAIL EX+1!
ORTRAY LTRAY+1~, LTRAY+5*, LTRAY+7, LT1+4
ORTYPE CKMEAL+6, LT1~, LT1+2*
>> ORVP TIMES+1
P1 EN+7~*, EN+8
P2 EN+7~*, EN+8
>> PROMPT OPDIETS+1, OPDIETS+6, OPDIETS+7, ONETIME+3, ONETIME+4, TIMES+1, TIMES+6, TIMES+7, ENDT+2, EXDT+3
SEQ LT1~, LT1+6*
TIMES CKMEAL+6~, CKMEAL+10*, CKMEAL+11, CKMEAL+14*, CKMEAL+15, CKMEAL+16, CKMEAL+17, CKMEAL+19
U OPDIETS+4, OPDIETS+6, TIMES+3, TIMES+6, MEALTIME+2, MEALTIME+5, CKMEAL+9, CKMEAL+16, CKMEAL+17, CKMEAL+19
, LATETRAY+7, LTRAY+7
X EN+3~*, EN+4, PTR~, PTR+1, OPDIETS+1~, OPDIETS+4*, OPDIETS+5*, OPDIETS+6, ONETIME+1~, ONETIME+3*
, ONETIME+4, TIMES+2~, TIMES+3*, TIMES+5*, TIMES+6, EXDT~, EXDT+1, EXDT+2, MEALTIME+1~, MEALTIME+3*
, MEALTIME+5, FMDATE~, FMTIME~, LATETRAY+4~, LATETRAY+5*, LATETRAY+6
Y OPDIETS+1~, OPDIETS+4*, OPDIETS+6, ONETIME+1~, ONETIME+2*, ONETIME+4, ONETIME+5, TIMES+2~, TIMES+3*, TIMES+4*
, TIMES+6, MEALTIME+1~, MEALTIME+5*, MEALTIME+6, CKMEAL~, CKMEAL+6*, CKMEAL+7*, CKMEAL+8*, CKMEAL+9*, CKMEAL+11
, CKMEAL+12*, CKMEAL+15*, CKMEAL+18*, CKMEAL+20*, FMDATE+1~, FMDATE+2, FMTIME+1~, FMTIME+2, LATETRAY+4~, LATETRAY+6
, LATETRAY+7, LTRAY+1~, LTRAY+4
>> Z LTRAY+7*

Marked Items

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