Routine: AMHRE1

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK EN^XBVK
Mental Health Social Services	4	$$LVD^AMHDPEE PAUSE^AMHLEA ($$ALLOWP,$$ALLOWVI,$$PPINI,DBHUSR,DBHUSRP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
VA Fileman	3	DD^%DT ^DIC ^DIR
Kernel	2	HOME^%ZIS ($$FMADD,$$FMTE)^XLFDT
IHS Patient	1	($$DOB,$$HRN)^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
DEMO	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DONE	;
D(D)	;
PRINT	;EP - called from xbdbque
PROB2	;
PROB1	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
PROBCODE	;
INFORM	;inform user what this report is all about
HEADER1	;
ZIS	;
ED	;get ending date
START	;
XIT	;
PROC1	;
HEADER	;EP
TYPE	; type of problem code
GETDATES	;
PROBLIST	;get problem list
PROC	;EP - called from xbdbque

External References

Name	Field # of Occurrence
DD^%DT	ED+1
HOME^%ZIS	START+2
$$LVD^AMHDPEE	PRINT+10
PAUSE^AMHLEA	INFORM+4
$$ALLOWP^AMHUTIL	PROC1+3
$$ALLOWVI^AMHUTIL	PROC1+1
$$PPINI^AMHUTIL	PRINT+10
DBHUSR^AMHUTIL	INFORM+4
DBHUSRP^AMHUTIL	INFORM+4
$$DEMO^AMHUTIL1	PROC1+4
DEMOCHK^AMHUTIL1	DEMO+1
$$DOB^AUPNPAT	PRINT+7
$$HRN^AUPNPAT	PRINT+7
^DIC	PROB1+1, PROB2+1
^DIR	TYPE+2, BD+2, ED+1, ZIS+1, EOP+5, DONE+1, HEADER+2
^XBDBQUE	ZIS+5, BROWSE+2
$$VAL^XBDIQ1	PRINT+16, PRINT+17, PRINT+18
^XBFMK	XIT+1
EN^XBVK	XIT+1
$$FMADD^XLFDT	ED+4, PROC+2
$$FMTE^XLFDT	HEADER1+2, HEADER1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+3
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!! Line Location: START+5
Function Call: WRITE	Prompt: ! Line Location: PROB1+1
Function Call: WRITE	Prompt: !!,"No problems selected. Exiting." Line Location: PROB1+2
Function Call: WRITE	Prompt: ! Line Location: PROB2+1
Function Call: WRITE	Prompt: !!,"No problems selected. Exiting." Line Location: PROB2+2
Function Call: WRITE	Prompt: !!,"The following Problem/Diagnosis codes will be included: " Line Location: PROB2+5
Function Call: WRITE	Prompt: " ",$P(^AMHPROB(X,0),U) Line Location: PROB2+6
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: GETDATES+1
Function Call: WRITE	Prompt: !,"You have selected the following Problem/Diagnosis Codes" Line Location: GETDATES+1
Function Call: WRITE	Prompt: !?5,$P(^AMHPROB(X,0),U),?13,$P(^AMHPROB(X,0),U,2) Line Location: GETDATES+2
Function Call: WRITE	Prompt: !!!,"Please enter the date range during which the patient should have been seen ",!,"with one of these problems.",! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!,"This report will list all patients who have been seen for a diagnosis/problem",!,"selected by the user in the date range selected by the user. For example," Line Location: INFORM+1
Function Call: WRITE	Prompt: !,"you may enter all suicide problem codes (39, 40, 41) and you will get a list",!,"of all patients seen for suicide and can then use this report",!,"to assist in follow up activities.",! Line Location: INFORM+2
Function Call: WRITE	Prompt: !!,"The report will list Designated Provider, Patient Name, date seen for",!,"this problem, and date last seen.",!! Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: PRINT+2
Function Call: WRITE	Prompt: ?47,$$PPINI^AMHUTIL(AMHR),?52,$P(^AMHPROB(AMHP,0),U),?62,$$D($P(^AMHREC(AMHR,0),U)),?72,$$D($$LVD^AMHDPEE(DFN,"ID")) Line Location: PRINT+10
Function Call: WRITE	Prompt: !?3,"Designated MH Prov: ",$E($$VAL^XBDIQ1(9002011.55,DFN,.02),1,20) Line Location: PRINT+16
Function Call: WRITE	Prompt: !?3,"Designated SS Prov: ",$E($$VAL^XBDIQ1(9002011.55,DFN,.03),1,20) Line Location: PRINT+17
Function Call: WRITE	Prompt: ?$S(AMHS:42,1:3),"Desginated CD Prov: ",$E($$VAL^XBDIQ1(9002011.55,DFN,.04),1,20) Line Location: PRINT+18
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",AMHPG,! Line Location: HEADER1+2
Function Call: WRITE	Prompt: !,$$CTR("PATIENTS SEEN WITH SELECTED DIAGNOSES/PROBLEMS",80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: !,"PATIENT NAME",?27,"HRN",?34,"DOB",?43,"SEX",?47,"PROV",?52,"DX",?62,"DATE SEEN",?72,"LAST VIS" Line Location: HEADER1+5
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+6
Routine Call	%ZIS Line Location: START+2
Routine Call	DIC Line Location: PROB1+1 PROB2+1
Routine Call	DIR Line Location: TYPE+2 BD+2 ED+1 ZIS+1 EOP+5 DONE+1 HEADER+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMHPROB - [#9002012.2]	Classic Fileman Calls
^AMHPROBC - [#9002012.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPATR - [#9002011.55]	PRINT+16, PRINT+17, PRINT+18
^AMHPROB - [#9002012.2]	PROB2+6, GETDATES+2, PRINT+10, PRINT+12
^AMHPROB("AC"	PROB2+6
^AMHREC - [#9002011]	PROC+7, PRINT+10, PRINT+12
^AMHREC("B"	PROC+6, PROC+7
^AMHRPRO - [#9002011.01]	PROC1+7
^AMHRPRO("AD"	PROC1+5, PROC1+7
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	PROC1+8, PROC1+9, PRINT+7
^VA(200 - [#200]	USR+1, HEADER1+2
^XTMP("AMHRE1"	PROC+2, PROC+4!, PROC1+8, PROC1+9, PRINT+2, PRINT+4, PRINT+5, PRINT+8, PRINT+9, DONE+4!

Label References

Name	Line Occurrences
$$CTR	HEADER1+3, HEADER1+4
$$D	PRINT+7, PRINT+10, PRINT+12
BD	ED+2
BROWSE	ZIS+3
DONE	PRINT+2
GETDATES	PROB1+3, PROB1+4, PROB2+3, PROB2+4, DEMO+2
HEADER	PRINT+1, PRINT+6, PRINT+11, PRINT+15
HEADER1	HEADER+1
INFORM	START+6
PROB1	PROB1+6
PROB2	PROB2+7
PROBCODE	TYPE+5
PROC1	PROC+7
XIT	START+1, TYPE+3, PROB1+2, PROB2+2, BD+3, ZIS+2, ZIS+3

Naked Globals

Name	Field # of Occurrence
^(0	PROC+7, USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMHBD	BD+4*, ED+1, ED+4, HEADER1+4
>> AMHBT	PROC+1*
>> AMHC	PROBLIST+1, PROB1+1, PROB1+5, PROBCODE+1, PROB2+1, PROB2+6, PRINT+8, PRINT+10
>> AMHCNT	PROC+3*
>> AMHDEMO	DEMO+1, DEMO+2, PROC1+4
>> AMHED	ED+3*, PROC+6, HEADER1+4
AMHET	PROC+8*, DONE+3!
>> AMHFOUND	PROC1+7*
AMHH	PROC+3*, PROC+4, PROC1+8, PROC1+9, PRINT+2, PRINT+4, PRINT+5, PRINT+8, PRINT+9, DONE+4!
AMHJ	PROC+3*, PROC+4, PROC1+8, PROC1+9, PRINT+2, PRINT+4, PRINT+5, PRINT+8, PRINT+9, DONE+4!
AMHM	DONE+3!
>> AMHNAME	PRINT+4*, PRINT+5, PRINT+7, PRINT+8, PRINT+9
>> AMHP	PRINT+8*, PRINT+9, PRINT+10, PRINT+12
>> AMHPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+2
AMHPROB	PROBLIST+1!, PROB1+2, PROBCODE+1!, PROB2+2
AMHPROB(	PROB1+5, PROB2+6, GETDATES+2, PROC1+7
AMHPROB(0	PROB1+3, PROB1+4, PROB2+3, PROB2+4
>> AMHPTYPE	TYPE+1, TYPE+4, TYPE+5
AMHQ	START+4!, PRINT+3!, PRINT+4, PRINT+5, PRINT+6, PRINT+8, PRINT+11, PRINT+15, HEADER+2*
>> AMHR	PROC+7, PROC1+1, PROC1+5, PROC1+7, PROC1+9, PRINT+9, PRINT+10, PRINT+12
>> AMHR0	PROC+7*, PROC1+2
>> AMHRCNT	PROC+7*
AMHS	PRINT+17*, PRINT+18, DONE+3!
>> AMHSD	ED+4, PROC+6, PROC+7
>> AMHSORT	PROC1+7*
AMHTS	DONE+3!
D	D~, D+1, D+2
DA	TYPE+2!, ZIS+1!
>> DFN	PROC1+2, PROC1+3, PROC1+4, PROC1+8, PROC1+9, PRINT+3, PRINT+5*, PRINT+7, PRINT+8, PRINT+9 , PRINT+10, PRINT+16, PRINT+17, PRINT+18
DFOUT	EOP+4!
DIC	PROB1+1!, PROB2+1!
DIC("A"	PROB1+1, PROB2+1
DIC(0	PROB1+1, PROB2+1
DIR	TYPE+2!, BD+2!, ED+1!, ZIS+1!, EOP+3~, DONE+1!, HEADER+2!
DIR("A"	TYPE+2, BD+2, ED+1, ZIS+1, EOP+5, DONE+1
DIR("B"	TYPE+2, ZIS+1
DIR(0	TYPE+2, BD+2, ED+1, ZIS+1, EOP+5, DONE+1, HEADER+2*
DIRUT	TYPE+3, BD+2, BD+3, ED+1, ED+2, ZIS+2, EOP+4!, DONE+1*
DLOUT	EOP+4!
DT	PROC+2, HEADER1+2
DTOUT	EOP+4!, HEADER+2
DUOUT	BD+2, ED+1, EOP+4!, DONE+1
DUZ	PROC1+1, PROC1+3, USR+1, HEADER1+2
DUZ(2	START+5, LOC+1, PRINT+7
IO	DONE+1, HEADER+2
IO("S"	EOP+2
IO(0	DONE+1, HEADER+2
IOF	START+2, START+3, GETDATES+1, DONE+2, HEADER1+1
IOM	CTR+1
IOSL	PRINT+6, PRINT+11, PRINT+15
IOST	EOP+1, DONE+1, HEADER+2
>> IOT	EOP+2
>> P	PROC1+7*, PROC1+8, PROC1+9
U	PROB2+6, GETDATES+2, PROC+7, PROC1+2, PROC1+7, PROC1+8, PROC1+9, USR+1, LOC+1, PRINT+7 , PRINT+10, PRINT+12, PRINT+16, PRINT+17, PRINT+18, HEADER1+2
X	PROB1+4, PROB2+4, PROB2+6, GETDATES+2, PROC1+7, CTR~, CTR+1, HEADER1+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	TYPE+4, PROB1+2, PROB1+3, PROB1+5, PROB2+2, PROB2+3, PROB2+6, BD+4, ED+1*, ED+3 , ZIS+3, CTR~, CTR+1, HEADER+2
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRE1

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: