PACKAGE BODY: APPS.CE_ZBA_DEAL_INF_PKG

Source

1 PACKAGE BODY CE_ZBA_DEAL_INF_PKG as
2 /* $Header: cezdinfb.pls 120.1 2005/07/25 23:04:38 sspoonen noship $ */
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_statement_header_id     NUMBER,
18 		       X_statement_line_id	 NUMBER,
19 		       X_deal_type               VARCHAR2,
20                        X_deal_num                NUMBER,
21 	               X_transaction_num         NUMBER,
22 		       X_cashpool_id		 NUMBER,
23 		       X_cashflows_created_flag	 VARCHAR2,
24 	               X_offset_deal_num         NUMBER,
25 	               X_offset_transaction_num  NUMBER) IS
26    BEGIN
27      INSERT INTO CE_ZBA_DEAL_MESSAGES(
28 	      application_short_name,
29  	      statement_header_id,
30               statement_line_id,
31               creation_date,
32               created_by,
33               deal_type,
34               deal_num,
35 	      transaction_num,
36 	      cashpool_id,
37 	      cashflows_created_flag,
38 	      offset_deal_num,
39 	      offset_transaction_num,
40 	      deal_status_flag)
41               VALUES (
42 	      'CE',
43  	      X_statement_header_id,
44               X_statement_line_id,
45 	      sysdate,
46 	      NVL(FND_GLOBAL.user_id,-1),
47               X_deal_type,
48               X_deal_num,
49 	      X_transaction_num,
50 	      X_cashpool_id,
51 	      X_cashflows_created_flag,
52 	      X_offset_deal_num,
53 	      X_offset_transaction_num,
54 	      'Y');
55   END Insert_Row;
56 
57   PROCEDURE Insert_Row(X_statement_header_id     NUMBER,
58 		       X_statement_line_id	 NUMBER,
59 		       X_message_name	         VARCHAR2) IS
60    BEGIN
61      INSERT INTO CE_ZBA_DEAL_MESSAGES(
62 	      application_short_name,
63               statement_header_id,
64               statement_line_id,
65               message_name,
66               creation_date,
67               created_by,
68               deal_status_flag)
69               VALUES (
70 	      'CE',
71 	      X_statement_header_id,
72               X_statement_line_id,
73               X_message_name,
74 	      sysdate,
75 	      NVL(FND_GLOBAL.user_id,-1),
76               'N');
77   END Insert_Row;
78 
79   PROCEDURE Insert_Row(X_statement_header_id     NUMBER,
80 		       X_statement_line_id	 NUMBER,
81 		       X_message_name	         VARCHAR2,
82 		       X_application_short_name	 VARCHAR2) IS
83    BEGIN
84      INSERT INTO CE_ZBA_DEAL_MESSAGES(
85 	      application_short_name,
86               statement_header_id,
87               statement_line_id,
88               message_name,
89               creation_date,
90               created_by,
91               deal_status_flag)
92               VALUES (
93 	      X_application_short_name,
94 	      X_statement_header_id,
95               X_statement_line_id,
96               X_message_name,
97 	      sysdate,
98 	      NVL(FND_GLOBAL.user_id,-1),
99               'N');
100   END Insert_Row;
101 
102   PROCEDURE Delete_Row(X_statement_header_id    NUMBER,
103 		       X_statement_line_id      NUMBER) IS
104   BEGIN
105     IF X_statement_line_id IS NULL THEN
106       DELETE FROM CE_ZBA_DEAL_MESSAGES
107       WHERE statement_header_id = X_statement_header_id;
108     ELSE
109       DELETE FROM CE_ZBA_DEAL_MESSAGES
110       WHERE statement_line_id = X_statement_line_id;
111     END IF;
112   END Delete_Row;
113 
114 END CE_ZBA_DEAL_INF_PKG;