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 |