1 PACKAGE BODY MSC_CL_CLEANSE AS -- body
2 /* $Header: MSCCLCAB.pls 120.0 2005/05/25 20:00:48 appldev noship $ */
3
4
5 PROCEDURE CLEANSE( ERRBUF OUT NOCOPY VARCHAR2,
6 RETCODE OUT NOCOPY NUMBER,
7 pIID IN NUMBER)
8 IS
9 BEGIN
10 RETCODE:= G_SUCCESS;
11 END ;
12
13 --This package will be called from the release code. Any data cleansing
14 --can be performed while releasing the data to the source.
15 --P_ENTITY - Added for future use.
16 --P_SR_INSTANCE_ID - Instance Identifier
17 --P_PO_BATCH_NUMBER - Identifier to process the relevant data.
18 PROCEDURE CLEANSE_RELEASE( ERRBUF OUT NOCOPY VARCHAR2,
19 RETCODE OUT NOCOPY NUMBER,
20 P_ENTITY IN VARCHAR2,
21 P_SR_INSTANCE_ID IN NUMBER,
22 P_PO_BATCH_NUMBER IN NUMBER)
23 IS
24 BEGIN
25 RETCODE := G_SUCCESS;
26 END;
27
28 END MSC_CL_CLEANSE;