PACKAGE BODY: APPS.CE_HEADER_INTERFACE_ERRORS_PKG

Source

1 PACKAGE BODY CE_HEADER_INTERFACE_ERRORS_PKG as
2 /* $Header: cehinteb.pls 120.0 2002/08/24 02:36:36 appldev noship $ */
3 
4   FUNCTION body_revision RETURN VARCHAR2 IS
5   BEGIN
6 
7     RETURN '$Revision: 120.0 $';
8 
9   END body_revision;
10 
11   FUNCTION spec_revision RETURN VARCHAR2 IS
12   BEGIN
13 
14     RETURN G_spec_revision;
15 
16   END spec_revision;
17 
18   PROCEDURE Insert_Row( X_statement_number	 VARCHAR2,
19 		       X_bank_account_num	 VARCHAR2,
20 		       X_message_name	         VARCHAR2) IS
21    BEGIN
22      INSERT INTO CE_HEADER_INTERFACE_ERRORS(
23 	      application_short_name,
24               statement_number,
25               bank_account_num,
26               message_name,
27               creation_date,
28               created_by)
29               VALUES ('CE',
30               NVL(X_statement_number,'NONE'),
31               NVL(X_bank_account_num,'NONE'),
32               NVL(X_message_name,'NONE'),
33 	      sysdate,
34 	      NVL(FND_GLOBAL.user_id,-1));
35   END Insert_Row;
36 
37   PROCEDURE Insert_Row( X_statement_number	 VARCHAR2,
38 		       X_bank_account_num	 VARCHAR2,
39 		       X_message_name	         VARCHAR2,
40 		       x_application_short_name  VARCHAR2) IS
41    BEGIN
42      INSERT INTO CE_HEADER_INTERFACE_ERRORS(
43 	      application_short_name,
44               statement_number,
45               bank_account_num,
46               message_name,
47               creation_date,
48               created_by)
49               VALUES (NVL(X_application_short_name,'NONE'),
50               NVL(X_statement_number,'NONE'),
51               NVL(X_bank_account_num,'NONE'),
52               NVL(X_message_name,'NONE'),
53 	      sysdate,
54 	      NVL(FND_GLOBAL.user_id,-1));
55   END Insert_Row;
56 
57   PROCEDURE Delete_Row(X_statement_number VARCHAR2,
58 		       X_bank_account_num VARCHAR2) IS
59   BEGIN
60     DELETE FROM CE_HEADER_INTERFACE_ERRORS
61     WHERE statement_number  = X_statement_number AND
62 	  ((bank_account_num  = X_bank_account_num) OR
63 	   (bank_account_num = 'NONE'));
64   END Delete_Row;
65 
66 END CE_HEADER_INTERFACE_ERRORS_PKG;