Routine: APCLCP1P

Package	Total	Call Graph
VA Fileman	3	DD^%DT NOW^%DTC ^DIR
Patient Care Component Reports	2	NOTE^APCLCPUT DONE^APCLOSUT
DRG Grouper	1	$$ICDDX^ICDEX

Package

Total

Call Graph

VA Fileman

DD^%DT NOW^%DTC ^DIR

Patient Care Component Reports

NOTE^APCLCPUT DONE^APCLOSUT

DRG Grouper

$$ICDDX^ICDEX

Package	Total	Caller Graph
Patient Care Component Reports	5	APCLCP3P APCLCP5P APCLCP6P APCLCP8P APCLCP9P

Package

Total

Caller Graph

Patient Care Component Reports

APCLCP3P APCLCP5P APCLCP6P APCLCP8P APCLCP9P

Name	Comments	DBIA/ICR reference
LOC	;
HEAD
SUBHEAD	;
HEAD1	;
P	;
CTR(X,Y)	;EP - Center X in a field Y wide.
NOTE	;
START	;
DONE	;

Name	Field # of Occurrence
DD^%DT	START+2, START+4
NOW^%DTC	START+2
NOTE^APCLCPUT	NOTE+2
DONE^APCLOSUT	DONE+1
^DIR	HEAD+1
$$ICDDX^ICDEX	P+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No visits to report",! Line Location: START+7
Function Call: WRITE	Prompt: !!?10,"TOTAL:" Line Location: LOC+4
Function Call: WRITE	Prompt: ?Z,$J(^XTMP(APCLNSP,APCLJOB,APCLBT,"SUBTOTAL",APCLAP,X),7) Line Location: LOC+5
Function Call: WRITE	Prompt: ?Z,$J(^XTMP(APCLNSP,APCLJOB,APCLBT,"SUBTOTAL",APCLAP,X)/60,7,2) Line Location: LOC+6
Function Call: WRITE	Prompt: !!!,"* -- ",^XTMP(APCLNSP,APCLJOB,APCLBT,APCLAP,"NOACT")," of the visits did not have an activity time recorded." Line Location: LOC+7
Function Call: WRITE	Prompt: !,APCLZ Line Location: P+5
Function Call: WRITE	Prompt: ?Z,$J($S($D(^XTMP(APCLNSP,APCLJOB,APCLBT,APCLAP,APCLVAL,X)):^(X),1:0),7) Line Location: P+6
Function Call: WRITE	Prompt: ?Z,$J($S($D(^XTMP(APCLNSP,APCLJOB,APCLBT,APCLAP,APCLVAL,X)):^(X),1:0)/60,7,2) Line Location: P+7
Function Call: WRITE	Prompt: ?(80-(11+APCLLENG)/2),"PROVIDER: ",$S($P(^DD(9000010.06,.01,0),U,2)[200:$P(^VA(200,APCLAP,0),U),1:$P(^DIC(16,APCLAP,0),U)) 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: !,APCLSORT,?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-(33+APCLLENG)/2),"PRIMARY DX REPORT BY PROVIDER ",$P(^APCLACTG(APCLACTG,0),U)," STAFF",! Line Location: HEAD1+5
Function Call: WRITE	Prompt: ?18,"VISIT DATES: ",APCLBDD," TO ",APCLEDD,! Line Location: HEAD1+6
Function Call: WRITE	Prompt: $$CTR(X),! Line Location: HEAD1+9
Function Call: WRITE	Prompt: $$CTR(X),! Line Location: HEAD1+12
Routine Call	DIR Line Location: HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCLACTG - [#9001003.6]	HEAD1+4, HEAD1+5
^DD(9000010.06	SUBHEAD+2, SUBHEAD+3
^DIC(16 - [#16]	SUBHEAD+2, SUBHEAD+3
^DIC(4 - [#4]	P+3, HEAD1+8
^DIC(40.7 - [#40.7]	HEAD1+11
^VA(200 - [#200]	SUBHEAD+2, SUBHEAD+3
^XTMP(	START+7, START+8, DONE+2!, LOC+2, LOC+3, LOC+5, LOC+6, LOC+7, P+1, P+6 , P+7

Name	Line Occurrences
$$CTR	HEAD1+9, HEAD1+12
DONE	START+7
HEAD	START+7, LOC+1, P+2, NOTE+1
HEAD1	HEAD
LOC	START+8
NOTE	LOC+8
P	LOC+3
SUBHEAD	LOC+1, P+2

Name	Field # of Occurrence
^(	P+6, P+7

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCL80S	START+1*, SUBHEAD+7
>> APCLACTG	HEAD1+4, HEAD1+5
>> APCLAP	START+5, START+8, LOC+2, LOC+3, LOC+5, LOC+6, LOC+7, P+1, P+6, P+7 , SUBHEAD+2, SUBHEAD+3
>> APCLBD	START+4
>> APCLBDD	START+4*, HEAD1+6
>> APCLBT	START+7, START+8, DONE+2, LOC+2, LOC+3, LOC+5, LOC+6, LOC+7, P+1, P+6 , P+7
>> APCLCLN	HEAD1+10, HEAD1+11
>> APCLCLN(	HEAD1+11
>> APCLDT	START+2*, HEAD1+3
>> APCLED	START+4
>> APCLEDD	START+4*, HEAD1+6
>> APCLGLOB	P+4
>> APCLJOB	START+7, START+8, DONE+2, LOC+2, LOC+3, LOC+5, LOC+6, LOC+7, P+1, P+6 , P+7
>> APCLLENG	SUBHEAD+2, SUBHEAD+3, HEAD1+4, HEAD1+5
>> APCLLOC	HEAD1+7, HEAD1+8
>> APCLLOC(	HEAD1+8
>> APCLNSP	START+7, START+8, DONE+2, LOC+2, LOC+3, LOC+5, LOC+6, LOC+7, P+1, P+6 , P+7
>> APCLPG	START+5, HEAD, HEAD1+1, HEAD1+3
>> APCLPIEC	P+4
APCLQUIT	START+6!, START+8, LOC+1, LOC+3, P+2, SUBHEAD+1, HEAD+1*, NOTE+1
>> APCLSORT	SUBHEAD+6
>> APCLSORV	P+3, P+4
>> APCLSUB	START+3*, LOC+2, LOC+5, LOC+6, P+1, P+6, P+7
>> APCLVAL	LOC+3*, P+1, P+3, P+4, P+6, P+7
>> APCLZ	P+3, P+4, P+5
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DTOUT	HEAD+1
>> G	P+4*
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOM	CTR+1
IOSL	P+2, NOTE+1
IOST	HEAD+1
U	LOC+2, LOC+5, LOC+6, P+1, P+3, P+4, P+6, P+7, SUBHEAD+2, SUBHEAD+3 , HEAD1+4, HEAD1+5, HEAD1+8, HEAD1+11
X	START+2, LOC+2, LOC+5, LOC+6, P+1, P+6, P+7, HEAD1+7, HEAD1+8, HEAD1+9 , HEAD1+10, HEAD1+11, HEAD1+12, CTR~, CTR+1
Y	START+2, START+4, LOC+2, LOC+5, LOC+6, P+1, P+6, P+7, HEAD+1, HEAD1+8* , HEAD1+11*, CTR~, CTR+1
>> Z	LOC+5, LOC+6, P+6, P+7

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLCP1P

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: