IBCEM03 ;ALB/TMP - 837 EDI RESUBMIT INDIVIDUAL BILL PROCESSING ;17-SEP-96
Source file <IBCEM03.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
BILL2 | ; Resubmit a transmitted bill with a new batch #
|
|
ASK | ||
PRINT1(IBIFN,IBDA,IB364,IBRESUB,IBRESULT) | ; Print bill, submit manually as resolution ;WCJ;IB641;US3380; added IBRESULT
; for a returned message ; IBIFN = ien of bill in file 399 ; IBDA = array returned from selection of message ; IB364 = ien of transmit bill entry in file 364 ; IBRESUB = flag to indicate if bill is being resubmitted via print ; IBRESULT = flag to see if print was successful |
|
PRINT1Q | ||
SUB1 | ; Select bills in ready for extract status to transmit individually
|
|
SUB1Q |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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.9 - [#350.9] | GET1^DIQ |
^IBA(364 - [#364] | Classic Fileman Calls |
^IBA(364.1 - [#364.1] | Classic Fileman Calls |
^DGCR(399 - [#399] | Classic Fileman Calls |