Routine: AMHRP1

Package	Total	Call Graph
Mental Health Social Services	5	^AMHEKL DONE^AMHLEIN HEADER^AMHRP11 COVPAGE^AMHRPTCP ($$PPCLSC,$$PPINI,$$PPNAME)^AMHUTIL
VA Fileman	4	DD^%DT $$GET1^DIQ EN^DIQ1 ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;
SEX
HEADER	;
PRINTB	;
DONE	;
PRINTD	;detailed print
PRINT	;EP
BDRL	;type of report

External References

Name	Field # of Occurrence
DD^%DT	PRINTD+4
^AMHEKL	DONE+1
DONE^AMHLEIN	DONE+1
HEADER^AMHRP11	HEADER+1
COVPAGE^AMHRPTCP	PRINT+3
$$PPCLSC^AMHUTIL	PRINTD+5
$$PPINI^AMHUTIL	PRINTB+4
$$PPNAME^AMHUTIL	PRINTD+5
$$GET1^DIQ	PRINTB+13, PRINTB+14, SEX+6, SEX+7
EN^DIQ1	SEX+1
^DIR	BDRL+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"Report Print Selection." Line Location: BDRL+1
Function Call: WRITE	Prompt: !,$E($P(AMHR0,U),4,5),"/",$E($P(AMHR0,U),6,7),"/",$E($P(AMHR0,U),2,3),?10,$$PPINI^AMHUTIL(AMHR) Line Location: PRINTB+4
Function Call: WRITE	Prompt: ?15,$S($P(^AUTTLOC($P(AMHR0,U,4),0),U,7)]"":$P(^(0),U,7),1:$E($P(^AUTTLOC($P(AMHR0,U,4),0),U),1,4)) Line Location: PRINTB+5
Function Call: WRITE	Prompt: ?20,$E($P(^DPT($P(AMHR0,U,8),0),U),1,12) Condition for execution: $P(AMHR0,U,8) Line Location: PRINTB+5
Function Call: WRITE	Prompt: ?34,$S($P(AMHR0,U,6)]"":$P(^AMHTACT($P(AMHR0,U,6),0),U),1:""),?37,$S($P(AMHR0,U,7)]"":$E($P(^AMHTSET($P(AMHR0,U,7),0),U),1,4),1:""),?42,$P(AMHR0,U,12) Line Location: PRINTB+6
Function Call: WRITE	Prompt: ?46,$P(^AUTTLOC($P(AMHR0,U,4),0),U,7),$P(^AUPNPAT($P(AMHR0,U,8),41,$P(AMHR0,U,4),0),U,2) Line Location: PRINTB+8
Function Call: WRITE	Prompt: ?46,$P(^AUTTLOC(DUZ(2),0),U,7),$P(^AUPNPAT($P(AMHR0,U,8),41,DUZ(2),0),U,2) Line Location: PRINTB+9
Function Call: WRITE	Prompt: ?46,"-----" Line Location: PRINTB+11
Function Call: WRITE	Prompt: ?57,"No Problems recorded" Line Location: PRINTB+12
Function Call: WRITE	Prompt: ?57,$P(^AMHPROB($P(^AMHRPRO(AMHP,0),U),0),U) Line Location: PRINTB+13
Function Call: WRITE	Prompt: ?66,$E($$GET1^DIQ(9002011.01,AMHP,.04),1,14) Condition for execution: $P(^AMHRPRO(AMHP,0),U,4) Line Location: PRINTB+13
Function Call: WRITE	Prompt: !?57,$P(^AMHPROB($P(^AMHRPRO(AMHP,0),U),0),U) Line Location: PRINTB+14
Function Call: WRITE	Prompt: ?66,$E($$GET1^DIQ(9002011.01,AMHP,.04),1,14) Line Location: PRINTB+14
Function Call: WRITE	Prompt: !,$E($P(AMHR0,U),4,5),"/",$E($P(AMHR0,U),6,7),"/",$E($P(AMHR0,U),2,3) Line Location: PRINTD+4
Function Call: WRITE	Prompt: ?9,"@" Line Location: PRINTD+4
Function Call: WRITE	Prompt: ?9,"@" Line Location: PRINTD+4
Function Call: WRITE	Prompt: ?16,$E($$PPNAME^AMHUTIL(AMHR),1,17),?34,$$PPCLSC^AMHUTIL(AMHR) Line Location: PRINTD+5
Function Call: WRITE	Prompt: ?39,$P(AMHR0,U,2),?42,$S($P(^AUTTLOC($P(AMHR0,U,4),0),U,7)]"":$P(^(0),U,7),1:$E($P(^AUTTLOC($P(AMHR0,U,4),0),U),1,4)) Line Location: PRINTD+6
Function Call: WRITE	Prompt: ?47,$E($P(^DPT($P(AMHR0,U,8),0),U),1,12) Condition for execution: $P(AMHR0,U,8) Line Location: PRINTD+6
Function Call: WRITE	Prompt: ?60,$S($P(AMHR0,U,6)]"":$P(^AMHTACT($P(AMHR0,U,6),0),U),1:""),?64,$P(AMHR0,U,12),?68,$S($P(AMHR0,U,7)]"":$E($P(^AMHTSET($P(AMHR0,U,7),0),U),1,4),1:"") Line Location: PRINTD+7
Function Call: WRITE	Prompt: ?74,$P(^AUTTLOC($P(AMHR0,U,4),0),U,7),$P(^AUPNPAT($P(AMHR0,U,8),41,$P(AMHR0,U,4),0),U,2) Line Location: PRINTD+9
Function Call: WRITE	Prompt: ?74,$P(^AUTTLOC(DUZ(2),0),U,7),$P(^AUPNPAT($P(AMHR0,U,8),41,DUZ(2),0),U,2) Line Location: PRINTD+10
Function Call: WRITE	Prompt: ?90,^UTILITY("DIQ1",$J,9000001,$P(AMHR0,U,8),1102.99,"E") Line Location: SEX+2
Function Call: WRITE	Prompt: ?74,"-----" Line Location: SEX+4
Function Call: WRITE	Prompt: ?100,"No Problems recorded" Line Location: SEX+5
Function Call: WRITE	Prompt: ?93,$P(^AMHPROB($P(^AMHRPRO(AMHP,0),U),0),U) Line Location: SEX+6
Function Call: WRITE	Prompt: ?102,$E($$GET1^DIQ(9002011.01,AMHP,.04),1,30) Condition for execution: $P(^AMHRPRO(AMHP,0),U,4) Line Location: SEX+6
Function Call: WRITE	Prompt: !?93,$P(^AMHPROB($P(^AMHRPRO(AMHP,0),U),0),U) Line Location: SEX+7
Function Call: WRITE	Prompt: ?102,$E($$GET1^DIQ(9002011.01,AMHP,.04),1,30) Line Location: SEX+7
Routine Call	DIR Line Location: BDRL+2

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AMHRPRO - [#9002011.01]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	PRINTB+13, PRINTB+14, SEX+6, SEX+7
^AMHREC - [#9002011]	PRINT1+3, PRINT1+7
^AMHRPRO - [#9002011.01]	PRINTB+13, PRINTB+14, SEX+6, SEX+7
^AMHRPRO("AD"	PRINTB+12, PRINTB+14, SEX+5, SEX+7
^AMHSORT - [#9002013.3]	PRINT1+3
^AMHTACT - [#9002012]	PRINTB+6, PRINTD+7
^AMHTSET - [#9002012.1]	PRINTB+6, PRINTD+7
^AUPNPAT - [#9000001]	PRINTB+8, PRINTB+9, PRINTD+9, PRINTD+10
^AUTTLOC - [#9999999.06]	PRINTB+5, PRINTB+8, PRINTB+9, PRINTD+6, PRINTD+9, PRINTD+10
^DPT - [#2]	PRINTB+5, PRINTD+6, SEX
^UTILITY("DIQ1"	SEX+1!, SEX+2!
^XTMP("AMHRPT"	PRINT+4, PRINT+6, DONE+2!, PRINT1+2, PRINT1+7

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMHBT	DONE+2, DONE+3!
AMHBTH	PRINT+4, PRINT+6, DONE+3!, PRINT1+2, PRINT1+7
>> AMHCRIT	PRINT1+2*
>> AMHCW	PRINT+1*
AMHET	DONE+3!
AMHFRST	PRINT+5*, PRINT1+5, PRINT1+6!
AMHJOB	PRINT+4, PRINT+6, DONE+2, DONE+3!, PRINT1+2, PRINT1+7
>> AMHP	PRINTB+12, PRINTB+13, PRINTB+14, SEX+5, SEX+6, SEX+7
>> AMHPG	PRINT+5*
AMHQUIT	BDRL+3*, PRINT+5!, PRINT+6, PRINT+7, PRINT+8, PRINT1+5, PRINT1+7, PRINT1+8, PRINTB+2, PRINTD+2
>> AMHR	PRINT1+2, PRINT1+3, PRINT1+5, PRINT1+7*, PRINTB+4, PRINTB+12, PRINTB+14, PRINTD+5, SEX+5, SEX+7
>> AMHR0	PRINT1+3, PRINT1+7, PRINTB+4, PRINTB+5, PRINTB+6, PRINTB+7, PRINTB+8, PRINTB+9, PRINTD+4, PRINTD+6 , PRINTD+7, PRINTD+8, PRINTD+9, PRINTD+10, SEX, SEX+1, SEX+2
>> AMHRCNT	PRINT+5, PRINTB+3, PRINTD+3*
>> AMHRSRT	PRINT+5, PRINT+6, PRINT1+2, PRINT1+7, PRINT1+9
>> AMHRTYPE	BDRL+4*, PRINT+1, PRINT1+7
>> AMHSCNT	PRINT1+5, PRINT1+9, PRINTB+1, PRINTD+1*
>> AMHSORT	PRINT1+2, PRINT1+3
>> AMHSORV	PRINT1+9
>> AMHSPAG	PRINT1+5, PRINT1+9, PRINTB+1, PRINTD+1
>> AMHSRTR	PRINT1+2*
>> DA	SEX+1*
>> DFN	PRINT1+3*
>> DIC	SEX+1*
>> DIQ(0	SEX+1*
DIR	BDRL+2!
DIR("A"	BDRL+2*
DIR("B"	BDRL+2*
DIR(0	BDRL+2*
>> DIRUT	BDRL+2*, BDRL+3
>> DR	SEX+1*
>> DUOUT	BDRL+2
DUZ(2	PRINTB+9, PRINTD+10
IOSL	PRINT+8, PRINT1+8, PRINTB+2, PRINTD+2
U	PRINT1+3, PRINTB+4, PRINTB+5, PRINTB+6, PRINTB+7, PRINTB+8, PRINTB+9, PRINTB+13, PRINTB+14, PRINTD+4 , PRINTD+6, PRINTD+7, PRINTD+8, PRINTD+9, PRINTD+10, SEX, SEX+1, SEX+2, SEX+6, SEX+7
>> Y	BDRL+4, PRINTD+4*

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRP1

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
@(	PRINT1+7
DONE	PRINT+4, PRINT+7, PRINT+8
HEADER	PRINT+8, PRINT1+5, PRINT1+8, PRINTB+2, PRINTD+2
PRINT1	PRINT+6
SEX	PRINTD+9, PRINTD+10