Call Graph
Call Graph Total: 4
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 2 | $$LAST^IBPFU $$LOGIEN^IBPU1 |
| VA FileMan | 2 | ^%DT ^DIR |
IBPU ;ALB/CPM - ARCHIVE/PURGING UTILITIES ; 20-APR-92
Source file <IBPU.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 2 | $$LAST^IBPFU $$LOGIEN^IBPU1 |
| VA FileMan | 2 | ^%DT ^DIR |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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. |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC - [#1] | ASK+12, LOG+7 |
| ^IBE(350.6 - [#350.6] | LOG+9 |
| Name | Line Occurrences |
|---|---|
| $$LOG | ASK+11 |
| $$RESTART | ASK+15 |
| $$START | ASK+15 |
| LOGQ | LOG+7 |
| Name | Field # of Occurrence |
|---|---|
| ^(1 | LOG+9 |
| ^(2 | LOG+9 |
| >> | 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 |
