Routine: APCDCAFV

Package	Total	Call Graph
IHS VA Utilities	3	$$VAL^XBDIQ1 $$EXTSET^XBFUNC EN^XBVK
Patient Care Component	2	$$SCW^APCDCAF GETVCDR^APCDCAFS
VA Fileman	2	DD^%DT ^DIR
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Patient Care Component Reports	1	$$PRIMPROV^APCLV

Package	Total	Caller Graph
Patient Care Component	1	APCDCAFT

Name	Comments	DBIA/ICR reference
PRINT1	; Print report 2
HEAD	;EP;HEADER
PAGEHEAD	;
HEAD2
ERRORCHK	;
PROCESS	;EP
CTR(X,Y)	;EP - Center X in a field Y wide.
COVPAGE	;
H1
PRN1	;EP
LASTCDR(V,F)	;EP - get last chart deficiency reason
N
HEAD1	;
EOP	;EP - End of page.
DONE
LBLK(V,L)	;left blank fill
RBLK(V,L)	;left blank fill
PRINT	;EP - called from xbdbque
XIT	; Clean up and exit
TOTALS	;
DATE(D)	;

Name	Field # of Occurrence
DD^%DT	PRINT+2
$$SCW^APCDCAF	PROCESS+10, COVPAGE+13
GETVCDR^APCDCAFS	N+25
$$PRIMPROV^APCLV	N+6
^DIR	EOP+5, DONE+2, HEAD2
$$VAL^XBDIQ1	ERRORCHK+5, ERRORCHK+6, LASTCDR+10
$$EXTSET^XBFUNC	PRN1+2
EN^XBVK	XIT+2
$$FMADD^XLFDT	PROCESS+2
$$FMTE^XLFDT	DATE+4, PRN1+2, HEAD1+2, COVPAGE+1, COVPAGE+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"RUN TIME (H.M.S): ",APCDDVH,".",APCDDVM,".",APCDDVS Line Location: DONE+1
Function Call: WRITE	Prompt: !!,"There are no visits that are not already reviewed." Line Location: PRINT1+3
Function Call: WRITE	Prompt: !!,"Totals:",?35,APCDGRTA,?60,APCDGRTP Line Location: TOTALS+3
Function Call: WRITE	Prompt: ! Line Location: PRN1+2
Function Call: WRITE	Prompt: $$FMTE^XLFDT(APCDS) Condition for execution: APCDFRO Line Location: PRN1+2
Function Call: WRITE	Prompt: ?19,$E($$EXTSET^XBFUNC(9000010,.07,APCDV),1,12),?35,$P(APCDX,U,1),?60,$P(APCDX,U,2) Line Location: PRN1+2
Function Call: WRITE	Prompt: ! Line Location: HEAD2+0
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(DT),?70,"Page: ",APCDPG Line Location: HEAD1+2
Function Call: WRITE	Prompt: !?29,"PCC Data Entry Module" Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,$$CTR("******************************************************************",80) Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,$$CTR("* COUNT OF VISITS WITH CHART AUDIT STATUS OF INCOMPLETE/BLANK *",80) Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,$$CTR("******************************************************************",80) Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: H1+0
Function Call: WRITE	Prompt: !!,"VISIT DATE",?19,"SERV CAT",?35,"# UNREVIEWED VISITS",?60,"# W/NO PROV",!,?60,"(ANCILLARY)" Line Location: H1+1
Function Call: WRITE	Prompt: !,APCD80S Line Location: H1+2
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(DT),?70,"Page: ",APCDPG Line Location: COVPAGE+1
Function Call: WRITE	Prompt: !?29,"PCC Data Entry Module" Line Location: COVPAGE+2
Function Call: WRITE	Prompt: !,$$CTR("******************************************************************",80) Line Location: COVPAGE+3
Function Call: WRITE	Prompt: !,$$CTR("* COUNT OF VISITS WITH CHART AUDIT STATUS OF INCOMPLETE/BLANK *",80) Line Location: COVPAGE+4
Function Call: WRITE	Prompt: !,$$CTR("******************************************************************",80) Line Location: COVPAGE+5
Function Call: WRITE	Prompt: !!,$$CTR("VISIT LIST CRITERIA",80) Line Location: COVPAGE+6
Function Call: WRITE	Prompt: !!,"VISIT DATES: ",$$FMTE^XLFDT(APCDBD)," to ",$$FMTE^XLFDT(APCDED) Line Location: COVPAGE+7
Function Call: WRITE	Prompt: !,"SERVICE CATEGORY: " Line Location: COVPAGE+9
Function Call: WRITE	Prompt: D Line Location: COVPAGE+16
Function Call: WRITE	Prompt: !,"VISIT TYPE: NOT Contract" Line Location: COVPAGE+17
Function Call: WRITE	Prompt: !!,"LOCATION OF ENCOUNTER: " Line Location: COVPAGE+18
Function Call: WRITE	Prompt: "All" Line Location: COVPAGE+19
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: COVPAGE+20
Function Call: WRITE	Prompt: ?24,$E($P(^DIC(4,Y,0),U),1,15) Line Location: COVPAGE+20
Function Call: WRITE	Prompt: !!,"CLINICS: " Line Location: COVPAGE+21
Function Call: WRITE	Prompt: "All" Line Location: COVPAGE+22
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: COVPAGE+23
Function Call: WRITE	Prompt: ?24,$E($P(^DIC(40.7,Y,0),U),1,15) Line Location: COVPAGE+23
Function Call: WRITE	Prompt: !!,"HOSPITAL LOCATIONS: " Line Location: COVPAGE+24
Function Call: WRITE	Prompt: "All" Line Location: COVPAGE+25
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: COVPAGE+26
Function Call: WRITE	Prompt: ?24,$E($P(^SC(Y,0),U),1,15) Line Location: COVPAGE+26
Function Call: WRITE	Prompt: !!,"PRIMARY PROVIDER ON VISIT: " Line Location: COVPAGE+27
Function Call: WRITE	Prompt: "All" Line Location: COVPAGE+28
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: COVPAGE+29
Function Call: WRITE	Prompt: ?24,$E($P(^VA(200,Y,0),U),1,15) Line Location: COVPAGE+29
Function Call: WRITE	Prompt: "All" Line Location: COVPAGE+31
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: COVPAGE+32
Function Call: WRITE	Prompt: ?24,$$EXTSET^XBFUNC(9000010.45,Y,.04) Line Location: COVPAGE+32
Function Call: WRITE	Prompt: !!,"CHART DEFICIENCY REASONS: " Line Location: COVPAGE+33
Function Call: WRITE	Prompt: "All (includes visits with no chart deficiency reason entered" Line Location: COVPAGE+34
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: COVPAGE+35
Function Call: WRITE	Prompt: ?24,$E($P(^AUTTCDR(Y,0),U),1,15) Line Location: COVPAGE+35
Routine Call	DIR Line Location: EOP+5 DONE+2 HEAD2

Name	Line Occurrences (* Changed, ! Killed)
^APCDSITE - [#9001001.2]	PROCESS+8
^AUPNVCA - [#9000010.45]	LASTCDR+5, LASTCDR+6, LASTCDR+10
^AUPNVCA("AD"	LASTCDR+2, LASTCDR+4
^AUPNVPOV("AD"	ERRORCHK+3, ERRORCHK+4
^AUPNVPRV - [#9000010.06]	ERRORCHK+8
^AUPNVPRV("AD"	ERRORCHK+7
^AUPNVSIT - [#9000010]	PROCESS+6, N+19, N+30, N+33
^AUPNVSIT("B"	PROCESS+4, PROCESS+5
^AUTTCDR - [#99999.05]	COVPAGE+35
^DD(9000010	COVPAGE+10
^DIC(4 - [#4]	COVPAGE+20
^DIC(40.7 - [#40.7]	COVPAGE+23
^SC - [#44]	COVPAGE+26
^VA(200 - [#200]	COVPAGE+29
^XTMP("APCDCAFT"	PROCESS+2, N+30, N+33*, XIT+1!, PRINT1+3, PRINT1+4, PRINT1+5, PRN1+1

Name	Line Occurrences
$$CTR	HEAD1+4, HEAD1+5, HEAD1+6, H1, COVPAGE+3, COVPAGE+4, COVPAGE+5, COVPAGE+6
COVPAGE	PRINT+5
H1	PRINT1+2
HEAD	PRINT1+1, PRINT1+6, TOTALS+2
HEAD1	HEAD+1
N	PROCESS+8
PRINT1	PRINT+6
PRN1	PRINT1+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	RBLK+1~, RBLK+2, LBLK+1~, LBLK+2
A	LASTCDR+3~
A(	LASTCDR+7*, LASTCDR+9
A(0	LASTCDR+8
>> APCD80S	PRINT+1*, H1+2
>> APCDBD	PROCESS+3, PRINT+2, COVPAGE+7
>> APCDBDD	PRINT+2*, H1
>> APCDBT	DONE
>> APCDCDRS	N+26, N+27, N+29
>> APCDCDRS(	N+28, COVPAGE+35
>> APCDCLNS	N+12, N+13
>> APCDCLNS(	N+13, COVPAGE+23
>> APCDDVH	DONE*, DONE+1
>> APCDDVM	DONE+1*
>> APCDDVS	DONE+1*
>> APCDDVTS	DONE, DONE+1
>> APCDED	PROCESS+4, PRINT+2, COVPAGE+7
>> APCDEDD	PRINT+2*, H1
>> APCDERR	ERRORCHK+2, ERRORCHK+3, ERRORCHK+5, ERRORCHK+6, ERRORCHK+9*
>> APCDET	DONE
>> APCDFRO	PRINT1+5, PRINT1+7, PRINT1+8*, PRN1+2
>> APCDGRTA	PROCESS+1, N+31, TOTALS+3
>> APCDGRTP	PROCESS+1, N+34, TOTALS+3
>> APCDH	PROCESS+1*, N+30, N+33, XIT+1, PRINT1+3, PRINT1+4, PRINT1+5, PRN1+1
>> APCDHLS	N+15, N+16
>> APCDHLS(	N+16, COVPAGE+26
>> APCDJ	PROCESS+1*, N+30, N+33, XIT+1, PRINT1+3, PRINT1+4, PRINT1+5, PRN1+1
>> APCDLOCS	N+10
>> APCDLOCS(	N+10, COVPAGE+20
>> APCDODAT	PROCESS+3, PROCESS+4, PROCESS+5
>> APCDPG	PRINT+3, HEAD+1, HEAD1+1, HEAD1+2, COVPAGE+1
>> APCDPRVS	N+17, N+18
>> APCDPRVS(	N+18, COVPAGE+29
APCDQUIT	PRINT+4!, PRINT1+4, PRINT1+5, PRINT1+6, TOTALS+1, TOTALS+2, HEAD2*
>> APCDRCNT	PROCESS+4*
>> APCDS	PRINT1+4*, PRINT1+5, PRN1+1, PRN1+2
>> APCDV	ERRORCHK+3, ERRORCHK+4, ERRORCHK+7, PRINT1+5*, PRN1+1, PRN1+2
>> APCDV0	PROCESS+6*, PROCESS+7, PROCESS+8, PROCESS+10, N+1, N+2, N+3, N+8, N+11, N+14
>> APCDVCAS	N+19*, N+20
APCDVCDR	N+25!, N+26
APCDVCDR(	N+28
>> APCDVCLN	N+11*, N+12, N+13
>> APCDVHL	N+14*, N+15, N+16
>> APCDVIEN	PROCESS+4, PROCESS+5, PROCESS+6, N+6, N+19, N+25, N+30, N+33
>> APCDVLOC	N+8*, N+9, N+10
>> APCDVPP	N+6*, N+17, N+18, N+32
>> APCDX	PRN1+1*, PRN1+2
>> APCLCDRS	COVPAGE+34
>> APCLCLNS	COVPAGE+22
>> APCLHLS	COVPAGE+25
>> APCLLOCS	COVPAGE+19
>> APCLPRV	COVPAGE+28
>> C	ERRORCHK+7, ERRORCHK+8, ERRORCHK+9, COVPAGE+12, COVPAGE+13, COVPAGE+15, COVPAGE+20, COVPAGE+23, COVPAGE+26, COVPAGE+29* , COVPAGE+35*
D	DATE~, DATE+2, DATE+3, DATE+4, LASTCDR+3~, LASTCDR+6, LASTCDR+7, COVPAGE+10, COVPAGE+14, COVPAGE+15 , COVPAGE+16
DFOUT	EOP+4!
DIR	EOP+3~, DONE+2!, HEAD2!
DIR("A"	EOP+5*
DIR(0	EOP+5, DONE+2, HEAD2*
DIRUT	EOP+4!
DLOUT	EOP+4!
DT	PROCESS+2, HEAD1+2, COVPAGE+1
DTOUT	EOP+4!, HEAD2
DUOUT	EOP+4!
DUZ(2	PROCESS+8
F	LASTCDR~, LASTCDR+1*, LASTCDR+10
>> G	N+27, N+28, N+29
I	RBLK+1~, RBLK+2, LBLK+1~, LBLK+2
IO	DONE+2, HEAD2
IO(0	DONE+2, HEAD2
IOF	DONE+3, HEAD1+1
IOM	CTR+1
IOSL	PRINT1+1, PRINT1+6, TOTALS+2
IOST	EOP+1, DONE+2, HEAD2
>> J	COVPAGE+11*, COVPAGE+12
L	RBLK~, RBLK+2, LBLK~, LBLK+2, LASTCDR+3~, LASTCDR+8, LASTCDR+9, LASTCDR+10
U	PROCESS+8, PROCESS+10, N+1, N+2, N+3, N+8, N+11, N+14, N+19, N+30 , N+33, ERRORCHK+8, LASTCDR+6, LASTCDR+10, PRN1+2, COVPAGE+10, COVPAGE+20, COVPAGE+23, COVPAGE+26, COVPAGE+29 , COVPAGE+35
V	RBLK~, RBLK+2, RBLK+3, LBLK~, LBLK+2, LBLK+3, LASTCDR~, LASTCDR+2, LASTCDR+4
X	N+28, DATE+1~, DATE+2, DATE+3, DATE+5, ERRORCHK+4, ERRORCHK+5, ERRORCHK+6, ERRORCHK+7, ERRORCHK+8 , LASTCDR+3~, LASTCDR+4, LASTCDR+5, LASTCDR+6, LASTCDR+7, H1, CTR~, CTR+1, COVPAGE+10, COVPAGE+11
Y	DATE+1~, DATE+4, DATE+5, PRINT+2, HEAD2, CTR~, CTR+1, COVPAGE+11, COVPAGE+20, COVPAGE+23* , COVPAGE+26, COVPAGE+29, COVPAGE+35*
>> Z	RBLK+2, LBLK+2

Customize PDF page

Package: Patient Care Component

Routine: APCDCAFV

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: