Functional Description  B03B0088
Purpose
Function is used to unlog a log receipt. After a log receipt has been assigned to a customer this 
function is called to update the F03B14 table to reverse the log receipt amount and update the F03B13 
table.
Setup Notes and Prerequisites
None.
Special Logic
None.
Technical Specification
Parameters
Item  DescriptionI/OReq?Notes
PYID  mnPaymentidIYesReceipt Payment ID   ICUT  szBatchtype
I YesBatch Type for unlog entry
ICU  mnBatchnumberIYesBatch Number for unlog entry
DICJ  jdDatebatchjulianIYesBatch Date for unlog entry
DGJ  jdDateforglandvoucherjuliaIYesG/L Date for unlog entry
EV01  cErrorFlagOOptError flag passed back
RC5  mnLastRC5AssignedOOptAssigned line numberof the F03B14 reversal of the log 
receipt
  
Related Tables
F03B13Receipt HeaderInput/Update
F03B14Receipt DetailInput/Update/Output
Related Functions
B9800100Get Audit Information
X0903Fiscal Date Edits +
Processing
 Fetch F03B13 for PYID set GBR error 078I if not found and set cErrorFlag = '1'
 Set read loop to locate F03B14 logged record TYIN = L and DCTM = RL
 When F03B14 logged record found IF Posted call I03B0088_PostedRL
 Else record Unposted call I03B0088_UnpostedRL
 IF function return Failed set cErrorFlag = '2'
 IF function return OK update F03B13 table
Internal Functions
I03B0088_UnpostedRL
 Delete F03B14 logged record if delete fails set cErrorFlag = '2' and return Failed
I03B0088_UnpostedRL
 Set Select Sort on F03B14 for PYID, RC5 descending
 Fetch record assign RC5 + 1 for reversing record
 Setup F03B14 fields and output reversing record
D03B0088 - Unlog "RL" Logged Receipts
Item  DescriptionI/OReq?Notes
PYID  mnPaymentidIYesReceipt Payment ID   ICUT  szBatchtype
I YesBatch Type for unlog entry
ICU  mnBatchnumberIYesBatch Number for unlog entry
DICJ  jdDatebatchjulianIYesBatch Date for unlog entry
DGJ  jdDateforglandvoucherjuliaIYesG/L Date for unlog entry
EV01  cErrorFlagOOptError flag passed back
RC5  mnLastRC5AssignedOOptAssigned line numberof the F03B14 reversal of the log 
receipt
^
| Parameter Name | Data Item | Data Type | Req/Opt | I/O/Both | 
|---|---|---|---|---|
| mnPaymentid | PYID | MATH_NUMERIC | NONE | NONE | 
 
Itemab    Descriptionab  ab  ab  I/Oab  Req?ab Notes
  | ||||
| szBatchtype | ICUT | char | NONE | NONE | 
 
Itemab    Descriptionab  ab  ab  I/Oab  Req?ab Notes
  | ||||
| mnBatchnumber | ICU | MATH_NUMERIC | NONE | NONE | 
 
Itemab    Descriptionab  ab  ab  I/Oab  Req?ab Notes
  | ||||
| jdDatebatchjulian | DICJ | JDEDATE | NONE | NONE | 
 
Itemab    Descriptionab  ab  ab  I/Oab  Req?ab Notes
  | ||||
| jdDateforglandvoucherjulia | DGJ | JDEDATE | NONE | NONE | 
 
Itemab    Descriptionab  ab  ab  I/Oab  Req?ab Notes
  | ||||
| cErrorFlag | EV01 | char | NONE | NONE | 
 
Itemab    Descriptionab  ab  ab  I/Oab  Req?ab Notes
  | ||||
| mnLastRC5Assigned | RC5 | MATH_NUMERIC | NONE | NONE | 
 
Itemab    Descriptionab  ab  ab  I/Oab  Req?ab Notes
  | ||||
| B9800100 Get Audit Information | ||||
| X0903 Fiscal Date Edits + | 
| F03B13 Receipts Header | ||||
| F03B14 Receipts Detail |