[Home] [Help]
PACKAGE BODY: APPS.PSA_MFAR_TRANSACTION_COVER_PKG
Source
1 PACKAGE BODY PSA_MFAR_TRANSACTION_COVER_PKG AS
2 /* $Header: PSAMFTHB.pls 120.5 2006/09/13 13:54:50 agovil ship $ */
3
4 --===========================FND_LOG.START=====================================
5 g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6 g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7 g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8 g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9 g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10 g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11 g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFTHB.PSA_MFAR_TRANSACTION_COVER_PKG.';
12 --===========================FND_LOG.END=======================================
13
14 PROCEDURE INSERT_ROW ( X_ROWID IN OUT NOCOPY VARCHAR2,
15 X_CUST_TRX_LINE_GL_DIST_ID IN NUMBER,
16 X_RECEIVABLES_CCID IN NUMBER,
17 X_PREV_MF_RECEIVABLES_CCID IN NUMBER,
18 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
19 X_ATTRIBUTE1 IN VARCHAR2,
20 X_ATTRIBUTE2 IN VARCHAR2,
21 X_ATTRIBUTE3 IN VARCHAR2,
22 X_ATTRIBUTE4 IN VARCHAR2,
23 X_ATTRIBUTE5 IN VARCHAR2,
24 X_ATTRIBUTE6 IN VARCHAR2,
25 X_ATTRIBUTE7 IN VARCHAR2,
26 X_ATTRIBUTE8 IN VARCHAR2,
27 X_ATTRIBUTE9 IN VARCHAR2,
28 X_ATTRIBUTE10 IN VARCHAR2,
29 X_ATTRIBUTE11 IN VARCHAR2,
30 X_ATTRIBUTE12 IN VARCHAR2,
31 X_ATTRIBUTE13 IN VARCHAR2,
32 X_ATTRIBUTE14 IN VARCHAR2,
33 X_ATTRIBUTE15 IN VARCHAR2,
34 X_MODE IN VARCHAR2
35 ) IS
36
37 cursor C is select ROWID from PSA_MF_TRX_DIST_ALL
38 where CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID;
39
40 X_LAST_UPDATE_DATE DATE;
41 X_LAST_UPDATED_BY NUMBER;
42 X_LAST_UPDATE_LOGIN NUMBER;
43 -- ========================= FND LOG ===========================
44 l_full_path VARCHAR2(100) := g_path || 'INSERT_ROW';
45 -- ========================= FND LOG ===========================
46 begin
47 X_LAST_UPDATE_DATE := SYSDATE;
48 if(X_MODE = 'I') then
49 X_LAST_UPDATED_BY := 1;
50 X_LAST_UPDATE_LOGIN := 0;
51 elsif (X_MODE = 'R') then
52 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
53 if X_LAST_UPDATED_BY is NULL then
54 X_LAST_UPDATED_BY := -1;
55 end if;
56 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
57 if X_LAST_UPDATE_LOGIN is NULL then
58 X_LAST_UPDATE_LOGIN := -1;
59 end if;
60 else
61 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
62 -- ========================= FND LOG ===========================
63 psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
64 -- ========================= FND LOG ===========================
65 app_exception.raise_exception;
66 end if;
67
68 insert into PSA_MF_TRX_DIST_ALL( CUST_TRX_LINE_GL_DIST_ID,
69 MF_RECEIVABLES_CCID,
70 CREATION_DATE,
71 CREATED_BY,
72 LAST_UPDATE_DATE,
73 LAST_UPDATED_BY,
74 LAST_UPDATE_LOGIN,
75 PREV_MF_RECEIVABLES_CCID,
76 ATTRIBUTE_CATEGORY,
77 ATTRIBUTE1,
78 ATTRIBUTE2,
79 ATTRIBUTE3,
80 ATTRIBUTE4,
81 ATTRIBUTE5,
82 ATTRIBUTE6,
83 ATTRIBUTE7,
84 ATTRIBUTE8,
85 ATTRIBUTE9,
86 ATTRIBUTE10,
87 ATTRIBUTE11,
88 ATTRIBUTE12,
89 ATTRIBUTE13,
90 ATTRIBUTE14,
91 ATTRIBUTE15
92 ) values
93 ( X_CUST_TRX_LINE_GL_DIST_ID,
94 X_RECEIVABLES_CCID,
95 X_LAST_UPDATE_DATE,
96 X_LAST_UPDATED_BY,
97 X_LAST_UPDATE_DATE,
98 X_LAST_UPDATED_BY,
99 X_LAST_UPDATE_LOGIN,
100 X_PREV_MF_RECEIVABLES_CCID,
101 X_ATTRIBUTE_CATEGORY,
102 X_ATTRIBUTE1,
103 X_ATTRIBUTE2,
104 X_ATTRIBUTE3,
105 X_ATTRIBUTE4,
106 X_ATTRIBUTE5,
107 X_ATTRIBUTE6,
108 X_ATTRIBUTE7,
109 X_ATTRIBUTE8,
110 X_ATTRIBUTE9,
111 X_ATTRIBUTE10,
112 X_ATTRIBUTE11,
113 X_ATTRIBUTE12,
114 X_ATTRIBUTE13,
115 X_ATTRIBUTE14,
116 X_ATTRIBUTE15
117 );
118
119 open c;
120 fetch c into X_ROWID;
121 if (c%notfound) then
122 close c;
123 raise no_data_found;
124 end if;
125 close c;
126
127 END INSERT_ROW;
128
129 PROCEDURE LOCK_ROW ( X_CUST_TRX_LINE_GL_DIST_ID IN NUMBER,
130 X_RECEIVABLES_CCID IN NUMBER) IS
131
132 cursor c1 is select
133 MF_RECEIVABLES_CCID
134 from PSA_MF_TRX_DIST_ALL
135 where CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID
136 for update of CUST_TRX_LINE_GL_DIST_ID nowait;
137
138 tlinfo c1%rowtype;
139 -- ========================= FND LOG ===========================
140 l_full_path VARCHAR2(100) := g_path || 'LOCK_ROW';
141 -- ========================= FND LOG ===========================
142
143 begin
144 open c1;
145 fetch c1 into tlinfo;
146 if (c1%notfound) then
147 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
148 -- ========================= FND LOG ===========================
149 psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
150 -- ========================= FND LOG ===========================
151 app_exception.raise_exception;
152 close c1;
153 return;
154 end if;
155 close c1;
156
157 if ( (tlinfo.MF_RECEIVABLES_CCID = X_RECEIVABLES_CCID)
158 ) then
159 null;
160 else
161 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
162 -- ========================= FND LOG ===========================
163 psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
164 -- ========================= FND LOG ===========================
165 app_exception.raise_exception;
166 end if;
167 return;
168 end LOCK_ROW;
169
170 PROCEDURE UPDATE_ROW ( X_CUST_TRX_LINE_GL_DIST_ID in NUMBER,
171 X_RECEIVABLES_CCID in NUMBER,
172 X_PREV_MF_RECEIVABLES_CCID IN NUMBER,
173 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
174 X_ATTRIBUTE1 IN VARCHAR2,
175 X_ATTRIBUTE2 IN VARCHAR2,
176 X_ATTRIBUTE3 IN VARCHAR2,
177 X_ATTRIBUTE4 IN VARCHAR2,
178 X_ATTRIBUTE5 IN VARCHAR2,
179 X_ATTRIBUTE6 IN VARCHAR2,
180 X_ATTRIBUTE7 IN VARCHAR2,
181 X_ATTRIBUTE8 IN VARCHAR2,
182 X_ATTRIBUTE9 IN VARCHAR2,
183 X_ATTRIBUTE10 IN VARCHAR2,
184 X_ATTRIBUTE11 IN VARCHAR2,
185 X_ATTRIBUTE12 IN VARCHAR2,
186 X_ATTRIBUTE13 IN VARCHAR2,
187 X_ATTRIBUTE14 IN VARCHAR2,
188 X_ATTRIBUTE15 IN VARCHAR2,
189 X_MODE in VARCHAR2) is
190
191 X_LAST_UPDATE_DATE DATE;
192 X_LAST_UPDATED_BY NUMBER;
193 X_LAST_UPDATE_LOGIN NUMBER;
194 -- ========================= FND LOG ===========================
195 l_full_path VARCHAR2(100) := g_path || 'UPDATE_ROW';
196 -- ========================= FND LOG ===========================
197 begin
198 X_LAST_UPDATE_DATE := SYSDATE;
199 if(X_MODE = 'I') then
200 X_LAST_UPDATED_BY := 1;
201 X_LAST_UPDATE_LOGIN := 0;
202 elsif (X_MODE = 'R') then
203 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
204 if X_LAST_UPDATED_BY is NULL then
205 X_LAST_UPDATED_BY := -1;
206 end if;
207 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
208 if X_LAST_UPDATE_LOGIN is NULL then
209 X_LAST_UPDATE_LOGIN := -1;
210 end if;
211 else
212 FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
213 -- ========================= FND LOG ===========================
214 psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
215 -- ========================= FND LOG ===========================
216 app_exception.raise_exception;
217 end if;
218
219 update PSA_MF_TRX_DIST_ALL set
220 MF_RECEIVABLES_CCID = X_RECEIVABLES_CCID,
221 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
222 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
223 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
224 PREV_MF_RECEIVABLES_CCID = X_PREV_MF_RECEIVABLES_CCID,
225 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
226 ATTRIBUTE1 = X_ATTRIBUTE1,
227 ATTRIBUTE2 = X_ATTRIBUTE2,
228 ATTRIBUTE3 = X_ATTRIBUTE3,
229 ATTRIBUTE4 = X_ATTRIBUTE4,
230 ATTRIBUTE5 = X_ATTRIBUTE5,
231 ATTRIBUTE6 = X_ATTRIBUTE6,
232 ATTRIBUTE7 = X_ATTRIBUTE7,
233 ATTRIBUTE8 = X_ATTRIBUTE8,
234 ATTRIBUTE9 = X_ATTRIBUTE9,
235 ATTRIBUTE10 = X_ATTRIBUTE10,
236 ATTRIBUTE11 = X_ATTRIBUTE11,
237 ATTRIBUTE12 = X_ATTRIBUTE12,
238 ATTRIBUTE13 = X_ATTRIBUTE13,
239 ATTRIBUTE14 = X_ATTRIBUTE14,
240 ATTRIBUTE15 = X_ATTRIBUTE15
241 where CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID;
242
243 if (sql%notfound) then
244 raise no_data_found;
245 end if;
246 end UPDATE_ROW;
247
248 PROCEDURE DELETE_ROW (X_CUST_TRX_LINE_GL_DIST_ID IN NUMBER ) is
249 begin
250 delete from PSA_MF_TRX_DIST_ALL
251 where CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID;
252 if (sql%notfound) then
253 raise no_data_found;
254 end if;
255 END DELETE_ROW;
256
257 end PSA_MFAR_TRANSACTION_COVER_PKG;