[Home] [Help]
PACKAGE BODY: APPS.JL_CO_GL_NIT_ACCTS_PKG
Source
1 PACKAGE BODY JL_CO_GL_NIT_ACCTS_PKG as
2 /* $Header: jlcoglab.pls 115.1 2002/03/01 16:54:21 pkm ship $ */
3
4 PROCEDURE Lock_Row(
5 X_rowid VARCHAR2,
6 X_chart_of_accounts_id NUMBER,
7 X_flex_value_id NUMBER,
8 X_account_code VARCHAR2,
9 X_nit_required VARCHAR2,
10 X_last_updated_by NUMBER,
11 X_last_update_date DATE,
12 X_last_update_login NUMBER,
13 X_creation_date DATE,
14 X_created_by NUMBER,
15 X_attribute_category VARCHAR2,
16 X_attribute1 VARCHAR2,
17 X_attribute2 VARCHAR2,
18 X_attribute3 VARCHAR2,
19 X_attribute4 VARCHAR2,
20 X_attribute5 VARCHAR2,
21 X_attribute6 VARCHAR2,
22 X_attribute7 VARCHAR2,
23 X_attribute8 VARCHAR2,
24 X_attribute9 VARCHAR2,
25 X_attribute10 VARCHAR2,
26 X_attribute11 VARCHAR2,
27 X_attribute12 VARCHAR2,
28 X_attribute13 VARCHAR2,
29 X_attribute14 VARCHAR2,
30 X_attribute15 VARCHAR2
31 ) IS
32 CURSOR C IS SELECT CHART_OF_ACCOUNTS_ID,
33 FLEX_VALUE_ID,
34 ACCOUNT_CODE,
35 CREATED_BY,
36 LAST_UPDATE_DATE,
37 LAST_UPDATED_BY,
38 CREATION_DATE,
39 LAST_UPDATE_LOGIN,
40 NIT_REQUIRED,
41 ATTRIBUTE_CATEGORY,
42 ATTRIBUTE1,
43 ATTRIBUTE2,
44 ATTRIBUTE3,
45 ATTRIBUTE4,
46 ATTRIBUTE5,
47 ATTRIBUTE6,
48 ATTRIBUTE7,
49 ATTRIBUTE8,
50 ATTRIBUTE9,
51 ATTRIBUTE10,
52 ATTRIBUTE11,
53 ATTRIBUTE12,
54 ATTRIBUTE13,
55 ATTRIBUTE14,
56 ATTRIBUTE15
57 FROM jl_co_gl_nit_accts
58 WHERE chart_of_accounts_id = X_chart_of_accounts_id
59 AND flex_value_id = X_flex_value_id
60 FOR UPDATE of nit_required
61 NOWAIT;
62
63 Recinfo C%ROWTYPE;
64
65 debug_info VARCHAR2(100);
66
67 BEGIN
68 debug_info := 'Open cursor C in LOCK_ROW';
69 OPEN C;
70 debug_info := 'Fetch cursor C in LOCK_ROW';
71 FETCH C INTO Recinfo;
72 IF (C%NOTFOUND)
73 THEN
74 debug_info := 'Close cursor C - DATA NOTFOUND';
75 CLOSE C;
76 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
77 APP_EXCEPTION.Raise_Exception;
78 END IF;
79 debug_info := 'Close cursor C';
80 CLOSE C;
81 IF (Recinfo.chart_of_accounts_id = X_chart_of_accounts_id AND
82 Recinfo.flex_value_id = X_flex_value_id AND
83 Recinfo.account_code = X_account_code AND
84 Recinfo.creation_date = X_creation_date AND
85 Recinfo.created_by = X_created_by AND
86 Recinfo.last_updated_by = X_last_updated_by AND
87 Recinfo.last_update_date = X_last_update_date AND
88 (Recinfo.nit_required = X_nit_required OR
89 X_nit_required IS NULL) AND
90 (Recinfo.last_update_login = X_last_update_login OR
91 X_last_update_login IS NULL) AND
92 (Recinfo.creation_date = X_creation_date OR
93 X_creation_date IS NULL) AND
94 (Recinfo.created_by = X_created_by OR
95 X_created_by IS NULL) AND
96 (Recinfo.attribute_category = X_attribute_Category OR
97 X_attribute_Category IS NULL) AND
98 (Recinfo.attribute1 = X_attribute1 OR
99 X_attribute1 IS NULL) AND
100 (Recinfo.attribute2 = X_attribute2 OR
101 X_attribute2 IS NULL) AND
102 (Recinfo.attribute3 = X_attribute3 OR
103 X_attribute3 IS NULL) AND
104 (Recinfo.attribute4 = X_attribute4 OR
105 X_attribute4 IS NULL) AND
106 (Recinfo.attribute5 = X_attribute5 OR
107 X_attribute5 IS NULL) AND
108 (Recinfo.attribute6 = X_attribute6 OR
109 X_attribute6 IS NULL) AND
110 (Recinfo.attribute7 = X_attribute7 OR
111 X_attribute7 IS NULL) AND
112 (Recinfo.attribute8 = X_attribute8 OR
113 X_attribute8 IS NULL) AND
114 (Recinfo.attribute9 = X_attribute9 OR
115 X_attribute9 IS NULL) AND
116 (Recinfo.attribute10 = X_attribute10 OR
117 X_attribute10 IS NULL) AND
118 (Recinfo.attribute11 = X_attribute11 OR
119 X_attribute11 IS NULL) AND
120 (Recinfo.attribute12 = X_attribute12 OR
121 X_attribute12 IS NULL) AND
122 (Recinfo.attribute13 = X_attribute13 OR
123 X_attribute13 IS NULL) AND
124 (Recinfo.attribute14 = X_attribute14 OR
125 X_attribute14 IS NULL) AND
126 (Recinfo.attribute15 = X_attribute15 OR
127 X_attribute15 IS NULL)
128 )
129 THEN
130 return;
131 ELSE
132 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
133 APP_EXCEPTION.Raise_Exception;
134 END IF;
135
136 EXCEPTION
137 WHEN OTHERS THEN
138 IF (SQLCODE <> -20001) THEN
139 IF (SQLCODE = -54) THEN
140 FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
141 ELSE
142 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
143 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
144 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',NULL);
145 FND_MESSAGE.SET_TOKEN('PARAMETERS',NULL);
146 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
147 END IF;
148 END IF;
149 APP_EXCEPTION.RAISE_EXCEPTION;
150 END Lock_Row;
151
152 PROCEDURE Update_Row(
153 X_rowid VARCHAR2,
154 X_chart_of_accounts_id NUMBER,
155 X_flex_value_id NUMBER,
156 X_account_code VARCHAR2,
157 X_nit_required VARCHAR2,
158 X_last_updated_by NUMBER,
159 X_last_update_date DATE,
160 X_last_update_login NUMBER,
161 X_creation_date DATE,
162 X_created_by NUMBER,
163 X_attribute_category VARCHAR2,
164 X_attribute1 VARCHAR2,
165 X_attribute2 VARCHAR2,
166 X_attribute3 VARCHAR2,
167 X_attribute4 VARCHAR2,
168 X_attribute5 VARCHAR2,
169 X_attribute6 VARCHAR2,
170 X_attribute7 VARCHAR2,
171 X_attribute8 VARCHAR2,
172 X_attribute9 VARCHAR2,
173 X_attribute10 VARCHAR2,
174 X_attribute11 VARCHAR2,
175 X_attribute12 VARCHAR2,
176 X_attribute13 VARCHAR2,
177 X_attribute14 VARCHAR2,
178 X_attribute15 VARCHAR2
179 ) IS
180
181 BEGIN
182 UPDATE jl_co_gl_nit_accts
183 SET chart_of_accounts_id = X_chart_of_accounts_id,
184 flex_value_id = X_flex_value_id,
185 account_code = X_account_code,
186 nit_required = X_nit_required,
187 last_updated_by = X_last_updated_by,
188 last_update_date = X_last_update_date,
189 last_update_login = X_last_update_login,
190 creation_date = X_creation_date,
191 created_by = X_created_by,
192 attribute_category = X_attribute_category,
193 attribute1 = X_attribute1,
194 attribute2 = X_attribute2,
195 attribute3 = X_attribute3,
196 attribute4 = X_attribute4,
197 attribute5 = X_attribute5,
198 attribute6 = X_attribute6,
199 attribute7 = X_attribute7,
200 attribute8 = X_attribute8,
201 attribute9 = X_attribute9,
202 attribute10 = X_attribute10,
203 attribute11 = X_attribute11,
204 attribute12 = X_attribute12,
205 attribute13 = X_attribute13,
206 attribute14 = X_attribute14,
207 attribute15 = X_attribute15
208
209 WHERE rowid = X_rowid;
210
211 IF (SQL%NOTFOUND)
212 THEN
213 raise NO_DATA_FOUND;
214 END IF;
215 END Update_Row;
216
217 PROCEDURE Delete_Row( X_rowid VARCHAR2
218 ) IS
219 BEGIN
220 DELETE
221 FROM jl_co_gl_nit_accts
222 WHERE rowid = X_rowid;
223
224 IF (SQL%NOTFOUND)
225 THEN
226 raise NO_DATA_FOUND;
227 END IF;
228 END Delete_Row;
229
230 END JL_CO_GL_NIT_ACCTS_PKG;