Routine: AMHRNOAT

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
Mental Health Social Services	3	$$CTR^AMHLEIN ($$ALLOWP,$$ALLOWVI,$$PPINT,$$PPNAME,DBHUSR,XTMP)^AMHUTIL ($$DEMO,$$PRIMPOV,DEMOCHK)^AMHUTIL1
IHS VA Utilities	2	^XBDBQUE EN^XBVK
IHS Patient	1	($$HRN,KILL)^AUPNPAT
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
SORT	;
SET	;
ZIS	;
HEADER	;EP
BROWSE	;
PROV	;
PRINT1	;
CTR(X,Y)	;EP - Center X in a field Y wide.
START	;EP - called from option
PROC	;EP - called from xbdbque
GETDATES	;
XIT	;
ED	;get ending date
PRINT	;EP - called from xbdbque
HEADER1	;
DEMO	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1, ED+4
C^%DTC	ED+4, PROC+4
$$CTR^AMHLEIN	START+3, HEADER1+8
$$ALLOWP^AMHUTIL	PROC+10
$$ALLOWVI^AMHUTIL	PROC+8
$$PPINT^AMHUTIL	PROC+7
$$PPNAME^AMHUTIL	PRINT1+8
DBHUSR^AMHUTIL	START+8
XTMP^AMHUTIL	PROC+3
$$DEMO^AMHUTIL1	PROC+11
$$PRIMPOV^AMHUTIL1	PRINT1+9, PRINT1+10
DEMOCHK^AMHUTIL1	DEMO+1
$$HRN^AUPNPAT	PRINT1+8
KILL^AUPNPAT	XIT+2
^DIC	PROV+5
^DIR	BD+1, ED+1, PROV+2, SORT+2, ZIS+1, PRINT+2, HEADER+2
^XBDBQUE	ZIS+5, BROWSE+2
EN^XBVK	XIT+1
$$FMTE^XLFDT	PRINT1+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR^AMHLEIN(X,80) Line Location: START+3
Function Call: WRITE	Prompt: !!,"This option will print a list of visits created through EHR/PCC " Line Location: START+4
Function Call: WRITE	Prompt: !,"that do not have an Activity time. The user will be able to specify " Line Location: START+5
Function Call: WRITE	Prompt: !,"the date range and whether to include all visits or just those visits" Line Location: START+6
Function Call: WRITE	Prompt: !,"for one provider.",! Line Location: START+7
Function Call: WRITE	Prompt: !!,"Please enter the date range." Line Location: GETDATES+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !! Line Location: ZIS+4
Function Call: WRITE	Prompt: !!,"There were no visits without an activity time during the time period.",! Line Location: PRINT1+2
Function Call: WRITE	Prompt: $E($P(^AMHPROB(X,0),U,2),1,12) Line Location: PRINT1+10
Function Call: WRITE	Prompt: !!,"Total # of Patients: ",AMHPTOT," Total # of Visits: ",AMHTOT,! Line Location: PRINT1+14
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^AMHLEIN(X,80),! Line Location: HEADER1+8
Function Call: WRITE	Prompt: !,"PATIENT NAME",?20,"HRN",?27,"DATE/TIME",?46,"PROVIDER",?59,"POV" Line Location: HEADER1+9
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEADER1+10
Routine Call	DIC Line Location: PROV+5
Routine Call	DIR Line Location: BD+1 ED+1 PROV+2 SORT+2 ZIS+1 PRINT+2 HEADER+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	PRINT1+10
^AMHREC - [#9002011]	PROC+9, PROC+12, PRINT1+7, PRINT1+8
^AMHREC("B"	PROC+5, PROC+6
^DIC(4 - [#4]	HEADER1+3
^DPT - [#2]	SET+1, PRINT1+8
^VA(200 - [#200]	HEADER1+8
^XTMP("AMHRNOAT"	SET+1, SET+2, SET+4, PRINT+3!, PRINT1+2, PRINT1+4, PRINT1+5

Label References

Name	Line Occurrences
BD	ED+2
BROWSE	ZIS+3
GETDATES	PROV+3
HEADER	PRINT1+2, PRINT1+3, PRINT1+6, PRINT1+13
HEADER1	HEADER+1
PRINT1	PRINT+1
PROV	PROV+7, SORT+3
SET	PROC+13
SORT	PROV+4, DEMO+2
XIT	START+1, 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, SET+2, SET+4, PRINT+3!, PRINT1+2, PRINT1+4, PRINT1+5
>> AMHDEMO	DEMO+1, DEMO+2, PROC+11
>> AMHED	ED+3*, ED+4, PROC+5
>> AMHEDD	ED+4*, HEADER1+6
AMHJOB	PROC+2*, SET+1, SET+2, SET+4, PRINT+3!, PRINT1+2, PRINT1+4, PRINT1+5
>> AMHODAT	PROC+5*, PROC+6, SET+1
>> AMHPG	PRINT1+1, HEADER+1, HEADER1+1, HEADER1+3
>> AMHPROV	PROV+1, PROV+8, PROC+7, HEADER1+8
>> AMHPTOT	PROC+2, SET+3, PRINT1+14
AMHQ	PRINT1+1!, PRINT1+4, PRINT1+5, PRINT1+6, PRINT1+12, PRINT1+13, HEADER+2*
>> AMHR	PROC+6, PROC+7, PROC+8, PROC+9, PROC+12, SET+1, PRINT1+5, PRINT1+7, PRINT1+8, PRINT1+9 , PRINT1+10
>> AMHSD	ED+4, PROC+4, PROC+5
>> AMHSORT	SORT+1, SORT+4, SET+1, PRINT1+4*, PRINT1+5
>> AMHTEXT	HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7
>> AMHTOT	PROC+2, SET+1, PRINT1+14
DA	PROV+2!, PROV+6!, SORT+2!, ZIS+1!
>> DFN	PROC+9, PROC+10, PROC+11, SET+1, SET+2, SET+4, PRINT1+7, PRINT1+8
DIC	PROV+5*, PROV+6!
DIC("A"	PROV+5*
DIC(0	PROV+5*
DIR	BD+1!, ED+1!, PROV+2!, SORT+2!, ZIS+1!, PRINT+2!, HEADER+2!
DIR("A"	BD+1, ED+1, PROV+2, SORT+2, ZIS+1, PRINT+2
DIR("B"	PROV+2, SORT+2, ZIS+1*
DIR(0	BD+1, ED+1, PROV+2, SORT+2, ZIS+1, PRINT+2, HEADER+2*
>> DIRUT	BD+1, BD+2, ED+1, ED+2, PROV+3, SORT+3, ZIS+2, PRINT+2*
>> DTOUT	HEADER+2
>> DUOUT	BD+1, ED+1, PRINT+2
DUZ	PROC+8, PROC+10
DUZ(2	PRINT1+8, HEADER1+3
IO	PRINT+2, HEADER+2
IO(0	PRINT+2, HEADER+2
IOF	START+2, HEADER1+1
IOM	CTR+1
IOSL	PRINT1+6, PRINT1+13
IOST	PRINT+2, HEADER+2
U	PROC+9, PROC+12, SET+1, PRINT1+7, PRINT1+8, PRINT1+10, HEADER1+3, HEADER1+8
X	START+3, ED+4, PROC+4, PRINT1+10, CTR~, CTR+1, HEADER1+8*
>> 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	BD+3, ED+1, ED+3, ED+4, PROV+4, PROV+7, PROV+8, SORT+4, ZIS+3, CTR~ , CTR+1, HEADER+2

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRNOAT

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: