Routine: APCDCAFF

Information

APCDCAFF ; IHS/CMI/LAB - MENTAL HLTH ROUTINE 16-AUG-1994 ;

Source Information

Call Graph

Call Graph Total: 9

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

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Patient Care Component	1	APCDCAFE

Entry Points

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	;
TSORT	;
LBLK(V,L)	;left blank fill
OSORT	;
ER	; CHECK FOR VARIOUS ERRORS
DSORT	;
DATE(D)	;
HEAD	;EP;HEADER
PAGEHEAD	;
ERRORCHK	;
CIT(V,N)	;
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	;

External References

Name	Field # of Occurrence
DD^%DT	PRINT+2
$$SCW^APCDCAF	PROCESS+9
$$CLINIC^APCLV	PRN1+6
$$PRIMPROV^APCLV	N+4, PSORT+1, PRN1+7
$$VD^APCLV	CIT+5, CIT+8, CIT+10
$$HRN^AUPNPAT	HSORT+1, TSORT+6, PRN1+3, PRN1+4
^DIR	EOP+5, DONE+4, HEAD2
$$VAL^XBDIQ1	ERRORCHK+5, ERRORCHK+6, LASTCDR+10, SSORT+3, LSORT+3, CSORT+3, OSORT+3, ASORT+3, NSORT+1, PRN1+6
$$EXTSET^XBFUNC	COVPAGE+16
EN^XBVK	XIT+2
$$FMADD^XLFDT	PROCESS+2
$$FMDIFF^XLFDT	CIT+5, CIT+8, CIT+10
$$FMTE^XLFDT	CIT+11, DATE+4, PRN1+5, HEAD1+2, COVPAGE+1, COVPAGE+6

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 were not reviewed within ",APCDNOD,"days." Line Location: PRINT1+4
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,$P($$CIT(APCDV,APCDNOD),U,2),?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($S(APCDCRN="C":"COUNT",1:"LIST")_" OF VISITS NOT MARKED AS REVIEWED/COMPLETE",80) Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,$$CTR("WITHIN "_APCDNOD_" DAYS OF THE VISIT DATE",80) Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEAD1+6
Function Call: WRITE	Prompt: !!,"CLINIC",?40,"# OF VISITS" Line Location: HEAD1+7
Function Call: WRITE	Prompt: !!,"VISIT DATE",?19,"HRN",?31,"DATE REVIEWED",?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($S(APCDCORL="C":"COUNT",1:"LIST")_" OF VISITS NOT MARKED AS REVIEWED/COMPLETE",80) Line Location: COVPAGE+3
Function Call: WRITE	Prompt: !,$$CTR("WITHIN "_APCDNOD_" DAYS OF THE VISIT DATE.",80) Line Location: COVPAGE+4
Function Call: WRITE	Prompt: !!,$$CTR("VISIT LIST CRITERIA",80) Line Location: COVPAGE+5
Function Call: WRITE	Prompt: !!,"VISIT DATES: ",$$FMTE^XLFDT(APCDBD)," to ",$$FMTE^XLFDT(APCDED) Line Location: COVPAGE+6
Function Call: WRITE	Prompt: !,"VISIT TYPE: NOT Contract" Line Location: COVPAGE+7
Function Call: WRITE	Prompt: !!,"LOCATION OF ENCOUNTER: " Line Location: COVPAGE+8
Function Call: WRITE	Prompt: "All" Line Location: COVPAGE+9
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: COVPAGE+10
Function Call: WRITE	Prompt: ?24,$E($P(^DIC(4,Y,0),U),1,15) Line Location: COVPAGE+10
Function Call: WRITE	Prompt: !!,"CLINICS: " Line Location: COVPAGE+11
Function Call: WRITE	Prompt: "All" Line Location: COVPAGE+12
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: COVPAGE+13
Function Call: WRITE	Prompt: ?24,$E($P(^DIC(40.7,Y,0),U),1,15) Line Location: COVPAGE+13
Function Call: WRITE	Prompt: !!,"SERVICE CATEGORIES: " Line Location: COVPAGE+14
Function Call: WRITE	Prompt: "All" Line Location: COVPAGE+15
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: COVPAGE+16
Function Call: WRITE	Prompt: ?24,$$EXTSET^XBFUNC(9000010,.07,Y) Line Location: COVPAGE+16
Function Call: WRITE	Prompt: !!,"HOSPITAL LOCATIONS: " Line Location: COVPAGE+17
Function Call: WRITE	Prompt: "All" Line Location: COVPAGE+18
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: COVPAGE+19
Function Call: WRITE	Prompt: ?24,$E($P(^SC(Y,0),U),1,15) Line Location: COVPAGE+19
Function Call: WRITE	Prompt: !!,"PRIMARY PROVIDER ON VISIT: " Line Location: COVPAGE+20
Function Call: WRITE	Prompt: "All" Line Location: COVPAGE+21
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: COVPAGE+22
Function Call: WRITE	Prompt: ?24,$E($P(^VA(200,Y,0),U),1,15) Line Location: COVPAGE+22
Routine Call	DIR Line Location: EOP+5 DONE+4 HEAD2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDSITE - [#9001001.2]	PROCESS+8
^AUPNVCA - [#9000010.45]	CIT+7, CIT+10, CIT+11, LASTCDR+5, LASTCDR+6, LASTCDR+10
^AUPNVCA("AD"	CIT+7, LASTCDR+2, LASTCDR+4
^AUPNVPOV("AD"	ERRORCHK+3, ERRORCHK+4
^AUPNVPRV - [#9000010.06]	ERRORCHK+8
^AUPNVPRV("AD"	ERRORCHK+7
^AUPNVSIT - [#9000010]	PROCESS+6, CIT+4, 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
^DIC - [#1]	DE+2, DE2+2, DE2+3, DE2+11, DE2+12
^DIC(4 - [#4]	PRN1+5, COVPAGE+10
^DIC(40.7 - [#40.7]	COVPAGE+13
^SC - [#44]	COVPAGE+19
^VA(200 - [#200]	DE2+11, DE2+12, COVPAGE+22
^XTMP("APCDCAFE"	PROCESS+2, N+20, XIT+1!, PRINT1+4, PRINT1+5, PRINT1+11, PRINT1+12

Label References

Name	Line Occurrences
$$CIT	N+19, PRN1+5
$$CTR	HEAD1+4, HEAD1+5, HEAD1+6, COVPAGE+3, COVPAGE+4, COVPAGE+5
$$LASTCDR	RSORT+1
$$SORT	N+20, N+21
@(	SORT+3
COVPAGE	PRINT+5
DE2	DE+2
HEAD	PRINT1+3, PRINT1+6, PRINT1+10, PRINT1+13
HEAD1	HEAD+2
HEAD2	HEAD+1
N	PROCESS+8
PRINT1	PRINT+6
PRN1	PRINT1+14
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
APCDAPOV	DE2+4!
APCDAPOV(	DE2+9, DE2+10
APCDAPRV	DE2+4!
APCDAPRV(	DE2+11, DE2+12
>> APCDBD	PROCESS+3, PRINT+2, COVPAGE+6
>> APCDBDD	PRINT+2*, HEAD1+6
>> APCDBT	DONE+2
>> APCDCLNS	N+12, N+13, COVPAGE+12
>> APCDCLNS(	N+13, COVPAGE+13
>> APCDCORL	PRINT1+9, COVPAGE+3
>> APCDCOUN(	N+21*, PRINT1+7
>> APCDCRN	PRINT1+2, PRINT1+8, HEAD1+4, HEAD1+7
>> 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+6
>> APCDEDD	PRINT+2*, HEAD1+6
>> APCDERR	ERRORCHK+2, ERRORCHK+3, ERRORCHK+5, ERRORCHK+6, ERRORCHK+9*
>> APCDET	DONE+2
>> APCDH	PROCESS+1*, N+20, XIT+1, PRINT1+4, PRINT1+5, PRINT1+11, PRINT1+12
>> APCDHLS	N+15, N+16, COVPAGE+18
>> APCDHLS(	N+16, COVPAGE+19
>> APCDHRN	PRN1+3, PRN1+4, PRN1+5
>> APCDJ	PROCESS+1*, N+20, XIT+1, PRINT1+4, PRINT1+5, PRINT1+11, PRINT1+12
>> 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+7, COVPAGE+9
>> APCDLOCS(	N+7, COVPAGE+10
>> APCDNOD	N+19, PRINT1+4, PRN1+5, HEAD1+5, COVPAGE+4
>> APCDODAT	PROCESS+3, PROCESS+4, PROCESS+5
>> APCDPG	PRINT+3, HEAD+2, HEAD1+1, HEAD1+2, COVPAGE+1
>> APCDPRV	COVPAGE+21
>> APCDPRVS	N+17, N+18
>> APCDPRVS(	N+18, COVPAGE+22
APCDQUIT	PRINT+4!, DONE+1, PRINT1+1!, PRINT1+5, PRINT1+6, PRINT1+11, PRINT1+12, PRINT1+13, HEAD2*
>> APCDRCNT	PROCESS+4*
>> APCDS	PRINT1+5, PRINT1+7, PRINT1+11, PRINT1+12
>> APCDSCS	N+10, COVPAGE+15
>> APCDSCS(	N+10, COVPAGE+16
>> APCDSORT	N+20, N+21
>> APCDV	ERRORCHK+3, ERRORCHK+4, ERRORCHK+7, PRINT1+12*, PRN1+1, PRN1+5, PRN1+6, PRN1+7, PRN1+8
>> APCDV0	PROCESS+6*, PROCESS+7, PROCESS+8, PROCESS+9, N+1, N+2, N+3, N+5, N+8, N+11 , N+14
>> APCDVCLN	N+11*, N+12, N+13
>> 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+14*, N+15, N+16
>> APCDVI	DE2+5*
>> APCDVIEN	PROCESS+4, PROCESS+5, PROCESS+6, N+4, N+19, N+20, N+21
>> APCDVIGR	DE2+2*, DE2+3, DE2+5
>> APCDVLOC	N+5*, N+6, N+7
>> APCDVPP	N+4*, N+17, N+18
>> APCDVR	PRN1+1*, PRN1+2, PRN1+3, PRN1+5, PRN1+6
>> C	ERRORCHK+7, ERRORCHK+8, ERRORCHK+9, COVPAGE+10, COVPAGE+13, COVPAGE+16, COVPAGE+19, COVPAGE+22*
D	CIT+2~, CIT+8, CIT+10, 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
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, CIT+5, CIT+8, HEAD1+2, COVPAGE+1
DTOUT	EOP+4!, HEAD2
DUOUT	EOP+4!
DUZ(2	PROCESS+8, HSORT+1, TSORT+6, PRN1+4
F	LASTCDR~, LASTCDR+1*, LASTCDR+10
I	RBLK+1~, RBLK+2, LBLK+1~, LBLK+2
IO	DONE+4, HEAD2
IO(0	DONE+4, HEAD2
IOF	DONE+5, HEAD1+1
IOM	CTR+1
IOSL	PRINT1+6, PRINT1+13
IOST	EOP+1, DONE+4, HEAD2
L	RBLK~, RBLK+2, LBLK~, LBLK+2, LASTCDR+3~, LASTCDR+8*, LASTCDR+9
N	CIT~, CIT+5, CIT+8, CIT+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	PROCESS+8, PROCESS+9, N+1, N+2, N+3, N+5, N+8, N+11, N+14, CIT+4 , CIT+5, CIT+6, CIT+7, CIT+8, CIT+10, CIT+11, ERRORCHK+8, LASTCDR+6, LASTCDR+10, 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+10, COVPAGE+13, COVPAGE+19, COVPAGE+22
V	CIT~, CIT+4, CIT+5, CIT+7, CIT+8, CIT+10, 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+8, N+9, N+10, CIT+2~, CIT+4, CIT+5, CIT+6, CIT+7, 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+9, LASTCDR+10, HEAD1+6, CTR~, CTR+1
Y	CIT+2~, CIT+5, CIT+7, CIT+8, CIT+9, CIT+10, CIT+11, DATE+1~, DATE+4, DATE+5 , PRINT+2, HEAD2, CTR~, CTR+1, COVPAGE+10, COVPAGE+13, COVPAGE+16, COVPAGE+19, COVPAGE+22*
Z	CIT+2~, CIT+3, CIT+5, CIT+8, RBLK+2, LBLK+2*

Customize PDF page

Package: Patient Care Component

Routine: APCDCAFF

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: