Routine: FHASP1

Package	Total	Call Graph
Dietetics	3	DTP^FH (FOOT,HF)^FHASP CHECK^FHOMDPA
Scheduling	1	GETAPPT^SDAMA201
VA Fileman	1	^%DT

Package	Total	Caller Graph
Dietetics	1	FHASP

Entry Points

External References

Name	Field # of Occurrence
^%DT	FHASP1+3
DTP^FH	FHASP1+4, LST+2, CLIN+4, MO+3
FOOT^FHASP	NOAPP+1
HF^FHASP	FHASP1+7, FHASP1+12, F1, CLIN+4, P0+2, MO+2
CHECK^FHOMDPA	FHASP1+10
GETAPPT^SDAMA201	F1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?22,"Dietetic Encounters since ",FHENDATE Line Location: FHASP1+6
Function Call: WRITE	Prompt: !!?5,"No Encounters recorded since ",FHENDATE Line Location: FHASP1+9
Function Call: WRITE	Prompt: !!?28,$S($G(ADM):"Current",1:"Last")," Admission Monitors" Line Location: FHASP1+12
Function Call: WRITE	Prompt: !,"No Monitors on file." Line Location: FHASP1+15
Function Call: WRITE	Prompt: !,"No Monitors on file." Line Location: FHASP1+18
Function Call: WRITE	Prompt: !!?32,"Food Preferences" Line Location: F1+0
Function Call: WRITE	Prompt: !!?27,"Future Clinic Appointments" Line Location: F1+1
Function Call: WRITE	Prompt: !!?5,"No scheduled appointments." Line Location: NOAPP+0
Function Call: WRITE	Prompt: !?5,$E(DTP,1,9)," " Line Location: LST+2
Function Call: WRITE	Prompt: Y Line Location: LST+2
Function Call: WRITE	Prompt: Y Line Location: LST+2
Function Call: WRITE	Prompt: ", ",$S(Y="G":"Group",1:"Individual") Line Location: LST+3
Function Call: WRITE	Prompt: !?5,DTP,?25,Y Line Location: CLIN+4
Function Call: WRITE	Prompt: !?5,DTP,?25,Y Line Location: CLIN+5
Function Call: WRITE	Prompt: " (Collateral)" Condition for execution: $P(Z,"^",11) Line Location: CLIN+5
Function Call: WRITE	Prompt: !?26,"Likes",?58,"DisLikes",! Line Location: DISP+1
Function Call: WRITE	Prompt: ! Line Location: DISP+3
Function Call: WRITE	Prompt: $P(M,"~",2) Line Location: DISP+3
Function Call: WRITE	Prompt: !,"No Food Preferences on file",! Line Location: DISP+7
Function Call: WRITE	Prompt: ?12 Line Location: P0+0
Function Call: WRITE	Prompt: ?46 Line Location: P0+1
Function Call: WRITE	Prompt: ! Line Location: P0+2
Function Call: WRITE	Prompt: X Line Location: P1+0
Function Call: WRITE	Prompt: $E(X,1,KK-2) Line Location: P1+2
Function Call: WRITE	Prompt: !,$P(Y,"^",1) Line Location: MO+3
Function Call: WRITE	Prompt: ", ",DTP Line Location: MO+3
Function Call: WRITE	Prompt: !!,"* ERROR in Scheduling API *" Line Location: PRERR+2
Function Call: WRITE	Prompt: !,"***",@FHTMP@("ERROR",FHER)," !!!",! Line Location: PRERR+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FH(115.2 - [#115.2]	SP
^FH(115.6 - [#115.6]	LST+2
^FHEN - [#115.7]	LST, LST+1
^FHEN("AP"	FHASP1+7
^FHPT - [#115]	FHASP1+11, FHASP1+14, FHASP1+17, DISP+2, MO+1
^TMP($J	F1+5!, F1+8, F1+9, F1+11!, F1+12!

Label References

Name	Line Occurrences
CLIN	F1+11
DISP	F1
F1	FHASP1+11, FHASP1+15
LST	FHASP1+7
MO	FHASP1+17
NOAPP	F1+8
P0	DISP+4, P0+2
P1	P0, P0+1
PRERR	F1+10
SP	DISP+2
SP1	SP+2

Naked Globals

Name	Field # of Occurrence
^(	DISP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	FHASP1+3*!
>> ADM	FHASP1+11, FHASP1+12
>> ANS	FHASP1+7, FHASP1+8, FHASP1+12, FHASP1+17, FHASP1+18, F1, F1+11, F1+14, CLIN+4, DISP+4 , DISP+6, P0+2, MO+2
>> ASN	FHASP1+7*, LST, LST+1
>> COM	MO+4*
>> DAS	SP*, SP1, SP1+1
>> DFN	FHASP1+7, FHASP1+10, F1+7, LST+1
DT	F1+7
>> DTP	FHASP1+4, LST+2, CLIN+4, MO+3
>> FADM	FHASP1+11*, FHASP1+14, FHASP1+17, MO+1
>> FHCNT	F1+6*, F1+7, F1+11
>> FHDFN	FHASP1+10, FHASP1+11, FHASP1+14, FHASP1+17, DISP+2, MO+1
>> FHENDATE	FHASP1+4*, FHASP1+6, FHASP1+9
>> FHER	PRERR+1*, PRERR+3
>> FHET	FHASP1+3, FHASP1+4, FHASP1+7
>> FHI	F1+11*, CLIN+1, CLIN+2, CLIN+3
>> FHMONS	FHASP1+16*, FHASP1+17
>> FHNUM	FHASP1+16
>> FHTMP	F1+9*, F1+10, F1+11, CLIN+1, CLIN+2, CLIN+3, PRERR+1, PRERR+3
>> FHTTLM	FHASP1+14*, FHASP1+15, FHASP1+16
>> FHZ115	FHASP1+10*
>> K	FHASP1+17, DISP+2, SP1+1, MO+1
>> KK	P1+1, P1+2, SP, SP+1, SP1, SP1+1
>> L1	SP, SP+1, SP1, SP1+1
>> M	DISP+3, DISP+4, SP, SP+2, SP+3, SP+4*, SP1, SP1+1
>> M1	SP*, SP+2, SP+3, SP+4
>> MM	DISP+3*, DISP+4
>> N1	FHASP1+5, FHASP1+9, FHASP1+12, FHASP1+18, F1+1, NOAPP, LST+2, CLIN+4, MO+1
>> NDT	FHASP1+17, CLIN+1, CLIN+4
P	DISP+2!
P(	DISP+3, DISP+4, SP1, SP1+1
P(""	DISP+7
>> P1	DISP+2, DISP+4, SP1, SP1+1*
>> P2	DISP+4*
>> Q	SP+1*
>> S1	FHASP1+7, FHASP1+12, F1, CLIN+4, P0+2, MO+2
>> SC	CLIN+2*
U	FHASP1+14, CLIN+2, CLIN+3, SP
>> X	FHASP1+3, DISP+2, P0, P0+1, P1, P1+1, P1+2, SP, SP+1
>> X0	LST*, LST+2, LST+3, LST+4
>> X1	LST+1, LST+4, DISP+4, P0*, P0+2
>> X2	DISP+4, P0+1, P0+2
>> Y	FHASP1+3, LST+2, LST+3, LST+4, CLIN+3, CLIN+4, MO+1*, MO+3, MO+4
>> Z	SP*
>> Z1	SP+3, SP+4

Customize PDF page

Package: Dietetics

Routine: FHASP1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DISP	; Display Food Preferences
F1
P0
P1
PRERR	;if Scheduling API returns an error, print error in the report.
SP1
MO	; Display Monitors
SP
LST
CLIN	;S SC=+$P(Z,"^",1),Y=$P($G(^SC(SC,0)),"^",1) Q:Y=""
NOAPP