Routine: APCDCAFJ

Package	Total	Call Graph
VA Fileman	4	DD^%DT $$GET1^DIQ ^DIR ^DIWP
IHS VA Utilities	2	$$VAL^XBDIQ1 EN^XBVK
Patient Care Component	2	$$PAD^APCDCAF6 GETVCDR^APCDCAFS
IHS Patient	1	$$HRN^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Patient Care Component Reports	1	($$CLINIC,$$PRIMPROV)^APCLV

Package	Total	Caller Graph
Patient Care Component	1	APCDCAFI

Name	Comments	DBIA/ICR reference
RSORT	;
NOTES	;
DE	;EP;FIND DEP ENTRIES
EOP	;EP - End of page.
DONE	;
WP	;
PRINT	;EP - called from xbdbque
ASORT	;
PRINT1	; Print report 2
CTR(X,Y)	;EP
COVPAGE	;
TSORT	;
WPS	;
LBLK(V,L)	;left blank fill
OSORT	;
ER	; CHECK FOR VARIOUS ERRORS
DSORT	;
DATE(D)	;
HEAD	;EP;HEADER
PAGEHEAD	;
ERRORCHK	;
PRN1	;EP
LASTCDR(V,F)	;EP - get last chart deficiency reason
N
SSORT	;
XIT	; Clean up and exit
LSORT	;
RBLK(V,L)	;left blank fill
HSORT	;
SORT(V,S)	;
CSORT	;
HEAD2
HEAD1	;
PROCESS	;EP
DE2	;
NSORT	;
PSORT	;

Name	Field # of Occurrence
DD^%DT	PRINT+2
$$PAD^APCDCAF6	NOTES+10, NOTES+11, NOTES+13
GETVCDR^APCDCAFS	N+18
$$CLINIC^APCLV	PRN1+7
$$PRIMPROV^APCLV	N+6, PSORT+1, PRN1+8
$$HRN^AUPNPAT	HSORT+1, TSORT+6, PRN1+3, PRN1+4
$$GET1^DIQ	NOTES+4, NOTES+5, NOTES+7, NOTES+8, NOTES+10, NOTES+11, NOTES+13
^DIR	EOP+4, DONE+4, HEAD2
^DIWP	WP+4
$$VAL^XBDIQ1	ERRORCHK+5, ERRORCHK+6, LASTCDR+10, SSORT+3, LSORT+3, CSORT+3, OSORT+3, ASORT+3, NSORT+1, PRN1+7 , NOTES+21
EN^XBVK	XIT+2
$$FMADD^XLFDT	PROCESS+2
$$FMTE^XLFDT	DATE+4, PRN1+6, NOTES+21, 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+3
Function Call: WRITE	Prompt: !!,"There are no visits that are not already reviewed." Line Location: PRINT1+3
Function Call: WRITE	Prompt: !?1,APCDP Line Location: DE+4
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT($P(APCDVR,U)),?19,APCDHRN,?31,$E($P(^DPT(DFN,0),U),1,17),?50,$E($P(^DIC(4,$P(APCDVR,U,6),0),U),1,10),?61,$P(APCDVR,U,7) Line Location: PRN1+6
Function Call: WRITE	Prompt: ?64,$$CLINIC^APCLV(APCDV,"C"),?67,$E($$VAL^XBDIQ1(9000010,APCDV,.22),1,11),?78,$P(APCDVR,U,9) Line Location: PRN1+7
Function Call: WRITE	Prompt: !," Ext Acct #: ",$P($G(^AUPNVSIT(APCDV,12)),U,11) Line Location: PRN1+9
Function Call: WRITE	Prompt: !?1," Pending Deficiencies:" Line Location: NOTES+1
Function Call: WRITE	Prompt: !,LINE Line Location: NOTES+12
Function Call: WRITE	Prompt: !,LINE Line Location: NOTES+14
Function Call: WRITE	Prompt: " None Recorded" Line Location: NOTES+16
Function Call: WRITE	Prompt: !?1,"Status Update",?27,"User" Line Location: NOTES+20
Function Call: WRITE	Prompt: !?1,"Notes: ",?8,^UTILITY($J,"W",DIWL,APCDX,0) Line Location: WPS+4
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("* LIST OF VISITS WITH CHART AUDIT STATUS OF INCOMPLETE *",80) Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,$$CTR("******************************************************************",80) Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEAD1+7
Function Call: WRITE	Prompt: !!,"VISIT DATE",?19,"HRN",?31,"PATIENT NAME",?50,"LOCATION",?61,"SC",?64,"CL",?67,"HOSP LOC",?77,"DEC" Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,APCD80S Line Location: HEAD1+9
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("* LIST OF VISITS WITH CHART AUDIT STATUS OF INCOMPLETE *",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: !,"VISIT TYPE: NOT Contract" Line Location: COVPAGE+8
Function Call: WRITE	Prompt: !!,"LOCATION OF ENCOUNTER: " Line Location: COVPAGE+9
Function Call: WRITE	Prompt: "All" Line Location: COVPAGE+10
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: COVPAGE+11
Function Call: WRITE	Prompt: ?24,$E($P(^DIC(4,Y,0),U),1,15) Line Location: COVPAGE+11
Function Call: WRITE	Prompt: !!,"CLINICS: " Line Location: COVPAGE+12
Function Call: WRITE	Prompt: "All" Line Location: COVPAGE+13
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: COVPAGE+14
Function Call: WRITE	Prompt: ?24,$E($P(^DIC(40.7,Y,0),U),1,15) Line Location: COVPAGE+14
Function Call: WRITE	Prompt: !!,"HOSPITAL LOCATIONS: " Line Location: COVPAGE+15
Function Call: WRITE	Prompt: "All" Line Location: COVPAGE+16
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: COVPAGE+17
Function Call: WRITE	Prompt: ?24,$E($P(^SC(Y,0),U),1,15) Line Location: COVPAGE+17
Function Call: WRITE	Prompt: !!,"PRIMARY PROVIDER ON VISIT: " 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(^VA(200,Y,0),U),1,15) Line Location: COVPAGE+20
Function Call: WRITE	Prompt: !!,"CHART DEFICIENCY REASONS: " Line Location: COVPAGE+21
Function Call: WRITE	Prompt: "All (includes visits with no chart deficiency reason entered" Line Location: COVPAGE+22
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: COVPAGE+23
Function Call: WRITE	Prompt: ?24,$E($P(^AUTTCDR(Y,0),U),1,15) Line Location: COVPAGE+23
Routine Call	DIR Line Location: EOP+4 DONE+4 HEAD2

FileNo	Call Tags
9000095.12	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNCANT - [#9000095]	NOTES+2, NOTES+24, WP+3, WP+4
^AUPNCANT("B"	NOTES+23
^AUPNVCA - [#9000010.45]	LASTCDR+5, LASTCDR+6, LASTCDR+10, NOTES+21
^AUPNVCA("AD"	LASTCDR+2, LASTCDR+4, NOTES+18
^AUPNVPOV("AD"	ERRORCHK+3, ERRORCHK+4
^AUPNVPRV - [#9000010.06]	ERRORCHK+8
^AUPNVPRV("AD"	ERRORCHK+7
^AUPNVSIT - [#9000010]	PROCESS+6, N+4, DSORT+2, DSORT+3, SSORT+2, LSORT+2, CSORT+2, OSORT+2, ASORT+2, HSORT+1 , TSORT+2, TSORT+4, PRN1+1, PRN1+9
^AUPNVSIT("B"	PROCESS+4, PROCESS+5
^AUTTCDR - [#99999.05]	COVPAGE+23
^DIC - [#1]	DE+2, DE2+2, DE2+4
^DIC(4 - [#4]	PRN1+6, COVPAGE+11
^DIC(40.7 - [#40.7]	COVPAGE+14
^DPT - [#2]	PRN1+6
^SC - [#44]	COVPAGE+17
^UTILITY($J	NOTES+22!, WP+1!, WPS+1, WPS+4, WPS+5, WPS+7!
^VA(200 - [#200]	COVPAGE+20
^XTMP("APCDCAFI"	PROCESS+2, N+23, XIT+1!, PRINT1+3, PRINT1+4, PRINT1+5

Name	Line Occurrences
$$CTR	HEAD1+4, HEAD1+5, HEAD1+6, HEAD1+7, COVPAGE+3, COVPAGE+4, COVPAGE+5, COVPAGE+6
$$LASTCDR	RSORT+1
$$SORT	N+23
@(	SORT+3
COVPAGE	PRINT+5
DE	PRINT1+8
DE2	DE+2
ER	PRINT1+12
HEAD	PRINT1+2, DE+3, PRN1+5, NOTES+19, WPS+3
HEAD1	HEAD+2
HEAD2	HEAD+1
NOTES	PRINT1+10
PRINT1	PRINT+6
PRN1	PRINT1+6
XIT	DONE+1

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*, HEAD1+9
>> APCDBD	PROCESS+3, PRINT+2, COVPAGE+7
>> APCDBDD	PRINT+2*, HEAD1+7
>> APCDBT	DONE+2
>> APCDC	NOTES+18, NOTES+20, WPS+1, WPS+2, WPS+4, WPS+5
>> APCDCDRS	N+19, N+20, N+22
>> APCDCDRS(	N+21, COVPAGE+23
>> APCDCLNS	N+11, N+12
>> APCDCLNS(	N+12, COVPAGE+14
>> APCDDEM	HEAD+1
>> APCDDEMM	HEAD+1
>> APCDDVH	DONE+2*, DONE+3
>> APCDDVM	DONE+3*
>> APCDDVS	DONE+3*
>> APCDDVTS	DONE+2, DONE+3
>> APCDED	PROCESS+4, PRINT+2, COVPAGE+7
>> APCDEDD	PRINT+2*, HEAD1+7
>> APCDERR	ERRORCHK+2, ERRORCHK+3, ERRORCHK+5, ERRORCHK+6, ERRORCHK+9*
>> APCDET	DONE+2
>> APCDG	NOTES+2, NOTES+12, NOTES+16
>> APCDH	PROCESS+1*, N+23, XIT+1, PRINT1+3, PRINT1+4, PRINT1+5
>> APCDHLS	N+14, N+15
>> APCDHLS(	N+15, COVPAGE+17
>> APCDHRN	PRN1+3, PRN1+4, PRN1+6
>> APCDJ	PROCESS+1*, N+23, XIT+1, PRINT1+3, PRINT1+4, PRINT1+5
>> APCDLOCS	N+9
>> APCDLOCS(	N+9, COVPAGE+11
>> APCDN1	NOTES+2*, NOTES+3
APCDNDA	NOTES+23*, NOTES+24, WP+3, WP+4, WPS+7!
>> APCDODAT	PROCESS+3, PROCESS+4, PROCESS+5
>> APCDP	DE+1, DE+4, DE2+4
>> APCDPG	PRINT+3, HEAD+2, HEAD1+1, HEAD1+2, COVPAGE+1
>> APCDPRVS	N+16, N+17
>> APCDPRVS(	N+17, COVPAGE+20
APCDQUIT	PRINT+4!, DONE+1, PRINT1+1!, PRINT1+4, PRINT1+5, PRINT1+7, PRINT1+9, DE+2, DE+3, PRN1+5 , NOTES+18, NOTES+19, WPS+1, WPS+3, HEAD2*
>> APCDRCNT	PROCESS+4*
>> APCDS	PRINT1+4*, PRINT1+5
>> APCDSORT	N+23
>> APCDV	ERRORCHK+3, ERRORCHK+4, ERRORCHK+7, PRINT1+5*, PRN1+1, PRN1+7, PRN1+8, PRN1+9, NOTES+2, NOTES+3 , NOTES+18, NOTES+23
>> APCDV0	PROCESS+6*, PROCESS+7, N+1, N+2, N+3, N+7, N+10, N+13
>> APCDVCAS	N+4*, N+5
APCDVCDR	N+18!, N+19
APCDVCDR(	N+21
>> APCDVCLN	N+10*, N+11, N+12
>> APCDVDFN	DE2+3*
>> APCDVDG	DE2+2*
>> APCDVFLE	DE+2*, DE2+1, DE2+2, DE2+4
>> APCDVHL	N+13*, N+14, N+15
>> APCDVIEN	PROCESS+4, PROCESS+5, PROCESS+6, N+4, N+6, N+18, N+23
>> APCDVIGR	DE2+2*, DE2+3
>> APCDVLOC	N+7*, N+8, N+9
>> APCDVPP	N+6*, N+16, N+17
>> APCDVR	PRN1+1*, PRN1+2, PRN1+3, PRN1+6, PRN1+7
APCDX	NOTES+18, NOTES+21, WP+2, WP+3, WP+4, WPS+1, WPS+4, WPS+5, WPS+6!, WPS+7!
>> APCLCDRS	COVPAGE+22
>> APCLCLNS	COVPAGE+13
>> APCLHLS	COVPAGE+16
>> APCLLOCS	COVPAGE+10
>> APCLPRV	COVPAGE+19
>> C	ERRORCHK+7, ERRORCHK+8, ERRORCHK+9, COVPAGE+11, COVPAGE+14, COVPAGE+17, COVPAGE+20, COVPAGE+23*
D	DATE~, DATE+2, DATE+3, DATE+4, LASTCDR+3~, LASTCDR+6, LASTCDR+7, TSORT+3~, TSORT+4, TSORT+5 , TSORT+6
>> DFN	PRN1+2*, PRN1+3, PRN1+4, PRN1+6
DFOUT	EOP+3!
DIR	EOP+2~, DONE+4!, HEAD2!
DIR("A"	EOP+4*
DIR(0	EOP+4, DONE+4, HEAD2*
DIRUT	EOP+3!
DIWF	WP+3*, WPS+6!
DIWL	WP+3*, WPS+1, WPS+4, WPS+5, WPS+6!
DIWR	WP+3*, WPS+6!
DLOUT	EOP+3!
DT	PROCESS+2, HEAD1+2, COVPAGE+1
DTOUT	EOP+3!, HEAD2
DUOUT	EOP+3!
DUZ(2	HSORT+1, TSORT+6, PRN1+4
F	LASTCDR~, LASTCDR+1*, LASTCDR+10
>> G	N+20, N+21, N+22
I	RBLK+1~, RBLK+2, LBLK+1~, LBLK+2
>> IENS	NOTES+3*, NOTES+4, NOTES+5, NOTES+7, NOTES+8, NOTES+10, NOTES+11, NOTES+13
IO	DONE+4, HEAD2
IO(0	DONE+4, HEAD2
IOF	DONE+5, HEAD1+1
IOM	CTR+1
IOSL	DE+3, PRN1+5, NOTES+19, WPS+3
IOST	EOP+1, DONE+4, HEAD2
L	RBLK~, RBLK+2, LBLK~, LBLK+2, LASTCDR+3~, LASTCDR+8, LASTCDR+9, LASTCDR+10
>> LINE	NOTES+10, NOTES+11, NOTES+12, NOTES+13*, NOTES+14
>> PROV	NOTES+7*
>> PROVN	NOTES+8*, NOTES+10
R	SORT+1~, SORT+2, SORT+4, SORT+5, DSORT+3, SSORT+3, LSORT+3, CSORT+3, OSORT+3, PSORT+1 , ASORT+3, ASORT+4, RSORT+1, NSORT+1, HSORT+1, TSORT+6, TSORT+7*
S	SORT~, SORT+3
U	N+1, N+2, N+3, N+4, N+7, N+10, N+13, ERRORCHK+8, LASTCDR+6, LASTCDR+10 , DSORT+3, HSORT+1, TSORT+4, DE2+4, PRN1+1, PRN1+2, PRN1+3, PRN1+6, PRN1+7, PRN1+9 , NOTES+21, COVPAGE+11, COVPAGE+14, COVPAGE+17, COVPAGE+20, COVPAGE+23
V	RBLK~, RBLK+2, RBLK+3, LBLK~, LBLK+2, LBLK+3, LASTCDR~, LASTCDR+2, LASTCDR+4, SORT~ , DSORT+1, DSORT+2, DSORT+3, SSORT+1, SSORT+2, SSORT+3, LSORT+1, LSORT+2, LSORT+3, CSORT+1 , CSORT+2, CSORT+3, OSORT+1, OSORT+2, OSORT+3, PSORT+1, ASORT+1, ASORT+2, ASORT+3, RSORT+1 , NSORT+1, HSORT+1, TSORT+1, TSORT+2, TSORT+4
X	N+21, 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, WP+4, HEAD1+7, CTR~, CTR+1
Y	DATE+1~, DATE+4, DATE+5, PRINT+2, HEAD2, CTR~, CTR+1, COVPAGE+11, COVPAGE+14, COVPAGE+17* , COVPAGE+20, COVPAGE+23
>> Z	RBLK+2, LBLK+2

Customize PDF page

Package: Patient Care Component

Routine: APCDCAFJ

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: