Routine: FHORX1A

Package	Total	Call Graph
Dietetics	4	ALG^FHCLN PATNAME^FHOMUTL HDR^FHORX1A (,LNE)^FHORX1C

Package	Total	Caller Graph
Dietetics	3	FHORX1 FHORX1A FHORX1C

Entry Points

External References

Name	Field # of Occurrence
ALG^FHCLN	L2+7, T1+27, NEWP
PATNAME^FHOMUTL	L2+1
HDR^FHORX1A	LNE+1
^FHORX1C	L2+8
LNE^FHORX1C	NEWP

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$E(W1_" "_R1,1,20),?22,N1,?50,BID,?63,$S(SF:"SF",1:""),?66,$S(SO:"SO",1:""),?73,TC Line Location: L2+6
Function Call: WRITE	Prompt: !,"Allergies: ",$S(ALG="":"None on file",1:ALG),! Line Location: L2+7
Function Call: WRITE	Prompt: !!,$E(W1,1,20),?22,FHDPTN,?50,BID,?73,FHTC Line Location: T1+27
Function Call: WRITE	Prompt: !,"Allergies: ",$S(ALG="":"None on file",1:ALG),! Line Location: T1+27
Function Call: WRITE	Prompt: !?20,"D I E T A C T I V I T Y R E P O R T",?72,"Page ",PG Line Location: HDR+0
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !?20,"D I E T A C T I V I T Y R E P O R T",?72,"Page ",PG Line Location: HDR+1
Function Call: WRITE	Prompt: !!?(80-$L(H1)\2),H1 Line Location: HDR+2
Function Call: WRITE	Prompt: !,?30,FHPIO Line Location: HDR+3
Function Call: WRITE	Prompt: !!,"Location",?22,"Patient",?50,"ID#",?62,"Sup/Std Service" Line Location: HDR+4
Function Call: WRITE	Prompt: !?12,X1 Line Location: N1+1
Function Call: WRITE	Prompt: ! Line Location: LNE+1
Function Call: WRITE	Prompt: !?5,$E(EVT,1,58) Line Location: LNE+4
Function Call: WRITE	Prompt: !?5,$E(EVT,1,KK-1) Line Location: LNE+5
Function Call: WRITE	Prompt: !?5,EVT Line Location: EX+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	L2+2
^FH(111 - [#111]	T1+15, T1+16
^FH(115.2 - [#115.2]	N1
^FH(119.73 - [#119.73]	FHORX1A+10, FHORX1A+11
^FH(119.8 - [#119.8]	T1+21
^FHPT - [#115]	L2+5, NEWP+1, NEWP+2
^FHPT("ASP"	L2+5
^TMP($J	FHORX1A+5, FHORX1A+9, LST, LST1, T1+1
^VA(200 - [#200]	T1+21

Label References

Name	Line Occurrences
EX	LNE+2
HDR	FHORX1A+4, FHORX1A+8, L2+6, T1+26
L1	LST
L2	LST+1
LNE	T1+29, LNE+6
LST	FHORX1A+5
LST1	FHORX1A+9
N1	NEWP+2
NEWP	L2+8
T1	LST1

Naked Globals

Name	Field # of Occurrence
^(	LST, NEWP+2
^(0	L2+5, T1+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACT	L1+1*, L1+5, L1+6, L1+8, L1+9, L1+10
>> ADM	L1+1*, L1+5, L1+6, L1+8, L1+9, L1+10, L2+5
ALG	L2+7, T1+27, NEWP!
>> BID	L2+6, T1+4*, T1+27
>> CLK	L1+1*, L1+6, L1+9, L1+10
>> DA	LST, LST1, T1+1, T1+21
>> DFN	L2+1, L2+2, T1+1*, NEWP
>> DTP	T1+3*
>> EVT	T1+25, NEWP, LNE+2, LNE+3, LNE+4, LNE+5, LNE+6*, EX
>> FHACTI	T1+2*
>> FHBRK	FHORX1A+9*
>> FHDES1	T1+13*, T1+14
>> FHDESC	T1+5, T1+13, T1+23, T1+24*, T1+25
>> FHDFN	L2*, L2+5, NEWP+1, NEWP+2
>> FHDIDA	T1+15*, T1+16
>> FHDIET	T1+14, T1+15, T1+16, T1+17*, T1+18
>> FHDPTN	T1+19*, T1+27
>> FHEVE	FHORX1A+9*
>> FHII	FHORX1A+11*
>> FHNMSV	FHORX1A+9, T1+27, T1+28
>> FHNON	FHORX1A+9*
>> FHORD	L1+1, L1+2, L1+4, L1+5, L1+6, L1+8, L1+9, L1+10
>> FHP	FHORX1A+10, FHORX1A+11
>> FHPIO	FHORX1A+4, FHORX1A+8, HDR+3
>> FHSF1	T1+24*
>> FHSO1	T1+23*
>> FHTC	T1+6*, T1+27
>> FHTDAT	T1+1*, T1+2, T1+3, T1+4, T1+5, T1+6
>> FHUSER	T1+21*
>> FHUSERN	T1+21*
>> FHUSERNM	FHORX1A+9*
>> H1	HDR+2
IOF	HDR+1
IOSL	L2+6, T1+26, LNE+1
>> K	NEWP+2*
>> KK	LNE+3, LNE+4, LNE+5, LNE+6
>> N1	L2+3, L2+6, T1+19
>> NN	FHORX1A+5, FHORX1A+9, L1+2*
>> NOW	FHORX1A+10, FHORX1A+11
>> NP	LST, LST1, L1+4*, L2+8
>> P0	FHORX1A+5, FHORX1A+9, LST, LST1, L2, T1+1, T1+19, T1+27, T1+28
>> PG	FHORX1A+4, HDR+1
PP	LST!, LST1!
PP(	L1+5!, L1+6!, L1+8!, L1+9, L1+10*
>> R1	L2, L2+6, T1+19
>> SF	L2+5*, L2+6
>> SO	L2+5*, L2+6
>> TC	L2+5*, L2+6
>> TXT	L1+1*, L1+6, L1+9, L1+10
>> TYP	L1+1, L1+3, L1+4, L1+5, L1+6, L1+7, L1+8, L1+9, L1+10, NEWP
U	T1+16, T1+21
>> W1	L2, L2+6, T1+19, T1+27
>> X	NEWP+2*, N1, N1+1
>> X1	NEWP+2, NEWP+3, N1+1, N1+2*
>> Y	T1+18, N1, N1+1*, N1+2
>> Y0	L2+2*, L2+3
>> Z	LST*, L1+1

Customize PDF page

Package: Dietetics

Routine: FHORX1A

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
HDR	;W:'($E(IOST,1,2)'="C-"&'PG) @IOF S PG=PG+1 W !?20,"D I E T A C T I V I T Y R E P O R T",?72,"Page ",PG
LST1
T1	; Process outpatient event
LST
L2
EX
L1	; Process event
LNE	; Break line if longer than 58 chars
N1
NEWP