Routine: AMHRLP

Package	Total	Call Graph
Mental Health Social Services	3	COVPAGE^AMHRLP1 (DONE,HEAD,WRITEF)^AMHRLP2 FLAT^AMHRLP3
VA Fileman	1	EN^DIQ1

Entry Points

Name	Comments	DBIA/ICR reference
FLAT	;
HEAD	;ENTRY POINT
START	;EP - Set up header line, dash line
SINGLE	;process single valued item
DONE	;
V	;GETS DATA HITS
PRINT	;
PROC	;process printing of report
DIQ	;
MULT	;
WRITEF	;write flat file from global

External References

Name	Field # of Occurrence
COVPAGE^AMHRLP1	START+6
DONE^AMHRLP2	DONE+1
HEAD^AMHRLP2	HEAD+2
WRITEF^AMHRLP2	WRITEF+1
FLAT^AMHRLP3	FLAT+2
EN^DIQ1	DIQ+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"Total ",$S(AMHPTVS="P":"Patients",1:"Visits"),": ",AMHRCNT Line Location: PROC+8
Function Call: WRITE	Prompt: !!!,"Total Number of Suicide Forms: ",AMHRCNT Line Location: PROC+9
Function Call: WRITE	Prompt: !!,"Total Patients: ",AMHPTCT Line Location: PROC+10
Function Call: WRITE	Prompt: !!,"SUB-TOTAL for ",AMHSORV," ",AMHSRTR,": ",AMHSCNT Line Location: V+18
Function Call: WRITE	Prompt: " # of PATIENTS: ",$S($D(^XTMP("AMHRL",AMHJOB,AMHBTH,"SUB PAT COUNT",AMHSRTV)):^XTMP("AMHRL",AMHJOB,AMHBTH,"SUB PAT COUNT",AMHSRTV),1:0) Line Location: V+18
Function Call: WRITE	Prompt: !,?10,$E(AMHSRTR,1,30),?45,$J(AMHSCNT,8)," (V)",?60,$S($D(^XTMP("AMHRL",AMHJOB,AMHBTH,"SUB PAT COUNT",AMHSRTV)):$J(^XTMP("AMHRL",AMHJOB,AMHBTH,"SUB PAT COUNT",AMHSRTV),8),1:" 0")," (P)" Line Location: V+19
Function Call: WRITE	Prompt: !?10,$E(AMHSRTR,1,30),?45,$J(AMHSCNT,8) Line Location: V+20

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPSUIC - [#9002011.65]	V+4, V+11
^AMHREC - [#9002011]	V+5, V+10
^AMHSORT - [#9002013.3]	START+2, V+4, V+5, V+6, PRINT+6, SINGLE+3, MULT+2, DIQ+3
^AMHTRPT - [#9002013.8]	START+2, START+3, PRINT+5, SINGLE+4, SINGLE+5, MULT+4, MULT+5, MULT+8, MULT+9, MULT+10 , MULT+11, MULT+12
^XTMP("AMHFLAT"	START+1!
^XTMP("AMHLINE"	PRINT+3!, PRINT+9, PRINT+11, SINGLE+5, SINGLE+6, MULT+5, MULT+9, MULT+11, MULT+12, MULT+13
^XTMP("AMHRL"	PROC+2, PROC+4, V+3, V+9, V+18, V+19
^XTMP($J	FLAT+3*

Label References

Name	Line Occurrences
DONE	PROC+1, PROC+2, PROC+5, PROC+6, PROC+7
FLAT	PRINT+1
HEAD	PROC+7, V+7, V+15, PRINT+4, PRINT+10
MULT	PRINT+7
PRINT	V+10, V+11, V+12
SINGLE	PRINT+6
V	PROC+4
WRITEF	PROC+6

Naked Globals

Name	Field # of Occurrence
^(0	DIQ+3
^(3	V+4, V+5, V+6, SINGLE+3, MULT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMHBTH	PROC+2, PROC+4, V+3, V+9, V+18, V+19
>> AMHCRIT	V+3, PRINT+5, PRINT+6, SINGLE+3, MULT+2, DIQ+3
>> AMHCTYP	PROC+1, PROC+6, V+19, V+20, PRINT+1, PRINT+2, HEAD+1
>> AMHDASH	START+5*
AMHFIEL	DIQ+2!, DIQ+3*, DIQ+4, DIQ+5, DIQ+6
AMHFILE	DIQ+2!, DIQ+3*, DIQ+4, DIQ+5, DIQ+6
AMHFRST	PROC+3*, V+7, V+8!
>> AMHHDR	START+2*, START+3
>> AMHHEAD	START+2, START+3
>> AMHI	PRINT+5*, SINGLE+4, SINGLE+5, MULT+4, MULT+5, MULT+8, MULT+9, MULT+10, MULT+11, MULT+12
>> AMHJOB	PROC+2, PROC+4, V+3, V+9, V+18, V+19
>> AMHLENG	START+2, SINGLE+4, MULT+4, MULT+8, MULT+10*
>> AMHPCNT	MULT+1*
>> AMHPG	PROC+2*
AMHPRNM	MULT+1!, MULT+3
AMHPRNM(	MULT+6, MULT+10
AMHPRNM(1	MULT+8
AMHPRNT	V+4, V+5, V+6, SINGLE+1!, SINGLE+4, SINGLE+5, MULT+1!, MULT+3, MULT+4, MULT+5 , MULT+8, MULT+9, MULT+10, MULT+12, DIQ+1, DIQ+2!, DIQ+6*
AMHPRNT(	DIQ+5*, DIQ+6
>> AMHPTCT	PROC+10
>> AMHPTVS	PROC+8, PROC+9, V+4, V+5, V+6, V+10, V+11, V+18, V+19, V+20
AMHQUIT	PROC+3!, PROC+4, PROC+5, PROC+7, V+7, V+9, V+14, V+15, PRINT+4, PRINT+5 , PRINT+9, PRINT+10
>> AMHR	V+3, V+4, V+5, V+6, V+9, V+10, V+11, V+12, FLAT+3
>> AMHR0	V+4, V+5, V+10, V+11, FLAT+1
>> AMHRCNT	PROC+8, PROC+9
AMHREC	FLAT+1*, FLAT+4!
>> AMHRPT	START+2, START+3, PRINT+5, SINGLE+4, SINGLE+5, MULT+4, MULT+5, MULT+8, MULT+9, MULT+10 , MULT+11, MULT+12
>> AMHSCNT	V+1, V+18, V+19, V+20, PRINT+2
>> AMHSORT	V+3, V+4, V+5, V+6
>> AMHSORV	V+18
>> AMHSPAG	V+7, V+18
>> AMHSRTR	V+3, V+4, V+5, V+6, V+18, V+19, V+20
>> AMHSRTV	PROC+3, PROC+4, V+3, V+9, V+18, V+19
>> AMHTCW	START+5
AMHTX	FLAT+3, FLAT+4!
>> AMHX	PRINT+9, PRINT+11, SINGLE+2, MULT+1*
>> DA	DIQ+1, DIQ+5, DIQ+6
>> DFN	V+4, V+5, V+6, V+10, V+11, V+12
DIC	DIQ+4*!
DIQ	DIQ+4*!
DIQ(0	DIQ+4*
DR	DIQ+4*!
>> I	START+3, SINGLE+5, SINGLE+6, MULT+5, MULT+9, MULT+12, MULT+13*
IOSL	PROC+7, V+15, PRINT+4, PRINT+10
>> J	START+3, SINGLE+5, SINGLE+6, MULT+5, MULT+9, MULT+12, MULT+13*
>> K	START+3, SINGLE+5, SINGLE+6, MULT+5, MULT+9, MULT+11, MULT+12, MULT+13
U	START+2, START+3, V+4, V+5, V+10, V+11, PRINT+5, PRINT+6, SINGLE+4, SINGLE+5 , MULT+4, MULT+5, MULT+8, MULT+9, MULT+10, MULT+11, MULT+12, DIQ+3
X	START+2, START+3, SINGLE+6, MULT+6, MULT+7, MULT+10, MULT+11, MULT+12, MULT+13, FLAT+4!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRLP

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: