Routine: AMHPST

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
IHS VA Utilities	2	^XBDBQUE $$VAL^XBDIQ1
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
Mental Health Social Services	2	PAUSE^AMHLEA ($$ALLOWP,$$ALLOWVI,$$PPNAME,$$SSN,DBHUSR,NALLOWP)^AMHUTIL
VA Fileman	2	^DIC ^DIR
Registration	1	FULL^VALM1

Package

Total

Call Graph

IHS VA Utilities

^XBDBQUE $$VAL^XBDIQ1

Kernel

$$FMTE^XLFDT DISP^XQORM1

Mental Health Social Services

PAUSE^AMHLEA ($$ALLOWP,$$ALLOWVI,$$PPNAME,$$SSN,DBHUSR,NALLOWP)^AMHUTIL

VA Fileman

^DIC ^DIR

Registration

FULL^VALM1

Package	Total	Caller Graph
Mental Health Social Services	2	AMHLEE AMHVRL

Package

Total

Caller Graph

Mental Health Social Services

AMHLEE AMHVRL

Entry Points

Name	Comments	DBIA/ICR reference
PAT	;
HDR	; -- header code
EOJ	;
S1	;
EXPND	; -- expand code
FF	;EP
PRINT	;EP - called from xbdbque
HEADING	;EP
HELP	; -- help code
PRINT1	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
ZIS	;
INIT	; -- init variables and list array
PAUSE	;
EP(AMHP)	;EP to list for one patient
D	;
S(Y,F,C,T)	;EP - set up array
START	;
GATHER	;
EXIT	; -- exit code
HEADING1	;

External References

Name	Field # of Occurrence
PAUSE^AMHLEA	PAT+5
$$ALLOWP^AMHUTIL	PAT+5
$$ALLOWVI^AMHUTIL	GATHER+4
$$PPNAME^AMHUTIL	PRINT1+7
$$SSN^AMHUTIL	FF+4
DBHUSR^AMHUTIL	START+6, EP+4
NALLOWP^AMHUTIL	PAT+5
^DIC	PAT+2
^DIR	D+3, D+5, ZIS+2, HEADING+2, PAUSE+3, FF+1
FULL^VALM1	EP+2
^XBDBQUE	ZIS+6, BROWSE+2
$$VAL^XBDIQ1	PRINT1+8, PRINT1+9, PRINT1+10, PRINT1+14
$$FMTE^XLFDT	PAT+6, PRINT1+6, HEADING1+2, HEADING1+4, FF+4
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$CTR("Staging Report",80) Line Location: START+5
Function Call: WRITE	Prompt: !,"No Patient Selected." Line Location: PAT+3
Function Call: WRITE	Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!! Line Location: PAT+6
Function Call: WRITE	Prompt: ! Line Location: D+2
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: D+8
Function Call: WRITE	Prompt: !! Line Location: ZIS+5
Function Call: WRITE	Prompt: $$CTR("Staging Report",80) Line Location: EP+5
Function Call: WRITE	Prompt: !,"No Staging Data has been entered for this patient." Line Location: PRINT+5
Function Call: WRITE	Prompt: !,"No Staging Data in that time period." Line Location: PRINT1+1
Function Call: WRITE	Prompt: ?T,$P(AMHR0,U,X) Line Location: PRINT1+13
Function Call: WRITE	Prompt: ! Line Location: HEADING+2
Function Call: WRITE	Prompt: !,$$LOC,?35,$$FMTE^XLFDT(DT),?70,"Page ",AMHPG,! Line Location: HEADING1+2
Function Call: WRITE	Prompt: !,$$CTR(X,80),! Line Location: HEADING1+3
Function Call: WRITE	Prompt: $$CTR(X),! Line Location: HEADING1+4
Function Call: WRITE	Prompt: $TR($J("",80)," ","-"),! Line Location: HEADING1+5
Function Call: WRITE	Prompt: ! Line Location: FF+1
Function Call: WRITE	Prompt: !!,$TR($J(" ",79)," ","*"),!,$P(^DPT($P(AMHR0,U,8),0),U),?32,"HRN: " Line Location: FF+2
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	DIC Line Location: PAT+2
Routine Call	DIR Line Location: D+3 D+5 ZIS+2 HEADING+2 PAUSE+3 FF+1

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHRCDST - [#9002011.06]	PRINT1+5, GATHER+2
^AMHRCDST("AC"	PRINT+5, GATHER+1
^AMHREC - [#9002011]	GATHER+3, GATHER+5
^AUPNPAT - [#9000001]	FF+3
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	HEADING1+3, FF+2, FF+4
^TMP("AMHPST"	PRINT+3!, PRINT+5!, PRINT+8!, PRINT1+1, PRINT1+2, PRINT1+3, GATHER+8, S1+2, INIT+1

Label References

Name	Line Occurrences
$$CTR	START+5, EP+5, PRINT1+11, HEADING1+3, HEADING1+4
$$LOC	HEADING1+2
BROWSE	ZIS+1, ZIS+4
D	D+7, EP+7
EOJ	D+3, ZIS+3, ZIS+4, ZIS+7, EP+6, EP+8
GATHER	PRINT+6
HEADING	PRINT+4, PRINT1+4
HEADING1	HEADING+1
PAT	PAT+5, EP+6
PAUSE	PRINT+5, PRINT+8, PRINT1+1
PRINT1	PRINT+7
S1	S+4, S+6, S+9

Name	Field # of Occurrence
^(0	LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	S+7, S+8
AMHB	EOJ+1!
AMHBD	START+1~, D+1!, D+3*, D+7, EOJ+1!, EP+1~, HEADING1+4, GATHER+6
>> AMHC	S1+1*, S1+2
AMHD	EOJ+1!, EP+1~, PRINT1+2*, PRINT1+3, PRINT1+6
AMHED	START+1~, D+1!, D+5*, D+7, EOJ+1!, EP+1~, HEADING1+4, GATHER+7
AMHP	START+1~, PAT+1, PAT+4, PAT+5, EOJ+1!, EP~, EP+6, PRINT+5, HEADING1+3, GATHER+1
AMHPG	EOJ+1!, PRINT+1, HEADING+1, HEADING1+1, HEADING1+2
AMHQUIT	D+3, D+5, EOJ+1!, PRINT+1, PRINT1+2, PRINT1+3, PRINT1+4, HEADING+2, PAUSE+4, FF+1
AMHR0	EOJ+1!, EP+1~, PRINT1+5*, PRINT1+6, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+13, FF+2, FF+3 , FF+4
AMHV	START+1~, START+3!, EOJ+1!, EP+1~, PRINT1+5*, PRINT1+7, PRINT1+8, PRINT1+9
AMHX	START+1~, EOJ+1!, EP+1~, PRINT1+3, PRINT1+5, PRINT1+10, PRINT1+14, GATHER+1, GATHER+2, GATHER+8
AMHY	START+1~, EOJ+1!, EP+1~
AUPNDAYS	START+1~, EP+1~
AUPNDOB	START+1~, EP+1~
AUPNDOD	START+1~, PAT+6, EP+1~
AUPNPAT	START+1~, EP+1~
AUPNSEX	START+1~, EP+1~
C	S~, S+6
D	START+2~, GATHER+5*, GATHER+6, GATHER+7, GATHER+8
DA	PAT+2!, ZIS+2!, PAUSE+3!
DIADD	PAT+2!
DIC	PAT+2*!, EP+1~
DIC(0	PAT+2*
DIE	EP+1~
DIR	D+2!, D+4!, ZIS+2!, HEADING+2!, PAUSE+3!, FF+1!
DIR("A"	D+2, D+4, ZIS+2, PAUSE+3
DIR("B"	ZIS+2*
DIR(0	D+2, D+4, ZIS+2, HEADING+2, PAUSE+3, FF+1
>> DIRUT	ZIS+3, PAUSE+4
DLAYGO	PAT+2!
DR	PAT+2!
DT	HEADING1+2
>> DTOUT	HEADING+2, FF+1
DUZ	PAT+5, GATHER+4
DUZ(2	LOC+1, FF+3
F	S~, S+1, S+4
>> H	FF+3*, FF+4
IO	HEADING+2, FF+1
IO("S"	PAUSE+2
IO(0	HEADING+2, FF+1
IOF	START+4, EP+3, HEADING1+1, PAUSE+5, FF+5
IOM	CTR+1
IOSL	PRINT1+4
IOST	HEADING+2, PAUSE+1, FF+1, FF+2
>> IOT	PAUSE+2
>> L	S+6*
R	START+2~
T	PRINT1+13, S~, S+2, S+6*, S+7, S+8
U	PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+13, HEADING1+3, GATHER+2, GATHER+5, LOC+1 , FF+2, FF+3, FF+4
>> VALMCNT	INIT+1*
X	EP+1~, PRINT1+13, HEADING1+3, HEADING1+4, CTR~, CTR+1, S+4, S+5, S+7, S+8* , S1+2, HELP+1*
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+5, BROWSE+2
>> XBRC	ZIS+5, BROWSE+2
>> XBRP	ZIS+5, BROWSE+1
>> XBRX	ZIS+5, BROWSE+2
Y	PAT+3, PAT+4, D+3, D+5, ZIS+4, EP+1~, HEADING+2, GATHER+2*, GATHER+3, GATHER+4 , GATHER+5, CTR~, CTR+1, FF+1, S~, S+5, S+6, S+8
>> ZTQUEUED	PAUSE+2

Customize PDF page

Package: Mental Health Social Services

Routine: AMHPST

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: