Routine: APCLCP8P

Package	Total	Call Graph
Patient Care Component Reports	3	$$CTR^APCLCP1P NOTE2^APCLCPUT DONE^APCLOSUT
VA Fileman	2	DD^%DT ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
LOC	;
HEAD
SUBHEAD	;
HEAD1	;
P	;
NOTE	;
START	;
DONE	;

External References

Name	Field # of Occurrence
DD^%DT	START+2
$$CTR^APCLCP1P	HEAD1+8, HEAD1+11
NOTE2^APCLCPUT	NOTE+2
DONE^APCLOSUT	DONE+1
^DIR	HEAD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"TOTAL:" Line Location: LOC+8
Function Call: WRITE	Prompt: ?28,$J($S($D(^XTMP("APCLCP8",APCLJOB,APCLBT,"SUBTOTAL",APCLSEX,"TOTAL")):^("TOTAL"),1:"."),7) Line Location: LOC+9
Function Call: WRITE	Prompt: ?38,$J($S($D(^XTMP("APCLCP8",APCLJOB,APCLBT,"SUBTOTAL",APCLSEX,"PRIM")):^("PRIM"),1:"."),7) Line Location: LOC+10
Function Call: WRITE	Prompt: ?48,$J($S($D(^XTMP("APCLCP8",APCLJOB,APCLBT,"SUBTOTAL",APCLSEX,"SEC")):^("SEC"),1:"."),7) Line Location: LOC+11
Function Call: WRITE	Prompt: ?58,$J($S($D(^XTMP("APCLCP8",APCLJOB,APCLBT,"SUBTOTAL",APCLSEX,"ACT")):^("ACT")/60,1:"."),7,2) Line Location: LOC+12
Function Call: WRITE	Prompt: ?68,$J($S($D(^XTMP("APCLCP8",APCLJOB,APCLBT,"SUBTOTAL",APCLSEX,"TT")):^("TT")/60,1:"."),7,2) Line Location: LOC+13
Function Call: WRITE	Prompt: !!,"* -- ",^XTMP("APCLCP8",APCLJOB,APCLBT,"SEX",APCLSEX,"NOACT")," of the visits did not have an activity time recorded." Line Location: LOC+14
Function Call: WRITE	Prompt: !,$P(APCLBIN,";",APCLAGE)," years",?28,$J($S($D(^XTMP("APCLCP8",APCLJOB,APCLBT,"SEX",APCLSEX,APCLAGE,"TOTAL")):^("TOTAL"),1:"."),7) Line Location: P+8
Function Call: WRITE	Prompt: ?38,$J($S($D(^XTMP("APCLCP8",APCLJOB,APCLBT,"SEX",APCLSEX,APCLAGE,"PRIM")):^("PRIM"),1:"."),7) Line Location: P+9
Function Call: WRITE	Prompt: ?48,$J($S($D(^XTMP("APCLCP8",APCLJOB,APCLBT,"SEX",APCLSEX,APCLAGE,"SEC")):^("SEC"),1:"."),7) Line Location: P+10
Function Call: WRITE	Prompt: ?58,$J($S($D(^XTMP("APCLCP8",APCLJOB,APCLBT,"SEX",APCLSEX,APCLAGE,"ACT")):^("ACT")/60,1:"."),7,2) Line Location: P+11
Function Call: WRITE	Prompt: ?68,$J($S($D(^XTMP("APCLCP8",APCLJOB,APCLBT,"SEX",APCLSEX,APCLAGE,"TT")):^("TT")/60,1:"."),7,2) Line Location: P+12
Function Call: WRITE	Prompt: ?(80-(6+APCLLENG)/2),"SEX: ",$S(APCLSEX="F":"FEMALE",APCLSEX="U":"UNKNOWN",1:"MALE") Line Location: SUBHEAD+3
Function Call: WRITE	Prompt: !!?28,"TOTAL",?38,"# CONTS",?48,"# CONTS" Line Location: SUBHEAD+4
Function Call: WRITE	Prompt: !?28,"PATIENT",?38,"AS PRIM.",?48,"AS SEC.",?58,"ACTIVITY",?69,"TRAVEL" Line Location: SUBHEAD+5
Function Call: WRITE	Prompt: !,"AGE GROUP",?28,"CONTACTS",?38,"PROVIDER",?48,"PROVIDER",?58,"TIME*",?69,"TIME" Line Location: SUBHEAD+6
Function Call: WRITE	Prompt: !,APCL80S,! Line Location: SUBHEAD+7
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: ! Line Location: HEAD1+2
Function Call: WRITE	Prompt: APCLDT,?72,"Page ",APCLPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: ?(80-(44+$L($P(^APCLACTG(APCLACTG,0),U)))/2),"TIME AND SERVICES REPORT BY AGE AND SEX FOR ",$P(^APCLACTG(APCLACTG,0),U)," STAFF",! Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?18,"VISIT DATES: ",APCLBDD," TO ",APCLEDD,! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $$CTR^APCLCP1P(X),! Line Location: HEAD1+8
Function Call: WRITE	Prompt: $$CTR^APCLCP1P(X),! Line Location: HEAD1+11
Routine Call	DIR Line Location: HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCLACTG - [#9001003.6]	HEAD1+4
^DIC(4 - [#4]	HEAD1+7
^DIC(40.7 - [#40.7]	HEAD1+10
^XTMP("APCLCP8"	START+5, DONE+2!, LOC+2, LOC+3, LOC+4, LOC+5, LOC+6, LOC+7, LOC+9, LOC+10 , LOC+11, LOC+12, LOC+13, LOC+14, P+1, P+2, P+3, P+4, P+5, P+6 , P+8, P+9, P+10, P+11, P+12

Label References

Name	Line Occurrences
HEAD	LOC+1, P+7, NOTE+1
HEAD1	HEAD
LOC	START+5
NOTE	LOC+15
P	LOC+7
SUBHEAD	LOC+1, P+7

Naked Globals

Name	Field # of Occurrence
^("ACT"	LOC+12, P+11
^("PRIM"	LOC+10, P+9
^("SEC"	LOC+11, P+10
^("TOTAL"	LOC+9, P+8
^("TT"	LOC+13, P+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCL80S	START+1*, SUBHEAD+7
>> APCLACTG	HEAD1+4
>> APCLAGE	LOC+7*, P+1, P+2, P+3, P+4, P+5, P+6, P+8, P+9, P+10 , P+11, P+12
>> APCLBD	START+2
>> APCLBDD	START+2*, HEAD1+5
>> APCLBIN	P+8
>> APCLBT	START+5, DONE+2, LOC+2, LOC+3, LOC+4, LOC+5, LOC+6, LOC+7, LOC+9, LOC+10 , LOC+11, LOC+12, LOC+13, LOC+14, P+1, P+2, P+3, P+4, P+5, P+6 , P+8, P+9, P+10, P+11, P+12
>> APCLCLN	HEAD1+9, HEAD1+10
>> APCLCLN(	HEAD1+10
>> APCLDT	HEAD1+3
>> APCLED	START+2
>> APCLEDD	START+2*, HEAD1+5
>> APCLJOB	START+5, DONE+2, LOC+2, LOC+3, LOC+4, LOC+5, LOC+6, LOC+7, LOC+9, LOC+10 , LOC+11, LOC+12, LOC+13, LOC+14, P+1, P+2, P+3, P+4, P+5, P+6 , P+8, P+9, P+10, P+11, P+12
>> APCLLENG	SUBHEAD+2*, SUBHEAD+3
>> APCLLOC	HEAD1+6, HEAD1+7
>> APCLLOC(	HEAD1+7
>> APCLPG	START+3, HEAD, HEAD1+1, HEAD1+3
APCLQUIT	START+4!, START+5, LOC+1, LOC+7, P+7, SUBHEAD+1, HEAD+1*, NOTE+1
>> APCLSEX	START+3, START+5, LOC+2, LOC+3, LOC+4, LOC+5, LOC+6, LOC+7, LOC+9, LOC+10 , LOC+11, LOC+12, LOC+13, LOC+14, P+1, P+2, P+3, P+4, P+5, P+6 , P+8, P+9, P+10, P+11, P+12, SUBHEAD+2, SUBHEAD+3
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DTOUT	HEAD+1
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	P+7, NOTE+1
IOST	HEAD+1
U	HEAD1+4, HEAD1+7, HEAD1+10
>> X	HEAD1+6, HEAD1+7, HEAD1+8, HEAD1+9, HEAD1+10, HEAD1+11
>> Y	START+2, HEAD+1, HEAD1+7, HEAD1+10*

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLCP8P

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: