Routine: XDRCNT

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Toolkit	2	FILE^XDRDQUE EN^XDRVCHEK
VA Fileman	2	DD^%DT ^DIR

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

Toolkit

FILE^XDRDQUE EN^XDRVCHEK

VA Fileman

DD^%DT ^DIR

Name	Comments	DBIA/ICR reference
ZIS
HEADER	;print header information
PROCESS	;
EOJ	;Eoj cleanup
START	;
INIT	;initialize variables
HEADER1	;
TSKMN	;
INFORM	;inform user
PRINT	;print report
GETFILE	;get file to tally records fo

Name	Field # of Occurrence
DD^%DT	HEADER1+2
^%ZIS	ZIS
^%ZISC	EOJ+5
^%ZTLOAD	TSKMN+5
^DIR	HEADER+3
FILE^XDRDQUE	GETFILE+4
EN^XDRVCHEK	START+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"Dictionary error!! Notify a programmer!" Line Location: INIT+2
Function Call: WRITE	Prompt: !!,"Dictionary error!! Notify a programmer!" Line Location: INIT+5
Function Call: WRITE	Prompt: !!,$C(7),"Dictionary error!! Notify a programmer!" Line Location: INIT+6
Function Call: WRITE	Prompt: !!,"Dictionary error!! Notify a programmer!" Line Location: INIT+9
Function Call: WRITE	Prompt: !! Line Location: ZIS+0
Function Call: WRITE	Prompt: !!,"Total Number of Duplicate Records for File ",$E(XDRD(0,0),1,18),": ",?65,$J(XDRCNT("TOTAL RECS"),6),! Line Location: PRINT+3
Function Call: WRITE	Prompt: !?5,"STATUS field:" Line Location: PRINT+4
Function Call: WRITE	Prompt: ! Line Location: PRINT+5
Function Call: WRITE	Prompt: !?5,"MERGE STATUS field:" Line Location: PRINT+7
Function Call: WRITE	Prompt: ! Line Location: PRINT+8
Function Call: WRITE	Prompt: !!,"End of Report. Press return to exit" Line Location: PRINT+11
Function Call: WRITE	Prompt: ! Line Location: HEADER+3
Function Call: WRITE	Prompt: !?3,$P(^DIC(4,DUZ(2),0),U) Line Location: HEADER1+2
Function Call: WRITE	Prompt: ?50,Y,?70,"Page ",XDRCNT("PG"),?78,! Line Location: HEADER1+2
Function Call: WRITE	Prompt: !?12,"TALLY OF DUPLICATE RECORDS' STATUS/MERGE STATUS FIELDS" Line Location: HEADER1+3
Function Call: WRITE	Prompt: !?((80-XDRCNT("LENG"))/2),"FILE: ",XDRD(0,0),?78,! Line Location: HEADER1+5
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+6
Function Call: WRITE	Prompt: !!,"This report will tally the Status and Merge Status fields for all",!,"entries in the Duplicate record file for the file that you select.",! Line Location: INFORM+1
Routine Call	DIR Line Location: HEADER+3
Routine Call	%ZIS Line Location: ZIS

Name	Line Occurrences (* Changed, ! Killed)
^DD(15	INIT+2, INIT+6
^DIC - [#1]	GETFILE+6
^DIC(4 - [#4]	HEADER1+2
^VA(15 - [#15]	PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+7, PROCESS+11

Name	Line Occurrences
EOJ	START+5, START+7, START+9
GETFILE	START+4
HEADER	PRINT+2, PRINT+5, PRINT+8
HEADER1	HEADER+2
INFORM	START+2
INIT	START+3
PROCESS	START+8
TSKMN	ZIS+2
ZIS	START+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	ZIS*
D	PROCESS+1~, PROCESS+4*, PROCESS+5, PROCESS+7, PROCESS+11
>> DIC("A"	GETFILE+4*
DIR	HEADER+1~, HEADER+3!
DIR(0	HEADER+3*
DT	HEADER1+2
DTIME	PRINT+11
>> DTOUT	HEADER+3
DUZ(2	HEADER1+2
I	EOJ+3!, INIT+4, INIT+8
IO	TSKMN+1, PRINT+1, HEADER+3
IO("DOC"	TSKMN+2
IO("Q"	ZIS+2
IO(0	HEADER+3
IOF	EOJ+4, HEADER1+1
IOM	TSKMN+3
ION	TSKMN+1
IOP	ZIS!
IOSL	TSKMN+3, PRINT+5, PRINT+8
IOST	TSKMN+1, PRINT+11, HEADER+3
POP	EOJ+3!, ZIS+1
S	EOJ+3!, INIT+4, INIT+8, PROCESS+1~, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+12
U	INIT+3, INIT+7, GETFILE+6, PROCESS+7, PROCESS+11, HEADER1+2
X	INIT+2, INIT+3, INIT+4, INIT+6, INIT+7, INIT+8, PROCESS+1~, PROCESS+3, PROCESS+4, PROCESS+5 , PRINT+4, PRINT+6, PRINT+7, PRINT+9, PRINT+11, HEADER+1~
XDRCNT	EOJ+1!
XDRCNT("GBL"	GETFILE+6*, PROCESS+3
XDRCNT("LENG"	HEADER1+4*, HEADER1+5
XDRCNT("MERGE	STATUS" , INIT+8, INIT+9, PROCESS+12, PRINT+7, PRINT+9
XDRCNT("PG"	INIT+1, HEADER+2, HEADER1+1, HEADER1+2
XDRCNT("QUIT"	PRINT+5, PRINT+8, HEADER+3*
XDRCNT("STATUS"	INIT+4, INIT+5, PROCESS+9, PRINT+4, PRINT+6
XDRCNT("TOTAL	RECS" , INIT+10, PROCESS+6, PRINT+3
XDRD	EOJ+1!
XDRD(0	PRINT+3, HEADER1+4, HEADER1+5
XDRFL	EOJ+1!, GETFILE+1!, GETFILE+6
XDRNOPT	GETFILE+3~
XDRQFLG	START+5, START+7, EOJ+1!, INIT+1, INIT+2, INIT+5, INIT+6, INIT+9, GETFILE+5, ZIS+1 , TSKMN+5*
Y	HEADER+1~, HEADER+3, HEADER1+2*
>> ZTDESC	TSKMN+5*
>> ZTDTH	TSKMN+5*
>> ZTIO	TSKMN+1, TSKMN+2, TSKMN+3*
ZTQUEUED	EOJ+2, ZIS!
>> ZTREQ	EOJ+2*
>> ZTRTN	TSKMN+5*
ZTSAVE	TSKMN+4!
ZTSAVE("*"	TSKMN+4*
ZTSK	EOJ+3!, ZIS!

Customize PDF page

Package: Toolkit

Routine: XDRCNT

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: