IB20P247 ;WOIFO/SS - POST INIT ROUTINE FOR IB*2*247 ;6-OCT-03
Source file <IB20P247.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
POST | ; adding charge removal reason entries if not there
|
|
ADDCRR | ; need to add charge removal reasons
|
|
ADDNBR | ; need to add non billable reasons
|
|
CRR | ; charge removal reasons to add in #350.3
|
|
NBR | ; non-billable reasons to add in #356.8 if not there
|
|
RPT | ;
|
|
COUNTIN(IBDF,IBD,IBNN) | ;
|
|
PRINTREP(IBNN) | ;
|
|
SETTMP(IBDFN,IBDT,IBIEN1,IBTYP,IBNUM) | ;
|
|
OUTP(IBDFN,IBDT,IBDATA) | ;
|
|
BILLINFO(IBDATA) | ;
|
|
STRDATE(Y) | ;
|
|
PATINFO(DFN) | ;
|
|
HEADER | ;header
|
|
FOOTER(IBNNN) | ;footer
|
|
LINE | ;line
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBE(350.3 - [#350.3] | Classic Fileman Calls |
^IBE(356.8 - [#356.8] | Classic Fileman Calls |