Routine: APCLIIP1

Package	Total	Call Graph
Patient Care Component Reports	1	DONE^APCLOSUT
VA Fileman	1	^DIR

Entry Points

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

External References

Name	Field # of Occurrence
DONE^APCLOSUT	DONE+1
^DIR	HEAD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?33,"------",?46,"------",?56,"------",?65,"------",?73,"------",! Line Location: START+9
Function Call: WRITE	Prompt: ?21,"Total:",?33,$J(APCL1,6),?46,$J(APCL2,6),?56,$J(APCL3,6),?65,$J(APCL4,6),?73,$J(APCL5,6),! Line Location: START+10
Function Call: WRITE	Prompt: !,$E(APCLMAJ,1,28) Line Location: MINOR+2
Function Call: WRITE	Prompt: ! Condition for execution: APCLSUB=1 Line Location: MINOR+2
Function Call: WRITE	Prompt: !?3,$E(APCLMIN,1,25) Line Location: MINOR1+7
Function Call: WRITE	Prompt: ?APCLT,$J((@APCLVAR),6) Line Location: MINOR1+7
Function Call: WRITE	Prompt: !!?33,"------",?46,"------",?56,"------",?65,"------",?73,"------",! Line Location: MAJTOT+3
Function Call: WRITE	Prompt: ?19,"Subtotal:" Line Location: MAJTOT+4
Function Call: WRITE	Prompt: ?APCLI,$J($P(^XTMP("APCLPCTR",APCLJOB,APCLBT,"SUBTOTAL",APCLMAJ),U,APCLP),6) Line Location: MAJTOT1+0
Function Call: WRITE	Prompt: ! Line Location: MAJTOT1+1
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 Visit Counts for ",$S(APCLIND=1:"Indian",1:"all")," Patients registered ",$S(APCLFS="F":"at ",1:"in ") Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,APCLSUP," ",$S(APCLFS="F":"Facility",1:"Service Unit"),".",! Line Location: HEAD1+4
Function Call: WRITE	Prompt: "The report is sorted by ",$S(APCLSORT="C":"Community of Residence",APCLSORT="T":"Tribe of Membership",1:"Service Unit of Residence"),$S(APCLSUB=1:" and by ",1:".") Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,"A '*' after the Community name indicates a Non-Service Unit Community.",! Line Location: HEAD1+7
Function Call: WRITE	Prompt: "Visit Counts between ",APCLSDY," and ",APCLEDY,".",! Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,$S(APCLSORT="C":"Current Community of",APCLSORT="T":"Tribe of Membership",1:"Service Unit of Residence"),?30,"Reg Pts",?46,"Patients",?56," All" Line Location: HEAD1+9
Function Call: WRITE	Prompt: !,$S(APCLSORT="C":" residence",1:""),?30,"Living",?46,"Rec'ing",?56," PCC",?65," APC",?73,"PCP" Line Location: HEAD1+10
Function Call: WRITE	Prompt: !,APCL80D Line Location: HEAD1+12
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^AUTTSU - [#9999999.22]	START+2, START+3
^DIC(4 - [#4]	START+3, HEAD1+2
^XTMP("APCLPCT"	START+6, DONE+2!, MINOR+3, MINOR1+2, MINOR1+3
^XTMP("APCLPCTR"	DONE+2!, MINOR1+1, MINOR1+2, MAJTOT1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCL1	START+4*, START+10
>> APCL2	START+4*, START+10
>> APCL3	START+4*, START+10
>> APCL4	START+4*, START+10
>> APCL5	START+4*, START+10
>> APCL80D	START+1*, HEAD1+12
>> APCLBT	START+6, DONE+2, MINOR+3, MINOR1+1, MINOR1+2, MINOR1+3, MAJTOT1
>> APCLDTP	HEAD1+2
>> APCLEDY	HEAD1+8
>> APCLFS	START+2, START+3, HEAD1+3, HEAD1+4
>> APCLI	MINOR1+2, MINOR1+3, MINOR1+4, MINOR1+7, MAJTOT1*
>> APCLIND	HEAD1+3
>> APCLJOB	START+6, DONE+2, MINOR+3, MINOR1+1, MINOR1+2, MINOR1+3, MAJTOT1
>> APCLMAJ	START+5, START+6, 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+4, HEAD, HEAD1+1, HEAD1+2
APCLQUIT	START+5!, START+6, START+7, START+8, MINOR+1, MINOR+3, MINOR+4, MINOR1+6, HEAD+1*
>> APCLSDY	HEAD1+8
>> APCLSORT	HEAD1+5, HEAD1+6, HEAD1+9, HEAD1+10, HEAD1+11
>> APCLSU	START+2, START+3
>> APCLSUB	MINOR+1, MINOR+2, MINOR1+5, MAJTOT+2, HEAD1+5, HEAD1+6, HEAD1+11
>> APCLSUF	START+3
>> APCLSUN	START+2, START+3
>> APCLSUP	START+2, START+3, HEAD1+4
>> APCLT	MINOR1+7*
>> APCLVAR	MINOR1+3, MINOR1+7
>> APCLVAR1	MINOR1+4*
>> APCLVAR2	MINOR1+4*
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DTOUT	HEAD+1
DUZ(2	HEAD1+2
>> I	START+6*
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	START+8, MINOR+1, MINOR1+6
IOST	HEAD+1
U	START+2, START+3, MINOR1+2, MINOR1+3, MAJTOT1, HEAD1+2
>> Y	HEAD+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLIIP1

Information

Source Information

Call Graph

Call Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

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