Routine: AMHRNS

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
IHS VA Utilities	3	^XBDBQUE $$VAL^XBDIQ1 EN^XBVK
Mental Health Social Services	3	PAUSE^AMHLEA ($$ALLOWP,$$ALLOWVI,$$PPNAME,DBHUSR,NALLOWP,XTMP)^AMHUTIL $$PRIMPOV^AMHUTIL1
IHS Patient	1	KILL^AUPNPAT
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Mental Health Social Services	1	AMHBHRP9
Patient Chart	1	BPCBHRP9

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
SET	;
ZIS	;
HEADER	;EP
BROWSE	;
ED	;get ending date
PRINT	;EP - called from xbdbque
GETPAT	;
START	;EP - called from option
GETDATES	;
XIT	;
CTR(X,Y)	;EP - Center X in a field Y wide.
PROG	;select program to run report for
HEADER1	;
PROC	;EP - called from xbdbque

External References

Name	Field # of Occurrence
DD^%DT	ED+1, ED+4
C^%DTC	ED+4, PROC+4
PAUSE^AMHLEA	GETPAT+7
$$ALLOWP^AMHUTIL	GETPAT+7, PROC+10
$$ALLOWVI^AMHUTIL	PROC+9
$$PPNAME^AMHUTIL	PRINT+6
DBHUSR^AMHUTIL	START+4
NALLOWP^AMHUTIL	GETPAT+7
XTMP^AMHUTIL	PROC+3
$$PRIMPOV^AMHUTIL1	PRINT+7, PRINT+8
KILL^AUPNPAT	XIT+2
^DIC	GETPAT+3
^DIR	BD+1, ED+1, PROG+2, ZIS+1, HEADER+2
^XBDBQUE	ZIS+5, BROWSE+2
$$VAL^XBDIQ1	PRINT+6
EN^XBVK	XIT+1
$$FMTE^XLFDT	GETPAT+6, PRINT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will print a list of one patient's no show visits.",! Line Location: START+3
Function Call: WRITE	Prompt: ! Line Location: GETPAT+2
Function Call: WRITE	Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!! Line Location: GETPAT+6
Function Call: WRITE	Prompt: !!,"Please enter the range of dates for the No Show visits" Line Location: GETDATES+1
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !! Line Location: ZIS+4
Function Call: WRITE	Prompt: !!,"There were no NO SHOW visits for this patient during the time period.",! Line Location: PRINT+2
Function Call: WRITE	Prompt: $E($P(^AMHPROB(X,0),U,2),1,20) Line Location: PRINT+8
Function Call: WRITE	Prompt: !!,"Total # of No Show Visits: ",AMHTOT,! Line Location: PRINT+10
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEADER1+2
Function Call: WRITE	Prompt: !?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),?($S(80=132:120,1:72)),"Page ",AMHPG,! Line Location: HEADER1+3
Function Call: WRITE	Prompt: !?(80-$L(AMHTEXT)/2),AMHTEXT,! Line Location: HEADER1+5
Function Call: WRITE	Prompt: ?(80-$L(AMHTEXT)/2),AMHTEXT,! Line Location: HEADER1+7
Function Call: WRITE	Prompt: !,$$CTR(X,80),! Line Location: HEADER1+8
Function Call: WRITE	Prompt: $TR($J(" ",80)," ","=") Line Location: HEADER1+9
Function Call: WRITE	Prompt: !," DATE",?25,"PROVIDER",?45,"PROGRAM",?53,"POV" Line Location: HEADER1+10
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEADER1+11
Routine Call	DIC Line Location: GETPAT+3
Routine Call	DIR Line Location: BD+1 ED+1 PROG+2 ZIS+1 HEADER+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	PROC+12, PROC+13, PROC+14, PROC+15, PROC+16, PROC+17, PRINT+8
^AMHREC - [#9002011]	PROC+7, PROC+10, PROC+18, PRINT+6
^AMHREC("AF"	PROC+5, PROC+6
^AMHRPRO - [#9002011.01]	PROC+12, PROC+13, PROC+14, PROC+15, PROC+16, PROC+17
^AMHRPRO("AD"	PROC+11
^DIC(4 - [#4]	HEADER1+3
^DPT - [#2]	HEADER1+4
^XTMP("AMHRNS"	SET+1*, PRINT+2, PRINT+4, PRINT+11!

Label References

Name	Line Occurrences
BD	ED+2, PROG+3
BROWSE	ZIS+3
GETPAT	GETPAT+7
HEADER	PRINT+2, PRINT+3, PRINT+5
HEADER1	HEADER+1
SET	PROC+12, PROC+13, PROC+14, PROC+15, PROC+16, PROC+17, PROC+18
XIT	START+1, GETPAT+4, BD+2, ZIS+2, ZIS+3, ZIS+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMHBD	BD+3*, ED+1, ED+4, PROC+4
>> AMHBDD	ED+4*, HEADER1+6
>> AMHBT	PROC+2*, SET+1, PRINT+2, PRINT+4, PRINT+11
>> AMHDNKA	PROC+11, PROC+12, PROC+13, PROC+14, PROC+15, PROC+16, PROC+17*
>> AMHED	ED+3*, ED+4, PROC+5
>> AMHEDD	ED+4*, HEADER1+6
>> AMHJOB	PROC+2*, SET+1, PRINT+2, PRINT+4, PRINT+11
>> AMHODAT	PROC+5*, PROC+6
>> AMHPAT	GETPAT+5*, GETPAT+7, PROC+5, PROC+6, HEADER1+4
>> AMHPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+3
>> AMHPROG	PROG+1, PROG+4, PROC+7
AMHQ	PRINT+1!, PRINT+4, PRINT+5, HEADER+2*
>> AMHR	PROC+6, PROC+7, PROC+9, PROC+10, PROC+11, PROC+18, SET+1, PRINT+4, PRINT+6, PRINT+7 , PRINT+8
>> AMHSD	ED+4, PROC+4, PROC+5
>> AMHTEXT	HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7
>> AMHTOT	PROC+2, SET+1, PRINT+10
>> AMHX	PROC+11*, PROC+12, PROC+13, PROC+14, PROC+15, PROC+16, PROC+17
>> AUPNDOD	GETPAT+6
DA	ZIS+1!
>> DFN	GETPAT+1, GETPAT+5
DIC	GETPAT+3*!
DIC(0	GETPAT+3*
DIR	BD+1!, ED+1!, PROG+2!, ZIS+1!, HEADER+2!
DIR("A"	BD+1, ED+1, PROG+2, ZIS+1
DIR("B"	PROG+2, ZIS+1
DIR(0	BD+1, ED+1, PROG+2, ZIS+1, HEADER+2*
>> DIRUT	BD+1, BD+2, ED+1, ED+2, PROG+2*, PROG+3, ZIS+2
>> DTOUT	HEADER+2
>> DUOUT	BD+1, ED+1, PROG+2
DUZ	GETPAT+7, PROC+9, PROC+10
DUZ(2	HEADER1+3
IO	HEADER+2
IO(0	HEADER+2
IOF	START+2, HEADER1+1
IOM	CTR+1
IOSL	PRINT+5
IOST	HEADER+2
U	PROC+7, PROC+10, PROC+12, PROC+13, PROC+14, PROC+15, PROC+16, PROC+17, PROC+18, PRINT+6 , PRINT+8, HEADER1+3, HEADER1+4
X	ED+4, PROC+4, PRINT+8*, CTR~, CTR+1
>> X1	ED+4, PROC+4
>> X2	ED+4, PROC+4
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+4, BROWSE+2
>> XBRC	ZIS+4, BROWSE+2
>> XBRP	ZIS+4, BROWSE+1
>> XBRX	ZIS+4, BROWSE+2
Y	GETPAT+4, GETPAT+5, BD+3, ED+1, ED+3, ED+4, PROG+4, ZIS+3, CTR~, CTR+1 , HEADER+2

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRNS

Information

Source Information

Call Graph

Call Graph Total: 12

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

Local Variables

Legend: