Routine: IBPU1

Information

IBPU1 ;ALB/CPM - ARCHIVE/PURGING UTILITIES (CON'T.) ; 20-APR-92

Source file <IBPU1.m>

Package	Total	Call Graph
VA Fileman	3	^DIE ^DIK ^DIR
Kernel	2	^%ZTLOAD HASH^XUSHSHP

Package	Total	Caller Graph
Integrated Billing	7	IBP IBPA IBPF IBPO IBPP IBPU IBPUDEL

Name	Comments	DBIA/ICR reference
NODUZ()	; Check for the existence of DUZ
TASK	; Task off job.
UPD(LOG,FIELD,VALUE)	; Update/Delete Log Entry fields
NOESIG(USER)	; Check Electronic Signature Code
LOGIEN(FILE)	; Find the most current log entry for a file
ESIG(USER)	; Enter Electronic Signature Code
DEL(FILE)	; Delete a search template from file #.401 (Sort Templates)
OKAY(JOB)	; Okay to queue this job?

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Your DUZ code must be defined in order to use this option.",! Line Location: NODUZ+4
Function Call: WRITE	Prompt: !!,"You must enter your Electronic Signature Code in order to use this option.",! Line Location: NOESIG+4
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:60) Variable: X Line Location: ESIG+4
Function Call: WRITE	Prompt: "been verified." Line Location: ESIG+5
Function Call: WRITE	Prompt: ! Line Location: OKAY+6
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.") Line Location: TASK+5
Routine Call	DIE Line Location: UPD+6
Routine Call	DIR Line Location: OKAY+6

FileNo	Call Tags
^IBE(350.6 - [#350.6]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EOFF"	ESIG+4
^%ZOSF("EON"	ESIG+4
^DIBT("B"	DEL+6
^IBE(350.6 - [#350.6]	DEL+5, LOGIEN+3
^VA(200 - [#200]	NOESIG+4, ESIG+3

Name	Line Occurrences
$$LOGIEN	DEL+4

Name	Field # of Occurrence
^(	LOGIEN+3

Name	Field # of Occurrence
DA	DEL+3~, DEL+4, DEL+5, DEL+6, UPD+5~, UPD+6*
DIE	UPD+5~, UPD+6*
DIK	DEL+3~, DEL+6*
DIR	OKAY+3~
DIR("?"	OKAY+5, OKAY+6
DIR("A"	OKAY+4*
DIR(0	OKAY+4*
DIRUT	OKAY+3~, OKAY+7
DR	UPD+5~, UPD+6*
DTIME	ESIG+4
DTOUT	OKAY+3~, OKAY+7
DUOUT	OKAY+3~, OKAY+7
DUZ	NODUZ+4
FIELD	UPD~, UPD+6
FILE	DEL~, DEL+4, LOGIEN~, LOGIEN+3
I	ESIG+3~
>> IBOP	TASK+3, TASK+4
ION	TASK+3
J	ESIG+3~, ESIG+4*
JOB	OKAY~, OKAY+4
LOG	UPD~, UPD+6
SIG	ESIG+3~*, ESIG+4
TMPL	DEL+3~, DEL+5*, DEL+6
USER	NOESIG~, NOESIG+4, ESIG~, ESIG+3
VALUE	UPD~, UPD+6
X	ESIG+3~, ESIG+4*
Y	NODUZ+3~, NODUZ+4, NODUZ+5, NOESIG+3~, NOESIG+4, NOESIG+5, ESIG+3~, ESIG+4, ESIG+5, ESIG+6 , OKAY+3~, OKAY+7
>> ZTDESC	TASK+4*
>> ZTDTH	TASK+3*
>> ZTIO	TASK+3*
>> ZTRTN	TASK+3*
>> ZTSAVE("IBD("	TASK+3*
>> ZTSAVE("IBOP"	TASK+3*
ZTSK	TASK+5, TASK+6!