[Home] [Help]
PACKAGE BODY: APPS.CE_CASHFLOW_HIST_PKG
Source
1 PACKAGE BODY CE_CASHFLOW_HIST_PKG as
2 /* $Header: cebtathb.pls 120.3 2005/08/03 05:21:40 jikumar noship $ */
3
4
5
6 FUNCTION body_revision RETURN VARCHAR2 IS
7 BEGIN
8
9 RETURN '$Revision: 120.3 $';
10
11 END body_revision;
12
13 FUNCTION spec_revision RETURN VARCHAR2 IS
14 BEGIN
15
16 RETURN G_spec_revision;
17
18 END spec_revision;
19
20
21 PROCEDURE update_current_record_flag(p_cashflow number) IS
22 BEGIN
23 UPDATE CE_CASHFLOW_ACCT_H
24 SET CURRENT_RECORD_FLAG = 'N'
25 WHERE cashflow_id = p_cashflow;
26
27 EXCEPTION
28 WHEN NO_DATA_FOUND THEN
29 NULL;
30 WHEN OTHERS THEN
31 RAISE;
32
33 END update_current_record_flag;
34
35
36 PROCEDURE INSERT_ROW (
37 X_ROWID IN OUT NOCOPY VARCHAR2,
38 X_EVENT_ID NUMBER,
39 X_CASHFLOW_ID NUMBER,
40 X_EVENT_TYPE VARCHAR2,
41 X_ACCOUNTING_DATE DATE,
42 X_STATUS_CODE VARCHAR2,
43 X_CURR_RECORD_FLAG VARCHAR2,
44 X_CLEARED_DATE DATE,
45 X_CLEARED_AMOUNT NUMBER,
46 X_CLEARED_EXCH_RATE NUMBER,
47 X_CLEARED_EXCH_DATE DATE,
48 X_CLEARED_EXCH_TYPE VARCHAR2,
49 X_CLEARING_CHRG_AMT NUMBER,
50 X_CLEARING_ERR_AMT NUMBER,
51 X_REV_IND_FLAG VARCHAR2,
52 X_REV_FIRST_DIST_ID NUMBER,
53 X_REV_SECOND_DIST_NUM VARCHAR2,
54 X_CREATED_BY NUMBER,
55 X_CREATION_DATE DATE,
56 X_LAST_UPDATED_BY NUMBER,
57 X_LAST_UPDATE_DATE DATE,
58 X_LAST_UPDATE_LOGIN NUMBER
59 ) IS
60
61
62 CURSOR C IS SELECT ROWID FROM CE_CASHFLOW_ACCT_H
63 WHERE EVENT_ID = X_EVENT_ID;
64
65 BEGIN
66 -- update the current record flag to N for all the respective cashflows
67 update_current_record_flag(X_CASHFLOW_ID);
68
69 INSERT INTO CE_CASHFLOW_ACCT_H
70 ( CASHFLOW_ID,
71 EVENT_ID,
72 EVENT_TYPE,
73 ACCOUNTING_DATE,
74 STATUS_CODE,
75 CURRENT_RECORD_FLAG,
76 CLEARED_DATE,
77 CLEARED_AMOUNT,
78 CLEARED_EXCHANGE_RATE,
79 CLEARED_EXCHANGE_DATE,
80 CLEARED_EXCHANGE_RATE_TYPE,
81 CLEARING_CHARGES_AMOUNT,
82 CLEARING_ERROR_AMOUNT,
83 REVERSAL_INDICATOR_FLAG,
84 REVERSAL_FIRST_DIST_ID,
85 REVERSAL_SECOND_DIST_NUM,
86 CREATED_BY,
87 CREATION_DATE,
88 LAST_UPDATED_BY,
89 LAST_UPDATE_DATE,
90 LAST_UPDATE_LOGIN,
91 OBJECT_VERSION_NUMBER
92 ) VALUES
93 ( X_CASHFLOW_ID,
94 X_EVENT_ID,
95 X_EVENT_TYPE,
96 X_ACCOUNTING_DATE,
97 X_STATUS_CODE,
98 X_CURR_RECORD_FLAG,
99 X_CLEARED_DATE,
100 X_CLEARED_AMOUNT,
101 X_CLEARED_EXCH_RATE,
102 X_CLEARED_EXCH_DATE,
103 X_CLEARED_EXCH_TYPE,
104 X_CLEARING_CHRG_AMT,
105 X_CLEARING_ERR_AMT,
106 X_REV_IND_FLAG,
107 X_REV_FIRST_DIST_ID,
108 X_REV_SECOND_DIST_NUM,
109 X_CREATED_BY,
110 X_CREATION_DATE,
111 X_LAST_UPDATED_BY,
112 X_LAST_UPDATE_DATE,
113 X_LAST_UPDATE_LOGIN,
114 '1'
115 );
116 OPEN C;
117 FETCH C INTO X_rowid;
118 IF (C%NOTFOUND) THEN
119 CLOSE C;
120 Raise NO_DATA_FOUND;
121 END IF;
122 CLOSE C;
123
124 END insert_row;
125
126
127 PROCEDURE UPDATE_ROW (
128 X_ROWID VARCHAR2,
129 X_CASHFLOW_ID NUMBER,
130 X_EVENT_ID NUMBER,
131 X_EVENT_TYPE VARCHAR2,
132 X_ACCOUNTING_DATE DATE,
133 X_STATUS_CODE VARCHAR2,
134 X_CURR_RECORD_FLAG VARCHAR2,
135 X_CLEARED_DATE DATE,
136 X_CLEARED_AMOUNT NUMBER,
137 X_CLEARED_EXCH_RATE NUMBER,
138 X_CLEARED_EXCH_DATE DATE,
139 X_CLEARED_EXCH_TYPE VARCHAR2,
140 X_CLEARING_CHRG_AMT NUMBER,
141 X_CLEARING_ERR_AMT NUMBER,
142 X_REV_IND_FLAG VARCHAR2,
143 X_REV_FIRST_DIST_ID NUMBER,
144 X_REV_SECOND_DIST_NUM VARCHAR2,
145 X_LAST_UPDATED_BY NUMBER,
146 X_LAST_UPDATE_DATE DATE,
147 X_LAST_UPDATE_LOGIN NUMBER,
148 X_OBJECT_VERSION_NUMBER NUMBER ) IS
149 BEGIN
150
151 UPDATE CE_CASHFLOW_ACCT_H
152 SET
153 CASHFLOW_ID = X_CASHFLOW_ID,
154 EVENT_ID = X_EVENT_ID,
155 EVENT_TYPE = X_EVENT_TYPE,
156 ACCOUNTING_DATE = X_ACCOUNTING_DATE,
157 STATUS_CODE = X_STATUS_CODE,
158 CURRENT_RECORD_FLAG = X_CURR_RECORD_FLAG,
159 CLEARED_DATE = X_CLEARED_DATE,
160 CLEARED_AMOUNT = X_CLEARED_AMOUNT,
161 CLEARED_EXCHANGE_RATE = X_CLEARED_EXCH_RATE,
162 CLEARED_EXCHANGE_DATE = X_CLEARED_EXCH_DATE,
163 CLEARED_EXCHANGE_RATE_TYPE = X_CLEARED_EXCH_TYPE,
164 CLEARING_CHARGES_AMOUNT = X_CLEARING_CHRG_AMT,
165 CLEARING_ERROR_AMOUNT = X_CLEARING_ERR_AMT,
166 REVERSAL_INDICATOR_FLAG = X_REV_IND_FLAG,
167 REVERSAL_FIRST_DIST_ID = X_REV_FIRST_DIST_ID,
168 REVERSAL_SECOND_DIST_NUM = X_REV_SECOND_DIST_NUM,
169 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
170 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
171 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
172 OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1
173 WHERE
174 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER AND
175 ROWID = X_ROWID;
176
177 IF (SQL%NOTFOUND) THEN
178 Raise NO_DATA_FOUND;
179 END IF;
180
181
182 END UPDATE_ROW;
183
184 PROCEDURE Delete_Row( X_Row_id VARCHAR2 ) IS
185 BEGIN
186 DELETE FROM CE_CASHFLOW_ACCT_H
187 WHERE rowid = X_Row_Id;
188 IF (SQL%NOTFOUND) THEN
189 Raise NO_DATA_FOUND;
190 END IF;
191 END Delete_Row;
192
193
194 END CE_CASHFLOW_HIST_PKG;