PACKAGE: APPS.INV_MO_PURGE

Source

1 PACKAGE INV_MO_PURGE AUTHID CURRENT_USER AS
2 /* $Header: INVMOPGS.pls 120.3.12010000.2 2008/12/31 13:31:42 ckrishna ship $ */
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 -- Bug 7647713 Added txn_source_id and organization_id
26 TYPE MOL_REC IS RECORD(
27       header_id          MTL_TXN_REQUEST_HEADERS.header_id%TYPE,
28       line_id            MTL_TXN_REQUEST_LINES.line_id%TYPE,
29       mo_type            MTL_TXN_REQUEST_HEADERS.move_order_type%TYPE,
30       line_status        MTL_TXN_REQUEST_LINES.line_status%TYPE,
31       quantity           MTL_TXN_REQUEST_LINES.quantity%TYPE,
32       quantity_detailed  MTL_TXN_REQUEST_LINES.quantity_detailed%TYPE,
33       quantity_delivered MTL_TXN_REQUEST_LINES.quantity_delivered%TYPE,
34       required_quantity  MTL_TXN_REQUEST_LINES.required_quantity%TYPE,
35       txn_source_line_id MTL_TXN_REQUEST_LINES.txn_source_line_id%TYPE,
36       txn_source_id      MTL_TXN_REQUEST_LINES.txn_source_id%TYPE,
37       organization_id    MTL_TXN_REQUEST_LINES.organization_id%TYPE);
38 
39 END INV_MO_PURGE;
40 
41