[Home] [Help]
PACKAGE BODY: APPS.CE_RECONCILIATION_ERRORS_PKG
Source
1 PACKAGE BODY CE_RECONCILIATION_ERRORS_PKG as
2 /* $Header: cerecerb.pls 120.0.12010000.2 2009/11/10 03:13:21 csutaria ship $ */
3 FUNCTION body_revision RETURN VARCHAR2 IS
4 BEGIN
5
6 RETURN '$Revision: 120.0.12010000.2 $';
7
8 END body_revision;
9
10 FUNCTION spec_revision RETURN VARCHAR2 IS
11 BEGIN
12
13 RETURN G_spec_revision;
14
15 END spec_revision;
16
17 PROCEDURE Insert_Row(X_statement_header_id NUMBER,
18 X_statement_line_id NUMBER,
19 X_message_name VARCHAR2) IS
20 BEGIN
21 INSERT INTO CE_RECONCILIATION_ERRORS(
22 application_short_name,
23 statement_header_id,
24 statement_line_id,
25 message_name,
26 creation_date,
27 created_by)
28 VALUES (
29 'CE',
30 X_statement_header_id,
31 X_statement_line_id,
32 X_message_name,
33 sysdate,
34 NVL(FND_GLOBAL.user_id,-1));
35 END Insert_Row;
36
37 PROCEDURE Insert_Row(X_statement_header_id NUMBER,
38 X_statement_line_id NUMBER,
39 X_message_name VARCHAR2,
40 X_application_short_name VARCHAR2) IS
41 BEGIN
42 INSERT INTO CE_RECONCILIATION_ERRORS(
43 application_short_name,
44 statement_header_id,
45 statement_line_id,
46 message_name,
47 creation_date,
48 created_by)
49 VALUES (
50 X_application_short_name,
51 X_statement_header_id,
52 X_statement_line_id,
53 X_message_name,
54 sysdate,
55 NVL(FND_GLOBAL.user_id,-1));
56 END Insert_Row;
57
58 PROCEDURE Delete_Row(X_statement_header_id NUMBER,
59 X_statement_line_id NUMBER) IS
60 BEGIN
61 If x_statement_line_id is null Then -- Bug 9098954
62
63 DELETE FROM CE_RECONCILIATION_ERRORS
64 WHERE statement_header_id = X_statement_header_id;
65 Else
66 DELETE FROM CE_RECONCILIATION_ERRORS
67 WHERE statement_header_id = X_statement_header_id
68 And statement_line_id = X_statement_line_id ;
69 End If ;
70 END Delete_Row;
71
72 END CE_RECONCILIATION_ERRORS_PKG;