Routine: AMHVD

Package	Total	Call Graph
IHS VA Utilities	2	$$VAL^XBDIQ1 $$EXTSET^XBFUNC
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
Mental Health Social Services	2	($$ALLOWP,$$ALLOWVI,$$PPNAME,$$SSN,DBHUSR,NALLOWP)^AMHUTIL SAN^AMHVD1
Registration	2	EN^VALM (CLEAR,FULL)^VALM1
Text Integration Utility	2	$$CANDO^TIULP EXTRACT^TIULQ
VA Fileman	2	^DIC ^DIR
IHS Patient	1	(,$$HRN)^AUPNPAT

Package	Total	Caller Graph
Mental Health Social Services	4	AMHDPEE AMHLESF AMHSFR AMHVD1

Entry Points

Name	Comments	DBIA/ICR reference
HELP	; -- help code
TIUDSP	;
PAT	;
SUB
S1	;
EP(DFN)	;EP to list for one patient
EXPND	; -- expand code
FF	;EP
PRINT	;EP - called from xbdbque
COM
HDR	; -- header code
PRINT1	;
SAN	;san only
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
SAN1
L	;get patients last visit
S(Y,F,C,T)	;EP - set up array
N	;patients last N visits
P	;on program
NFT
WHICH	;
START	;
GATHER	;
EXIT	; -- exit code
TEST	;

External References

Name	Field # of Occurrence
$$ALLOWP^AMHUTIL	PAT+5
$$ALLOWVI^AMHUTIL	L+4, SAN+2, N+5, P+5, A+2, D+9
$$PPNAME^AMHUTIL	GATHER+17
$$SSN^AMHUTIL	FF+4
DBHUSR^AMHUTIL	START+6
NALLOWP^AMHUTIL	PAT+5
SAN^AMHVD1	SAN1+1
^AUPNPAT	PAT+6, EP+13
$$HRN^AUPNPAT	GATHER+5
^DIC	PAT+2
^DIR	WHICH+4, N+2, P+2, D+3, D+5, FF+1
$$CANDO^TIULP	TIUDSP+2, TIUDSP+20
EXTRACT^TIULQ	TIUDSP+6, TIUDSP+24, TEST+1
EN^VALM	BROWSE+3
CLEAR^VALM1	BROWSE+5
FULL^VALM1	BROWSE+6, EP+2
$$VAL^XBDIQ1	GATHER+9, GATHER+10, GATHER+19, GATHER+20, GATHER+21, GATHER+22, GATHER+26
$$EXTSET^XBFUNC	GATHER+11
$$FMTE^XLFDT	PAT+7, GATHER+4, GATHER+17, FF+4
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$CTR("Browse Behavioral Health Visits",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+7
Function Call: WRITE	Prompt: $$CTR("Browse Behavioral Health Visits",80) Line Location: EP+7
Function Call: WRITE	Prompt: !?15,$P(^DIC(4,X,0),U) Line Location: EP+11
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: ! 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
Routine Call	DIR Line Location: WHICH+4 N+2 P+2 D+3 D+5 FF+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHBHUSR - [#9002013.11]	EP+8, EP+11
^AMHPSUIC - [#9002011.65]	GATHER+11
^AMHPSUIC("AA"	GATHER+8
^AMHPSUIC("AC"	GATHER+6
^AMHREC - [#9002011]	SAN+2, P+5, GATHER+16, GATHER+23, GATHER+29, GATHER+31, SUB+2, SUB+3, COM+2, COM+3 , NFT+1, NFT+2, NFT+3, NFT+6, NFT+7
^AMHREC("AE"	L+4, SAN+2, N+5, P+5, A+2, D+9
^AMHRPRO("AD"	GATHER+25
^AMHTACT - [#9002012]	GATHER+19
^AUPNPAT - [#9000001]	FF+3
^DIC(4 - [#4]	EP+11
^DPT - [#2]	WHICH+4, GATHER+4, FF+2, FF+4
^TIU(8925 - [#8925]	TIUDSP+18, TIUDSP+19
^TMP("AMHEONPS"	GATHER+35!
^TMP("AMHOENPS"	GATHER+33!, TIUDSP+4, TIUDSP+7, TIUDSP+8!, TIUDSP+21, TIUDSP+25, TIUDSP+26!
^TMP("AMHVD"	BROWSE+1!, BROWSE+4!, PRINT+5!, PRINT1+3, PRINT1+5, GATHER+1!, S1+2*, INIT+1
^VA(200 - [#200]	NFT+3

Label References

Name	Line Occurrences
$$CTR	START+5, EP+7
@(	WHICH+8
D	D+7
FF	PRINT1+4
GATHER	BROWSE+2, PRINT+3
PAT	PAT+5, EP+5
PRINT1	PRINT+4
S	GATHER+4, GATHER+5, GATHER+7, GATHER+9, GATHER+12, GATHER+13, GATHER+17, GATHER+19, GATHER+20, GATHER+21 , GATHER+22, GATHER+23, GATHER+24, GATHER+26, GATHER+30, SUB+1, SUB+3, COM+1, COM+3, NFT+1 , NFT+3, NFT+5, NFT+7, NFT+9, TIUDSP+1, TIUDSP+9, TIUDSP+10, TIUDSP+11, TIUDSP+12, TIUDSP+13 , TIUDSP+15, TIUDSP+16, TIUDSP+18, TIUDSP+27, TIUDSP+28, TIUDSP+29, TIUDSP+30, TIUDSP+31, TIUDSP+32, TIUDSP+34 , TIUDSP+35
S1	S+4, S+6, S+9
SAN1	GATHER+38
SUB	GATHER+29
TIUDSP	GATHER+34
WHICH	EP+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	S+7, S+8
AMHBD	START+1~, EP+1~, D+1!, D+3*, D+7, D+9
AMHC	GATHER+2~, GATHER+3, S1+1, S1+2
AMHD	GATHER+2~, GATHER+8, GATHER+14, GATHER+15*
>> AMHDOC	GATHER+31*, TIUDSP+2, TIUDSP+6, TIUDSP+7, TIUDSP+18, TIUDSP+19
AMHED	START+1~, EP+1~, D+1!, D+5*, D+7, D+9
AMHERR	GATHER+32!, TIUDSP+6, TIUDSP+24
>> AMHGBL	TIUDSP+4, TIUDSP+5, TIUDSP+6, TIUDSP+21, TIUDSP+22, TIUDSP+24
>> AMHHLF	TIUDSP+4*
AMHI	GATHER+2~
AMHJ	GATHER+2~
AMHP	END+1!, GATHER+25*, GATHER+26
AMHQUIT	WHICH+1, WHICH+8, END+1!, N+3, P+3, D+3, D+5, PRINT+1, PRINT1+3, PRINT1+4 , SUB+2, COM+2, NFT+2, NFT+6, FF+1*
AMHR0	START+1~, EP+1~, GATHER+16*, GATHER+17, GATHER+19, GATHER+21, GATHER+22, FF+2, FF+3, FF+4
>> AMHSTR	TIUDSP+1, TIUDSP+9, TIUDSP+10, TIUDSP+11, TIUDSP+12, TIUDSP+13, TIUDSP+15, TIUDSP+16, TIUDSP+18, TIUDSP+27 , TIUDSP+28, TIUDSP+29, TIUDSP+30, TIUDSP+31, TIUDSP+32, TIUDSP+34, TIUDSP+35*
AMHTIU	GATHER+32!, GATHER+36!, TIUDSP+7, TIUDSP+23!, TIUDSP+25
AMHTIU(	TIUDSP+9, TIUDSP+11, TIUDSP+28, TIUDSP+30
AMHTIU("TEXT"	TIUDSP+13, TIUDSP+32
AMHTIU(1202	TIUDSP+10, TIUDSP+29
AMHTIU(1205	TIUDSP+12, TIUDSP+31
AMHTIU(1501	TIUDSP+14, TIUDSP+16, TIUDSP+33, TIUDSP+35
AMHTIU(1502	TIUDSP+11, TIUDSP+30
AMHTIU(1503	TIUDSP+15, TIUDSP+34
AMHV	START+1~, START+3!, EP+1~, EP+4!, GATHER+14, GATHER+15, GATHER+16, GATHER+17, GATHER+19, GATHER+20 , GATHER+21, GATHER+22, GATHER+23, GATHER+25, GATHER+29, GATHER+31, SUB+2, SUB+3, COM+2, COM+3 , NFT+1, NFT+2, NFT+3, NFT+6, NFT+7
AMHV(	L+4, SAN+2, N+5, P+5, A+2, D+9, GATHER+15
AMHW	WHICH+2, WHICH+6, WHICH+7*, WHICH+8, END+1!
AMHX	START+1~, EP+1~, PRINT1+2~, PRINT1+3, PRINT1+5, GATHER+2~, SUB+2, SUB+3, COM+2, COM+3 , NFT+2, NFT+3, NFT+6, NFT+7, TIUDSP+13, TIUDSP+32*
>> AMHX1	TIUDSP+19*, TIUDSP+20, TIUDSP+24, TIUDSP+25
AMHY	START+1~, EP+1~, GATHER+2~, GATHER+8*, GATHER+9, GATHER+10, GATHER+11
AMHZ	GATHER+2~
AUPNDAYS	START+1~, EP+1~
AUPNDOB	START+1~, EP+1~
AUPNDOD	START+1~, PAT+7, EP+1~
AUPNPAT	START+1~, EP+1~
AUPNSEX	START+1~, EP+1~
C	L+4, N+5, S~, S+6
D	START+2~, EP+3~, L+4, SAN+1, SAN+2, N+5, P+5, A+1, A+2, D+9
DA	PAT+2!, WHICH+4!, N+2!, P+2!
DFN	START+1~, PAT+1, PAT+4, PAT+5*, PAT+6, WHICH+4, EP~, EP+5, EP+13, L+4 , SAN+2, N+5, P+5, A+2, D+9, GATHER+4, GATHER+5, GATHER+6, GATHER+8
DIADD	PAT+2!
DIC	PAT+2*!
DIC(0	PAT+2*
DIR	WHICH+4!, N+2!, P+2!, D+2!, D+4!, FF+1!
DIR("A"	WHICH+4, N+2, P+2, D+2, D+4*
DIR("B"	WHICH+4, N+2, P+2*
DIR(0	WHICH+3, N+2, P+2, D+2, D+4, FF+1
>> DIRUT	WHICH+5, N+3, P+3
DLAYGO	PAT+2!
DR	PAT+2!
>> DTOUT	FF+1
DUZ	PAT+5, EP+8, EP+11, L+4, SAN+2, N+5, P+5, A+2, D+9, TIUDSP+2 , TIUDSP+20
DUZ(2	GATHER+5, FF+3
>> E	D+9*
F	S~, S+1, S+4
>> H	FF+3*, FF+4
IO	FF+1
IO(0	FF+1
IOF	START+4, EP+6, PRINT1+1, FF+5
IOM	TIUDSP+4, CTR+1
>> IORVOFF	EP+9
>> IORVON	EP+9
IOSL	PRINT1+4
IOST	FF+1, FF+2
>> L	S+6*
>> N	N+1, N+4, N+5, P+1, P+4, P+5
R	START+2~, EP+3~
T	S~, S+2, S+6, S+7, S+8
>> TIUERR	TEST+1
U	WHICH+4, EP+11, SAN+2, P+5, GATHER+4, GATHER+11, GATHER+17, GATHER+19, GATHER+21, GATHER+22 , GATHER+23, NFT+3, FF+2, FF+3, FF+4
>> V	L+4, SAN+1, SAN+2, N+5, P+5, A+1, A+2, D+9
>> VALMCNT	INIT+1*
X	EP+11, GATHER+4, GATHER+5, GATHER+7, GATHER+9, GATHER+10, GATHER+12, GATHER+13, GATHER+17, GATHER+19 , GATHER+20, GATHER+21, GATHER+22, GATHER+23, GATHER+24, GATHER+26, GATHER+30, SUB+1, SUB+3, COM+1 , COM+3, NFT+1, NFT+3, NFT+5, NFT+7, NFT+9, CTR~, CTR+1, S+4, S+5 , S+7, S+8, S1+2, HELP+1*
Y	PAT+3, PAT+4, PAT+6, WHICH+6, EP+13, N+4, P+4, D+3, D+5, GATHER+11* , GATHER+12, CTR~, CTR+1, FF+1, S~, S+5, S+6, S+8
>> Z	GATHER+11*

Customize PDF page

Package: Mental Health Social Services

Routine: AMHVD

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: