Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBPU1

Package: Integrated Billing

Routine: IBPU1


Information

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

Source Information

Source file <IBPU1.m>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 7

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

Entry Points

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?

External References

Name Field # of Occurrence
^%ZTLOAD TASK+5
^DIE UPD+6
^DIK DEL+6
^DIR OKAY+6
HASH^XUSHSHP ESIG+4

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$LOGIEN DEL+4

Naked Globals

Name Field # of Occurrence
^( LOGIEN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All