PACKAGE BODY: APPS.CSTACDLS

Source

1 PACKAGE BODY CSTACDLS AS
2 /* $Header: CSTACDLB.pls 115.2 2002/11/08 00:49:21 awwang ship $ */
3 
4 PROCEDURE DELETE_SUMMARY_DETAILS(
5  i_org_id               IN      NUMBER,
6  i_del_period_id        IN      NUMBER,
7  err_num                OUT NOCOPY     NUMBER,
8  err_code               OUT NOCOPY     VARCHAR2,
9  err_msg                OUT NOCOPY     VARCHAR2)
10 
11 IS
12 
13 	l_stmt_num		NUMBER;
14 
15  BEGIN
16 
17 	l_stmt_num := 10;
18 
19 	DELETE FROM MTL_PER_CLOSE_DTLS
20 	WHERE
21 	ORGANIZATION_ID		=	I_ORG_ID	AND
22 	ACCT_PERIOD_ID		=	I_DEL_PERIOD_ID;
23 
24 	l_stmt_num := 20;
25 
26 	DELETE FROM MTL_PERIOD_SUMMARY
27 	WHERE
28 	ORGANIZATION_ID         =       I_ORG_ID        AND
29         ACCT_PERIOD_ID          =       I_DEL_PERIOD_ID;
30 
31 	commit;
32 
33 
34    EXCEPTION
35 
36         WHEN OTHERS THEN
37         err_num := SQLCODE;
38         err_msg := 'CSTACDLS:' || to_char(l_stmt_num) || substr(SQLERRM,1,150);
39 
40         rollback;
41 
42 END DELETE_SUMMARY_DETAILS;
43 
44 END CSTACDLS;