Routine: DG53618

Information

DG53618 ;ALB/GN/PHH,EG - DG*5.3*618 CLEANUP DANGLING RECS; 04/27/2005

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	3	(,$$S)^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL
VA FileMan	3	^DIK $$GET1^DIQ ^DIR
Registration	2	$$NAMSPC^DG53618 $$MAIL^DG53618M

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: 2

Package	Total	Caller Graph
Registration	2	DG53618 DG53618M

Entry Points

Name	Comments	DBIA/ICR reference
POST	;post install entry tag call. processes entire file in live mode
TEST	; Entry point for taskman (testing mode)
QUE	; Entry point for taskman (live mode)
GOODPAT(DFN)	;determine if patient is there
GOODPTR(PT)	;determine if reference is there
ACHK03(R12,PT,ZTQUEUED,TESTING,DGBADPAT,DGBADPER,DGBAD03)	;
DEL40812(R12,DGDEL12,DGDEL21,DGDEL22,ZTQUEUED,TESTING,NAMSPC)	; ; Kill bad #408.12 file rec and files that point to it
CHKSTAT(POST)	;
KILIT	; kill Xtmp work file for a re-run
STOP	; alternate stop method
SETUPX(EXPDAY)	;Setup XTMP
NAMSPC()	; Return a consistent name space variable

External References

Name	Field # of Occurrence
^%ZTLOAD	POST+13
$$S^%ZTLOAD	QUE+33
$$NAMSPC^DG53618	QUE+1, KILIT+1, SETUPX+3
$$MAIL^DG53618M	QUE+109
^DIK	QUE+80, ACHK03+16, DEL40812+3, DEL40812+10, DEL40812+19
$$GET1^DIQ	QUE+40, QUE+41
^DIR	CHKSTAT+20, CHKSTAT+25
$$FMADD^XLFDT	SETUPX+5
$$FMTE^XLFDT	CHKSTAT+15
$$NOW^XLFDT	QUE+26, QUE+107, QUE+108, SETUPX+4
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: !,"Task is already running or user opted to not restart" Line Location: TEST+6
Function Call: WRITE	Prompt: !!,"File #408.12, ien ",R12," has a bad pointer to " Line Location: QUE+48
Function Call: WRITE	Prompt: X Line Location: QUE+52
Function Call: WRITE	Prompt: X Line Location: QUE+60
Function Call: WRITE	Prompt: X Line Location: QUE+69
Function Call: WRITE	Prompt: X Line Location: QUE+77
Function Call: WRITE	Prompt: X Line Location: QUE+85
Function Call: WRITE	Prompt: X Line Location: QUE+93
Function Call: WRITE	Prompt: !," ",X Line Location: ACHK03+6
Function Call: WRITE	Prompt: !," ",X Line Location: ACHK03+14
Function Call: WRITE	Prompt: !," ",X Line Location: ACHK03+21
Function Call: WRITE	Prompt: !," ",X Line Location: ACHK03+28
Function Call: WRITE	Prompt: !,?2,"Deleting 408.12 ien > ",R12 Line Location: DEL40812+5
Function Call: WRITE	Prompt: !,?4,X Line Location: DEL40812+13
Function Call: WRITE	Prompt: !,?6,X Line Location: DEL40812+22
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: CHKSTAT+20 CHKSTAT+25

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPR(408.12 - [#408.12]	Classic Fileman Calls, GET1^DIQ
^DGPR(408.13 - [#408.13]	Classic Fileman Calls
^DGMT(408.21 - [#408.21]	Classic Fileman Calls
^DGMT(408.22 - [#408.22]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.21 - [#408.21]	DEL40812+9
^DGMT(408.22 - [#408.22]	DEL40812+18
^DGPR(408.12 - [#408.12]	QUE+30
^DPT - [#2]	GOODPAT+4, GOODPAT+5
^XTMP(	QUE+11, QUE+25, QUE+26, QUE+34!, QUE+38, QUE+53, QUE+61, QUE+70, QUE+78, QUE+86 , QUE+94, QUE+101, QUE+105, QUE+107, QUE+108, QUE+111, ACHK03+7, ACHK03+15, ACHK03+23, ACHK03+30 , DEL40812+14, DEL40812+23, CHKSTAT+4, CHKSTAT+8, CHKSTAT+9, KILIT+2!, STOP+1, SETUPX+6, SETUPX+7*

Label References

Name	Line Occurrences
$$CHKSTAT	POST+5, TEST+5
$$GOODPAT	QUE+44, QUE+58, QUE+67, QUE+75, QUE+83, QUE+91
$$GOODPTR	QUE+44, QUE+67, QUE+75, QUE+91, ACHK03+3, ACHK03+11, ACHK03+26
$$NAMSPC	QUE+111, CHKSTAT+3, STOP+1
ACHK03	QUE+55, QUE+64
DEL40812	QUE+97
KILIT	CHKSTAT+11, CHKSTAT+28
QUE	TEST+8
SETUPX	QUE+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BEGTIME	QUE+2~, SETUPX+1~, SETUPX+4*, SETUPX+5, SETUPX+6
CHKPNT	POST+1~, POST+12*
COUNT	QUE+3~
DA	QUE+2~, QUE+80, ACHK03+16, DEL40812+2~, DEL40812+3, DEL40812+10, DEL40812+19*
DFN	QUE+5~, QUE+40*, QUE+44, QUE+50, QUE+58, QUE+59, QUE+67, QUE+75, QUE+83, QUE+91 , GOODPAT~, GOODPAT+3, GOODPAT+4, GOODPAT+5
DGBAD03	QUE+4~, QUE+19, QUE+55, QUE+64, QUE+87, QUE+95, QUE+104, ACHK03~, ACHK03+22, ACHK03+29*
DGBADPAT	QUE+4~, QUE+17, QUE+54, QUE+55, QUE+62, QUE+64, QUE+71, QUE+103, ACHK03~, ACHK03+4*
DGBADPER	QUE+4~, QUE+18, QUE+55, QUE+64, QUE+79, QUE+104, ACHK03~, ACHK03+12*
DGDEL12	QUE+2~, QUE+14, QUE+97, QUE+102, DEL40812~, DEL40812+4
DGDEL21	QUE+2~, QUE+15, QUE+97, QUE+102, DEL40812~, DEL40812+11
DGDEL22	QUE+3~, QUE+16, QUE+97, QUE+103, DEL40812~, DEL40812+20
DGTOT	QUE+2~, QUE+13, QUE+37, QUE+38
DIK	QUE+2~, QUE+80, ACHK03+16, DEL40812+2~, DEL40812+3, DEL40812+10, DEL40812+19*
DIR	CHKSTAT+17!, CHKSTAT+23!
DIR("?"	CHKSTAT+18, CHKSTAT+19, CHKSTAT+24*
DIR(0	CHKSTAT+20, CHKSTAT+25
DTOUT	CHKSTAT+1~
DUOUT	CHKSTAT+1~
EXPDAY	SETUPX~, SETUPX+5
GL	GOODPTR+1~, GOODPTR+4*, GOODPTR+7, GOODPTR+8, GOODPTR+11, GOODPTR+12
ICDT	QUE+3~
MTIEN	QUE+2~
NAMSPC	QUE+1~, QUE+11, QUE+25, QUE+26, QUE+34, QUE+38, QUE+53, QUE+61, QUE+70, QUE+78 , QUE+86, QUE+94, QUE+97, QUE+101, QUE+105, QUE+107, QUE+108, ACHK03+7, ACHK03+15, ACHK03+23 , ACHK03+30, DEL40812~, DEL40812+14, DEL40812+23, CHKSTAT+1~, CHKSTAT+3, CHKSTAT+4, CHKSTAT+8, CHKSTAT+9, KILIT+1* , KILIT+2, SETUPX+1~, SETUPX+3*, SETUPX+6, SETUPX+7
POST	CHKSTAT~, CHKSTAT+11
PT	QUE+5~, QUE+41*, QUE+44, QUE+55, QUE+64, QUE+67, QUE+68, QUE+75, QUE+76, QUE+80 , QUE+83, QUE+91, QUE+92, GOODPTR~, GOODPTR+3, GOODPTR+4, ACHK03~, ACHK03+3, ACHK03+5, ACHK03+11 , ACHK03+13, ACHK03+16, ACHK03+19, ACHK03+26, ACHK03+27
PURGDT	QUE+2~, SETUPX+1~, SETUPX+5*, SETUPX+6
QQ	QUE+2~, QUE+30*, QUE+32
QUIT	CHKSTAT+1~, CHKSTAT+2, CHKSTAT+21, CHKSTAT+26*, CHKSTAT+30
R12	QUE+5~, QUE+12, QUE+30, QUE+38, QUE+40, QUE+41, QUE+48, QUE+53, QUE+55, QUE+61 , QUE+64, QUE+70, QUE+78, QUE+86, QUE+94, QUE+97, ACHK03~, ACHK03+7, ACHK03+15, ACHK03+23 , ACHK03+30, DEL40812~, DEL40812+3, DEL40812+5, DEL40812+9, DEL40812+14, DEL40812+23
R21	DEL40812+2~, DEL40812+8, DEL40812+9, DEL40812+10, DEL40812+12, DEL40812+14, DEL40812+18, DEL40812+23
R22	DEL40812+2~, DEL40812+17, DEL40812+18, DEL40812+19, DEL40812+21, DEL40812+23
REC12	QUE+3~
REC21	QUE+3~
REC22	QUE+3~
REF	GOODPTR+1~, GOODPTR+8*, GOODPTR+9, GOODPTR+10
STAT	CHKSTAT+1~, CHKSTAT+8*, CHKSTAT+14
STIME	CHKSTAT+1~, CHKSTAT+9*, CHKSTAT+15
SUB	GOODPTR+1~, GOODPTR+4, GOODPTR+5, GOODPTR+6, GOODPTR+8
TESTING	TEST+1~, TEST+2, QUE+7~, QUE+55, QUE+64, QUE+80, QUE+97, QUE+109, QUE+110!, ACHK03~ , ACHK03+16, DEL40812~, DEL40812+3, DEL40812+10, DEL40812+19
TMP	QUE+3~
TYPE	QUE+3~
TYPNAM	QUE+3~
U	QUE+5~, QUE+6, QUE+12, QUE+13, QUE+14, QUE+15, QUE+16, QUE+17, QUE+18, QUE+19 , QUE+25, QUE+26, QUE+38, QUE+102, QUE+103, QUE+104, QUE+107, QUE+108, GOODPAT+1~, GOODPAT+2 , GOODPTR+1~, GOODPTR+2, GOODPTR+12, CHKSTAT+8, CHKSTAT+9, SETUPX+1~, SETUPX+2, SETUPX+6, SETUPX+7
X	QUE+5~, QUE+51, QUE+52, QUE+53, QUE+59, QUE+60, QUE+61, QUE+68, QUE+69, QUE+70 , QUE+76, QUE+77, QUE+78, QUE+84, QUE+85, QUE+86, QUE+92, QUE+93, QUE+94, QUE+101* , QUE+102, QUE+103, QUE+104, QUE+105, QUE+109, GOODPAT+1~, GOODPAT+5, GOODPAT+6, GOODPTR+1~, GOODPTR+9 , GOODPTR+11, GOODPTR+12, ACHK03+5, ACHK03+6, ACHK03+7, ACHK03+13, ACHK03+14, ACHK03+15, ACHK03+20, ACHK03+21 , ACHK03+23, ACHK03+27, ACHK03+28, ACHK03+30, DEL40812+2~, DEL40812+12, DEL40812+13, DEL40812+14, DEL40812+21, DEL40812+22 , DEL40812+23
XREC	QUE+2~, QUE+11*, QUE+12, QUE+13, QUE+14, QUE+15, QUE+16, QUE+17, QUE+18, QUE+19
Y	CHKSTAT+1~, CHKSTAT+21, CHKSTAT+26
ZTDESC	POST+1~, POST+10*
ZTDTH	POST+1~, POST+11*
ZTIO	POST+1~, POST+11*
ZTQUEUED	POST+1~, TEST+1~, TEST+2, QUE+8~, QUE+48, QUE+52, QUE+55, QUE+60, QUE+64, QUE+69 , QUE+77, QUE+85, QUE+93, QUE+97, ACHK03~, ACHK03+6, ACHK03+14, ACHK03+21, ACHK03+28, DEL40812~ , DEL40812+5, DEL40812+13, DEL40812+22
ZTRTN	POST+1~, POST+9*
ZTSAVE	POST+1~
ZTSAVE("CHKPNT"	POST+12*
ZTSK	POST+1~, POST+14
ZTSTOP	QUE+2~, QUE+29, QUE+30, QUE+33, QUE+34*, QUE+36, QUE+107

Marked Items

Name	Field # of Occurrence
$T(	NAMSPC+1

Customize PDF page

Package: Registration