Routine: FHWOR31

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

FHWOR31 ; HISC/NCA - HL7 Early/Late Tray (Cont.) ;10/10/00 14:56

Source Information

Source file <FHWOR31.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Dietetics	3	^FHORE1A (ERR,SEND)^FHWOR EXIT^FHWOR3
Kernel	1	$$FMTHL7^XLFDT
VA FileMan	1	(H,NOW)^%DTC

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: 2

Package	Total	Caller Graph
Dietetics	2	FHWDIS FHWOR3

Entry Points

Name	Comments	DBIA/ICR reference
CUR(FHDFN,ADM,FHDTE,FHV1,FHV2)	; This fuction pass the variable FHORD and FHLD back.
PROC	; Process Add E/L Trays
WKD	; Get week days
SET	; Set Date/Time in HL7 format

External References

Name	Field # of Occurrence
H^%DTC	WKD+1
NOW^%DTC	PROC+1
^FHORE1A	PROC+6
ERR^FHWOR	PROC+2, PROC+3, PROC+4, PROC+7
SEND^FHWOR	PROC+8
EXIT^FHWOR3	PROC+7
$$FMTHL7^XLFDT	SET+1, SET+2, SET+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FHPT - [#115]	CUR+2, CUR+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PROC+1
>> %Y	WKD+1*, WKD+2
A1	CUR+1~, CUR+2*, CUR+3
ADM	CUR~, CUR+2, CUR+3, PROC+5
>> BAG	PROC+5
>> EDT	PROC+4, PROC+5, WKD+1, SET+2*
>> FHDAY	PROC+7
FHDFN	CUR~, CUR+2, CUR+3
FHDTE	CUR~, CUR+2
FHN	CUR+1~, CUR+3*
FHV1	CUR~, CUR+2, CUR+3, PROC+3
FHV2	CUR~, CUR+2, CUR+3, PROC+2
>> FILL	PROC+5*
KK	CUR+1~, CUR+2*
>> MEAL	PROC+5
>> NOW	PROC+1, PROC+4, SET+3
>> SDT	PROC+4, PROC+5, SET+1*
>> TIM	PROC+5
>> TXT	PROC+2, PROC+3, PROC+4, PROC+7
>> WKD	PROC+5, WKD+2*
X	CUR+1~, CUR+3, WKD+1