Routine: TIUP271

Package	Total	Call Graph
Kernel	3	^%ZTLOAD ($$FMADD,$$FMTE,$$FMTH,$$HTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL
VA FileMan	3	^DIE $$GET1^DIQ ^DIR
MailMan	1	^XMD
Text Integration Utility	1	(LOCK,UNLOCK)^TIUSRVP

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
MAIL	; ; djh update - Change XMD to XMY in newed list
QUE	; Entry point from kids Install
NAMSP()	;
STOP	;stop job command
ST()	;status
INITXTMP(NAMSP,TITLE,LIFE)	;create ^Xtmp according to SAC std
QUIT	;

Name	Field # of Occurrence
^%ZTLOAD	QUE+54
^DIE	EN+12
$$GET1^DIQ	EN+15
^DIR	QUE+30
LOCK^TIUSRVP	EN+9
UNLOCK^TIUSRVP	EN+13
$$FMADD^XLFDT	INITXTMP+3
$$FMTE^XLFDT	QUE+17
$$FMTH^XLFDT	QUE+31, QUE+35
$$HTE^XLFDT	QUE+39
$$NOW^XLFDT	EN+20, QUE+31, QUE+32, QUE+43, QUE+46, QUE+48, INITXTMP+2
^XMD	MAIL+15
BMES^XPDUTL	QUE+7, QUE+37, QUE+41, QUE+57, QUE+58
MES^XPDUTL	QUE+8, QUE+38, QUE+39, QUE+40, QUE+56

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Already Running! Only one instance allowed" Line Location: EN+3
Function Call: WRITE	Prompt: !!,*7,"This job has been run before to completion on " Line Location: QUE+15
Function Call: WRITE	Prompt: $$FMTE^XLFDT($P($G(^XTMP(NAMSP,0,"LAST")),"^",3)),!! Line Location: QUE+17
Function Call: WRITE	Prompt: "If you want to run it again, the global subscript ^XTMP('"_NAMSP_"') must be",! Line Location: QUE+18
Function Call: WRITE	Prompt: "deleted prior to doing so.",!! Line Location: QUE+19
Function Call: WRITE	Prompt: !,"Halting..." Line Location: QUE+30
Function Call: WRITE	Prompt: !,"TALLY MISSING EXPIRATION DATES Job - set to STOP Soon" Line Location: STOP+2
Function Call: WRITE	Prompt: !!,"Check Status to be sure it has stopped and is not running..." Line Location: STOP+3
Function Call: WRITE	Prompt: !," (D STATUS^PSOTEXP1)" Line Location: STOP+4
Function Call: WRITE	Prompt: !,"* NOT CURRENTLY RUNNING! *",! Line Location: ST+3
Routine Call	DIE Line Location: EN+12
Routine Call	DIR Line Location: QUE+30

FileNo	Call Tags
^TIU(8925 - [#8925]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	EN+7, EN+8, EN+14
^TMP("TIU271"	EN+3, EN+4, EN+15, EN+16*, EN+18!, MAIL+13, MAIL+14
^XTMP(	QUE+6, QUE+11, QUE+14, QUE+17, QUE+32, QUE+43, QUE+45, QUE+46, QUE+48, QUE+53 , STOP+1, ST+1, ST+2, INITXTMP+4, QUIT+1
^XTMP("TIUP271"	EN+19, EN+20

Name	Field # of Occurrence
BEGDT	INITXTMP+1~, INITXTMP+2*, INITXTMP+3, INITXTMP+4
CNT	EN+1~, EN+6, EN+15, EN+16, MAIL+2~, MAIL+4, MAIL+8, MAIL+9, MAIL+10, MAIL+11 , MAIL+13*, MAIL+14
DA	EN+1~, EN+8*, EN+9, EN+13, EN+14, EN+15
DIE	EN+1~, EN+11*
DIFROM	MAIL+2~
>> DILOCKTM	QUE+6, ST+1
DIR	QUE+24!
DIR("?"	QUE+29*
DIR("A"	QUE+25, QUE+26
DIR("B"	QUE+27*
DIR(0	QUE+28*
DR	EN+1~, EN+11*
DTOUT	QUE+1~, QUE+31
DUOUT	QUE+1~, QUE+30
DUZ	MAIL+5
ERR	EN+1~, EN+6*, EN+9, EN+10, EN+13, EN+16
I	MAIL+2~, MAIL+13*
JOBN	QUE+1~, QUE+3*, QUE+7, QUE+11, QUE+25, QUE+38, QUE+41, QUE+51
LIFE	INITXTMP~, INITXTMP+3
MSG	MAIL+2~
MSG(	MAIL+8, MAIL+9, MAIL+10, MAIL+11, MAIL+13, MAIL+14
NAMSP	QUE+1~, QUE+2*, QUE+6, QUE+11, QUE+14, QUE+17, QUE+18, QUE+32, QUE+43, QUE+45 , QUE+46, QUE+48, QUE+50, QUE+53, INITXTMP~, INITXTMP+4, QUIT+1
NMSP	MAIL+2~
PATCH	QUE+1~, QUE+4*, QUE+11, QUE+51
PURGDT	INITXTMP+1~, INITXTMP+3*, INITXTMP+4
QUIT	QUE+1~, QUE+12*
RECS	EN+1~, EN+6, EN+9
TITLE	INITXTMP~, INITXTMP+4
TIUDA	EN+1~
TIUDT	EN+1~, EN+6, EN+7, EN+8, EN+11, EN+14
U	EN+19, EN+20
VAR	MAIL+2~
XMDUZ	MAIL+2~, MAIL+7*
XMSUB	MAIL+2~, MAIL+7*
XMTEXT	MAIL+2~, MAIL+7*
XMY	MAIL+2~
XMY(	MAIL+5*
XMY("G.TIU CA	CS" , MAIL+5*
XPDQUES	QUE+59!
XPDQUES("POS2"	QUE+23, QUE+35
Y	QUE+1~, QUE+31*
ZTDESC	QUE+1~, QUE+51*
ZTDTH	QUE+1~, QUE+23, QUE+30, QUE+31, QUE+35*, QUE+39, QUE+41
ZTIO	QUE+1~, QUE+50*
ZTQUEUED	QUE+1~
ZTREQ	QUE+1~
ZTRTN	QUE+1~, QUE+50*
ZTSAVE	QUE+1~
ZTSAVE("JOBN"	QUE+52*
ZTSK	QUE+1~, QUE+55, QUE+56

Name	Field # of Occurrence
$T(	NAMSP+1