Routine: ECXFTRAN

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC (,$$S,STAT)^%ZTLOAD $$HTE^XLFDT
VA FileMan	3	^DIC EN^DIQ1 ^DIR
DSS Extracts	2	^ECXKILL $$ECXYM^ECXUTL
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
QUE
SET
END
START	; entry point
MSG	; send message to mail group 'DSS-ECGRP'
CLEAN	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Data for this extract was purged on ",$E(^("PURG"),4,5),"/",$E(^("PURG"),6,7),"/",$E(^("PURG"),2,3) Line Location: ECXFTRAN+4
Function Call: WRITE	Prompt: !,"This extract was transfered on ",$E(^("TR"),4,5),"/",$E(^("TR"),6,7),"/",$E(^("TR"),2,3) Line Location: ECXFTRAN+5
Function Call: WRITE	Prompt: !!,"Task ",ZTSK," is already queued to transmit this extract",!! Line Location: ECXFTRAN+7
Function Call: WRITE	Prompt: !,"Request queued as Task #",ZTSK,".",! Line Location: SET+0
Function Call: WRITE	Prompt: ECHD(1),! Line Location: START+8
Routine Call	%ZIS Line Location: START+6
Routine Call	DIC Line Location: ECXFTRAN+3
Routine Call	DIR Line Location: ECXFTRAN+6

FileNo	Call Tags
^DIC(4 - [#4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ECX(	START+9
^ECX(727 - [#727]	ECXFTRAN+4, ECXFTRAN+5, ECXFTRAN+6!, ECXFTRAN+7, SET, START+3, MSG+5, CLEAN+1!
^ECX(728 - [#728]	START+1
^TMP($J	START+4!, MSG+3, MSG+4, CLEAN+1!
^XMB("NETNAME"	MSG+2

Name	Field # of Occurrence
>> %ZIS	START+6*
>> %ZIS("HFSNAME"	START+6*
DA	START+1*, START+2!
DIC	ECXFTRAN+3!, START+1, START+2!
DIC("A"	ECXFTRAN+3*
DIC("S"	ECXFTRAN+3*
DIC(0	ECXFTRAN+3*
DIQ	START+1*, START+2!
DIQ(0	START+1*
DIR	ECXFTRAN+6!
DIR("A"	ECXFTRAN+5*
DIR(0	ECXFTRAN+5*
DR	START+1*, START+2!
DT	MSG+5
ECDA	ECXFTRAN+5*, ECXFTRAN+6, ECXFTRAN+7, QUE, SET, END!, START+3, START+5, START+9, MSG+3 , MSG+5, CLEAN+1
>> ECED	START+3*, START+4
>> ECF	START+3*, START+9
>> ECFILE	START+5*, START+6, MSG+4
>> ECGRP	START+3*, MSG+2
>> ECHD(1	START+4*, START+8
>> ECHEAD	START+3*, START+4, START+5
>> ECINST	START+1, START+2, START+4, MSG+1
>> ECPACK	START+3*, MSG+1, MSG+3
ECRE	ECXFTRAN+3, ECXFTRAN+6, END!, MSG+3
>> ECRN	START+4, START+9, MSG+3
ECXDIC	START+1!, START+2!
ECXDIC(4	START+2
IO	START+7
>> IOP	START+6*
>> J	START+9*
>> TIME	START+12*, MSG+3
X	END!
>> XMDUZ	MSG+1*
>> XMSUB	MSG+1*
>> XMTEXT	MSG+5*
XMY	MSG+2!
XMY("G.DSS-"	MSG+2*
Y	ECXFTRAN+3, ECXFTRAN+4, ECXFTRAN+5, ECXFTRAN+6, END!
>> ZTDESC	QUE*
>> ZTIO	ECXFTRAN+8*
ZTREQ	CLEAN+1*, CLEAN+2!
>> ZTRTN	QUE*
>> ZTSAVE("ECDA"	QUE*
>> ZTSAVE("ECRE"	QUE*
ZTSK	ECXFTRAN+7*!, SET!
ZTSK(0	ECXFTRAN+7
ZTSK(1	ECXFTRAN+7
>> ZTSTOP	CLEAN+2*