Routine: AMHPHQO

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
Kernel	3	$$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Mental Health Social Services	3	PAUSE^AMHLEA $$D^AMHRPEC ($$ALLOWP,$$ALLOWVI,$$PPINT,$$PPNAME,$$SSN,DBHUSR,NALLOWP)^AMHUTIL
IHS VA Utilities	2	$$VAL^XBDIQ1 EN^XBVK
Registration	2	EN^VALM (CLEAR,FULL)^VALM1
VA Fileman	2	^DIC ^DIR
IHS Patient	1	(,$$HRN)^AUPNPAT
PCC Medical Query	1	PEP^AMQQGTX0
Patient Care Component Reports	1	$$PRIMPROV^APCLV

Package	Total	Caller Graph
Mental Health Social Services	1	AMHPHQM

Package

Total

Caller Graph

Mental Health Social Services

AMHPHQM

Entry Points

Name	Comments	DBIA/ICR reference
PAT	;
HDR	; -- header code
S1	;
EP(DFN)	;EP to list for one patient
CLIN	;
EXPND	; -- expand code
FF	;EP
PRINT	;EP - called from xbdbque
HELP	; -- help code
PRINT1	;
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
INIT	; -- init variables and list array
A	;all visits
END	;
D	;date range
L	;get patients last visit
S(Y,F,C,T)	;EP - set up array
N	;patients last N visits
P	;
R	;on program
WHICH	;
CP	;
START	;
PROV	;
HASPHQV(V)	;EP
GATHER	;
EXIT	; -- exit code
HASPHQ(V)	;EP - does this visit have a phq measurement

External References

Name	Field # of Occurrence
PAUSE^AMHLEA	PAT+6
$$D^AMHRPEC	GATHER+46, GATHER+61
$$ALLOWP^AMHUTIL	PAT+6
$$ALLOWVI^AMHUTIL	L+4, R+5, P+5
$$PPINT^AMHUTIL	P+5
$$PPNAME^AMHUTIL	GATHER+55
$$SSN^AMHUTIL	FF+4
DBHUSR^AMHUTIL	START+5
NALLOWP^AMHUTIL	PAT+6
PEP^AMQQGTX0	CLIN+2, PROV+2
$$PRIMPROV^APCLV	GATHER+70
^AUPNPAT	PAT+5, EP+8
$$HRN^AUPNPAT	GATHER+5
^DIC	PAT+2, CLIN+1, PROV+1
^DIR	WHICH+6, CP+3, N+2, R+2, D+3, D+5, P+2, FF+1
EN^VALM	BROWSE+3
CLEAR^VALM1	BROWSE+5
FULL^VALM1	BROWSE+6, EP+2
$$VAL^XBDIQ1	HASPHQ+3, HASPHQV+3, GATHER+48, GATHER+56, GATHER+58, GATHER+63, GATHER+71, GATHER+73
EN^XBVK	START+2
$$FMTE^XLFDT	PAT+7, GATHER+4, FF+4
$$REPEAT^XLFSTR	GATHER+8
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR("PHQ-2, PHQ-9 and PHQ-9T Depression Outcomes - Scores for One Patient",80),!! Line Location: START+3
Function Call: WRITE	Prompt: !,"This option is used to list PHQ2/PHQ9/PHQT Scores for one patient within",!,"a date range specified by the user.",! Line Location: START+4
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+7
Function Call: WRITE	Prompt: !!,"Please note: Only visits with PHQ2, PHQ9 and PHQ9T scores recorded will",!,"display on this list.",! Line Location: WHICH+1
Function Call: WRITE	Prompt: $$CTR("GAF Scores",80) Line Location: EP+7
Function Call: WRITE	Prompt: !!,"No visits on file for this patient.",! Line Location: L+2
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: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: CLIN+1
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: PROV+1
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	VALM Line Location: BROWSE+3
Routine Call	DIC Line Location: PAT+2 CLIN+1 PROV+1
Routine Call	DIR Line Location: WHICH+6 CP+3 N+2 R+2 D+3 D+5 P+2 FF+1

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AMQQ(5 - [#9009075]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	R+5, P+5, GATHER+12, GATHER+13, GATHER+14, GATHER+15, GATHER+22, GATHER+45
^AMHREC("AE"	L+4, R+5
^AMHREC("AF"	P+5
^AMHREC("AVISIT"	GATHER+27
^AMHREC("C"	GATHER+10
^AMHRMSR - [#9002011.12]	GATHER+49, GATHER+50, GATHER+51
^AMHRMSR("AD"	HASPHQ+3, GATHER+48
^AMHRPRO("AD"	GATHER+57
^AMHRPROV - [#9002011.02]	GATHER+18
^AMHRPROV("AD"	GATHER+17
^AUPNPAT - [#9000001]	FF+3
^AUPNVMSR - [#9000010.01]	GATHER+64, GATHER+65, GATHER+66
^AUPNVMSR("AD"	HASPHQV+3, GATHER+63
^AUPNVPOV("AD"	GATHER+72
^AUPNVPRV - [#9000010.06]	GATHER+34
^AUPNVPRV("AD"	GATHER+33
^AUPNVSIT - [#9000010]	GATHER+28, GATHER+29, GATHER+30, GATHER+31, GATHER+38, GATHER+61
^AUPNVSIT("AC"	GATHER+25
^DPT - [#2]	WHICH+6, GATHER+4, FF+2, FF+4
^TMP("AMHPHQO"	BROWSE+1!, BROWSE+4!, PRINT+5!, PRINT1+3, PRINT1+5, GATHER+1!, S1+2*, INIT+1
^VA(200 - [#200]	P+2

Label References

Name	Line Occurrences
$$CTR	START+3, EP+7
$$HASPHQ	GATHER+11
$$HASPHQV	GATHER+26
@(	WHICH+9
BROWSE	CP+6
CLIN	CP+7
CP	CP+7, CP+8
D	D+7
FF	PRINT1+4
GATHER	BROWSE+2, PRINT+3
PAT	PAT+6, EP+5
PRINT1	PRINT+4
PROV	CP+8
S	GATHER+4, GATHER+5, GATHER+6, GATHER+7, GATHER+8, GATHER+59, GATHER+74, GATHER+75
S1	S+4, S+6, S+9
WHICH	CP+4, EP+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	S+7, S+8
AMHBD	WHICH+4, EP+1~, N+4, A+2, D+1!, D+3, D+7, GATHER+12, GATHER+28
AMHC	GATHER+2~, GATHER+3, S1+1, S1+2
AMHCLN	CP+6!, CP+7, CLIN+3, CLIN+4!, GATHER+14, GATHER+15, GATHER+30, GATHER+31
AMHCLN(	GATHER+15, GATHER+31
AMHCLN("*"	CLIN+4
>> AMHCNT	GATHER+39, GATHER+40, GATHER+41, GATHER+42, GATHER+43, GATHER+75
>> AMHCP	CP+1, CP+5, CP+6, CP+7, CP+8
AMHD	GATHER+2~, GATHER+9, GATHER+39, GATHER+40, GATHER+41
AMHED	WHICH+4, EP+1~, N+4, A+3, D+1!, D+5, D+7, GATHER+13, GATHER+29
AMHI	GATHER+2~
AMHJ	GATHER+2~
>> AMHNUM	WHICH+4, N+1, N+4, A+1, D+9*, GATHER+39, GATHER+40, GATHER+41, GATHER+43
AMHP	END+1!
AMHPROV	CP+6!, CP+8, PROV+3, PROV+4!, GATHER+16, GATHER+32
AMHPROV(	GATHER+20, GATHER+36
AMHPROV("*"	PROV+4
AMHQUIT	WHICH+2, WHICH+9, END+1!, N+3, R+3, D+3, D+5, P+3, PRINT+1, PRINT1+3 , PRINT1+4, FF+1
AMHR0	EP+1~, GATHER+45*, GATHER+46, FF+2, FF+3, FF+4
>> AMHRCNT	GATHER+9, GATHER+21, GATHER+22, GATHER+38
>> AMHT	GATHER+40*, GATHER+41, GATHER+44, GATHER+60
AMHV	END+1!, EP+1~, EP+4!, GATHER+9, GATHER+10, GATHER+11, GATHER+12, GATHER+13, GATHER+14, GATHER+15 , GATHER+17, GATHER+22, GATHER+25, GATHER+26, GATHER+27, GATHER+28, GATHER+29, GATHER+30, GATHER+31, GATHER+33 , GATHER+38, GATHER+41, GATHER+45, GATHER+48, GATHER+55, GATHER+56, GATHER+57, GATHER+61, GATHER+63, GATHER+70 , GATHER+71, GATHER+72
AMHV(	L+4, R+5, P+5, GATHER+22, GATHER+38*, GATHER+39, GATHER+40, GATHER+41
AMHW	WHICH+3, WHICH+8, WHICH+9, END+1!
AMHX	EP+1~, PRINT1+2~, PRINT1+3, PRINT1+5, GATHER+2~, GATHER+46, GATHER+52, GATHER+53, GATHER+54, GATHER+55 , GATHER+56, GATHER+58, GATHER+59, GATHER+61, GATHER+67, GATHER+68, GATHER+69, GATHER+70, GATHER+71, GATHER+73* , GATHER+74
AMHY	EP+1~, GATHER+2~
AMHZ	GATHER+2~
AUPNDAYS	EP+1~
AUPNDOB	EP+1~
AUPNDOD	PAT+7, EP+1~
AUPNPAT	EP+1~
AUPNSEX	EP+1~
C	L+4*, S~, S+6
D	EP+3~, L+4, R+5, P+5*
DA	PAT+2!, WHICH+6!, CP+3!, N+2!, R+2!, P+2!, CLIN+1!, PROV+1!
DFN	PAT+1, PAT+4, PAT+5, PAT+6, WHICH+6, EP~, EP+5, EP+8, L+4, R+5 , P+5, GATHER+4, GATHER+5, GATHER+10, GATHER+25
DIADD	PAT+2!
DIC	PAT+2!, CLIN+1!, PROV+1*!
DIC("S"	CLIN+1, PROV+1
DIC(0	PAT+2, CLIN+1, PROV+1*
DIR	WHICH+5!, WHICH+6!, CP+3!, N+2!, R+2!, D+2!, D+4!, P+2!, FF+1!
DIR("A"	WHICH+6, CP+2, N+2, R+2, D+2, D+4, P+2*
DIR("B"	WHICH+6, CP+3, N+2, R+2, P+2*
DIR(0	WHICH+5, CP+2, N+2, R+2, D+2, D+4, P+2, FF+1
>> DIRUT	WHICH+7, CP+4, N+3, R+3, P+3
DLAYGO	PAT+2!
DR	PAT+2!
DT	N+4, A+3
>> DTOUT	FF+1
DUZ	PAT+6, L+4, R+5, P+2, P+5
DUZ(2	GATHER+5, FF+3
F	S~, S+1, S+4
>> G	GATHER+16, GATHER+21, GATHER+32, GATHER+37
>> H	FF+3*, FF+4
IO	FF+1
IO(0	FF+1
IOF	START+1, EP+6, PRINT1+1, FF+5
IOM	CTR+1
IOSL	PRINT1+4
IOST	FF+1, FF+2
>> J	GATHER+47, GATHER+51, GATHER+54, GATHER+62, GATHER+66, GATHER+69
>> L	S+6*
>> N	R+1, R+4, R+5, P+1, P+4, P+5, GATHER+47, GATHER+50, GATHER+53, GATHER+62* , GATHER+65*, GATHER+68
R	EP+3~
T	S~, S+2, S+6, S+7, S+8
U	WHICH+6, R+5, P+2, P+5, GATHER+4, GATHER+12, GATHER+13, GATHER+14, GATHER+15, GATHER+18 , GATHER+22, GATHER+28, GATHER+29, GATHER+30, GATHER+31, GATHER+34, GATHER+38, GATHER+46, GATHER+49, GATHER+50 , GATHER+51, GATHER+61, GATHER+64, GATHER+65, GATHER+66, FF+2, FF+3, FF+4
V	L+4, R+5, P+5*, HASPHQ~, HASPHQ+3, HASPHQV~, HASPHQV+3
>> VALMCNT	INIT+1*
X	CLIN+1, PROV+1, HASPHQ+1~, HASPHQ+2, HASPHQ+3, HASPHQV+1~, HASPHQV+2, HASPHQV+3, GATHER+4, GATHER+5 , GATHER+6, GATHER+7, GATHER+8, GATHER+17, GATHER+18, GATHER+33, GATHER+34, GATHER+47, GATHER+48, GATHER+49 , GATHER+50, GATHER+51, GATHER+57, GATHER+58, GATHER+62, GATHER+63, GATHER+64, GATHER+65, GATHER+66, GATHER+72* , GATHER+73, GATHER+75, CTR~, CTR+1, S+4, S+5, S+7, S+8, S1+2, HELP+1
Y	PAT+3, PAT+4, PAT+5, WHICH+8, CP+5, EP+8, N+4, R+4, D+3, D+5 , P+4, CLIN+1, CLIN+2, PROV+1, PROV+2, HASPHQ+1~, HASPHQ+3, HASPHQV+1~, HASPHQV+3, GATHER+18* , GATHER+19, GATHER+20, GATHER+34, GATHER+35, GATHER+36, GATHER+48, GATHER+49, GATHER+50, GATHER+51, GATHER+63* , GATHER+64, GATHER+65, GATHER+66, CTR~, CTR+1, FF+1, S~, S+5, S+6, S+8
Z	HASPHQ+1~, HASPHQ+2, HASPHQ+3, HASPHQ+4, HASPHQV+1~, HASPHQV+2, HASPHQV+3, HASPHQV+4, GATHER+47, GATHER+49 , GATHER+52, GATHER+62, GATHER+64, GATHER+67

Customize PDF page

Package: Mental Health Social Services

Routine: AMHPHQO

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: