Routine: PSXDODNT

Package	Total	Call Graph
Kernel	7	($$DEL,$$FTG,$$GTF,$$LIST)^%ZISH $$EC^%ZOSV (,UNWIND)^%ZTER ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT $$UP^XLFSTR SETUP^XQALERT (DISP,EDIT)^XUTMOPT
CMOP	2	CLEARFLS^PSXDODH GRP1^PSXNOTE
VA Fileman	2	(C,NOW)^%DTC $$GET1^DIQ
MailMan	1	^XMD

Package	Total	Caller Graph
CMOP	7	PSX DOD CMOP INTERFACE PSXDODAC PSXDODAK PSXDODAT PSXDODB1 PSXDODQY PSXRECV1

Entry Points

Name	Comments	DBIA/ICR reference
DISP	; display schedule
STOP	;disable auto error trapping
REMOVE2
FINISH	;
ARCHIVE2
PULL2
PULL
FALERT(FILE,PATH,GBL)	;fail to pass file into target directory, send alert, store for later
ROU	; nest the new command so variables will be protected
EN	;reads the directory for files
CLEAR	; CLEAR PREVIOUS NODES history nodes
DIRECT	;reads the FILE variable to see what types files are available for processing and then sends process to the appropriate routine
START	;enable/start auto error trapping
HOLD
CLEARALL	; clear boxes out, archive, hold of all files
STORE	; store file intO XTMP if GBL PROVIDED
RESEND	; SCAN XTMP and if entries put the files into the boxes
EDIT	; edit the PSX DODNT option K8 SYS pg 342
REMOVE
ARCHIVE	;
KILLERR	; kill the error LOG ^XTMP("PSXDODERR", )
ZTER	;Friendly RE-cycle error and move to next file
KVAR	;K FILELIST,FILE,Y,PATH,BADFILE

External References

Name	Field # of Occurrence
C^%DTC	EN+22
NOW^%DTC	EN+6, EN+9, EN+13, EN+23, DIRECT+13, DIRECT+16, REMOVE2+1, FALERT+1, STORE+2, RESEND+8
$$DEL^%ZISH	REMOVE, REMOVE2
$$FTG^%ZISH	PULL, PULL2
$$GTF^%ZISH	ARCHIVE+3, HOLD, ARCHIVE2, RESEND+5
$$LIST^%ZISH	EN+31
$$EC^%ZOSV	ZTER+1
^%ZTER	ZTER+10
UNWIND^%ZTER	REMOVE2+5
$$GET1^DIQ	EN+30, PULL, ARCHIVE+3, REMOVE, ZTER+8, PULL2, HOLD, ARCHIVE2, REMOVE2
CLEARFLS^PSXDODH	CLEARALL+1
GRP1^PSXNOTE	ZTER+9, REMOVE2+3, FALERT+3, RESEND+11
$$FMADD^XLFDT	EN+11, STORE+3
$$FMDIFF^XLFDT	EN+6
$$FMTE^XLFDT	EN+13
$$UP^XLFSTR	DIRECT+8
^XMD	EN+19, ZTER+11
SETUP^XQALERT	REMOVE2+3, FALERT+5, RESEND+13
DISP^XUTMOPT	DISP+1
EDIT^XUTMOPT	EDIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"STOPPING" Line Location: EN+4
Function Call: WRITE	Prompt: !,"Processing Files:" Line Location: DIRECT+1
Function Call: WRITE	Prompt: !,?5,FILENM Line Location: DIRECT+1
Function Call: WRITE	Prompt: !,"Nxtfile3a ",FILENM Line Location: DIRECT+5
Function Call: WRITE	Prompt: !,"nxtfile3b ",FILENM Line Location: DIRECT+5
Function Call: WRITE	Prompt: !,JOBBEG,?20,^XTMP(PSXJOB,JOBBEG) Line Location: DIRECT+13
Function Call: WRITE	Prompt: !,%,?20,^XTMP(PSXJOB,JOBBEG) Line Location: DIRECT+16
Function Call: WRITE	Prompt: !,"nxtfile4 Finish of ",FILENM Line Location: FINISH+1
Function Call: WRITE	Prompt: !,FILENM," ",ROU Line Location: ROU+2
Function Call: WRITE	Prompt: !,"zter2:Error Finish & Removal of ",FILENM Line Location: ZTER+12
Function Call: WRITE	Prompt: !,X Line Location: CLEAR+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	REMOVE2+1, FALERT+1, RESEND+8
^TMP($J	FINISH+2!, PULL, ARCHIVE+3, ARCHIVE+4, ZTER+13!, PULL2, HOLD, HOLD+1, ARCHIVE2, ARCHIVE2+1
^XTMP(	EN+6, EN+10!, EN+12!, EN+24!, EN+25, EN+26, EN+34!, DIRECT+13, DIRECT+16, STORE+4! , STORE+5, STORE+6, STORE+7*, RESEND+2, RESEND+3, RESEND+5, RESEND+7!, CLEAR+1!
^XTMP("PSXDODERR"	EN+10, EN+11, KILLERR+1!
^XTMP("PSXDODNT"	EN+3
^XTMP("PSXNTSTOP-1"	DIRECT+7, START+1!, STOP+1*

Label References

Name	Line Occurrences
@(	ROU+3
EN	DIRECT+19
FALERT	ARCHIVE+4, HOLD+1, ARCHIVE2+1, RESEND+6
FINISH	DIRECT+15
KVAR	EN+33, DIRECT+18
RESEND	EN+21
ROU	DIRECT+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+6, EN+10, EN+13, EN+17, EN+25, EN+26, DIRECT+13, DIRECT+16, REMOVE2+1, FALERT+1 , STORE+2, RESEND+8
>> BADFILE	ZTER+3*
>> DIF	EN+6*, EN+7
DT	EN+11, EN+22, STORE+3, STORE+5, STOP+1
>> DTPRG	STORE+3*, STORE+5
>> EXT	EN+28, DIRECT+8, DIRECT+10
FILE	EN+1!, EN+30, ROU+1~, FALERT~, FALERT+2, STORE+6, RESEND+3, RESEND+5, RESEND+9
FILE(	DIRECT+1, DIRECT+6
FILELIST	EN+1!
FILELIST(	EN+28*
>> FILENM	DIRECT+1, DIRECT+2, DIRECT+6*, DIRECT+8, DIRECT+13, FINISH+1, PULL, ARCHIVE+1, ARCHIVE+2, REMOVE , ROU+2, ZTER+2, ZTER+3, ZTER+6, ZTER+12, PULL2, HOLD, HOLD+1, ARCHIVE2, ARCHIVE2+1 , REMOVE2
>> FILENMAR	ARCHIVE+1, ARCHIVE+2, ARCHIVE+3, ARCHIVE+4
GBL	ARCHIVE+4, HOLD+1, ARCHIVE2+1*, FALERT~, STORE+1, STORE+7
I	DIRECT+17!
INC	DIRECT+17!
IOST	DIRECT+1, FINISH+1, ROU+2, ZTER+12
JOBBEG	DIRECT+13*, DIRECT+16, ROU+1~
JOBEND	ROU+1~
>> NMSPACE	STORE+2, STORE+4, STORE+5, STORE+6, STORE+7, RESEND+1, RESEND+2, RESEND+3, RESEND+5, RESEND+6 , RESEND+7
PATH	EN+30, EN+31, PULL, ARCHIVE+3, ARCHIVE+4, REMOVE, PULL2, HOLD, HOLD+1, ARCHIVE2* , ARCHIVE2+1, REMOVE2, FALERT~, FALERT+2, STORE+6, RESEND+3, RESEND+5, RESEND+6, RESEND+9
>> PREVJOB	EN+3*, EN+4, EN+6, EN+10, EN+12
>> PSXDT	EN+22*, EN+25
PSXERCNT	EN+1!
PSXJOB	EN+3*, EN+4, EN+24, EN+25, EN+26, EN+34, DIRECT+13, DIRECT+16, ROU+1~
PSXL	REMOVE!, REMOVE2!
PSXL(	REMOVE, REMOVE2
>> PSXQUIT	EN+4, EN+5, EN+12
ROU	DIRECT+10*, DIRECT+17!, ROU+2, ROU+3
TEXT	ZTER+13!
TEXT(1	ZTER+5*
TEXT(2	ZTER+6*
TEXT(3	ZTER+7*
TEXT(4	ZTER+8*
TXT	EN+15!
TXT(1	EN+16*
TXT(2	EN+17*
TXT(3	EN+18*
U	EN+11, EN+25, DIRECT+16, STORE+5, STOP+1
>> X	EN+11, EN+22, CLEAR+1
>> X1	EN+6, EN+22
>> X2	EN+6, EN+22
>> XMSUB	EN+14, ZTER+2
>> XMTEXT	EN+14, ZTER+4
>> XMY	REMOVE2+3, FALERT+3, RESEND+11
>> XQA	REMOVE2+3, FALERT+3, RESEND+11*
>> XQAID	REMOVE2+2, FALERT+2, RESEND+9*
>> XQAMSG	REMOVE2+2, FALERT+2, RESEND+9*
>> XX	EN+13, EN+14, EN+16, ARCHIVE+3, HOLD, ARCHIVE2, CLEARALL+1*
>> XXERR	ZTER+1*, ZTER+7, REMOVE2+2
Y	EN+31, EN+32, DIRECT+17!, PULL, ARCHIVE+3, ARCHIVE+4, REMOVE, PULL2, HOLD, HOLD+1 , ARCHIVE2, ARCHIVE2+1, REMOVE2, REMOVE2+1, REMOVE2+2, FALERT+1, FALERT+2, RESEND+5, RESEND+6, RESEND+8 , RESEND+9

Customize PDF page

Package: CMOP

Routine: PSXDODNT

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: