Routine: AMHRC1P

Information

AMHRC1P ; IHS/CMI/LAB - print active client list (using case open/close) ;

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Mental Health Social Services	3	^AMHEKL DONE^AMHLEIN $$CTR^AMHRP4P
IHS VA Utilities	2	$$VAL^XBDIQ1 $$EXTSET^XBFUNC
Kernel	1	$$FMDIFF^XLFDT
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PIH
HEAD
HEAD1	;
PRN	;
START	;
DFN	;
DONE
D(D)	;
PRINT	;

External References

Name	Field # of Occurrence
^AMHEKL	DONE
DONE^AMHLEIN	DONE
$$CTR^AMHRP4P	HEAD1+5
^DIR	HEAD+1
$$VAL^XBDIQ1	PRN+6
$$EXTSET^XBFUNC	HEAD1+5
$$FMDIFF^XLFDT	PRN+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: START+3
Function Call: WRITE	Prompt: !!,"Total Number of Patients: ",AMHPCNT,! Line Location: START+8
Function Call: WRITE	Prompt: "Total Number of Cases: ",AMHCCNT,! Line Location: START+9
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,15),?18,AMHHRCN Line Location: PRN+3
Function Call: WRITE	Prompt: ?26,$P(^DPT(DFN,0),U,2) Line Location: PRN+4
Function Call: WRITE	Prompt: ?28,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: PRN+4
Function Call: WRITE	Prompt: ?38,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: PRN+5
Function Call: WRITE	Prompt: ?48,$E($$VAL^XBDIQ1(9002011.58,AMHCASE,.08),1,12) Line Location: PRN+6
Function Call: WRITE	Prompt: ?62,$$D(D) Line Location: PRN+8
Function Call: WRITE	Prompt: ?72,$S(D="":"not seen",1:$$FMDIFF^XLFDT(DT,D)) Line Location: PRN+9
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page ",AMHPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: $$CTR^AMHRP4P(X,80),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: ?10,"ACTIVE CLIENT LIST (CASE OPEN & NOT SEEN IN ",AMHDAYS," DAYS)" Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,"PATIENT NAME",?18,"CHART",?25,"SEX",?31,"DOB",?38,"CASE OPEN",?48,"PROVIDER",?62,"DATE LAST",?72,"# DAYS" Line Location: PIH+0
Function Call: WRITE	Prompt: !?18,"NUMBER",?38,"DATE",?62,"SEEN",?72,"SINCE",!,AMH80D Line Location: PIH+1
Routine Call	DIR Line Location: HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPCASE - [#9002011.58]	DFN+1
^AUPNPAT - [#9000001]	PRN+2
^DIC(4 - [#4]	HEAD1+4
^DPT - [#2]	PRN+3, PRN+4
^VA(200 - [#200]	HEAD1+3
^XTMP("AMHRC1"	START+3, START+5, START+6, DONE+1!, DFN+1, PRN+7

Label References

Name	Line Occurrences
$$D	PRN+8
DFN	START+6
DONE	START+3, START+7
HEAD	START+2, PRN+1
HEAD1	HEAD
PRN	DFN+1

Naked Globals

Name	Field # of Occurrence
^(0	PRN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMH80D	START+1*, PIH+1
AMHBTH	START+3, START+5, START+6, DONE+1!, DFN+1, PRN+7
>> AMHCASE	DFN+1*, PRN+6, PRN+7
>> AMHCCNT	START+9
>> AMHDAYS	HEAD1+6
>> AMHHRCN	PRN+2*, PRN+3
AMHJOB	START+3, START+5, START+6, DONE+1!, DFN+1, PRN+7
>> AMHNAME	START+5*, START+6, DFN+1, PRN+7
>> AMHPCNT	START+8
>> AMHPG	START+2, HEAD, HEAD1+1, HEAD1+3
>> AMHPROG	HEAD1+5
AMHQ	START+4!, START+5, START+6, START+7, DFN+1, PRN+1, HEAD+1*
>> AMHR	DFN+1*, PRN+5
D	PRN+7*, PRN+8, PRN+9, D~, D+1, D+2
>> DFN	START+4, START+6, DFN+1, PRN+2, PRN+3, PRN+4, PRN+7
DIR	HEAD+1!
DIR(0	HEAD+1*
DT	PRN+9
>> DTOUT	HEAD+1
DUZ	HEAD1+3
DUZ(2	PRN+2, HEAD1+4
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	PRN+1
IOST	HEAD+1
U	PRN+2, PRN+3, PRN+4, PRN+5, PRN+7, HEAD1+3, HEAD1+4
>> X	HEAD1+5*
>> Y	PRN+4, PRN+5, HEAD+1

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRC1P

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: