Routine: APCLGVP

Package	Total	Call Graph
Patient Care Component Reports	2	SCREENS^APCLGV DONE^APCLOSUT
VA Fileman	2	DD^%DT ^DIR
DRG Grouper	1	$$ICDDX^ICDEX

Entry Points

Name	Comments	DBIA/ICR reference
PIH
VSTS	; process visits
PAT	;
HEAD1	;
SRTV	;
HEAD
START	;
DFN	;
DONE
PRINT	;
LINE	;

External References

Name	Field # of Occurrence
DD^%DT	START+3
SCREENS^APCLGV	VSTS+8
DONE^APCLOSUT	DONE
^DIR	HEAD+2
$$ICDDX^ICDEX	VSTS+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: START+5
Function Call: WRITE	Prompt: !,APCLSORV,": ",APCLSRT,! Line Location: PAT+4
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,15) Line Location: DFN+2
Function Call: WRITE	Prompt: ?17,$J(APCLHRCN,7) Line Location: DFN+4
Function Call: WRITE	Prompt: ?31,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: DFN+6
Function Call: WRITE	Prompt: ?27,$P(^DPT(DFN,0),U,2) Line Location: DFN+7
Function Call: WRITE	Prompt: ?30,$E(Y,4,5),"/",$E(Y,6,7),"/",(1700+($E(Y,1,3))) Line Location: DFN+7
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: $P(^VA(200,DUZ,0),U,2),?72,"Page ",APCLPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),! Line Location: HEAD1+3
Function Call: WRITE	Prompt: ?25,"PATIENTS SEEN AT LEAST ",APCLNUM," TIMES",! Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?17,"VISIT DATES: ",APCLBDD," TO ",APCLEDD,! Line Location: HEAD1+5
Function Call: WRITE	Prompt: !!,?41,"LOCATION",?53,"PROVIDER",?65,"DX",?75,"#",! Line Location: PIH+0
Function Call: WRITE	Prompt: "PATIENT NAME",?17,"CHART #",?26,"SEX",?31,"DOB",?41,"SEEN",?53,"SEEN",?65,"CODES",?73,"VISITS",!,APCL80D,! Line Location: PIH+1
Routine Call	DIR Line Location: HEAD+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	DFN+3
^AUPNVPOV - [#9000010.07]	VSTS+17
^AUPNVPOV("AD"	VSTS+17
^AUPNVPRV - [#9000010.06]	VSTS+14
^AUPNVPRV("AD"	VSTS+14
^AUPNVSIT - [#9000010]	VSTS+5, VSTS+6, VSTS+7, VSTS+12
^AUPNVSIT("AA"	VSTS+3, VSTS+4
^DD(9000010.06	VSTS+14
^DIBT(	PRINT+2*, PRINT+3
^DIC(16 - [#16]	VSTS+14
^DIC(4 - [#4]	VSTS+12, HEAD1+3
^DPT - [#2]	DFN+2, DFN+7
^VA(200 - [#200]	VSTS+14, HEAD1+2
^XTMP("APCLGV"	PRINT+2, START+5, SRTV+2, PAT+5, DONE+1!

Label References

Name	Line Occurrences
DFN	PAT+5
DONE	PRINT+1, START+5, SRTV+3
HEAD	START+5, SRTV+1, PAT+2, PAT+4, DFN+1, VSTS+29
HEAD1	HEAD+1
LINE	VSTS+23, VSTS+25, VSTS+27
PAT	SRTV+2

Naked Globals

Name	Field # of Occurrence
^(0	DFN+3, VSTS+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCL80D	START+1*, PIH+1
>> APCLBD	START+3, VSTS+2
>> APCLBDD	START+3*, HEAD1+5
>> APCLBDO	VSTS+2*, VSTS+3
APCLBTH	PRINT+2, START+5, SRTV+2, PAT+5, DONE+1!
>> APCLED	START+3, VSTS+2
>> APCLEDD	START+3*, HEAD1+5
>> APCLEDO	VSTS+2*
>> APCLHRCN	DFN+3*, DFN+4
APCLJOB	PRINT+2, START+5, SRTV+2, PAT+5, DONE+1!
APCLLINE	VSTS+20!
APCLLINE(	VSTS+28, VSTS+30, LINE+9, LINE+10, LINE+11*
APCLLINE(1	VSTS+21, VSTS+28, LINE+3, LINE+7, LINE+9, LINE+11
>> APCLNPAG	PAT+1, PAT+4
>> APCLNUM	HEAD1+4
>> APCLOUT	PRINT+1
>> APCLP	VSTS+14, VSTS+17
APCLPCNT	VSTS+20!
>> APCLPG	START+4, HEAD+1, HEAD1+1, HEAD1+2
APCLPRNM	VSTS+20!, VSTS+24!, VSTS+26!, LINE+1
APCLPRNM(	VSTS+22, VSTS+24, VSTS+26*, LINE+4, LINE+8
APCLPRNM(1	LINE+6
APCLPRNT	VSTS+20!, LINE+1, LINE+2, LINE+3, LINE+6, LINE+7, LINE+8, LINE+10
APCLPROB	VSTS+1!
APCLPROB(	VSTS+17*, VSTS+26
APCLPRV	VSTS+1!
APCLPRV(	VSTS+14*, VSTS+24
APCLQ	START+2!, SRTV+2, PAT+1, PAT+2, PAT+4, PAT+5, DFN+1, VSTS+28, VSTS+29, HEAD+2*
>> APCLRCNT	VSTS+2, VSTS+10, VSTS+28*
APCLRLOC	VSTS+1!
APCLRLOC(	VSTS+12*, VSTS+22
>> APCLSD	VSTS+2, VSTS+3, VSTS+4
>> APCLSKIP	VSTS+9
>> APCLSORV	PAT+3, PAT+4
>> APCLSRT	SRTV+2*, PAT+3, PAT+4, PAT+5
>> APCLSTMP	PRINT+2, PRINT+3
>> APCLVIEN	VSTS+2, VSTS+4, VSTS+5, VSTS+6, VSTS+7, VSTS+12, VSTS+14, VSTS+17
>> APCLVREC	VSTS+7*
>> C	VSTS+22, VSTS+24, VSTS+26*
>> DFN	PAT+5*, DFN+2, DFN+3, DFN+7, VSTS+3, VSTS+4
DIR	HEAD+2!
DIR(0	HEAD+2*
>> DTOUT	HEAD+2
DUZ	HEAD1+2
DUZ(2	DFN+3, HEAD1+3
>> I	LINE+3, LINE+7, LINE+10, LINE+11
IO	HEAD+2
IO(0	HEAD+2
IOF	HEAD1+1
IOSL	PAT+2, DFN+1, VSTS+29
IOST	HEAD+2
>> J	LINE+3, LINE+7, LINE+10, LINE+11
>> K	VSTS+22, VSTS+24, VSTS+26, LINE+3, LINE+7, LINE+9, LINE+10, LINE+11
>> P	VSTS+14, VSTS+17
U	PRINT+3, DFN+2, DFN+3, DFN+7, VSTS+5, VSTS+6, VSTS+12, VSTS+14, VSTS+17, HEAD1+2 , HEAD1+3
X	PRINT+2, VSTS+22, VSTS+24, VSTS+26, VSTS+28, VSTS+30, LINE+4, LINE+5, LINE+8, LINE+9 , LINE+10, LINE+11*, HEAD~
>> Y	START+3, DFN+7, HEAD+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLGVP

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: