PACKAGE: APPS.INV_MO_PURGE

Source

1 PACKAGE INV_MO_PURGE  AS
2 /* $Header: INVMOPGS.pls 120.3 2005/12/06 05:52:10 ramarava noship $ */
3 --Return values for x_retcode(standard for concurrent programs)
4 
5 	RETCODE_SUCCESS         CONSTANT     VARCHAR2(1)  := '0';
6 	RETCODE_WARNING         CONSTANT     VARCHAR2(1)  := '1';
7 	RETCODE_ERROR           CONSTANT     VARCHAR2(1)  := '2';
8 
9 
10 -- Procedure to Purge the MObe Order lines
11 
12 PROCEDURE PURGE_LINES(x_errbuf	OUT NOCOPY VARCHAR2,
13 		x_retcode	OUT NOCOPY NUMBER,
14 		p_organization_id	IN NUMBER    :=NULL,
15 		p_mo_type_id		IN NUMBER    :=NULL,
16 		p_purge_name		IN VARCHAR2  :=NULL,
17 		P_date_from		IN VARCHAR2  :=NULL,
18 		p_date_to		IN VARCHAR2  :=NULL,
19 		p_mol_pc		IN NUMBER    :=NULL
20 
21 		) ;
22 
23 --Bug #4864356
24 --Added new columns to the record type to avoid re-querying MOL
25 TYPE MOL_REC IS RECORD(
26       header_id          MTL_TXN_REQUEST_HEADERS.header_id%TYPE,
27       line_id            MTL_TXN_REQUEST_LINES.line_id%TYPE,
28       mo_type            MTL_TXN_REQUEST_HEADERS.move_order_type%TYPE,
29       line_status        MTL_TXN_REQUEST_LINES.line_status%TYPE,
30       quantity           MTL_TXN_REQUEST_LINES.quantity%TYPE,
31       quantity_detailed  MTL_TXN_REQUEST_LINES.quantity_detailed%TYPE,
32       quantity_delivered MTL_TXN_REQUEST_LINES.quantity_delivered%TYPE,
33       required_quantity  MTL_TXN_REQUEST_LINES.required_quantity%TYPE,
34       txn_source_line_id MTL_TXN_REQUEST_LINES.txn_source_line_id%TYPE);
35 
36 END INV_MO_PURGE;
37 
38