project QadFinancials > class BERSProcessor > method GetERSLegalDocumentsNormalize

Description

Method to normalize the parameters specific to the GetERSLegalDocuments method: ensures that the parameters ahve the correct values in order for the queries used by the calling method will return data.


Parameters


bcLegalDocumentFrominput-outputcharacterFiltering parameter: start value for the legal document numbers.
bcLegalDocumentToinput-outputcharacterFiltering parameter: end value for the legal document numbers.
ocLegalDocumentoutputcharacterFiltering parameter: literial value for the legal document numbers.
btEffIssueDateFrominput-outputdateFiltering parameter: beginning date for the effective issue dates.
btEffIssueDateToinput-outputdateFiltering parameter: ending date for the effective issue dates.
otEffIssueDateoutputdateFiltering parameter: literial date for the effective issue dates.
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BERSProcessor.GetERSLegalDocuments


program code (program5/bersprocessor.p)

assign oiReturnStatus = -98.

/* =================================================================================================== */
/* Legal Document                                                                                      */
/* =================================================================================================== */
if bcLegalDocumentFrom = "":U then assign bcLegalDocumentFrom = ?.
if bcLegalDocumentTo   = "":U then assign bcLegalDocumentTo   = ?.
if bcLegalDocumentFrom = bcLegalDocumentTo
then assign ocLegalDocument     = bcLegalDocumentFrom
            bcLegalDocumentFrom = ?
            bcLegalDocumentTo   = ?.
else assign ocLegalDocument     = ?.

/* =================================================================================================== */
/* ReceiptDate                                                                                            */
/* =================================================================================================== */
if btEffIssueDateFrom = btEffIssueDateTo
then assign otEffIssueDate     = btEffIssueDateFrom
            btEffIssueDateFrom = ?
            btEffIssueDateTo   = ?.
else assign otEffIssueDate     = ?.

/* =================================================================================================== */
/* Return                                                                                              */
/* =================================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.