Routine: FHORD11

Package	Total	Call Graph
Dietetics	4	ALG^FHCLN PID^FHDPA CHECK^FHOMDPA PATNAME^FHOMUTL

Package	Total	Caller Graph
Dietetics	1	FHORD10

Entry Points

Name	Comments	DBIA/ICR reference
LHD
OLD
HDR
D4
LST
DISC
L1
N1
NEWP
D2
D3
CUR

External References

Name	Field # of Occurrence
ALG^FHCLN	NEWP
PID^FHDPA	LST+3, D2+3
CHECK^FHOMDPA	D2+4
PATNAME^FHOMUTL	LST

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FHORD11+4
Function Call: WRITE	Prompt: !!,W1,?18,R1,?31,N1,?54,BID Line Location: LST+6
Function Call: WRITE	Prompt: " *" Condition for execution: OLW="" Line Location: LST+6
Function Call: WRITE	Prompt: ?63,$S(SF:"SF",1:""),?66,$S(SO:"SO",1:""),?73,TC Line Location: LST+6
Function Call: WRITE	Prompt: ?99,$E(OLR,1,10) Condition for execution: " "'[OLW ?81,$E(OLW,1,15) W:" "'[OLR Line Location: LST+6
Function Call: WRITE	Prompt: !,$E(N1,1,S2-5-$L(W1)),?(S2-3-$L(W1)),W1,!,BID Line Location: L1+0
Function Call: WRITE	Prompt: " *" Condition for execution: OLW="" Line Location: L1+0
Function Call: WRITE	Prompt: @FHIO("EON") Line Location: L1+1
Function Call: WRITE	Prompt: ?(S2-3\2),TC Line Location: L1+1
Function Call: WRITE	Prompt: ?(S2-3\2),TC Line Location: L1+1
Function Call: WRITE	Prompt: ?(S2-3\2),TC Line Location: L1+1
Function Call: WRITE	Prompt: ?(S2-3\2),TC Line Location: L1+1
Function Call: WRITE	Prompt: ! Condition for execution: LAB=2 Line Location: L1+1
Function Call: WRITE	Prompt: !!,Y,!! Line Location: L1+1
Function Call: WRITE	Prompt: !!,$P(Y,",",1,L) Line Location: L1+2
Function Call: WRITE	Prompt: ! Condition for execution: LAB=2 Line Location: L1+2
Function Call: WRITE	Prompt: !,$E($P(Y,",",L+1,5),2,99),! Line Location: L1+2
Function Call: WRITE	Prompt: @FHIO("EOF") Line Location: L1+3
Function Call: WRITE	Prompt: ?(S2-20),$P(H1," - ",2),!! Condition for execution: LAB=2 Line Location: L1+3
Function Call: WRITE	Prompt: !?35,"D I E T A C T I V I T Y R E P O R T",?102,"Page ",PG Line Location: HDR+0
Function Call: WRITE	Prompt: !!?(110-$L(H1)\2),H1 Line Location: HDR+1
Function Call: WRITE	Prompt: !!,"Ward",?18,"Room",?31,"Patient",?55,"ID#",?62,"Sup/Std Service Old Ward",?99,"Old Room" Line Location: HDR+2
Function Call: WRITE	Prompt: ! Condition for execution: LAB=2 Line Location: LHD+0
Function Call: WRITE	Prompt: !?A1,"**************************",!?A1,"",?(A1+26),"",!?A1,"",?(A1+5),$P(H1," - ",2),?(A1+26),"*" Line Location: LHD+0
Function Call: WRITE	Prompt: !?A1,"",?(A1+26),"",!?A1,"***************************",! Line Location: LHD+1
Function Call: WRITE	Prompt: !! Condition for execution: LAB=2 Line Location: LHD+1
Function Call: WRITE	Prompt: !?18,"Old: ",Y Line Location: OLD+2
Function Call: WRITE	Prompt: !?18,X1 Line Location: N1+1
Function Call: WRITE	Prompt: !!," DISCHARGED ",?31,N1,?54,BID,?63,$S(SF:"SF",1:""),?66,$S(SO:"SO",1:""),?81,W1,?99,R1 Line Location: D2+10
Function Call: WRITE	Prompt: !,$E(N1,1,S2-5-$L(W1)),?(S2-3-$L(W1)),W1,!,BID Line Location: D2+11
Function Call: WRITE	Prompt: " *" Condition for execution: OLW="" Line Location: D2+11
Function Call: WRITE	Prompt: ?(S2-3-$L(R1)),R1 Line Location: D2+11
Function Call: WRITE	Prompt: ?(S2-3-$L(R1)),R1 Line Location: D2+11
Function Call: WRITE	Prompt: !?(S2-20),$P(H1," - ",2),!! Condition for execution: LAB=2 Line Location: D2+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(115.02	CUR+1
^DGPM - [#405]	D2, D3
^DGPM("APMV"	D3
^DGPM("ATT3"	DISC
^DPT - [#2]	LST+1, D2+1, D2+3
^DPT("CN"	D2+1
^FH(111 - [#111]	CUR+2
^FH(115.2 - [#115.2]	N1
^FH(119.4 - [#119.4]	LST+5
^FH(119.6 - [#119.6]	D2+7, D4
^FH(119.73 - [#119.73]	FHORD11+5*
^FHPT - [#115]	LST+4, OLD, OLD+1, NEWP+1, D2+5
^FHPT("ASP"	LST+2, D2+6
^TMP($J	FHORD11+3

Label References

Name	Line Occurrences
CUR	LST+7, L1, OLD+1
D2	DISC
D3	D2+7
D4	D3
DISC	FHORD11+4
HDR	FHORD11+2, LST+6, D2+10
L1	LST+6
LHD	FHORD11+2
LST	FHORD11+3
N1	NEWP+1
NEWP	LST+7
OLD	LST+7

Naked Globals

Name	Field # of Occurrence
^(	OLD, NEWP+1, D2+1
^(0	LST+1, D2+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CUR+1*
>> A1	LHD, LHD+1, CUR+2
>> ADM	LST+1, LST+2, LST+4, OLD, OLD+1, D2, D2+5, D2+6, D3
>> ALG	NEWP
>> BID	LST+6, L1, D2+10, D2+11
>> CADM	D2+1*
>> COM	LST+4*, LST+7
>> D2	FHORD11+3, D2+3, D2+7*, D2+8
>> D3	CUR+2*
>> DA	DISC*, D2
>> DFN	LST, LST+1, D2*, D2+1, D2+3, D2+4, D3
>> E1	FHORD11+3*
>> FHDFN	FHORD11+3*, LST+2, LST+4, OLD, OLD+1, NEWP+1, D2+4, D2+5, D2+6
>> FHDU	CUR+1*
>> FHIO("EOF"	L1+1, L1+3
>> FHIO("EON"	L1+1
>> FHLD	CUR*, CUR+1
>> FHOR	CUR*, CUR+2
>> FHORD	LST+1*, LST+4, OLD+1
>> FHP	FHORD11+5, D2+8
>> FHZ115	D2+4*
>> H1	L1+3, HDR+1, LHD, D2+11
IOF	HDR
IOST	HDR
>> IS	LST+1, LST+5
>> K	NEWP+1*
>> L	FHORD11+4, L1+2
>> L1	D3*
>> L2	D3*
>> LAB	FHORD11+2, FHORD11+4, FHORD11+5, LST+6, L1+1, L1+2, L1+3, LHD, LHD+1, D2+10 , D2+11
>> N1	LST+3, LST+6, L1, D2+3, D2+9*, D2+10, D2+11
>> NOW	FHORD11+5, DISC
>> NX	OLD, DISC
>> OLR	LST+1*, LST+6
>> OLW	LST+1, LST+6, LST+7, L1, D2+7, D2+11
>> P0	FHORD11+3*
>> PG	FHORD11+2, HDR
>> R1	LST+1, LST+3, LST+6, L1+1, D2+3, D2+5, D2+9*, D2+10, D2+11
>> S2	FHORD11+2*, L1, L1+1, L1+2, L1+3, LHD, D2+11
>> SF	LST+1, LST+6, D2+3, D2+5*, D2+10
>> SO	LST+2, LST+6, D2+3, D2+6*, D2+10
>> TC	LST+5*, LST+6, L1+1
>> TIM	OLD, DISC
>> UPD	FHORD11+5
>> W1	LST+1, LST+3, LST+6, L1, D2+1, D2+3, D2+5, D2+7, D2+9, D2+10 , D2+11, D3, D4*
>> X	FHORD11+3, LST+1, LST+7, L1, CUR, OLD+1, NEWP+1, N1, N1+1, D2 , D2+2, D2+3, D2+5*
>> X0	LST+4*, LST+5, LST+7, L1
>> X1	NEWP+1, NEWP+2, N1+1, N1+2, D3
>> X2	OLD*, OLD+1
>> Y	LST+7, L1+1, L1+2, CUR, CUR+1, CUR+2, OLD+2, N1, N1+1*, N1+2
>> Y0	LST+1*, LST+3

Customize PDF page

Package: Dietetics

Routine: FHORD11

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: