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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBPU

Package: Integrated Billing

Routine: IBPU


Information

IBPU ;ALB/CPM - ARCHIVE/PURGING UTILITIES ; 20-APR-92

Source Information

Source file <IBPU.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Integrated Billing 2 $$LAST^IBPFU  $$LOGIEN^IBPU1  
VA FileMan 2 ^%DT  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Integrated Billing 5 IBP  IBPA  IBPF  IBPP  IBPUDEL  

Entry Points

Name Comments DBIA/ICR reference
ASK(FILE,JOB) ; User prompts to find/archive/purge entries for each data file.
; Input: FILE -- Billing Data file number
; JOB -- 1 Find Billing Data to Archive
; -- 2 Archive Billing Data
; -- 3 Purge Billing Data
; Output: -1 -- Exit option
; 0 -- No action to be taken
; 1^a -- Take action.
; Optional second piece (a) is ien of
; log entry if a restart is required.
START(NAME,JOB) ; Start find/archive/purge action?
; Input: NAME -- File name
; JOB -- same as above (1, 2, or 3)
; Output: 1 -- Yes, 0 -- No, -1 -- Exit Option
RESTART(NAME,FILE,JOB) ; Re-start find/archive action?
; Input: NAME -- File name
; FILE -- Billing Data file number
; JOB -- same as above (only 1 or 2)
; Output: 1 -- Yes, 0 -- No, -1 -- Exit Option
LOG(FILE) ; Determine Log status for a file.
; Input: FILE -- Billing Data file number
; Output: 0 -- File undefined, or invalid file number
; 1 -- No active log entry on file
; 2 -- Active log entry on file - entries FOUND
; 3 -- Active log entry on file - entries ARCHIVED
LOGQ
NUM() ; How many previous fiscal year's worth of data should be retained?
; Input: NONE Output: number of years, or -1 to exit option.
DAT() ; What is the date through which data should be archived?
; Input: NONE Output: final date for archiving, or -1 to exit.

External References

Name Field # of Occurrence
^%DT DAT+4
^DIR START+9, RESTART+10, NUM+6
$$LAST^IBPFU DAT+3
$$LOGIEN^IBPU1 RESTART+11, LOG+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"File #",FILE," is not defined."
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: !,"You must ",$S(STATUS=1:"find ",1:"archive "),FNAME," entries before you can ",$S(JOB=2:"archive.",1:"purge.")
  • Line Location: ASK+13
Function Call: WRITE
  • Prompt: !,NAME," file entries have already been ",$P("found.^archived.","^",JOB)
  • Line Location: RESTART+6
Routine Call
  • DIR
  • Line Location:
    • START+9
    • RESTART+10
    • NUM+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] ASK+12, LOG+7
^IBE(350.6 - [#350.6] LOG+9

Label References

Name Line Occurrences
$$LOG ASK+11
$$RESTART ASK+15
$$START ASK+15
LOGQ LOG+7

Naked Globals

Name Field # of Occurrence
^(1 LOG+9
^(2 LOG+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DAT+2~, DAT+3*
%DT("A" DAT+3*
%DT(0 DAT+3*
>> DA LOG+8*, LOG+9
DESC START+4~, START+5*, START+6, START+7
DIR START+4~, RESTART+5~, NUM+2~
DIR("?" START+7*, START+8*, START+9*, RESTART+8*, RESTART+9*, RESTART+10*, NUM+4*, NUM+5*
DIR("A" START+6*, RESTART+7*, NUM+3*
DIR("B" NUM+6*
DIR(0 START+6*, RESTART+7*, NUM+6*
DIRUT START+4~, START+10, RESTART+5~, RESTART+11, NUM+2~, NUM+7
DTOUT START+4~, START+10, RESTART+5~, RESTART+11, NUM+2~, NUM+7, DAT+2~
DUOUT START+4~, START+10, RESTART+5~, RESTART+11, NUM+2~, NUM+7
FILE ASK~, ASK+11, ASK+12, ASK+15, RESTART~, RESTART+11, LOG~, LOG+7, LOG+8
FNAME ASK+10~, ASK+12*, ASK+13, ASK+15
JOB ASK~, ASK+13, ASK+14, ASK+15, START~, START+5, START+8, RESTART~, RESTART+6, RESTART+7
, RESTART+8, RESTART+9
LOG LOG+6~, LOG+9*, LOG+10
LOG1 LOG+6~, LOG+9*, LOGQ
LOG2 LOG+6~, LOG+9*, LOGQ
NAME START~, START+6, START+7, START+8, RESTART~, RESTART+6
STATUS ASK+10~, ASK+11*, ASK+13, ASK+14*, ASK+15
X DAT+2~
Y ASK+10~, START+4~, START+10, RESTART+5~, RESTART+11, LOG+6~, LOG+7*, LOG+10*, LOGQ, NUM+2~
, NUM+7, DAT+2~, DAT+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All