IBOUTL ;ALB/AAS - INTEGRATED BILLING OUTPUT UTILITY ROUTINE ; 8-MAR-91
Source file <IBOUTL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
V | ;;2.0;INTEGRATED BILLING;**93**;21-MAR-94
|
|
DATE | ;
; -get beginning and ending dates ; -output in ibbdt - beginning date ; ibedt - ending date |
|
BDT | ; -get beginning date
|
|
EDT | ; -get ending date
|
|
DATEQ | ||
PAUSE | ||
DAT1(X,Y) | ; Convert FM date to displayable (mm/dd/yy) format.
; -- optional output of time, if $g(y) |
|
DAT2(Y) | ; Convert FM date to displayable (mmm dd yyyy) format
|
|
DAT3(X) | ;Convert FM date to displayable (mm/dd/yyyy) format.
|
|
ACTNM(X) | ; -input pointer to action type file (350.1)
; output printable name of action type |
|
STOP(JOBDESC) | ; Has a tasked job been requested to stop by the user?
; Input: JOBDESC -- Description of job to be printed ; Output: 0 -- Job has not been stopped ; 1 -- Job has been stopped |
|
FY(DATE) |
Name | Line Occurrences |
---|---|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IBE(350.1 - [#350.1] | ACTNM+2, ACTNM+3 |
Name | Field # of Occurrence |
---|---|
^(0 | ACTNM+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | DAT2+1~ |
%DT | BDT+2*!, EDT+1*, DATEQ! |
%DT("A" | BDT+2* |
DATE | DAT1+2~, DAT1+3*, DAT1+4*, DAT1+5, DAT3+1~, DAT3+3*, DAT3+4, FY~, FY+2*, FY+3 |
DIR | PAUSE+2! |
DIR(0 | PAUSE+2* |
DIRUT | PAUSE+2! |
DT | FY+2 |
DTIME | EDT+1 |
DTOUT | PAUSE+2! |
DUOUT | PAUSE+2! |
FY | FY+1~, FY+3*, FY+4*, FY+5 |
>> IBBDT | BDT+1*, BDT+2*, EDT+1 |
>> IBEDT | BDT+1*, EDT+1* |
>> IBJ | PAUSE+1* |
>> IBQUIT | PAUSE+2* |
IOSL | PAUSE+1 |
IOST | PAUSE |
JOBDESC | STOP~, STOP+10 |
T | DAT1+2~, DAT1+4* |
X | EDT+1*, DAT1~, DAT1+3, DAT1+4, DAT3~, DAT3+2, DAT3+3, ACTNM~, ACTNM+2, ACTNM+3 |
Y | BDT+2, EDT+1, DAT1~, DAT1+4, DAT2~, DAT2+2, DAT2+3, ACTNM+2*, ACTNM+3 |
YR | DAT3+1~, DAT3+2*, DAT3+3 |
>> ZTQUEUED | STOP+10 |
>> ZTSTOP | STOP+10*, STOP+11 |