PACKAGE BODY: APPS.CE_RECONCILIATION_ERRORS_PKG

Source

1 PACKAGE BODY CE_RECONCILIATION_ERRORS_PKG as
2 /* $Header: cerecerb.pls 120.0 2002/08/24 02:37:24 appldev noship $ */
3   FUNCTION body_revision RETURN VARCHAR2 IS
4   BEGIN
5 
6     RETURN '$Revision: 120.0 $';
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     DELETE FROM CE_RECONCILIATION_ERRORS
62     WHERE nvl(statement_line_id,999999)  = nvl(X_statement_line_id,999999)
63     AND   statement_header_id = X_statement_header_id;
64   END Delete_Row;
65 
66 END CE_RECONCILIATION_ERRORS_PKG;