Routine: APCDCAFS

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

Package	Total	Caller Graph
Patient Care Component	4	APCDCAF APCDCAFJ APCDCAFR APCDCAFV

Name	Comments	DBIA/ICR reference
RSORT	;
DE	;EP;FIND DEP ENTRIES
EOP	;EP - End of page.
DONE	;
PRINT	;EP - called from xbdbque
ASORT	;
PRINT1	; Print report 2
CTR(X,Y)	;EP - Center X in a field Y wide.
COVPAGE	;
GETVCDR(V,R)	;EP - are there any pending deficiencies
TSORT	;
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
$$SCW^APCDCAF	PROCESS+11
$$CLINIC^APCLV	PRN1+6
$$PRIMPROV^APCLV	N+6, PSORT+1, PRN1+7
$$HRN^AUPNPAT	HSORT+1, TSORT+6, PRN1+3, PRN1+4
$$GET1^DIQ	GETVCDR+6, GETVCDR+7, GETVCDR+8
^DIR	EOP+5, DONE+4, HEAD2
$$VAL^XBDIQ1	ERRORCHK+5, ERRORCHK+6, LASTCDR+11, SSORT+3, LSORT+3, CSORT+3, OSORT+3, ASORT+3, NSORT+1, PRN1+6
$$EXTSET^XBFUNC	COVPAGE+17
EN^XBVK	XIT+2
$$FMADD^XLFDT	PROCESS+2
$$FMTE^XLFDT	DATE+4, PRN1+5, 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: !?10,"This visit has: " Line Location: DE+1
Function Call: WRITE	Prompt: ?27,$P($P(^DIC(APCDVFLE,0),U),"V ",2),"'s",! Line Location: DE2+3
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+5
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+6
Function Call: WRITE	Prompt: !," Ext Acct #: ",$P($G(^AUPNVSIT(APCDV,12)),U,11) Line Location: PRN1+8
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/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: 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+10
Function Call: WRITE	Prompt: !,APCD80S Line Location: HEAD1+11
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/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: !,"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: !!,"SERVICE CATEGORIES: " 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,$$EXTSET^XBFUNC(9000010,.07,Y) Line Location: COVPAGE+17
Function Call: WRITE	Prompt: !!,"HOSPITAL LOCATIONS: " 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(^SC(Y,0),U),1,15) Line Location: COVPAGE+20
Function Call: WRITE	Prompt: !!,"PRIMARY PROVIDER ON VISIT: " 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(^VA(200,Y,0),U),1,15) Line Location: COVPAGE+23
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,$$EXTSET^XBFUNC(9000010.45,Y,.04) Line Location: COVPAGE+26
Function Call: WRITE	Prompt: !!,"CHART DEFICIENCY REASONS: " Line Location: COVPAGE+27
Function Call: WRITE	Prompt: "All (includes visits with no chart deficiency reason entered" Line Location: COVPAGE+28
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: COVPAGE+29
Function Call: WRITE	Prompt: ?24,$E($P(^AUTTCDR(Y,0),U),1,15) Line Location: COVPAGE+29
Routine Call	DIR Line Location: EOP+5 DONE+4 HEAD2

FileNo	Call Tags
9000095.12	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^APCDSITE - [#9001001.2]	PROCESS+9
^AUPNCANT - [#9000095]	GETVCDR+4
^AUPNVCA - [#9000010.45]	GETVCDR+13, LASTCDR+5, LASTCDR+6, LASTCDR+7, LASTCDR+11
^AUPNVCA("AD"	GETVCDR+12, LASTCDR+4
^AUPNVPOV("AD"	ERRORCHK+3, ERRORCHK+4
^AUPNVPRV - [#9000010.06]	ERRORCHK+8
^AUPNVPRV("AD"	ERRORCHK+7
^AUPNVSIT - [#9000010]	PROCESS+6, N+22, DSORT+2, DSORT+3, SSORT+2, LSORT+2, CSORT+2, OSORT+2, ASORT+2, HSORT+1 , TSORT+2, TSORT+4, PRN1+1, PRN1+8
^AUPNVSIT("B"	PROCESS+4, PROCESS+5
^AUTTCDR - [#99999.05]	COVPAGE+29
^DIC - [#1]	DE+2, DE2+2, DE2+3, DE2+11, DE2+12
^DIC(4 - [#4]	PRN1+5, COVPAGE+11
^DIC(40.7 - [#40.7]	COVPAGE+14
^DPT - [#2]	PRN1+5
^SC - [#44]	COVPAGE+20
^VA(200 - [#200]	DE2+11, DE2+12, COVPAGE+23
^XTMP("APCDCAFR"	PROCESS+2, N+31, 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+31
@(	SORT+3
COVPAGE	PRINT+5
DE	PRINT1+8
DE2	DE+2
ER	PRINT1+9
GETVCDR	N+25
HEAD	PRINT1+2, PRINT1+6
HEAD1	HEAD+2
HEAD2	HEAD+1
N	PROCESS+9
PRINT1	PRINT+6
PRN1	PRINT1+7
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+8*, LASTCDR+10
A(0	LASTCDR+9
>> APCD80S	PRINT+1*, HEAD1+11
APCDAPOV	DE2+4!
APCDAPOV(	DE2+9, DE2+10
APCDAPRV	DE2+4!
APCDAPRV(	DE2+11, DE2+12
>> APCDBD	PROCESS+3, PRINT+2, COVPAGE+7
>> APCDBDD	PRINT+2*, HEAD1+7
>> APCDBT	DONE+2
>> APCDCDRS	N+27, N+28, N+30, COVPAGE+28
>> APCDCDRS(	N+29, COVPAGE+29
>> APCDCLNS	N+15, N+16, COVPAGE+13
>> APCDCLNS(	N+16, 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
>> APCDH	PROCESS+1*, N+31, XIT+1, PRINT1+3, PRINT1+4, PRINT1+5
>> APCDHLS	N+18, N+19, COVPAGE+19
>> APCDHLS(	N+19, COVPAGE+20
>> APCDHRN	PRN1+3, PRN1+4, PRN1+5
>> APCDJ	PROCESS+1*, N+31, XIT+1, PRINT1+3, PRINT1+4, PRINT1+5
>> APCDK12D	DE2+6, DE2+7, DE2+10, DE2+11, DE2+12
>> APCDK12N	DE2+6*, DE2+7
>> APCDK16D	DE2+8*, DE2+9
>> APCDK16N	DE2+8*
>> APCDLOCS	N+10, COVPAGE+10
>> APCDLOCS(	N+10, COVPAGE+11
>> APCDODAT	PROCESS+3, PROCESS+4, PROCESS+5
>> APCDPG	PRINT+3, HEAD+2, HEAD1+1, HEAD1+2, COVPAGE+1
>> APCDPRV	COVPAGE+22
>> APCDPRVS	N+20, N+21
>> APCDPRVS(	N+21, COVPAGE+23
APCDQUIT	PRINT+4!, DONE+1, PRINT1+1!, PRINT1+4, PRINT1+5, PRINT1+6, HEAD2*
>> APCDRCNT	PROCESS+4*
>> APCDS	PRINT1+4*, PRINT1+5
>> APCDSCS	N+13, COVPAGE+16
>> APCDSCS(	N+13, COVPAGE+17
>> APCDSORT	N+31
>> APCDV	ERRORCHK+3, ERRORCHK+4, ERRORCHK+7, PRINT1+5*, PRN1+1, PRN1+6, PRN1+7, PRN1+8
>> APCDV0	PROCESS+6*, PROCESS+7, PROCESS+9, PROCESS+11, N+1, N+2, N+3, N+8, N+11, N+14 , N+17
>> APCDVCAS	N+22*, N+23
APCDVCDR	N+25!, N+27
APCDVCDR(	N+29
>> APCDVCLN	N+14*, N+15, N+16
>> APCDVDFN	DE2+3, DE2+5, DE2+6, DE2+8
>> APCDVDG	DE2+2*, DE2+6, DE2+8
>> APCDVFLE	DE+2*, DE2+1, DE2+2, DE2+3, DE2+8, DE2+11, DE2+12
>> APCDVHL	N+17*, N+18, N+19
>> APCDVI	DE2+5*
>> APCDVIEN	PROCESS+4, PROCESS+5, PROCESS+6, N+6, N+22, N+25, N+31
>> APCDVIGR	DE2+2*, DE2+3, DE2+5
>> APCDVLOC	N+8*, N+9, N+10
>> APCDVPP	N+6*, N+20, N+21
>> APCDVR	PRN1+1*, PRN1+2, PRN1+3, PRN1+5, PRN1+6
>> C	ERRORCHK+7, ERRORCHK+8, ERRORCHK+9, COVPAGE+11, COVPAGE+14, COVPAGE+17, COVPAGE+20, COVPAGE+23, COVPAGE+29
D	DATE~, DATE+2, DATE+3, DATE+4, LASTCDR+3~, LASTCDR+7, LASTCDR+8, TSORT+3~, TSORT+4, TSORT+5 , TSORT+6
>> DFN	PRN1+2*, PRN1+3, PRN1+4, PRN1+5
DFOUT	EOP+4!
DIR	EOP+3~, DONE+4!, HEAD2!
DIR("A"	EOP+5*
DIR(0	EOP+5, DONE+4, HEAD2*
DIRUT	EOP+4!
DLOUT	EOP+4!
DT	PROCESS+2, HEAD1+2, COVPAGE+1
DTOUT	EOP+4!, HEAD2
DUOUT	EOP+4!
DUZ(2	PROCESS+9, HSORT+1, TSORT+6, PRN1+4
F	LASTCDR~, LASTCDR+1*, LASTCDR+11
>> G	N+28, N+29, N+30
I	GETVCDR+2~, GETVCDR+8, GETVCDR+9, GETVCDR+10, GETVCDR+13, GETVCDR+14, GETVCDR+15, RBLK+1~, RBLK+2, LBLK+1~ , LBLK+2
IEN	GETVCDR+2~, GETVCDR+3, GETVCDR+4, GETVCDR+5, GETVCDR+12*, GETVCDR+13
>> IENS	GETVCDR+5*, GETVCDR+6, GETVCDR+7, GETVCDR+8
IO	DONE+4, HEAD2
IO(0	DONE+4, HEAD2
IOF	DONE+5, HEAD1+1
IOM	CTR+1
IOSL	PRINT1+6
IOST	EOP+1, DONE+4, HEAD2
L	RBLK~, RBLK+2, LBLK~, LBLK+2, LASTCDR+3~, LASTCDR+9*, LASTCDR+10
R	GETVCDR~, GETVCDR+10, GETVCDR+15, 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	PROCESS+9, PROCESS+11, N+1, N+2, N+3, N+8, N+11, N+14, N+17, N+22 , GETVCDR+13, ERRORCHK+8, LASTCDR+6, LASTCDR+7, LASTCDR+11, DSORT+3, HSORT+1, TSORT+4, DE2+3, DE2+9 , DE2+10, DE2+11, DE2+12, PRN1+1, PRN1+2, PRN1+3, PRN1+5, PRN1+6, PRN1+8, COVPAGE+11 , COVPAGE+14, COVPAGE+20, COVPAGE+23, COVPAGE+29
V	GETVCDR~, GETVCDR+1, GETVCDR+4, GETVCDR+5, GETVCDR+12, RBLK~, RBLK+2, RBLK+3, LBLK~, LBLK+2 , LBLK+3, LASTCDR~, 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+11, N+12, N+13, N+29, 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, LASTCDR+8, LASTCDR+10 , LASTCDR+11, 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, COVPAGE+29*
>> Z	RBLK+2, LBLK+2

Customize PDF page

Package: Patient Care Component

Routine: APCDCAFS

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: