Routine: APCLACC1

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIR
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	DONE^APCLOSUT

Entry Points

Name	Comments	DBIA/ICR reference
HEAD
MAJTOT	;print major sort totals
HEAD1	;
MINOR1	;
START	;
DONE	;
TEMPLATE	;create template
MAJTOT1
MINOR	;

External References

Name	Field # of Occurrence
DONE^APCLOSUT	DONE+1
^DIC	TEMPLATE+2
^DIE	TEMPLATE+7
^DIR	HEAD+1
$$FMTE^XLFDT	TEMPLATE+2, HEAD1+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?50,"------",?67,"------",! Line Location: START+13
Function Call: WRITE	Prompt: ?39,"Total:",?50,$J(APCL1,6),?67,$J(APCL2,6),! Line Location: START+14
Function Call: WRITE	Prompt: !,APCLMAJ Line Location: MINOR+2
Function Call: WRITE	Prompt: ! Condition for execution: APCLSUB=1 Line Location: MINOR+2
Function Call: WRITE	Prompt: !?5,$E(APCLMIN,1,45) Line Location: MINOR1+7
Function Call: WRITE	Prompt: ?APCLT,$J((@APCLVAR),6) Line Location: MINOR1+7
Function Call: WRITE	Prompt: !?50,"------",?67,"------",! Line Location: MAJTOT+3
Function Call: WRITE	Prompt: ?39,"Subtotal:" Line Location: MAJTOT+4
Function Call: WRITE	Prompt: ?APCLI,$J($P(^XTMP("APCLACCR",APCLJOB,APCLBT,"SUBTOTAL",APCLMAJ),U,APCLP),6) Line Location: MAJTOT1+0
Function Call: WRITE	Prompt: ! Line Location: MAJTOT1+1
Function Call: WRITE	Prompt: !!,"SEARCH TEMPLATE CREATION FAILED." Line Location: TEMPLATE+3
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: $P(^DIC(4,DUZ(2),0),U),?60,APCLDTP,?72,"Page ",APCLPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,"Registration and Active Patient Counts for ",$S(APCLIND=1:"Indian",1:"all")," Patients registered ",$S(APCLFS="F":"at ",1:"in ") Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,% Line Location: HEAD1+5
Function Call: WRITE	Prompt: !?((80-$L(%))/2),% Line Location: HEAD1+7
Function Call: WRITE	Prompt: $S(APCLSORT="C":"Tribe of Membership.",1:"Community of Residence.") Line Location: HEAD1+9
Function Call: WRITE	Prompt: ! Line Location: HEAD1+10
Function Call: WRITE	Prompt: "Active Patient were those seen between ",APCLFYBY," and ",APCLFYEY,".",! Line Location: HEAD1+13
Function Call: WRITE	Prompt: !!!,"*** SEARCH TEMPLATE 'ACTIVE USERS AS OF "_$$FMTE^XLFDT(APCLFYE,"2E")_"' HAS BEEN CREATED **" Line Location: HEAD1+14
Function Call: WRITE	Prompt: !,$S(APCLSORT="C":"Current Community of Residence",APCLSORT="T":"Tribe of Membership",1:"Service Unit of Residence"),?50,"Reg Pts Living",?67,"Active" Line Location: HEAD1+15
Function Call: WRITE	Prompt: !,APCL80D Line Location: HEAD1+17
Routine Call	DIE Line Location: TEMPLATE+7
Routine Call	DIC Line Location: TEMPLATE+2
Routine Call	DIR Line Location: HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC - [#9999999.06]	START+6
^AUTTSU - [#9999999.22]	START+4, START+6
^DIBT(	TEMPLATE+4!, TEMPLATE+8*
^DIC(4 - [#4]	START+6, HEAD1+2
^XTMP("APCLACC SU"	DONE+2!
^XTMP("APCLACC"	START+10, DONE+2!, MINOR+3, MINOR1+2, MINOR1+3, TEMPLATE+8
^XTMP("APCLACCR"	DONE+2!, MINOR1+1, MINOR1+2, MAJTOT1

Label References

Name	Line Occurrences
DONE	START+8, START+11, START+12
HEAD	START+7, START+12, MINOR+1, MINOR1+6
HEAD1	HEAD
MAJTOT	MINOR+5
MAJTOT1	MAJTOT+2
MINOR	START+10
MINOR1	MINOR+3
TEMPLATE	START+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HEAD1+4, HEAD1+5, HEAD1+6, HEAD1+7
>> APCL1	START+7*, START+14
>> APCL2	START+7*, START+14
>> APCL80D	START+2*, HEAD1+17
>> APCLBT	START+10, DONE+2, MINOR+3, MINOR1+1, MINOR1+2, MINOR1+3, MAJTOT1, TEMPLATE+8
>> APCLDTP	HEAD1+2
>> APCLFS	START+4, START+6, HEAD1+3, HEAD1+4
>> APCLFYBY	HEAD1+13
>> APCLFYE	TEMPLATE+2, HEAD1+14
>> APCLFYEY	HEAD1+13
>> APCLI	MINOR1+2, MINOR1+3, MINOR1+4, MINOR1+7, MAJTOT1*
>> APCLIND	HEAD1+3
>> APCLJOB	START+10, DONE+2, MINOR+3, MINOR1+1, MINOR1+2, MINOR1+3, MAJTOT1, TEMPLATE+8
>> APCLMAJ	START+9, START+10, MINOR+2, MINOR+3, MINOR1+1, MINOR1+2, MINOR1+3, MAJTOT1
>> APCLMIN	MINOR+3*, MINOR1+2, MINOR1+3, MINOR1+7
>> APCLP	MINOR1+3, MAJTOT1
>> APCLPG	START+7, HEAD, HEAD1+1, HEAD1+2
APCLQUIT	START+9!, START+10, START+11, START+12, MINOR+1, MINOR+3, MINOR+4, MINOR1+6, HEAD+1*
>> APCLRPTT	START+8, HEAD1+8, HEAD1+9, HEAD1+14
>> APCLSORT	HEAD1+8, HEAD1+9, HEAD1+15, HEAD1+16
>> APCLSSUR	HEAD1+11, HEAD1+12
>> APCLSTMP	TEMPLATE+5*, TEMPLATE+6, TEMPLATE+8
>> APCLSU(	START+4, START+6
>> APCLSUB	MINOR+1, MINOR+2, MINOR1+5, MAJTOT+2, HEAD1+8, HEAD1+9, HEAD1+16
APCLSUP	START+1!
APCLSUP(	START+4, START+6, HEAD1+6
>> APCLT	MINOR1+7*
>> APCLVAR	MINOR1+3, MINOR1+7
>> APCLVAR1	MINOR1+4*
>> APCLVAR2	MINOR1+4*
D0	TEMPLATE+2!
DA	TEMPLATE+2!, TEMPLATE+6*, TEMPLATE+8!
DD	TEMPLATE+2!
DIC	TEMPLATE+2!*
DIC(0	TEMPLATE+2*
DIE	TEMPLATE+6*, TEMPLATE+8!
DIR	HEAD+1!
DIR(0	HEAD+1*
DO	TEMPLATE+2!
DR	TEMPLATE+6*, TEMPLATE+8!
DT	TEMPLATE+6
>> DTOUT	HEAD+1
DUZ	TEMPLATE+6
DUZ(2	HEAD1+2
>> I	START+10*
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	START+12, MINOR+1, MINOR1+6
IOST	HEAD+1
U	START+4, START+6, MINOR1+2, MINOR1+3, MAJTOT1, HEAD1+2
>> X	START+4, START+6, TEMPLATE+2, HEAD1+6
>> Y	TEMPLATE+3, TEMPLATE+4, TEMPLATE+5, TEMPLATE+8*, HEAD+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLACC1

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: