PACKAGE BODY: APPS.CE_JE_CREATION_ERRORS_PKG

Source

1 PACKAGE BODY CE_JE_CREATION_ERRORS_PKG as
2 /* $Header: cejecerb.pls 120.0 2005/04/11 19:38:04 bhchung 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,
20 			   X_created_by		NUMBER,
21 			   X_creation_date 	DATE,
22 			   X_last_update_date	DATE,
23 			   X_last_updated_by	NUMBER,
24 			   X_last_update_login	NUMBER,
25 			   X_request_id		NUMBER) IS
26    BEGIN
27      INSERT INTO ce_je_messages(
28 	      application_short_name,
29  	      statement_header_id,
30               statement_line_id,
31               message_name,
32 	      created_by,
33 	      creation_date,
34 	      last_update_date,
35 	      last_updated_by,
36 	      last_update_login,
37 	      request_id)
38               VALUES (
39 	      'CE',
40  	      X_statement_header_id,
41               X_statement_line_id,
42               X_message_name,
43 	      X_created_by,
44 	      X_creation_date,
45 	      X_last_update_date,
46 	      X_last_updated_by,
47 	      X_last_update_login,
48 	      X_request_id);
49   END Insert_Row;
50 
51   PROCEDURE Insert_Row(X_statement_header_id     NUMBER,
52 		       X_statement_line_id	 NUMBER,
53 		       X_message_name	         VARCHAR2,
54 			   X_request_id			NUMBER,
55 		       X_application_short_name	 VARCHAR2) IS
56    BEGIN
57      INSERT INTO ce_je_messages(
58 	      application_short_name,
59               statement_header_id,
60               statement_line_id,
61               message_name,
62 	      request_id,
63               creation_date,
64               created_by)
65               VALUES (
66 	      X_application_short_name,
67 	      X_statement_header_id,
68               X_statement_line_id,
69               X_message_name,
70 	      X_request_id,
71 	      sysdate,
72 	      NVL(FND_GLOBAL.user_id,-1));
73   END Insert_Row;
74 
75   PROCEDURE Delete_Row(X_statement_header_id    NUMBER,
76 		       X_statement_line_id      NUMBER) IS
77   BEGIN
78     DELETE FROM ce_je_messages
79     WHERE nvl(statement_line_id,999999)  = nvl(X_statement_line_id,999999)
80     AND   statement_header_id = X_statement_header_id;
81   END Delete_Row;
82 
83 END CE_JE_CREATION_ERRORS_PKG;