Routine: ORCDFHO

Information

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

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

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Order Entry Results Reporting	3	ORCSAVE2 ^ORD(101.41 ITEMS

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- entry action
EX	; -- exit action
PTR(X)	; -- Returns ptr value of prompt OR GTX X in Dialog file
OPDIETS	; -- Get list of diets ok for outpatients
ONETIME()	; -- Condition for SCHEDULE
TIMES	; -- get existing outpatient meal times
ENDT	; -- setup START
EXDT(X)	; -- populate E/L T values from START
MEALTIME(IFN)	; -- gets meal time for order IFN [from STARTDT^ORCSAVE2]
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
FMDATE(X)	; -- Ensure X is in FM date format, return day only
FMTIME(X)	; -- Returns FM format of time
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
LTRAY	; -- enter here w/ORDATE,ORNP,ORL [reinstated diet after dc'ing NPO]
LT1

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

Customize PDF page

Package: Order Entry Results Reporting