Routine: DG488

Information

DG488 ;ALB/GN - CLEANUP PATIENT RELATION & INCOME FILES;12/11/02 ; 2/4/03 1:25pm

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	2	(,$$S)^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT
VA Fileman	2	^DIK ^DIR
Registration	1	MAIL^DG488M

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Registration	3	DG488 CLEANUP 408 FILES DG488 TEST CLEANUP 408 FILES DG488M

Entry Points

Name	Comments	DBIA/ICR reference
GETLAST	;get last run info
DG40822(IEN)	; Main Cleanup driver for file 408.22
TASK	; Entry point for taskman
CHKSTAT()	;check if job is running, stopped, or completed
DEL40821(R12,DG21,DG21X)	; Delete any entries in 408.21 that point to the bad ; 408.12 record.
DG22AIND(R21)	;Delete any entries in 408.22 that is pointing to the bad 408.21
STOP	; alternate stop method
DG40821(IEN)	; Main Cleanup driver for file 408.21, If 408.21 not pointed to ; by any 408.22 record, then delete it and check 408.12 for possible ; deletion as well.
DEL21(R21,R12,DG21)	; save to Xtmp & associated REC12, then delete the 408.21
CHK40812(R12,R21,DG12)	; delete 408.12's if no other 408.21's pointing to it
EN	; Entry point to start job
MSG(QUIT)	;print message to user
NAMSPC()	;
TEST	; Entry point for testing this routine, then fall thru.
DG40812(IEN)	; Main Cleanup driver for file 408.12

External References

Name	Field # of Occurrence
^%ZTLOAD	EN+15
$$S^%ZTLOAD	DG40812+25, DG40821+22, DG40822+23
MAIL^DG488M	TASK+37
^DIK	DG40812+19, DEL40821+13, DG22AIND+11, DEL21+5, CHK40812+9, DG40822+17
^DIR	MSG+8, MSG+13
$$FMADD^XLFDT	TASK+11
$$FMTE^XLFDT	MSG+1
$$NOW^XLFDT	TASK+10, TASK+19, TASK+35, TASK+36

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,ZTDESC,! Line Location: EN+10
Function Call: WRITE	Prompt: !,"This request queued as Task # ",ZTSK,! Line Location: EN+19
Function Call: WRITE	Prompt: !!,7," ALREADY RUNNING *" Line Location: CHKSTAT+5
Function Call: WRITE	Prompt: " was "_STAT_" on "_$$FMTE^XLFDT(STIME) Line Location: MSG+1
Function Call: WRITE	Prompt: " in "_$S(TESTMODE:"TEST",1:"LIVE")_" mode " Line Location: MSG+2
Function Call: WRITE	Prompt: !," Do you want to Re-Run in "_$S(TESTING:"TEST",1:"LIVE") Line Location: MSG+3
Function Call: WRITE	Prompt: " mode?" Line Location: MSG+4
Function Call: WRITE	Prompt: !," ARE YOU SURE?" Line Location: MSG+10
Routine Call	DIR Line Location: MSG+8 MSG+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPR(408.12 - [#408.12]	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]	DEL40821+3, DEL40821+5, DEL40821+7!, DEL40821+10, DG40821+4, DG40821+6, DG40821+9, DG40821+11!, DG40821+15, DEL21+1 , DEL21+2, DEL21+3, CHK40812+2
^DGMT(408.22 - [#408.22]	DG22AIND+2, DG22AIND+5, DG22AIND+6!, DG22AIND+9, DG40821+14, DG40822+2, DG40822+4, DG40822+8, DG40822+10!, DG40822+13 , DG40822+15
^DGPR(408.12 - [#408.12]	DG40812+2, DG40812+4, DG40812+8, DG40812+10!, DG40812+13, DG40812+14, CHK40812+7
^XTMP(	EN+14, EN+16, TASK+1, TASK+2, TASK+12, TASK+13, TASK+14, TASK+18, TASK+19, TASK+35* , TASK+36, TASK+38, DG40812+9, DG40812+14, DG40812+26!, DG40812+28, DG40812+29, DG40812+30, DEL40821+6, DEL40821+10 , DG22AIND+9, DG40821+10, DG40821+15, DG40821+23!, DG40821+25, DG40821+26, DG40821+27, DEL21+2, CHK40812+7, DG40822+9* , DG40822+15, DG40822+24!, DG40822+26, DG40822+27, CHKSTAT+4, CHKSTAT+8, CHKSTAT+10, CHKSTAT+11, GETLAST+1, GETLAST+2 , GETLAST+3, GETLAST+4, GETLAST+5, GETLAST+6, GETLAST+7, GETLAST+8, GETLAST+9, GETLAST+10, GETLAST+11, GETLAST+12 , GETLAST+13, GETLAST+14, MSG+16!, STOP+1

Label References

Name	Line Occurrences
$$CHKSTAT	EN+13
$$NAMSPC	EN+14, EN+16, TASK+1, TASK+2, TASK+5, CHKSTAT+3, STOP+1
CHK40812	DG40821+18
DEL21	DG40821+17
DEL40821	DG40812+15
DG22AIND	DEL40821+11
DG40812	TASK+24
DG40821	TASK+28
DG40822	TASK+32
GETLAST	TASK+16
MSG	CHKSTAT+17, CHKSTAT+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BEGTIME	TASK+4~, TASK+10*, TASK+11, TASK+12
BTIME	TASK+4~, GETLAST+12*
DA	TASK+3~, DG40812+18, DG40812+20!, DEL40821+12, DEL40821+14!, DG22AIND+10, DG22AIND+12!, DEL21+4, DEL21+6!, CHK40812+8* , CHK40812+10!, DG40822+16*, DG40822+18!
DG12	TASK+3~, DG40812+21, DG40812+29, DG40821+18, DG40821+26, CHK40812~, CHK40812+11, GETLAST+4*
DG12X	TASK+3~, DG40812+11, DG40812+29, GETLAST+5
DG21	TASK+4~, DG40812+15, DG40812+30, DEL40821~, DEL40821+15, DG40821+17, DG40821+27, DEL21~, DEL21+7, GETLAST+10*
DG21X	TASK+4~, DG40812+15, DG40812+30, DEL40821~, DEL40821+8, DG40821+12, DG40821+27, GETLAST+11*
DG22	TASK+3~, DG40812+29, DG22AIND+7, DG22AIND+13, DG40822+19, DG40822+27, GETLAST+7
DG22X	TASK+3~, DG40822+11, DG40822+27, GETLAST+8
DGFIL	TASK+4~, TASK+21, TASK+22, TASK+25, TASK+26, TASK+29, TASK+30, DG40812+27, DG40821+24, DG40822+25 , GETLAST+1
DGIEN	TASK+4~, TASK+23, TASK+27, TASK+31, GETLAST+2*
DGT12	TASK+3~, DG40812+5, DG40812+24, DG40812+29, GETLAST+3
DGT21	TASK+4~, DG40821+7, DG40821+21, DG40821+27, GETLAST+9
DGT22	TASK+3~, DG40812+29, DG22AIND+3, DG40822+5, DG40822+22, DG40822+27, GETLAST+6*
DIK	TASK+3~, DG40812+18, DG40812+20!, DEL40821+12, DEL40821+14!, DG22AIND+10, DG22AIND+12!, DEL21+4, DEL21+6!, CHK40812+8* , CHK40812+10!, DG40822+16*, DG40822+18!
DIR	MSG+5!, MSG+11!
DIR("?"	MSG+6, MSG+7, MSG+12*
DIR(0	MSG+8, MSG+13
DTOUT	CHKSTAT+1~
DUOUT	CHKSTAT+1~
IEN	TASK+4~, TASK+23, TASK+24, TASK+27, TASK+28, TASK+31, TASK+32, DG40812~, DG40812+2, DG40812+4 , DG40812+9, DG40812+10, DG40812+27, DG40821~, DG40821+4, DG40821+6, DG40821+10, DG40821+11, DG40821+24, DG40822~ , DG40822+2, DG40822+4, DG40822+9, DG40822+10, DG40822+25
LSTREC	TASK+3~, DG40812+27, DG40812+28, DG40821+24, DG40821+25, DG40822+25*, DG40822+26
NAMSPC	TASK+3~, TASK+5, TASK+12, TASK+13, TASK+14, TASK+18, TASK+19, TASK+35, TASK+36, TASK+38 , DG40812+9, DG40812+14, DG40812+26, DG40812+28, DG40812+29, DG40812+30, DEL40821+6, DEL40821+10, DG22AIND+9, DG40821+10 , DG40821+15, DG40821+23, DG40821+25, DG40821+26, DG40821+27, DEL21+2, CHK40812+7, DG40822+9, DG40822+15, DG40822+24 , DG40822+26, DG40822+27, CHKSTAT+1~, CHKSTAT+3, CHKSTAT+4, CHKSTAT+8, CHKSTAT+10, CHKSTAT+11, GETLAST+1, GETLAST+2 , GETLAST+3, GETLAST+4, GETLAST+5, GETLAST+6, GETLAST+7, GETLAST+8, GETLAST+9, GETLAST+10, GETLAST+11, GETLAST+12 , GETLAST+13, GETLAST+14, MSG+16
OK	CHK40812+1~, CHK40812+3, CHK40812+5
PURGDT	TASK+4~, TASK+11*, TASK+12
QUIT	EN+2~, EN+13, EN+14, CHKSTAT+1~, CHKSTAT+2, CHKSTAT+12, CHKSTAT+17, CHKSTAT+19, CHKSTAT+20, MSG~ , MSG+9, MSG+14
R12	DEL40821~, DEL40821+3, DEL40821+6, DEL40821+7, DEL21~, DEL21+3*, CHK40812~, CHK40812+2, CHK40812+7, CHK40812+8
R21	DG22AIND~, DG22AIND+2, DG22AIND+6, DEL21~, DEL21+1, DEL21+2, DEL21+3, DEL21+4, CHK40812~, CHK40812+3
REC12	DG40812+1~, DG40812+3, DG40812+4, DG40812+8, DG40812+9, DG40812+10, DG40812+13, DG40812+14, DG40812+15, DG40812+18 , DG40821+16*, DG40821+17, DG40821+18
REC21	DEL40821+2~, DEL40821+3, DEL40821+5, DEL40821+6, DEL40821+7, DEL40821+10, DEL40821+11, DEL40821+12, DG40821+3~, DG40821+5* , DG40821+6, DG40821+9, DG40821+10, DG40821+11, DG40821+14, DG40821+15, DG40821+17, DG40821+18, CHK40812+1~, CHK40812+2* , CHK40812+3
REC22	DG22AIND+1~, DG22AIND+2, DG22AIND+5, DG22AIND+6, DG22AIND+9, DG22AIND+10, DG40822+1~, DG40822+3, DG40822+4, DG40822+8 , DG40822+9, DG40822+10, DG40822+13, DG40822+15, DG40822+16
STAT	TASK+4~, CHKSTAT+10, CHKSTAT+12, CHKSTAT+16, GETLAST+13, MSG+1
STIME	TASK+4~, CHKSTAT+11, GETLAST+14, MSG+1
TESTING	TEST+1, EN+4, EN+14!, EN+17!, TASK+8*, TASK+14, TASK+39!, DG40812+10, DG40812+19, DEL40821+7 , DEL40821+13, DG22AIND+6, DG22AIND+11, DG40821+11, DEL21+5, CHK40812+9, DG40822+10, DG40822+17, CHKSTAT+19, MSG+3
TESTMODE	CHKSTAT+8~*, CHKSTAT+19, MSG+2
U	TASK+2, TASK+12, TASK+18, TASK+19, TASK+35, TASK+36, DG40812+13, DG40812+28, DG40812+29, DG40812+30 , DG40821+25, DG40821+26, DG40821+27, DEL21+3, DG40822+13, DG40822+26, DG40822+27, CHKSTAT+10, CHKSTAT+11, GETLAST+3 , GETLAST+4, GETLAST+5, GETLAST+6, GETLAST+7, GETLAST+8, GETLAST+9, GETLAST+10, GETLAST+11, GETLAST+12, GETLAST+13 , GETLAST+14
XX	CHK40812+1~, CHK40812+2*, CHK40812+4, CHK40812+5
Y	CHKSTAT+1~, MSG+9, MSG+14
ZTDESC	EN+2~, EN+8, EN+10, TASK+6, TASK+12
ZTIO	EN+2~, EN+9*
ZTQUEUED	EN+2~
ZTRTN	EN+2~, EN+7*
ZTSAVE	EN+2~
ZTSAVE("TESTING"	EN+6*
ZTSK	EN+2~, EN+18, EN+19, TASK+13
ZTSTOP	TASK+3~, TASK+25, TASK+29, TASK+35, DG40812+1, DG40812+2, DG40812+4, DG40812+25, DG40812+26, DG40821+3 , DG40821+4, DG40821+6, DG40821+22, DG40821+23, DG40822+1, DG40822+2, DG40822+4, DG40822+23, DG40822+24*

Customize PDF page

Package: Registration

Routine: DG488

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: