PurgeReceiptRoutingRecords

Purge Receipt Routing Records

Minor Business Rule

Object Name: N43092Z1

Parent DLL: CDIST

Location: Client/Server

Language: NER

Functional Description

Purpose
Used to delete record.

If a EDI Line Number is passed in, that specific line is deleted.  Also, if the transaction action is
'UB' , the next line is checked for 'UA' and deleted if this is the action.  If the transaction
action is 'UA', the previous line is checked for 'UB' and deleted if this is the action.

If a EDI Line Number is blank or zero, all lines are deleted.

Setup Notes and Prerequisites

Special Logic

Technical Specification

Error if any of the required fields are blank (Error 0003).

/* Initialize fields */
evt_EDILineNumber = 0
evt_TransactionAction = '  '
ect_TransactionAction2 = '  '

/* If EDI Line Number does not have a specific line number, set it to zero */
If EDLN == NULL or blank

EDLN = 0

End If

/*Do processing for line number not passed in*/
If EDLN == 0
F43092Z1.Delete
EDI User ID=EDUS
EDI Batch Number=EDBT
EDI Transaction Number=EDTN
/*Do processing for specific line number*/
Else

/* Select and fetch record using full key*/
F43092Z1.FetchSingle

EDI User ID=EDUS
EDI Batch Number=EDBT
EDI Transaction Number=EDTN
EDI Line Number =EDLN
TransactionAction->evt_TransactionAction

If FILE_IO_STATUS == SUCCESS

/*Delete specific record line*/
F43092Z1.Delete
EDI User ID=EDUS
                            EDI Batch Number=EDBT
EDI Transaction Number=EDTN
                             EDI Line Number              =EDLN
/*Do special before/after image processing*/
If evt_TransactionAction == 'UB' or evt_TransactionAction == 'UA'
If evt_TransactionAction == 'UB'
EDLN = EDLN + 1
Evt_TransactionAction = 'UA'
Else
EDLN = EDLN  1
Evt_TransactionAction = 'UB'
End If
F43092Z1.FetchSingle
EDI User ID=EDUS
                             EDI Batch Number=EDBT
EDI Transaction Number=EDTN
                             EDI Line Number              =EDLN
TransactionAction->    evt_TransactionAction2

If FILE_IO_STATUS == SUCCESS and evt_TransactionAction2 == evt_TransactionAction

F43092Z1.Delete
EDI User ID=EDUS
EDI Batch Number=EDBT
EDI Transaction Number=EDTN
EDI Line Number = EDLN
End If

End If

End If

^

Data Structure

D43092Z1 - Data Structure for Purge Receipt Routing Records

Parameter Name	Data Item	Data Type	Req/Opt	I/O/Both
szEdiUserId	EDUS	char	NONE	NONE
The source of the transaction. This can be a user ID, a workstation, the address of an external system, a node on a network, and so on. This field helps identify both the transaction and its point of origin.
szEdiBatchNumber	EDBT	char	NONE	NONE
The number that the transmitter assigns to the batch. During batch processing, the system assigns a new batch number to the PeopleSoft transactions for each control (user) batch number it finds.
szEdiTransactNumber	EDTN	char	NONE	NONE
The number that an Electronic Data Interchange (EDI) transmitter assigns to a transaction. In a non-EDI environment, you can assign any number that is meaningful to you to identify a transaction within a batch. It can be the same as a J.D. Edwards document number.
mnEdiLineNumber	EDLN	MATH_NUMERIC	NONE	NONE
This is the line number you assign when originating an EDI transaction. This number can represent an order line number (applicable for any order type), an invoice pay item, a journal entry line number, and so on.
cEverestEventPoint01	EV01	char	NONE	NONE
An option that specifies the type of processing for an event.
cInboundorOutboundFlag	EV01	char	OPT	NONE
An option that specifies the type of processing for an event.

Related Functions

None

Related Tables

None