Routine: SOW3P65

Information

SOW3P65 ;ADM/DBE - Social Work Package Decommission ;5/9/19

Source file <SOW3P65.m>

Package	Total	Call Graph
Kernel	3	^%ZTLOAD ($$FMTE,$$NOW)^XLFDT MES^XPDUTL
VA FileMan	3	$$CREF^DILF ($$ROOT,$$VFILE)^DILFD EN^DIU2
MailMan	1	^XMD

Name	Comments	DBIA/ICR reference
TASK	;task the file deletion
BEGDEL	;background job entry point to remove all files and data
MSGTXT	;message into
LINE(TEXT)	;add line to tmp global stored for mail message
DIRCHK	;checks ^ROUTINE global for files beginning with SOW that were not removed
MAIL	;send message

Name	Line Occurrences (* Changed, ! Killed)
^ROUTINE(	DIRCHK+4
^TMP($J	BEGDEL+4!, BEGDEL+27!, LINE+2*

Name	Line Occurrences
DIRCHK	BEGDEL+21
LINE	BEGDEL+5, BEGDEL+13, BEGDEL+14, BEGDEL+16, BEGDEL+18, BEGDEL+19, BEGDEL+22, BEGDEL+23, BEGDEL+25, DIRCHK+7 , DIRCHK+8, DIRCHK+9, DIRCHK+10, DIRCHK+11
MAIL	BEGDEL+26

Name	Field # of Occurrence
DIU	BEGDEL+2~, BEGDEL+8*, BEGDEL+13, BEGDEL+14
DIU(0	BEGDEL+6*
DUZ	MAIL+3
SOWCNT	BEGDEL+2~, BEGDEL+3, LINE+2
SOWEND	BEGDEL+2~, BEGDEL+24, BEGDEL+25
SOWFILE	BEGDEL+2~, BEGDEL+7*, BEGDEL+8, BEGDEL+9, BEGDEL+12
SOWFLG	BEGDEL+2~, BEGDEL+3, BEGDEL+14, BEGDEL+15
SOWFND	DIRCHK+2~, DIRCHK+3, DIRCHK+6, DIRCHK+11
SOWLOOP	BEGDEL+2~, BEGDEL+5*
SOWNODE	BEGDEL+2~, BEGDEL+8*, BEGDEL+12
SOWSTART	BEGDEL+2~, BEGDEL+3, BEGDEL+23
SOWSTR	BEGDEL+2~, BEGDEL+13, BEGDEL+14, BEGDEL+17, BEGDEL+18, BEGDEL+19, BEGDEL+20, DIRCHK+2~, DIRCHK+8, DIRCHK+9 , DIRCHK+10*
SOWTXT	BEGDEL+2~, BEGDEL+5*
TEXT	LINE~, LINE+2
X	DIRCHK+2~, DIRCHK+4*, DIRCHK+5, DIRCHK+11
XMDUZ	MAIL+2~, MAIL+3*
XMSUB	MAIL+2~, MAIL+4*
XMTEXT	MAIL+2~, MAIL+5*
XMY	MAIL+2~
XMY(	MAIL+3*
ZTDESC	TASK+2~, TASK+7*
ZTDTH	TASK+2~, TASK+8*
ZTIO	TASK+2~, TASK+8*
ZTRTN	TASK+2~, TASK+7*

Name	Field # of Occurrence
$T(MSGTXT+SOWLOOP	BEGDEL+5