Routine: DG53558

Information

DG53558 ;ALB/GN - DG*5.3*558 CLEANUP FOR DUPE MEANS TEST FILE ;8/15/08 12:27pm

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	3	(,$$S)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL
Registration	3	$$NAMSPC^DG53558 ($$DEL,MAIL,SETUPX)^DG53558M CLNDUPS^DG53558N
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Registration	3	DG CLEANUP INCOME TEST DUPES DG53558 DG53558M

Entry Points

Name	Comments	DBIA/ICR reference
TEST	; Entry point for testing this routine
EN	; Entry point for purging Duplicate Means Tests
POST	;
QUET	; Entry point for taskman (testing mode)
QUE	; Entry point for taskman (live mode)
DELBAD(IEN,DFN,PUR,DELETED)	; Kill Bad test
CHKSTAT(POST)	;check if job is running, stopped, or completed
KILIT	; kill Xtmp work files for a re-run
STOP	; alternate stop method
NAMSPC()	; Return a consistent name space variable

External References

Name	Field # of Occurrence
^%ZTLOAD	EN+24, POST+12
$$S^%ZTLOAD	QUE+72
$$NAMSPC^DG53558	QUE+1, KILIT+1
$$DEL^DG53558M	DELBAD+4
MAIL^DG53558M	QUE+78
SETUPX^DG53558M	QUE+19
CLNDUPS^DG53558N	QUE+65
^DIR	EN+9, CHKSTAT+20, CHKSTAT+25
$$FMTE^XLFDT	CHKSTAT+15
$$NOW^XLFDT	QUE+23, QUE+76, QUE+77
BMES^XPDUTL	POST+6, CHKSTAT+5
MES^XPDUTL	POST+2, POST+3, POST+4, POST+7, POST+14, POST+15, POST+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Do you want to process a group of "_CHKPNT_" duplicates and stop? " Line Location: EN+4
Function Call: WRITE	Prompt: !,"Cancelled...",! Line Location: EN+10
Function Call: WRITE	Prompt: !!,ZTDESC,! Line Location: EN+20
Function Call: WRITE	Prompt: !,"This request queued as Task # ",ZTSK,! Line Location: EN+27
Function Call: WRITE	Prompt: !,"Deleting BAD IEN in 408.31 > ",IEN," for DFN > ",DFN Line Location: DELBAD+8
Function Call: WRITE	Prompt: " was Completed on "_$$FMTE^XLFDT(STIME) Line Location: CHKSTAT+15
Function Call: WRITE	Prompt: !," Do you want to Re-Run again?" Line Location: CHKSTAT+16
Function Call: WRITE	Prompt: !," ARE YOU SURE?" Line Location: CHKSTAT+22
Routine Call	DIR Line Location: EN+9 CHKSTAT+20 CHKSTAT+25

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(408.33 - [#408.33]	QUE+53
^DGMT(408.31 - [#408.31]	QUE+27, QUE+34, QUE+35!, QUE+36, QUE+37, QUE+38, QUE+39, QUE+40, QUE+42, QUE+45 , QUE+52
^XTMP(	EN+25, POST+13, QUE+2, QUE+3, QUE+10, QUE+22, QUE+23, QUE+56, QUE+57, QUE+58 , QUE+67, QUE+68, QUE+73!, QUE+76, QUE+77, QUE+80, CHKSTAT+4, CHKSTAT+8, CHKSTAT+9, KILIT+2! , STOP+1*

Label References

Name	Line Occurrences
$$CHKSTAT	EN+22, POST+5
$$NAMSPC	EN+25, POST+13, QUE+80, CHKSTAT+3, STOP+1
DELBAD	QUE+54
KILIT	CHKSTAT+11, CHKSTAT+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BEGTIME	QUE+4~
CHKPNT	EN+2~, EN+3, EN+4, EN+6, EN+12, POST+1~, POST+11*, QUE+28
COUNT	QUE+5~, QUE+60*, QUE+61
DA	QUE+4~
DELETED	QUE+5~, QUE+26, QUE+54, QUE+55, DELBAD~, DELBAD+1, DELBAD+4, DELBAD+5, DELBAD+6
DFN	QUE+5~, QUE+11, QUE+27, QUE+34, QUE+35, QUE+47, QUE+54, QUE+56, QUE+57, QUE+60 , QUE+61, QUE+62, QUE+63, QUE+65, QUE+67, DELBAD~, DELBAD+3*, DELBAD+4, DELBAD+8
DIK	QUE+4~
DIR	EN+5!, CHKSTAT+17!, CHKSTAT+23!
DIR("?"	EN+6, EN+7, EN+8, CHKSTAT+18, CHKSTAT+19, CHKSTAT+24
DIR(0	EN+9, CHKSTAT+20, CHKSTAT+25*
DTOUT	EN+10, CHKSTAT+1~
DUOUT	EN+10, CHKSTAT+1~
ICDT	QUE+5~, QUE+36*, QUE+47, QUE+56, QUE+57, QUE+60, QUE+61, QUE+62, QUE+63
IEN	DELBAD~, DELBAD+2, DELBAD+4, DELBAD+8
IVMBAD	QUE+4~, QUE+14, QUE+54, QUE+58, QUE+68, DELBAD+7
IVMCV	QUE+6~, QUE+43, QUE+44, QUE+45, QUE+46
IVMDUPE	QUE+5~, QUE+16*, QUE+28
IVMIEN	QUE+5~
IVMIEND	QUE+6~
IVMPFL	QUE+6~, QUE+15*, QUE+68
IVMPUR	QUE+4~, QUE+13*, QUE+16, QUE+28, QUE+67
IVMTOT	QUE+4~, QUE+12, QUE+30, QUE+67
LINK	QUE+6~, DELBAD+4
LTNAM	QUE+6~
LTYP	QUE+6~
MAX	QUE+6~, QUE+41, QUE+42, QUE+44
MTIEN	QUE+4~, QUE+33, QUE+34, QUE+35, QUE+36, QUE+37, QUE+38, QUE+39, QUE+40, QUE+42 , QUE+45, QUE+47, QUE+52, QUE+54, QUE+56, QUE+57, QUE+62, QUE+63
MTST	QUE+5~, QUE+37*, QUE+47, QUE+51, QUE+60, QUE+61, QUE+62, QUE+63
MTVER	QUE+6~, QUE+40*, QUE+56, QUE+57, QUE+60, QUE+61, QUE+62, QUE+63
NAMSPC	QUE+1~, QUE+2, QUE+3, QUE+10, QUE+22, QUE+23, QUE+56, QUE+57, QUE+58, QUE+67 , QUE+68, QUE+73, QUE+76, QUE+77, CHKSTAT+1~, CHKSTAT+3, CHKSTAT+4, CHKSTAT+8, CHKSTAT+9, KILIT+1* , KILIT+2
POST	CHKSTAT~, CHKSTAT+11
PRI	QUE+5~, QUE+38, QUE+48, QUE+62, QUE+63
PRIM	QUE+5~
PUR	DELBAD~
PURGDT	QUE+4~
QQ	QUE+4~, QUE+27*, QUE+71
QUIT	EN+2~, EN+22, EN+23, CHKSTAT+1~, CHKSTAT+2, CHKSTAT+21, CHKSTAT+26, CHKSTAT+29
SRCE	QUE+6~, QUE+39*, QUE+46
STAT	CHKSTAT+1~, CHKSTAT+8*, CHKSTAT+14
STIME	CHKSTAT+1~, CHKSTAT+9*, CHKSTAT+15
TESTING	TEST+1, EN+15, QUET+1, QUE+7, QUE+79!, DELBAD+3, DELBAD+4, DELBAD+5
TMP	QUE+5~, QUE+29!
TMP(	QUE+60, QUE+61, QUE+62, QUE+63*
TMPIVM	QUE+6~, QUE+29!
TMPIVM(	QUE+47*
TYPE	QUE+5~, QUE+52*, QUE+53, QUE+56
TYPNAM	QUE+5~, QUE+52, QUE+53, QUE+57
U	QUE+3, QUE+11, QUE+12, QUE+13, QUE+14, QUE+15, QUE+22, QUE+23, QUE+58, QUE+67 , QUE+68, QUE+76, QUE+77, CHKSTAT+8, CHKSTAT+9
XREC	QUE+4~, QUE+10*, QUE+11, QUE+12, QUE+13, QUE+14, QUE+15
XX	QUE+6~, QUE+44*, QUE+45
Y	EN+12, CHKSTAT+1~, CHKSTAT+21, CHKSTAT+26
ZTDESC	EN+2~, EN+16, EN+20, POST+1~, POST+9
ZTDTH	POST+1~, POST+10*
ZTIO	EN+2~, EN+17, POST+1~, POST+10
ZTQUEUED	EN+2~, POST+1~, DELBAD+8
ZTRTN	EN+2~, EN+15, POST+1~, POST+8
ZTSAVE	EN+2~, POST+1~
ZTSAVE("CHKPNT"	EN+18, POST+11
ZTSK	EN+2~, EN+26, EN+27, POST+1~, POST+14
ZTSTOP	QUE+4~, QUE+26, QUE+27, QUE+28, QUE+72, QUE+73, QUE+76

Customize PDF page

Package: Registration