PACKAGE BODY: APPS.CE_LINE_INTERFACE_ERRORS_PKG

Source

1 PACKAGE BODY CE_LINE_INTERFACE_ERRORS_PKG as
2 /* $Header: celinteb.pls 120.1 2002/11/12 21:19:49 bhchung ship $ */
3   FUNCTION body_revision RETURN VARCHAR2 IS
4   BEGIN
5 
6     RETURN '$Revision: 120.1 $';
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_Rowid                   IN OUT NOCOPY VARCHAR2,
18   		       X_statement_number	 VARCHAR2,
19 		       X_bank_account_num	 VARCHAR2,
20 		       X_line_number		 NUMBER,
21 		       X_message_name	         VARCHAR2) IS
22    BEGIN
23      INSERT INTO CE_LINE_INTERFACE_ERRORS(
24 	      application_short_name,
25               statement_number,
26               bank_account_num,
27 	      line_number,
28               message_name,
29               creation_date,
30               created_by)
31               VALUES (
32 	      'CE',
33               X_statement_number,
34               X_bank_account_num,
35 	      X_line_number,
36               X_message_name,
37 	      sysdate,
38 	      NVL(FND_GLOBAL.user_id,-1));
39   END Insert_Row;
40 
41   PROCEDURE Insert_Row(X_Rowid                   IN OUT NOCOPY VARCHAR2,
42   		       X_statement_number	 VARCHAR2,
43 		       X_bank_account_num	 VARCHAR2,
44 		       X_line_number		 NUMBER,
45 		       X_message_name	         VARCHAR2,
46 		       X_application_short_name  VARCHAR2) IS
47    BEGIN
48      INSERT INTO CE_LINE_INTERFACE_ERRORS(
49 	      application_short_name,
50               statement_number,
51               bank_account_num,
52 	      line_number,
53               message_name,
54               creation_date,
55               created_by)
56               VALUES (
57 	      X_application_short_name,
58               X_statement_number,
59               X_bank_account_num,
60 	      X_line_number,
61               X_message_name,
62 	      sysdate,
63 	      NVL(FND_GLOBAL.user_id,-1));
64   END Insert_Row;
65 
66   PROCEDURE Delete_Row(X_statement_number VARCHAR2,
67 		       X_bank_account_num VARCHAR2,
68 		       X_line_number	  NUMBER) IS
69   BEGIN
70     IF (X_line_number IS NOT NULL) THEN
71       DELETE FROM CE_LINE_INTERFACE_ERRORS
72       WHERE statement_number  = X_statement_number AND
73 	    bank_account_num  = X_bank_account_num AND
74 	    line_number	      = X_line_number;
75     ELSE
76       DELETE FROM CE_LINE_INTERFACE_ERRORS
77       WHERE statement_number  = X_statement_number AND
78 	    bank_account_num  = X_bank_account_num;
79     END IF;
80   END Delete_Row;
81 
82 END CE_LINE_INTERFACE_ERRORS_PKG;