Routine: APCDFC2

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA Fileman	4	DD^%DT C^%DTC EN^DIQ1 ^DIR
Patient Care Component	1	PRINT^APCDFC2

Package	Total	Caller Graph
Patient Care Component	1	APCDFC2

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
CALDEC	;
SUB	;subtotal by visit date
ERR
SORTA	;
EOJ	; clean up and exit
PRINT	;EP
DATE	;
DONE
TSKMN	;
ZTSK	;
SET
INFORM	;
1	;
V1	;
3	;TYPE
2	;
4	;
SORT	;
HEAD
ZIS
ED	;get ending date
DRIVER	; entry point for taskman
WRITE	;
P	; Run by posting date
XIT	;
EP	;
HEAD1	;
SUMMPAGE	;
GETDATES	;
SORT1	;
PROC	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1, WRITE+2
C^%DTC	ED+4
^%ZIS	ZIS
^%ZISC	XIT+1
^%ZTLOAD	TSKMN+5
PRINT^APCDFC2	ZTSK+4
EN^DIQ1	2+3, 3+3
^DIR	BD+1, ED+1, SORTA+1, SUB+2, DONE+2, SUMMPAGE+1, HEAD+1
$$FMTE^XLFDT	PRINT+3, WRITE+12, SUMMPAGE+3, HEAD1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!! Line Location: EP+2
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER",!! Line Location: EP+3
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !! Line Location: ZIS+0
Function Call: WRITE	Prompt: $C(7),$C(7),!,"Must be a valid date and be Today or earlier. Time not allowed!" Line Location: ERR+0
Function Call: WRITE	Prompt: !,"This report will generate a count of visits entered by you for a ",!,"date range that you specify.",! Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"The report can be subtotaled by CLINIC TYPE, SERVICE CATEGORY OR BY VISIT TYPE.",! Line Location: INFORM+3
Function Call: WRITE	Prompt: ?65,$J(APCDAVG,6,1) Line Location: PRINT+11
Function Call: WRITE	Prompt: !!,"RUN TIME (H.M.S): ",APCDH,".",APCDM,".",APCDS Line Location: DONE+1
Function Call: WRITE	Prompt: !?42,"------",?52,"-------",?65,"------",! Line Location: SORT+3
Function Call: WRITE	Prompt: ?5,"Totals for ",APCDPROV,?42,$J(APCDSUB,6),?52,$J(APCDDESU,7),?65,$J((APCDDESU/APCDSUB),6,1) Line Location: SORT+4
Function Call: WRITE	Prompt: !,$S(APCDSRT]"":APCDSORT,1:"") Line Location: SORT1+2
Function Call: WRITE	Prompt: !?25,APCDWDAT,?42,$J(^XTMP("APCDFC2",$J,APCDPROV,APCDSORT,APCDDATE),6),?52,$J(APCDVDES,7),?65,$J(APCDAVG,6) Line Location: WRITE+6
Function Call: WRITE	Prompt: !?27,"Visit Dates Processed:" Line Location: WRITE+9
Function Call: WRITE	Prompt: !?27,$$FMTE^XLFDT(APCDVDAT),?42,$J(^XTMP("APCDFC2",$J,APCDPROV,APCDSORT,"VISIT DATE",APCDDATE,APCDVDAT),6) Line Location: WRITE+12
Function Call: WRITE	Prompt: ! Line Location: SUMMPAGE+1
Function Call: WRITE	Prompt: !?55,$$FMTE^XLFDT(DT),?70,"Page ",APCDPG Line Location: SUMMPAGE+3
Function Call: WRITE	Prompt: !?20,"SUMMARY OF FORMS KEYED BY ALL OPERATORS" Line Location: SUMMPAGE+4
Function Call: WRITE	Prompt: !?15,"VISIT POSTING DATES: ",APCDBDD," TO ",APCDEDD,! Line Location: SUMMPAGE+5
Function Call: WRITE	Prompt: ?22,"# days",?29,"# of",?36,"%",?45,"Avg #",?56,"Avg # dep",?68,"Avg # dep" Line Location: SUMMPAGE+6
Function Call: WRITE	Prompt: !?5,"Operator",?22,"of D/E",?29,"forms",?36,"workload",?45,"forms/day",?56,"ent/day",?68,"ent/form" Line Location: SUMMPAGE+7
Function Call: WRITE	Prompt: !,APCD80S Line Location: SUMMPAGE+8
Function Call: WRITE	Prompt: !,X,?32,$J(APCDFC("FORMS",X),8),?40,$J((APCDFC("FORMS",X)/APCDFC("DAYS",X)),8,1),?51,$J(((APCDFC("FORMS",X)/APCDTOT)*100),8,1),?67,APCDFC("AVG DEC",X) Line Location: SUMMPAGE+9
Function Call: WRITE	Prompt: !,$E(X,1,20),?22,$J(APCDSUM(X,"#DAYS"),6),?29,$J(APCDSUM(X,"#FORMS"),6),?36,$J(((APCDSUM(X,"#FORMS")/APCDTOT)*100),8,1) Line Location: SUMMPAGE+10
Function Call: WRITE	Prompt: !?29,"--------",!?27,$J(APCDTOT,8) Line Location: SUMMPAGE+14
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: @IOF Line Location: HEAD1+1
Function Call: WRITE	Prompt: !?55,$$FMTE^XLFDT(DT),?70,"Page ",APCDPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?((80-APCDLENG)/2),$P(^DIC(4,DUZ(2),0),U),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?((80-APCDLENG)/2),"NUMBER OF FORMS KEYED SUBTOTALED BY ",APCDSRT,! Line Location: HEAD1+6
Function Call: WRITE	Prompt: ?29,"NUMBER OF FORMS KEYED",! Line Location: HEAD1+7
Function Call: WRITE	Prompt: ?((80-APCDLENG)/2),"DATE ENTRY OPERATOR: ",APCDPROV,! Line Location: HEAD1+9
Function Call: WRITE	Prompt: ?15,"VISIT POSTING DATES: ",APCDBDD," TO ",APCDEDD,! Line Location: HEAD1+10
Function Call: WRITE	Prompt: !,APCDSRT,?25,"POSTING DATE",?40,"# FORMS",?50,"# DEP ENT",?63,"AVG # DEP ENT",! Line Location: HEAD1+11
Function Call: WRITE	Prompt: APCD80S,! Line Location: HEAD1+12
Routine Call	DIR Line Location: BD+1 ED+1 SORTA+1 SUB+2 DONE+2 SUMMPAGE+1 HEAD+1
Routine Call	%ZIS Line Location: ZIS

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVSIT - [#9000010]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDFORM - [#9001001.5]	V1+1, PROC+1, PROC+2, PROC+3, PROC+4
^APCDFORM("B"	P+1
^AUPNVPOV("AD"	PROC+9
^AUPNVPRV("AD"	PROC+10
^AUPNVSIT - [#9000010]	V1+1, PROC+5
^DIC - [#1]	CALDEC+2, CALDEC+10
^DIC(4 - [#4]	HEAD1+3, HEAD1+4
^DIC(40.7 - [#40.7]	1+2
^UTILITY("DIQ1"	2+1!, 2+4, 2+5!, 3+1!, 3+4, 3+5!
^VA(200 - [#200]	PROC+3, PROC+4
^XTMP("APCDFC2"	DRIVER+3!, XIT+3!, SET, SET+1, SET+3, PRINT+6, PRINT+7, SORT+2, SORT1+3, WRITE+4 , WRITE+6, WRITE+7, WRITE+10, WRITE+12, WRITE+15

Label References

Name	Line Occurrences
@(	PROC+11
BD	ED+2, SORTA+2
DATE	PROC+12
DONE	PRINT+6, PRINT+8
HEAD	PRINT+6, PRINT+7, SORT1+1, WRITE+3, WRITE+11
HEAD1	HEAD
INFORM	EP+4
P	ZTSK+1
PROC	V1+1
SORT	PRINT+7
SORT1	SORT+2
SORTA	SUB+3
SUB	SORTA+3
TSKMN	ZIS+2
V1	P+1
WRITE	SORT1+3
XIT	BD+2, ZIS+1, ZTSK+6, TSKMN+5

Naked Globals

Name	Field # of Occurrence
^(	SET, SET+1, SET+3*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TSKMN+4*
%DT	XIT+4!
>> %ZIS	ZIS*
APCD1	XIT+5!, EOJ+1!
APCD2	XIT+5!, EOJ+1!
APCD80S	XIT+5!, PRINT+2*, SUMMPAGE+8, HEAD1+12
APCDAP	XIT+5!, PROC+4*, SET, SET+1, SET+3, EOJ+1!
APCDAVG	XIT+6!, WRITE+4*, WRITE+6
APCDBD	BD+3*, ED+1, ED+4, XIT+5!, PRINT+3
APCDBDD	XIT+5!, PRINT+3*, SUMMPAGE+5, HEAD1+10
APCDBT	DRIVER+1*, XIT+5!, DONE
APCDC	XIT+6!, V1+1*, PROC+1, PROC+2, PROC+3, PROC+4
APCDCLIN	EOJ+1!, 1+1*, 1+2
APCDDATE	XIT+5!, SET, SET+1, SET+3, EOJ+1!, DATE+1, SORT1+3, WRITE+2, WRITE+4, WRITE+6 , WRITE+7, WRITE+10, WRITE+12, WRITE+15
APCDDEC	ED+6*, XIT+5!, XIT+6!, PROC+1
APCDDESU	XIT+5!, SORT+1, SORT+4, SORT+6, WRITE+15
APCDDFN	XIT+6!, P+1*, V1+1, PROC+1, PROC+2, PROC+3, PROC+4
APCDDT	XIT+5!
APCDED	ED+3*, XIT+5!, P+1, PRINT+3
APCDEDD	XIT+5!, PRINT+3*, SUMMPAGE+5, HEAD1+10
>> APCDEDFN	CALDEC+11*
>> APCDEL	CALDEC+11*
APCDET	ZTSK+2*, XIT+5!, DONE
APCDFC	XIT+5!
APCDFC("AVG D	EC" , SORT+6*
APCDFC("DAYS"	SORT+1, WRITE+16
APCDFC("FORMS"	SORT+5*
>> APCDFL	CALDEC+2*
APCDGOT	XIT+5!
APCDH	XIT+4!, DONE*, DONE+1
APCDLENG	XIT+6!, HEAD1+3, HEAD1+4, HEAD1+5, HEAD1+6, HEAD1+8*, HEAD1+9
APCDM	XIT+4!, DONE+1*
APCDODAT	XIT+6!, P+1*, DATE+1
APCDPG	XIT+6!, PRINT+2, SUMMPAGE+2, SUMMPAGE+3, HEAD, HEAD1+1*, HEAD1+2
APCDPROC	SORTA+3*, XIT+6!, PROC+11
APCDPROV	XIT+6!, EOJ+1!, PRINT+4, PRINT+6, PRINT+7*, SORT+1, SORT+2, SORT+4, SORT+5, SORT+6 , SORT1+3, WRITE+1, WRITE+4, WRITE+5, WRITE+6, WRITE+7, WRITE+10, WRITE+12, WRITE+15, WRITE+16 , HEAD1+8, HEAD1+9
APCDQUIT	PRINT+5!, PRINT+7, PRINT+8, SORT+2, SORT1+1, SORT1+3, WRITE+3, WRITE+10, WRITE+11, WRITE+14 , SUMMPAGE+1, HEAD+1
APCDS	XIT+4!, DONE+1*
APCDSD	ED+4*, XIT+6!, P+1
APCDSEC	EOJ+1!
APCDSITE	EP+1*, EP+2!, EP+3!, XIT+6!
APCDSKIP	EOJ+1!
APCDSORT	XIT+6!, SET, SET+1, SET+3, 1+1, 1+2, 2+4, 4+1, 3+4, SORT+2 , SORT1+2, SORT1+3, WRITE+4, WRITE+6, WRITE+7, WRITE+10, WRITE+12, WRITE+15
APCDSRT	SORTA+3, SORTA+4, XIT+6!, SORT1+2, HEAD1+5, HEAD1+6, HEAD1+7, HEAD1+11
APCDSUB	XIT+6!, SORT+1, SORT+4, SORT+5, SORT+6, WRITE+15
APCDSUBV	SUB+1, SUB+4, XIT+5!, SET+2, WRITE+8
APCDSUM	PRINT+1!
APCDSUM(	WRITE+1, WRITE+5, WRITE+7*, SUMMPAGE+10, SUMMPAGE+11, SUMMPAGE+12, SUMMPAGE+13
APCDTDES	XIT+5!, PRINT+4, WRITE+15
APCDTOT	XIT+6!, PRINT+4, WRITE+15, SUMMPAGE+10, SUMMPAGE+14
APCDTS	XIT+4!, DONE, DONE+1
APCDVDAT	XIT+5!, PROC+6, SET+3, WRITE+10, WRITE+12
APCDVDES	XIT+5!, SET+1, EOJ+1!, CALDEC+1, CALDEC+11, WRITE+4*, WRITE+5, WRITE+6, WRITE+15
APCDVDFN	XIT+6!, V1+1*, PROC+5, PROC+9, PROC+10, 2+3, 2+4, 3+3, 3+4
>> APCDVDG	CALDEC+10*
>> APCDVFLE	CALDEC+2*, CALDEC+3, CALDEC+4, CALDEC+5, CALDEC+6, CALDEC+7, CALDEC+8, CALDEC+9, CALDEC+10
>> APCDVIGR	CALDEC+10*, CALDEC+11
APCDVREC	XIT+6!, PROC+5*, PROC+6, PROC+7, PROC+8, EOJ+1!, 1+1
APCDWDAT	XIT+6!, WRITE+2*, WRITE+6
APCDX	XIT+5!, EOJ+1!
APCDY	XIT+6!, EOJ+1!
APCDZ	EOJ+1!
DA	SUB+2!, 2+2!, 2+3!, 3+2!, 3+3!
DIC	XIT+4!, 2+2!, 2+3!, 3+2!, 3+3!
DIQ	2+2!, 2+3!, 3+2!, 3+3!
DIQ(0	2+3, 3+3
DIR	BD+1!, ED+1!, SORTA+1!, SUB+2!, DONE+2!, SUMMPAGE+1!, HEAD+1!
DIR("A"	BD+1, ED+1, SORTA+1, SUB+2
DIR("B"	ED+1, SORTA+1, SUB+2*
DIR(0	BD+1, ED+1, SORTA+1, SUB+2, DONE+2, SUMMPAGE+1, HEAD+1*
DIRUT	BD+1, BD+2, ED+1, ED+2, SORTA+2, SUB+3, XIT+4!
DR	2+2!, 2+3!, 3+2!, 3+3!
DT	SUMMPAGE+3, HEAD1+2
>> DTOUT	SUMMPAGE+1, HEAD+1
>> DUOUT	BD+1, ED+1
DUZ	ED+6
DUZ(2	EP+1, EP+2, EP+3, HEAD1+3, HEAD1+4
IO	ZTSK+3, TSKMN+1, DONE+2, SUMMPAGE+1, HEAD+1
IO("DOC"	TSKMN+2
IO("Q"	ZIS+2, XIT+4!
IO(0	DONE+2, SUMMPAGE+1, HEAD+1
>> IOCPU	TSKMN+5
IOF	INFORM+1, DONE+3, SUMMPAGE+2, HEAD1+1
IOM	TSKMN+3
ION	TSKMN+1
IOSL	TSKMN+3, SORT1+1, WRITE+3, WRITE+11
IOST	TSKMN+1, DONE+2, SUMMPAGE+1, HEAD+1
POP	ZIS+1, XIT+4!
U	DRIVER+2*, V1+1, PROC+1, PROC+2, PROC+3, PROC+4, PROC+6, PROC+7, PROC+8, 1+1 , 1+2, HEAD1+3, HEAD1+4
X	ED+4, XIT+4!, SUMMPAGE+10*, SUMMPAGE+11, SUMMPAGE+12, SUMMPAGE+13
>> X1	ED+4*
>> X2	ED+4*
Y	BD+3, ED+1, ED+3, SORTA+3, SUB+4, XIT+4!, WRITE+2, SUMMPAGE+1, HEAD+1
Y(0	SORTA+4
>> ZTCPU	TSKMN+5*
>> ZTDESC	TSKMN+5*
>> ZTDTH	TSKMN+5*
ZTIO	TSKMN+1, TSKMN+2, TSKMN+3*, XIT+4!
>> ZTQUEUED	ZTSK+5
>> ZTREQ	ZTSK+5*
>> ZTRTN	TSKMN+5*
ZTSAVE	TSKMN+4!
ZTSAVE(	TSKMN+4*
ZTSK	XIT+4!

Customize PDF page

Package: Patient Care Component

Routine: APCDFC2

Information

Source Information

Call Graph

Call Graph Total: 9

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

Naked Globals

Local Variables

Legend: