Functional Description
Purpose
This function is used to get a unique ID number from the Work File for Integrity by Offset Account
(F03BUI04) if it is passed a '1' in the parameter for cRetrieveOrDelete. If a '2' is passed, the
records with PSEL equal to the value passed in with the '2' will be deleted. This function is only used by
the A/R to G/L Integrity by Offset Account report (R03B7001A).
Setup Notes and Prerequisites
None.
Special Logic
None.
Technical Specification
Parameters
Item DescriptionI/OReq?Notes
PSELmnUniqueID_PSELI/ONUnique ID.
EV01cRetrieveOrDeleteIY'1' will return a unique ID; '2' will delete records
with unique ID equal to the one passed in to the function.
Related Tables
F03BUI04Work File for Integrity by Offset Account
Related Functions
None.
Processing
Perform Initializations.
Open F03BUI004 table.
If Open Table failed,
Return error.
Endif.
If (RetrieveOrDelete flag = '1'),
Retrieve Unique ID.
Return the Unique ID.
Else,
Delete records in F03BIU004 with unique ID equal
to the unique ID passed to the function.
Endif.
Close F03BIU004.
Return success.
^
D03B0043 - Get or Delete PSEL from F03BUI04
| Parameter Name | Data Item | Data Type | Req/Opt | I/O/Both |
|---|---|---|---|---|
| mnUniqueID_PSEL | PSEL | MATH_NUMERIC | NONE | NONE |
This is a next number used to identify payments to be printed or updated. | ||||
| cRetrieveOrDelete | EV01 | char | NONE | NONE |
An option that specifies the type of processing for an event. | ||||
| None |
| None |