[Home] [Help]
PACKAGE BODY: APPS.GL_INTERFACE_PKG
Source
1 PACKAGE BODY gl_interface_pkg AS
2 /* $Header: glijiinb.pls 120.10.12010000.1 2008/07/28 13:25:18 appldev ship $ */
3
4 --
5 -- PRIVATE FUNCTIONS
6 --
7 PROCEDURE Lock_Budget_Transfer_Row(
8 X_Rowid VARCHAR2,
9 X_Status VARCHAR2,
10 X_Ledger_Id NUMBER,
11 X_User_Je_Source_Name VARCHAR2,
12 X_Group_Id NUMBER,
13 X_User_Je_Category_Name VARCHAR2,
14 X_Budget_Version_Id NUMBER,
15 X_Je_Batch_Name VARCHAR2,
16 X_Currency_Code VARCHAR2,
17 X_Code_Combination_Id NUMBER,
18 X_Combination_Number NUMBER,
19 X_Period_Name VARCHAR2,
20 X_Entered_Dr NUMBER,
21 X_Entered_Cr NUMBER
22 ) IS
23 CURSOR C IS
24 SELECT *
25 FROM GL_INTERFACE
26 WHERE rowid = X_Rowid
27 FOR UPDATE of User_Je_Source_Name NOWAIT;
28 Recinfo C%ROWTYPE;
29 BEGIN
30
31 OPEN C;
32 FETCH C INTO Recinfo;
33 if (C%NOTFOUND) then
34 CLOSE C;
35 RAISE NO_DATA_FOUND;
36 end if;
37 CLOSE C;
38
39 if (
40 ( (Recinfo.status = X_Status)
41 OR ( (Recinfo.status IS NULL)
42 AND (X_Status IS NULL)))
43 AND ( (Recinfo.ledger_id = X_Ledger_Id)
44 OR ( (Recinfo.ledger_id IS NULL)
45 AND (X_Ledger_Id IS NULL)))
46 AND ( (Recinfo.user_je_source_name = X_User_Je_Source_Name)
47 OR ( (Recinfo.user_je_source_name IS NULL)
48 AND (X_User_Je_Source_Name IS NULL)))
49 AND ( (Recinfo.group_id = X_Group_Id)
50 OR ( (Recinfo.group_id IS NULL)
51 AND (X_Group_Id IS NULL)))
52 AND ( (Recinfo.user_je_category_name = X_User_Je_Category_Name)
53 OR ( (Recinfo.user_je_category_name IS NULL)
54 AND (X_User_Je_Category_Name IS NULL)))
55 AND (Recinfo.actual_flag = 'B')
56 AND ( (Recinfo.budget_version_id = X_Budget_Version_Id)
57 OR ( (Recinfo.budget_version_id IS NULL)
58 AND (X_Budget_Version_Id IS NULL)))
59 AND ( (Recinfo.reference1 = X_Je_Batch_Name)
60 OR ( (Recinfo.reference1 IS NULL)
61 AND (X_Je_Batch_Name IS NULL)))
62 AND ( (Recinfo.currency_code = X_Currency_Code)
63 OR ( (Recinfo.currency_code IS NULL)
64 AND (X_Currency_Code IS NULL)))
65 AND ( (Recinfo.code_combination_id = X_Code_Combination_Id)
66 OR ( (Recinfo.code_combination_id IS NULL)
67 AND (X_Code_Combination_Id IS NULL)))
68 AND ( (Recinfo.je_batch_id = X_Combination_Number)
69 OR ( (Recinfo.je_batch_id IS NULL)
70 AND (X_Combination_Number IS NULL)))
71 AND ( (Recinfo.period_name = X_Period_Name)
72 OR ( (Recinfo.period_name IS NULL)
73 AND (X_Period_Name IS NULL)))
74 AND ( (Recinfo.entered_dr = X_Entered_Dr)
75 OR ( (Recinfo.entered_dr IS NULL)
76 AND (X_Entered_Dr IS NULL)))
77 AND ( (Recinfo.entered_cr = X_Entered_Cr)
78 OR ( (Recinfo.entered_cr IS NULL)
79 AND (X_Entered_Cr IS NULL)))
80 ) then
81 return;
82 else
83 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
84 APP_EXCEPTION.RAISE_EXCEPTION;
85 end if;
86 END Lock_Budget_Transfer_Row;
87
88
89 --
90 -- PUBLIC FUNCTIONS
91 --
92 FUNCTION Get_Ledger_Column_Name(
93 Itable VARCHAR2,
94 Resp_Id NUMBER,
95 Resp_Appl_Id NUMBER ) RETURN VARCHAR2 IS
96 ledger_column_num VARCHAR2(30);
97 syntname VARCHAR2(30);
98 syntown VARCHAR2(30);
99 BEGIN
100 SELECT upper(nvl(max(syn.table_name),'')),
101 upper(nvl(max(syn.table_owner),''))
102 INTO syntname, syntown
103 FROM user_synonyms syn
104 WHERE syn.synonym_name = upper(Itable);
105
106 IF (syntname IS NULL) THEN
107 SELECT upper(Itable), upper(nvl(max(usr.oracle_username),''))
108 INTO syntname, syntown
109 FROM fnd_responsibility resp, fnd_data_group_units dg,
110 fnd_oracle_userid usr
111 WHERE resp.application_id = Resp_appl_id
112 AND resp.responsibility_id = Resp_id
113 AND dg.application_id = resp.data_group_application_id
114 AND dg.data_group_id = resp.data_group_id
115 AND usr.oracle_id = dg.oracle_id;
116 END IF;
117
118 SELECT nvl(sum(decode(column_name, 'LEDGER_ID', 10,
119 'SET_OF_BOOKS_ID', 1)),10)
120 INTO ledger_column_num
121 FROM dba_tab_columns tab
122 WHERE tab.table_name = syntname
123 AND tab.owner = syntown;
124
125 IF (ledger_column_num = 10) THEN
126 RETURN('LEDGER_ID');
127 ELSIF (ledger_column_num = 1) THEN
128 RETURN('SET_OF_BOOKS_ID');
129 ELSE
130 RETURN('decode(LEDGER_ID, -1, SET_OF_BOOKS_ID, LEDGER_ID)');
131 END IF;
132 END Get_Ledger_Column_Name;
133
134 FUNCTION Get_Ledger_Id(
135 Itable VARCHAR2,
136 Ledger_Column_Name VARCHAR2,
137 X_Rowid VARCHAR2) RETURN NUMBER IS
138 TYPE ledger_curr_type IS REF CURSOR;
139 lgrcur ledger_curr_type;
140 lgr_id NUMBER;
141 lgrstr VARCHAR2(1000);
142 BEGIN
143
144 lgrstr := 'SELECT '|| Ledger_Column_Name || ' ' ||
145 'FROM ' || Itable || ' ' ||
146 'WHERE rowid = :X_Rowid ';
147
148 OPEN lgrcur FOR lgrstr USING X_Rowid;
149
150 FETCH lgrcur INTO lgr_id;
151
152 CLOSE lgrcur;
153
154 RETURN(lgr_id);
155 EXCEPTION
156 WHEN NO_DATA_FOUND THEN
157 RETURN (null);
158 END Get_Ledger_Id;
159
160 PROCEDURE Insert_Budget_Transfer_Row(
161 X_From_Rowid IN OUT NOCOPY VARCHAR2,
162 X_To_Rowid IN OUT NOCOPY VARCHAR2,
163 X_Status VARCHAR2,
164 X_Ledger_Id NUMBER,
165 X_User_Je_Source_Name VARCHAR2,
166 X_Group_Id NUMBER,
167 X_User_Je_Category_Name VARCHAR2,
168 X_Budget_Version_Id NUMBER,
169 X_Je_Batch_Name VARCHAR2,
170 X_Currency_Code VARCHAR2,
171 X_From_Code_Combination_Id NUMBER,
172 X_To_Code_Combination_Id NUMBER,
173 X_Combination_Number NUMBER,
174 X_Period_Name VARCHAR2,
175 X_From_Entered_Dr NUMBER,
176 X_From_Entered_Cr NUMBER,
177 X_To_Entered_Dr NUMBER,
178 X_To_Entered_Cr NUMBER,
179 X_Date_Created DATE,
180 X_Created_By NUMBER
181 ) IS
182 CURSOR C (ccid IN NUMBER, unique_value IN VARCHAR2) IS
183 SELECT rowid FROM GL_INTERFACE
184 WHERE user_je_source_name = X_User_Je_Source_Name
185 AND group_id = X_Group_Id
186 AND ledger_id = X_Ledger_Id
187 AND status_description = unique_value
188 AND code_combination_id = ccid
189 AND je_batch_id = X_Combination_Number
190 AND period_name = X_Period_Name;
191 BEGIN
192
193 -- Insert the From line
194 INSERT INTO GL_INTERFACE(
195 status,
196 ledger_id,
197 user_je_source_name,
198 user_je_category_name,
199 accounting_date,
200 currency_code,
201 date_created,
202 created_by,
203 actual_flag,
204 budget_version_id,
205 entered_dr,
206 entered_cr,
207 reference1,
208 group_id,
209 period_name,
210 je_batch_id,
211 status_description,
212 code_combination_id
213 ) VALUES (
214 X_Status,
215 X_Ledger_Id,
216 X_User_Je_Source_Name,
217 X_User_Je_Category_Name,
218 sysdate,
219 X_Currency_Code,
220 X_Date_Created,
221 X_Created_By,
222 'B',
223 X_Budget_Version_Id,
224 X_From_Entered_Dr,
225 X_From_Entered_Cr,
226 X_Je_Batch_Name,
227 X_Group_Id,
228 X_Period_Name,
229 X_Combination_Number,
230 'New Budget Transfer Row',
231 X_From_Code_Combination_Id);
232
233 OPEN C(X_From_Code_Combination_Id, 'New Budget Transfer Row');
234 FETCH C INTO X_From_Rowid;
235 if (C%NOTFOUND) then
236 CLOSE C;
237 RAISE NO_DATA_FOUND;
238 end if;
239 CLOSE C;
240
241 -- Insert the to line, switching the Cr and Dr
242 INSERT INTO GL_INTERFACE(
243 status,
244 ledger_id,
245 user_je_source_name,
246 user_je_category_name,
247 accounting_date,
248 currency_code,
249 date_created,
250 created_by,
251 actual_flag,
252 budget_version_id,
253 entered_dr,
254 entered_cr,
255 reference1,
256 group_id,
257 period_name,
258 je_batch_id,
259 status_description,
260 code_combination_id
261 ) VALUES (
262 X_Status,
263 X_Ledger_Id,
264 X_User_Je_Source_Name,
265 X_User_Je_Category_Name,
266 sysdate,
267 X_Currency_Code,
268 X_Date_Created,
269 X_Created_By,
270 'B',
271 X_Budget_Version_Id,
272 X_To_Entered_Dr,
273 X_To_Entered_Cr,
274 X_Je_Batch_Name,
275 X_Group_Id,
276 X_Period_Name,
277 X_Combination_Number,
278 X_From_RowId,
279 X_To_Code_Combination_Id);
280
281 OPEN C(X_To_Code_Combination_Id, X_From_RowId);
282 FETCH C INTO X_To_Rowid;
283 if (C%NOTFOUND) then
284 CLOSE C;
285 RAISE NO_DATA_FOUND;
286 end if;
287 CLOSE C;
288
289
290 -- Change the from status description to the to rowid.
291 UPDATE GL_INTERFACE
292 SET status_description = X_To_RowId
293 WHERE user_je_source_name = X_User_Je_Source_Name
294 AND group_id = X_Group_Id
295 AND ledger_id = X_Ledger_Id
296 AND status_description = 'New Budget Transfer Row'
297 AND code_combination_id = X_From_Code_Combination_Id
298 AND je_batch_id = X_Combination_Number
299 AND period_name = X_Period_Name;
300
301 END Insert_Budget_Transfer_Row;
302
303
304 PROCEDURE Lock_Budget_Transfer_Row(
305 X_From_Rowid VARCHAR2,
306 X_To_Rowid VARCHAR2,
307 X_Status VARCHAR2,
308 X_Ledger_Id NUMBER,
309 X_User_Je_Source_Name VARCHAR2,
310 X_Group_Id NUMBER,
311 X_User_Je_Category_Name VARCHAR2,
312 X_Budget_Version_Id NUMBER,
313 X_Je_Batch_Name VARCHAR2,
314 X_Currency_Code VARCHAR2,
315 X_From_Code_Combination_Id NUMBER,
316 X_To_Code_Combination_Id NUMBER,
317 X_Combination_Number NUMBER,
318 X_Period_Name VARCHAR2,
319 X_From_Entered_Dr NUMBER,
320 X_From_Entered_Cr NUMBER,
321 X_To_Entered_Dr NUMBER,
322 X_To_Entered_Cr NUMBER
323 ) IS
324 BEGIN
325
326 -- Lock the from row
327 GL_INTERFACE_PKG.Lock_Budget_Transfer_Row(
328 X_Rowid => X_From_RowId,
329 X_Status => X_Status,
330 X_Ledger_Id => X_Ledger_Id,
331 X_User_Je_Source_Name => X_User_Je_Source_Name,
332 X_Group_Id => X_Group_Id,
333 X_User_Je_Category_Name=> X_User_Je_Category_Name,
334 X_Currency_Code => X_Currency_Code,
335 X_Budget_Version_Id => X_Budget_Version_Id,
336 X_Period_Name => X_Period_Name,
337 X_Code_Combination_Id => X_From_Code_Combination_Id,
338 X_Combination_Number => X_Combination_Number,
339 X_Entered_Dr => X_From_Entered_Dr,
340 X_Entered_Cr => X_From_Entered_Cr,
341 X_Je_Batch_Name => X_Je_Batch_Name
342 );
343
344 -- Lock the to row
345 GL_INTERFACE_PKG.Lock_Budget_Transfer_Row(
346 X_Rowid => X_To_RowId,
347 X_Status => X_Status,
348 X_Ledger_Id => X_Ledger_Id,
349 X_User_Je_Source_Name => X_User_Je_Source_Name,
350 X_Group_Id => X_Group_Id,
351 X_User_Je_Category_Name=> X_User_Je_Category_Name,
352 X_Currency_Code => X_Currency_Code,
353 X_Budget_Version_Id => X_Budget_Version_Id,
354 X_Period_Name => X_Period_Name,
355 X_Code_Combination_Id => X_To_Code_Combination_Id,
356 X_Combination_Number => X_Combination_Number,
357 X_Entered_Dr => X_To_Entered_Dr,
358 X_Entered_Cr => X_To_Entered_Cr,
359 X_Je_Batch_Name => X_Je_Batch_Name
360 );
361
362 END Lock_Budget_Transfer_Row;
363
364 PROCEDURE Update_Budget_Transfer_Row(
365 X_From_Rowid VARCHAR2,
366 X_To_Rowid VARCHAR2,
367 X_Status VARCHAR2,
368 X_Ledger_Id NUMBER,
369 X_User_Je_Source_Name VARCHAR2,
370 X_Group_Id NUMBER,
371 X_User_Je_Category_Name VARCHAR2,
372 X_Budget_Version_Id NUMBER,
373 X_Je_Batch_Name VARCHAR2,
374 X_Currency_Code VARCHAR2,
375 X_From_Code_Combination_Id NUMBER,
376 X_To_Code_Combination_Id NUMBER,
377 X_Combination_Number NUMBER,
378 X_Period_Name VARCHAR2,
379 X_From_Entered_Dr NUMBER,
380 X_From_Entered_Cr NUMBER,
381 X_To_Entered_Dr NUMBER,
382 X_To_Entered_Cr NUMBER
383 ) IS
384 BEGIN
385 UPDATE GL_INTERFACE
386 SET
387 status = X_Status,
388 ledger_id = X_Ledger_Id,
389 user_je_source_name = X_User_Je_Source_Name,
390 group_id = X_Group_Id,
391 user_je_category_name = X_User_Je_Category_Name,
392 actual_flag = 'B',
393 budget_version_id = X_Budget_Version_Id,
394 reference1 = X_Je_Batch_Name,
395 currency_code = X_Currency_Code,
396 code_combination_id = decode(rowid,
397 X_From_Rowid, X_From_Code_Combination_Id,
398 X_To_Rowid, X_To_Code_Combination_Id),
399 je_batch_id = X_Combination_Number,
400 period_name = X_Period_Name,
401 entered_dr = decode(rowid,
402 X_From_Rowid, X_From_Entered_Dr,
403 X_To_Rowid, X_To_Entered_Dr),
404 entered_cr = decode(rowid,
405 X_From_Rowid, X_From_Entered_Cr,
406 X_To_Rowid, X_To_Entered_Cr)
407 WHERE rowid IN (X_From_Rowid, X_To_RowId);
408
409 if (SQL%NOTFOUND) then
410 RAISE NO_DATA_FOUND;
411 end if;
412
413 END Update_Budget_Transfer_Row;
414
415 PROCEDURE Delete_Budget_Transfer_Row(X_From_Rowid VARCHAR2,
416 X_To_Rowid VARCHAR2) IS
417 BEGIN
418 DELETE FROM GL_INTERFACE
419 WHERE rowid IN (X_From_Rowid, X_To_Rowid);
420
421 if (SQL%NOTFOUND) then
422 RAISE NO_DATA_FOUND;
423 end if;
424 END Delete_Budget_Transfer_Row;
425
426 PROCEDURE delete_rows(x_ledger_id NUMBER,
427 x_user_je_source_name VARCHAR2,
428 x_group_id NUMBER DEFAULT NULL,
429 x_je_batch_id NUMBER DEFAULT NULL) IS
430 BEGIN
431 DELETE gl_interface
432 WHERE ledger_id = x_ledger_id
433 AND user_je_source_name = x_user_je_source_name
434 AND nvl(group_id,-1) = nvl(x_group_id, -1)
435 AND nvl(je_batch_id, -1) = nvl(x_je_batch_id, nvl(je_batch_id, -1));
436 END delete_rows;
437
438 FUNCTION exists_data(x_ledger_id NUMBER,
439 x_user_je_source_name VARCHAR2,
440 x_group_id NUMBER DEFAULT NULL
441 ) RETURN BOOLEAN IS
442 CURSOR check_for_data IS
443 SELECT 'Has data'
444 FROM dual
445 WHERE EXISTS (SELECT 'Has data'
446 FROM gl_interface
447 WHERE ledger_id = x_ledger_id
448 AND user_je_source_name = x_user_je_source_name
449 AND group_id = x_group_id);
450 dummy VARCHAR2(100);
451 BEGIN
452 OPEN check_for_data;
453 FETCH check_for_data INTO dummy;
454
455 IF check_for_data%FOUND THEN
456 CLOSE check_for_data;
457 return(TRUE);
458 ELSE
459 CLOSE check_for_data;
460 return(FALSE);
461 END IF;
462
463 END exists_data;
464
465 procedure LOCK_ROW (
466 X_ROWID in VARCHAR2,
467 X_ITABLE in VARCHAR2,
468 X_STATUS in VARCHAR2,
469 X_LEDGER_ID in NUMBER,
470 X_ACCOUNTING_DATE in DATE,
471 X_CURRENCY_CODE in VARCHAR2,
472 X_DATE_CREATED in DATE,
473 X_CREATED_BY in NUMBER,
474 X_ACTUAL_FLAG in VARCHAR2,
475 X_USER_JE_CATEGORY_NAME in VARCHAR2,
476 X_USER_JE_SOURCE_NAME in VARCHAR2,
477 X_CURRENCY_CONVERSION_DATE in DATE,
478 X_ENCUMBRANCE_TYPE_ID in NUMBER,
479 X_BUDGET_VERSION_ID in NUMBER,
480 X_USER_CURRENCY_CONV_TYPE in VARCHAR2,
481 X_CURRENCY_CONVERSION_RATE in NUMBER,
482 X_AVERAGE_JOURNAL_FLAG in VARCHAR2,
483 X_SEGMENT1 in VARCHAR2,
484 X_SEGMENT2 in VARCHAR2,
485 X_SEGMENT3 in VARCHAR2,
486 X_SEGMENT4 in VARCHAR2,
487 X_SEGMENT5 in VARCHAR2,
488 X_SEGMENT6 in VARCHAR2,
489 X_SEGMENT7 in VARCHAR2,
490 X_SEGMENT8 in VARCHAR2,
491 X_SEGMENT9 in VARCHAR2,
492 X_SEGMENT10 in VARCHAR2,
493 X_SEGMENT11 in VARCHAR2,
494 X_SEGMENT12 in VARCHAR2,
495 X_SEGMENT13 in VARCHAR2,
496 X_SEGMENT14 in VARCHAR2,
497 X_SEGMENT15 in VARCHAR2,
498 X_SEGMENT16 in VARCHAR2,
499 X_SEGMENT17 in VARCHAR2,
500 X_SEGMENT18 in VARCHAR2,
501 X_SEGMENT19 in VARCHAR2,
502 X_SEGMENT20 in VARCHAR2,
503 X_SEGMENT21 in VARCHAR2,
504 X_SEGMENT22 in VARCHAR2,
505 X_SEGMENT23 in VARCHAR2,
506 X_SEGMENT24 in VARCHAR2,
507 X_SEGMENT25 in VARCHAR2,
508 X_SEGMENT26 in VARCHAR2,
509 X_SEGMENT27 in VARCHAR2,
510 X_SEGMENT28 in VARCHAR2,
511 X_SEGMENT29 in VARCHAR2,
512 X_SEGMENT30 in VARCHAR2,
513 X_ENTERED_DR in NUMBER,
514 X_ENTERED_CR in NUMBER,
515 X_ACCOUNTED_DR in NUMBER,
516 X_ACCOUNTED_CR in NUMBER,
517 X_REFERENCE1 in VARCHAR2,
518 X_REFERENCE2 in VARCHAR2,
519 X_REFERENCE3 in VARCHAR2,
520 X_REFERENCE4 in VARCHAR2,
521 X_REFERENCE5 in VARCHAR2,
522 X_REFERENCE6 in VARCHAR2,
523 X_REFERENCE7 in VARCHAR2,
524 X_REFERENCE8 in VARCHAR2,
525 X_REFERENCE9 in VARCHAR2,
526 X_REFERENCE10 in VARCHAR2,
527 X_REFERENCE11 in VARCHAR2,
528 X_REFERENCE12 in VARCHAR2,
529 X_REFERENCE13 in VARCHAR2,
530 X_REFERENCE14 in VARCHAR2,
531 X_REFERENCE15 in VARCHAR2,
532 X_REFERENCE16 in VARCHAR2,
533 X_REFERENCE17 in VARCHAR2,
534 X_REFERENCE18 in VARCHAR2,
535 X_REFERENCE19 in VARCHAR2,
536 X_REFERENCE20 in VARCHAR2,
537 X_REFERENCE21 in VARCHAR2,
538 X_REFERENCE22 in VARCHAR2,
539 X_REFERENCE23 in VARCHAR2,
540 X_REFERENCE24 in VARCHAR2,
541 X_REFERENCE25 in VARCHAR2,
542 X_REFERENCE26 in VARCHAR2,
543 X_REFERENCE27 in VARCHAR2,
544 X_REFERENCE28 in VARCHAR2,
545 X_REFERENCE29 in VARCHAR2,
546 X_REFERENCE30 in VARCHAR2,
547 X_PERIOD_NAME in VARCHAR2,
548 X_CODE_COMBINATION_ID in NUMBER,
549 X_STAT_AMOUNT in NUMBER,
550 X_GROUP_ID in NUMBER,
551 X_REQUEST_ID in NUMBER,
552 X_SUBLEDGER_DOC_SEQUENCE_ID in NUMBER,
553 X_SUBLEDGER_DOC_SEQUENCE_VALUE in NUMBER,
554 X_ATTRIBUTE1 in VARCHAR2,
555 X_ATTRIBUTE2 in VARCHAR2,
556 X_ATTRIBUTE3 in VARCHAR2,
557 X_ATTRIBUTE4 in VARCHAR2,
558 X_ATTRIBUTE5 in VARCHAR2,
559 X_ATTRIBUTE6 in VARCHAR2,
560 X_ATTRIBUTE7 in VARCHAR2,
561 X_ATTRIBUTE8 in VARCHAR2,
562 X_ATTRIBUTE9 in VARCHAR2,
563 X_ATTRIBUTE10 in VARCHAR2,
564 X_ATTRIBUTE11 in VARCHAR2,
565 X_ATTRIBUTE12 in VARCHAR2,
566 X_ATTRIBUTE13 in VARCHAR2,
567 X_ATTRIBUTE14 in VARCHAR2,
568 X_ATTRIBUTE15 in VARCHAR2,
569 X_ATTRIBUTE16 in VARCHAR2,
570 X_ATTRIBUTE17 in VARCHAR2,
571 X_ATTRIBUTE18 in VARCHAR2,
572 X_ATTRIBUTE19 in VARCHAR2,
573 X_ATTRIBUTE20 in VARCHAR2,
574 X_CONTEXT in VARCHAR2,
575 X_CONTEXT2 in VARCHAR2,
576 X_INVOICE_DATE in DATE,
577 X_TAX_CODE in VARCHAR2,
578 X_INVOICE_IDENTIFIER in VARCHAR2,
579 X_INVOICE_AMOUNT in NUMBER,
580 X_CONTEXT3 in VARCHAR2,
581 X_USSGL_TRANSACTION_CODE in VARCHAR2,
582 X_JGZZ_RECON_REF in VARCHAR2,
583 X_ORIGINATING_BAL_SEG_VALUE in VARCHAR2,
584 X_GL_SL_LINK_ID in NUMBER,
585 X_GL_SL_LINK_TABLE in VARCHAR2
586 ) IS
587 sqlstmt VARCHAR2(10000);
588
589 STATUS VARCHAR2(50);
590 LEDGER_ID NUMBER;
591 ACCOUNTING_DATE DATE;
592 CURRENCY_CODE VARCHAR2(15);
593 DATE_CREATED DATE;
594 CREATED_BY NUMBER;
595 ACTUAL_FLAG VARCHAR2(1);
596 USER_JE_CATEGORY_NAME VARCHAR2(25);
597 USER_JE_SOURCE_NAME VARCHAR2(25);
598 CURRENCY_CONVERSION_DATE DATE;
599 ENCUMBRANCE_TYPE_ID NUMBER;
600 BUDGET_VERSION_ID NUMBER;
601 USER_CURRENCY_CONVERSION_TYPE VARCHAR2(30);
602 CURRENCY_CONVERSION_RATE NUMBER;
603 AVERAGE_JOURNAL_FLAG VARCHAR2(1);
604 SEGMENT1 VARCHAR2(25);
605 SEGMENT2 VARCHAR2(25);
606 SEGMENT3 VARCHAR2(25);
607 SEGMENT4 VARCHAR2(25);
608 SEGMENT5 VARCHAR2(25);
609 SEGMENT6 VARCHAR2(25);
610 SEGMENT7 VARCHAR2(25);
611 SEGMENT8 VARCHAR2(25);
612 SEGMENT9 VARCHAR2(25);
613 SEGMENT10 VARCHAR2(25);
614 SEGMENT11 VARCHAR2(25);
615 SEGMENT12 VARCHAR2(25);
616 SEGMENT13 VARCHAR2(25);
617 SEGMENT14 VARCHAR2(25);
618 SEGMENT15 VARCHAR2(25);
619 SEGMENT16 VARCHAR2(25);
620 SEGMENT17 VARCHAR2(25);
621 SEGMENT18 VARCHAR2(25);
622 SEGMENT19 VARCHAR2(25);
623 SEGMENT20 VARCHAR2(25);
624 SEGMENT21 VARCHAR2(25);
625 SEGMENT22 VARCHAR2(25);
626 SEGMENT23 VARCHAR2(25);
627 SEGMENT24 VARCHAR2(25);
628 SEGMENT25 VARCHAR2(25);
629 SEGMENT26 VARCHAR2(25);
630 SEGMENT27 VARCHAR2(25);
631 SEGMENT28 VARCHAR2(25);
632 SEGMENT29 VARCHAR2(25);
633 SEGMENT30 VARCHAR2(25);
634 ENTERED_DR NUMBER;
635 ENTERED_CR NUMBER;
636 ACCOUNTED_DR NUMBER;
637 ACCOUNTED_CR NUMBER;
638 REFERENCE1 VARCHAR2(100);
639 REFERENCE2 VARCHAR2(240);
640 REFERENCE3 VARCHAR2(100);
641 REFERENCE4 VARCHAR2(100);
642 REFERENCE5 VARCHAR2(240);
643 REFERENCE6 VARCHAR2(100);
644 REFERENCE7 VARCHAR2(100);
645 REFERENCE8 VARCHAR2(100);
646 REFERENCE9 VARCHAR2(100);
647 REFERENCE10 VARCHAR2(240);
648 REFERENCE11 VARCHAR2(100);
649 REFERENCE12 VARCHAR2(100);
650 REFERENCE13 VARCHAR2(100);
651 REFERENCE14 VARCHAR2(100);
652 REFERENCE15 VARCHAR2(100);
653 REFERENCE16 VARCHAR2(100);
654 REFERENCE17 VARCHAR2(100);
655 REFERENCE18 VARCHAR2(100);
656 REFERENCE19 VARCHAR2(100);
657 REFERENCE20 VARCHAR2(240);
658 REFERENCE21 VARCHAR2(240);
659 REFERENCE22 VARCHAR2(240);
660 REFERENCE23 VARCHAR2(240);
661 REFERENCE24 VARCHAR2(240);
662 REFERENCE25 VARCHAR2(240);
663 REFERENCE26 VARCHAR2(240);
664 REFERENCE27 VARCHAR2(240);
665 REFERENCE28 VARCHAR2(240);
666 REFERENCE29 VARCHAR2(240);
667 REFERENCE30 VARCHAR2(240);
668 PERIOD_NAME VARCHAR2(15);
669 CODE_COMBINATION_ID NUMBER;
670 STAT_AMOUNT NUMBER;
671 GROUP_ID NUMBER;
672 REQUEST_ID NUMBER;
673 SUBLEDGER_DOC_SEQUENCE_ID NUMBER;
674 SUBLEDGER_DOC_SEQUENCE_VALUE NUMBER;
675 ATTRIBUTE1 VARCHAR2(150);
676 ATTRIBUTE2 VARCHAR2(150);
677 ATTRIBUTE3 VARCHAR2(150);
678 ATTRIBUTE4 VARCHAR2(150);
679 ATTRIBUTE5 VARCHAR2(150);
680 ATTRIBUTE6 VARCHAR2(150);
681 ATTRIBUTE7 VARCHAR2(150);
682 ATTRIBUTE8 VARCHAR2(150);
683 ATTRIBUTE9 VARCHAR2(150);
684 ATTRIBUTE10 VARCHAR2(150);
685 ATTRIBUTE11 VARCHAR2(150);
686 ATTRIBUTE12 VARCHAR2(150);
687 ATTRIBUTE13 VARCHAR2(150);
688 ATTRIBUTE14 VARCHAR2(150);
689 ATTRIBUTE15 VARCHAR2(150);
690 ATTRIBUTE16 VARCHAR2(150);
691 ATTRIBUTE17 VARCHAR2(150);
692 ATTRIBUTE18 VARCHAR2(150);
693 ATTRIBUTE19 VARCHAR2(150);
694 ATTRIBUTE20 VARCHAR2(150);
695 CONTEXT VARCHAR2(150);
696 CONTEXT2 VARCHAR2(150);
697 INVOICE_DATE DATE;
698 TAX_CODE VARCHAR2(15);
699 INVOICE_IDENTIFIER VARCHAR2(20);
700 INVOICE_AMOUNT NUMBER;
701 CONTEXT3 VARCHAR2(150);
702 USSGL_TRANSACTION_CODE VARCHAR2(30);
703 JGZZ_RECON_REF VARCHAR2(240);
704 ORIGINATING_BAL_SEG_VALUE VARCHAR2(25);
705 GL_SL_LINK_ID NUMBER;
706 GL_SL_LINK_TABLE VARCHAR2(30);
707 BEGIN
708 sqlstmt := 'select
709 STATUS,
710 decode(LEDGER_ID, -1, SET_OF_BOOKS_ID, LEDGER_ID),
711 ACCOUNTING_DATE,
712 CURRENCY_CODE,
713 DATE_CREATED,
714 CREATED_BY,
715 ACTUAL_FLAG,
716 USER_JE_CATEGORY_NAME,
717 USER_JE_SOURCE_NAME,
718 CURRENCY_CONVERSION_DATE,
719 ENCUMBRANCE_TYPE_ID,
720 BUDGET_VERSION_ID,
721 USER_CURRENCY_CONVERSION_TYPE,
722 CURRENCY_CONVERSION_RATE,
723 SEGMENT1,
724 SEGMENT2,
725 SEGMENT3,
726 SEGMENT4,
727 SEGMENT5,
728 SEGMENT6,
729 SEGMENT7,
730 SEGMENT8,
731 SEGMENT9,
732 SEGMENT10,
733 SEGMENT11,
734 SEGMENT12,
735 SEGMENT13,
736 SEGMENT14,
737 SEGMENT15,
738 SEGMENT16,
739 SEGMENT17,
740 SEGMENT18,
741 SEGMENT19,
742 SEGMENT20,
743 SEGMENT21,
744 SEGMENT22,
745 SEGMENT23,
746 SEGMENT24,
747 SEGMENT25,
748 SEGMENT26,
749 SEGMENT27,
750 SEGMENT28,
751 SEGMENT29,
752 SEGMENT30,
753 ENTERED_DR,
754 ENTERED_CR,
755 ACCOUNTED_DR,
756 ACCOUNTED_CR,
757 REFERENCE1,
758 REFERENCE2,
759 REFERENCE3,
760 REFERENCE4,
761 REFERENCE5,
762 REFERENCE6,
763 REFERENCE7,
764 REFERENCE8,
765 REFERENCE9,
766 REFERENCE10,
767 REFERENCE11,
768 REFERENCE12,
769 REFERENCE13,
770 REFERENCE14,
771 REFERENCE15,
772 REFERENCE16,
773 REFERENCE17,
774 REFERENCE18,
775 REFERENCE19,
776 REFERENCE20,
777 REFERENCE21,
778 REFERENCE22,
779 REFERENCE23,
780 REFERENCE24,
781 REFERENCE25,
782 REFERENCE26,
783 REFERENCE27,
784 REFERENCE28,
785 REFERENCE29,
786 REFERENCE30,
787 PERIOD_NAME,
788 CODE_COMBINATION_ID,
789 STAT_AMOUNT,
790 GROUP_ID,
791 SUBLEDGER_DOC_SEQUENCE_ID,
792 SUBLEDGER_DOC_SEQUENCE_VALUE,
793 ATTRIBUTE1,
794 ATTRIBUTE2,
795 ATTRIBUTE3,
796 ATTRIBUTE4,
797 ATTRIBUTE5,
798 ATTRIBUTE6,
799 ATTRIBUTE7,
800 ATTRIBUTE8,
801 ATTRIBUTE9,
802 ATTRIBUTE10,
803 ATTRIBUTE11,
804 ATTRIBUTE12,
805 ATTRIBUTE13,
806 ATTRIBUTE14,
807 ATTRIBUTE15,
808 ATTRIBUTE16,
809 ATTRIBUTE17,
810 ATTRIBUTE18,
811 ATTRIBUTE19,
812 ATTRIBUTE20,
813 CONTEXT,
814 CONTEXT2,
815 INVOICE_DATE,
816 TAX_CODE,
817 INVOICE_IDENTIFIER,
818 INVOICE_AMOUNT,
819 CONTEXT3,
820 USSGL_TRANSACTION_CODE,
821 JGZZ_RECON_REF,
822 AVERAGE_JOURNAL_FLAG,
823 ORIGINATING_BAL_SEG_VALUE,
824 GL_SL_LINK_ID,
825 GL_SL_LINK_TABLE
826 from ' || X_ITABLE ||
827 ' where ROWID = :X_ROWID
828 for update of USER_JE_SOURCE_NAME nowait';
829
830 EXECUTE IMMEDIATE sqlstmt
831 INTO
832 STATUS,
833 LEDGER_ID,
834 ACCOUNTING_DATE,
835 CURRENCY_CODE,
836 DATE_CREATED,
837 CREATED_BY,
838 ACTUAL_FLAG,
839 USER_JE_CATEGORY_NAME,
840 USER_JE_SOURCE_NAME,
841 CURRENCY_CONVERSION_DATE,
842 ENCUMBRANCE_TYPE_ID,
843 BUDGET_VERSION_ID,
844 USER_CURRENCY_CONVERSION_TYPE,
845 CURRENCY_CONVERSION_RATE,
846 SEGMENT1,
847 SEGMENT2,
848 SEGMENT3,
849 SEGMENT4,
850 SEGMENT5,
851 SEGMENT6,
852 SEGMENT7,
853 SEGMENT8,
854 SEGMENT9,
855 SEGMENT10,
856 SEGMENT11,
857 SEGMENT12,
858 SEGMENT13,
859 SEGMENT14,
860 SEGMENT15,
861 SEGMENT16,
862 SEGMENT17,
863 SEGMENT18,
864 SEGMENT19,
865 SEGMENT20,
866 SEGMENT21,
867 SEGMENT22,
868 SEGMENT23,
869 SEGMENT24,
870 SEGMENT25,
871 SEGMENT26,
872 SEGMENT27,
873 SEGMENT28,
874 SEGMENT29,
875 SEGMENT30,
876 ENTERED_DR,
877 ENTERED_CR,
878 ACCOUNTED_DR,
879 ACCOUNTED_CR,
880 REFERENCE1,
881 REFERENCE2,
882 REFERENCE3,
883 REFERENCE4,
884 REFERENCE5,
885 REFERENCE6,
886 REFERENCE7,
887 REFERENCE8,
888 REFERENCE9,
889 REFERENCE10,
890 REFERENCE11,
891 REFERENCE12,
892 REFERENCE13,
893 REFERENCE14,
894 REFERENCE15,
895 REFERENCE16,
896 REFERENCE17,
897 REFERENCE18,
898 REFERENCE19,
899 REFERENCE20,
900 REFERENCE21,
901 REFERENCE22,
902 REFERENCE23,
903 REFERENCE24,
904 REFERENCE25,
905 REFERENCE26,
906 REFERENCE27,
907 REFERENCE28,
908 REFERENCE29,
909 REFERENCE30,
910 PERIOD_NAME,
911 CODE_COMBINATION_ID,
912 STAT_AMOUNT,
913 GROUP_ID,
914 SUBLEDGER_DOC_SEQUENCE_ID,
915 SUBLEDGER_DOC_SEQUENCE_VALUE,
916 ATTRIBUTE1,
917 ATTRIBUTE2,
918 ATTRIBUTE3,
919 ATTRIBUTE4,
920 ATTRIBUTE5,
921 ATTRIBUTE6,
922 ATTRIBUTE7,
923 ATTRIBUTE8,
924 ATTRIBUTE9,
925 ATTRIBUTE10,
926 ATTRIBUTE11,
927 ATTRIBUTE12,
928 ATTRIBUTE13,
929 ATTRIBUTE14,
930 ATTRIBUTE15,
931 ATTRIBUTE16,
932 ATTRIBUTE17,
933 ATTRIBUTE18,
934 ATTRIBUTE19,
935 ATTRIBUTE20,
936 CONTEXT,
937 CONTEXT2,
938 INVOICE_DATE,
939 TAX_CODE,
940 INVOICE_IDENTIFIER,
941 INVOICE_AMOUNT,
942 CONTEXT3,
943 USSGL_TRANSACTION_CODE,
944 JGZZ_RECON_REF,
945 AVERAGE_JOURNAL_FLAG,
946 ORIGINATING_BAL_SEG_VALUE,
947 GL_SL_LINK_ID,
948 GL_SL_LINK_TABLE
949 USING X_ROWID;
950
951 IF ( (rtrim(STATUS) = X_STATUS)
952 AND (LEDGER_ID = X_LEDGER_ID)
953 AND (ACCOUNTING_DATE = X_ACCOUNTING_DATE)
954 AND (CURRENCY_CODE = X_CURRENCY_CODE)
955 AND (DATE_CREATED = X_DATE_CREATED)
956 AND (CREATED_BY = X_CREATED_BY)
957 AND (ACTUAL_FLAG = X_ACTUAL_FLAG)
958 AND (USER_JE_CATEGORY_NAME = X_USER_JE_CATEGORY_NAME)
959 AND (USER_JE_SOURCE_NAME = X_USER_JE_SOURCE_NAME)
960 AND ((CURRENCY_CONVERSION_DATE = X_CURRENCY_CONVERSION_DATE)
961 OR ((CURRENCY_CONVERSION_DATE is null) AND (X_CURRENCY_CONVERSION_DATE is null)))
962 AND ((ENCUMBRANCE_TYPE_ID = X_ENCUMBRANCE_TYPE_ID)
963 OR ((ENCUMBRANCE_TYPE_ID is null) AND (X_ENCUMBRANCE_TYPE_ID is null)))
964 AND ((BUDGET_VERSION_ID = X_BUDGET_VERSION_ID)
965 OR ((BUDGET_VERSION_ID is null) AND (X_BUDGET_VERSION_ID is null)))
966 AND ((USER_CURRENCY_CONVERSION_TYPE = X_USER_CURRENCY_CONV_TYPE)
967 OR ((USER_CURRENCY_CONVERSION_TYPE is null) AND (X_USER_CURRENCY_CONV_TYPE is null)))
968 AND ((CURRENCY_CONVERSION_RATE = X_CURRENCY_CONVERSION_RATE)
969 OR ((CURRENCY_CONVERSION_RATE is null) AND (X_CURRENCY_CONVERSION_RATE is null)))
970 AND ((AVERAGE_JOURNAL_FLAG = X_AVERAGE_JOURNAL_FLAG)
971 OR ((AVERAGE_JOURNAL_FLAG is null) AND (X_AVERAGE_JOURNAL_FLAG is null)))
972 AND ((SEGMENT1 = X_SEGMENT1)
973 OR ((SEGMENT1 is null) AND (X_SEGMENT1 is null)))
974 AND ((SEGMENT2 = X_SEGMENT2)
975 OR ((SEGMENT2 is null) AND (X_SEGMENT2 is null)))
976 AND ((SEGMENT3 = X_SEGMENT3)
977 OR ((SEGMENT3 is null) AND (X_SEGMENT3 is null)))
978 AND ((SEGMENT4 = X_SEGMENT4)
979 OR ((SEGMENT4 is null) AND (X_SEGMENT4 is null)))
980 AND ((SEGMENT5 = X_SEGMENT5)
981 OR ((SEGMENT5 is null) AND (X_SEGMENT5 is null)))
982 AND ((SEGMENT6 = X_SEGMENT6)
983 OR ((SEGMENT6 is null) AND (X_SEGMENT6 is null)))
984 AND ((SEGMENT7 = X_SEGMENT7)
985 OR ((SEGMENT7 is null) AND (X_SEGMENT7 is null)))
986 AND ((SEGMENT8 = X_SEGMENT8)
987 OR ((SEGMENT8 is null) AND (X_SEGMENT8 is null)))
988 AND ((SEGMENT9 = X_SEGMENT9)
989 OR ((SEGMENT9 is null) AND (X_SEGMENT9 is null)))
990 AND ((SEGMENT10 = X_SEGMENT10)
991 OR ((SEGMENT10 is null) AND (X_SEGMENT10 is null)))
992 AND ((SEGMENT11 = X_SEGMENT11)
993 OR ((SEGMENT11 is null) AND (X_SEGMENT11 is null)))
994 AND ((SEGMENT12 = X_SEGMENT12)
995 OR ((SEGMENT12 is null) AND (X_SEGMENT12 is null)))
996 AND ((SEGMENT13 = X_SEGMENT13)
997 OR ((SEGMENT13 is null) AND (X_SEGMENT13 is null)))
998 AND ((SEGMENT14 = X_SEGMENT14)
999 OR ((SEGMENT14 is null) AND (X_SEGMENT14 is null)))
1000 AND ((SEGMENT15 = X_SEGMENT15)
1001 OR ((SEGMENT15 is null) AND (X_SEGMENT15 is null)))
1002 AND ((SEGMENT16 = X_SEGMENT16)
1003 OR ((SEGMENT16 is null) AND (X_SEGMENT16 is null)))
1004 AND ((SEGMENT17 = X_SEGMENT17)
1005 OR ((SEGMENT17 is null) AND (X_SEGMENT17 is null)))
1006 AND ((SEGMENT18 = X_SEGMENT18)
1007 OR ((SEGMENT18 is null) AND (X_SEGMENT18 is null)))
1008 AND ((SEGMENT19 = X_SEGMENT19)
1009 OR ((SEGMENT19 is null) AND (X_SEGMENT19 is null)))
1010 AND ((SEGMENT20 = X_SEGMENT20)
1011 OR ((SEGMENT20 is null) AND (X_SEGMENT20 is null)))
1012 AND ((SEGMENT21 = X_SEGMENT21)
1013 OR ((SEGMENT21 is null) AND (X_SEGMENT21 is null)))
1014 AND ((SEGMENT22 = X_SEGMENT22)
1015 OR ((SEGMENT22 is null) AND (X_SEGMENT22 is null)))
1016 AND ((SEGMENT23 = X_SEGMENT23)
1017 OR ((SEGMENT23 is null) AND (X_SEGMENT23 is null)))
1018 AND ((SEGMENT24 = X_SEGMENT24)
1019 OR ((SEGMENT24 is null) AND (X_SEGMENT24 is null)))
1020 AND ((SEGMENT25 = X_SEGMENT25)
1021 OR ((SEGMENT25 is null) AND (X_SEGMENT25 is null)))
1022 AND ((SEGMENT26 = X_SEGMENT26)
1023 OR ((SEGMENT26 is null) AND (X_SEGMENT26 is null)))
1024 AND ((SEGMENT27 = X_SEGMENT27)
1025 OR ((SEGMENT27 is null) AND (X_SEGMENT27 is null)))
1026 AND ((SEGMENT28 = X_SEGMENT28)
1027 OR ((SEGMENT28 is null) AND (X_SEGMENT28 is null)))
1028 AND ((SEGMENT29 = X_SEGMENT29)
1029 OR ((SEGMENT29 is null) AND (X_SEGMENT29 is null)))
1030 AND ((SEGMENT30 = X_SEGMENT30)
1031 OR ((SEGMENT30 is null) AND (X_SEGMENT30 is null)))
1032 AND ((ENTERED_DR = X_ENTERED_DR)
1033 OR ((ENTERED_DR is null) AND (X_ENTERED_DR is null)))
1034 AND ((ENTERED_CR = X_ENTERED_CR)
1035 OR ((ENTERED_CR is null) AND (X_ENTERED_CR is null)))
1036 AND ((ACCOUNTED_DR = X_ACCOUNTED_DR)
1037 OR ((ACCOUNTED_DR is null) AND (X_ACCOUNTED_DR is null)))
1038 AND ((ACCOUNTED_CR = X_ACCOUNTED_CR)
1039 OR ((ACCOUNTED_CR is null) AND (X_ACCOUNTED_CR is null)))
1040 AND ((rtrim(REFERENCE1) = X_REFERENCE1)
1041 OR ((rtrim(REFERENCE1) is null) AND (X_REFERENCE1 is null)))
1042 AND ((rtrim(REFERENCE2) = X_REFERENCE2)
1043 OR ((rtrim(REFERENCE2) is null) AND (X_REFERENCE2 is null)))
1044 AND ((rtrim(REFERENCE3) = X_REFERENCE3)
1045 OR ((rtrim(REFERENCE3) is null) AND (X_REFERENCE3 is null)))
1046 AND ((rtrim(REFERENCE4) = X_REFERENCE4)
1047 OR ((rtrim(REFERENCE4) is null) AND (X_REFERENCE4 is null)))
1048 AND ((rtrim(REFERENCE5) = X_REFERENCE5)
1049 OR ((rtrim(REFERENCE5) is null) AND (X_REFERENCE5 is null)))
1050 AND ((rtrim(REFERENCE6) = X_REFERENCE6)
1051 OR ((rtrim(REFERENCE6) is null) AND (X_REFERENCE6 is null)))
1052 AND ((rtrim(REFERENCE7) = X_REFERENCE7)
1053 OR ((rtrim(REFERENCE7) is null) AND (X_REFERENCE7 is null)))
1054 AND ((rtrim(REFERENCE8) = X_REFERENCE8)
1055 OR ((rtrim(REFERENCE8) is null) AND (X_REFERENCE8 is null)))
1056 AND ((rtrim(REFERENCE9) = X_REFERENCE9)
1057 OR ((rtrim(REFERENCE9) is null) AND (X_REFERENCE9 is null)))
1058 AND ((rtrim(REFERENCE10) = X_REFERENCE10)
1059 OR ((rtrim(REFERENCE10) is null) AND (X_REFERENCE10 is null)))
1060 AND ((rtrim(REFERENCE11) = X_REFERENCE11)
1061 OR ((rtrim(REFERENCE11) is null) AND (X_REFERENCE11 is null)))
1062 AND ((rtrim(REFERENCE12) = X_REFERENCE12)
1063 OR ((rtrim(REFERENCE12) is null) AND (X_REFERENCE12 is null)))
1064 AND ((rtrim(REFERENCE13) = X_REFERENCE13)
1065 OR ((rtrim(REFERENCE13) is null) AND (X_REFERENCE13 is null)))
1066 AND ((rtrim(REFERENCE14) = X_REFERENCE14)
1067 OR ((rtrim(REFERENCE14) is null) AND (X_REFERENCE14 is null)))
1068 AND ((rtrim(REFERENCE15) = X_REFERENCE15)
1069 OR ((rtrim(REFERENCE15) is null) AND (X_REFERENCE15 is null)))
1070 AND ((rtrim(REFERENCE16) = X_REFERENCE16)
1071 OR ((rtrim(REFERENCE16) is null) AND (X_REFERENCE16 is null)))
1072 AND ((rtrim(REFERENCE17) = X_REFERENCE17)
1073 OR ((rtrim(REFERENCE17) is null) AND (X_REFERENCE17 is null)))
1074 AND ((rtrim(REFERENCE18) = X_REFERENCE18)
1075 OR ((rtrim(REFERENCE18) is null) AND (X_REFERENCE18 is null)))
1076 AND ((rtrim(REFERENCE19) = X_REFERENCE19)
1077 OR ((rtrim(REFERENCE19) is null) AND (X_REFERENCE19 is null)))
1078 AND ((rtrim(REFERENCE20) = X_REFERENCE20)
1079 OR ((rtrim(REFERENCE20) is null) AND (X_REFERENCE20 is null)))
1080 AND ((rtrim(REFERENCE21) = X_REFERENCE21)
1081 OR ((rtrim(REFERENCE21) is null) AND (X_REFERENCE21 is null)))
1082 AND ((rtrim(REFERENCE22) = X_REFERENCE22)
1083 OR ((rtrim(REFERENCE22) is null) AND (X_REFERENCE22 is null)))
1084 AND ((rtrim(REFERENCE23) = X_REFERENCE23)
1085 OR ((rtrim(REFERENCE23) is null) AND (X_REFERENCE23 is null)))
1086 AND ((rtrim(REFERENCE24) = X_REFERENCE24)
1087 OR ((rtrim(REFERENCE24) is null) AND (X_REFERENCE24 is null)))
1088 AND ((rtrim(REFERENCE25) = X_REFERENCE25)
1089 OR ((rtrim(REFERENCE25) is null) AND (X_REFERENCE25 is null)))
1090 AND ((rtrim(REFERENCE26) = X_REFERENCE26)
1091 OR ((rtrim(REFERENCE26) is null) AND (X_REFERENCE26 is null)))
1092 AND ((rtrim(REFERENCE27) = X_REFERENCE27)
1093 OR ((rtrim(REFERENCE27) is null) AND (X_REFERENCE27 is null)))
1094 AND ((rtrim(REFERENCE28) = X_REFERENCE28)
1095 OR ((rtrim(REFERENCE28) is null) AND (X_REFERENCE28 is null)))
1096 AND ((rtrim(REFERENCE29) = X_REFERENCE29)
1097 OR ((rtrim(REFERENCE29) is null) AND (X_REFERENCE29 is null)))
1098 AND ((rtrim(REFERENCE30) = X_REFERENCE30)
1099 OR ((rtrim(REFERENCE30) is null) AND (X_REFERENCE30 is null)))
1100 AND ((PERIOD_NAME = X_PERIOD_NAME)
1101 OR ((PERIOD_NAME is null) AND (X_PERIOD_NAME is null)))
1102 AND ((CODE_COMBINATION_ID = X_CODE_COMBINATION_ID)
1103 OR ((CODE_COMBINATION_ID is null) AND (X_CODE_COMBINATION_ID is null)))
1104 AND ((STAT_AMOUNT = X_STAT_AMOUNT)
1105 OR ((STAT_AMOUNT is null) AND (X_STAT_AMOUNT is null)))
1106 AND ((GROUP_ID = X_GROUP_ID)
1107 OR ((GROUP_ID is null) AND (X_GROUP_ID is null)))
1108 AND ((SUBLEDGER_DOC_SEQUENCE_ID = X_SUBLEDGER_DOC_SEQUENCE_ID)
1109 OR ((SUBLEDGER_DOC_SEQUENCE_ID is null) AND (X_SUBLEDGER_DOC_SEQUENCE_ID is null)))
1110 AND ((SUBLEDGER_DOC_SEQUENCE_VALUE = X_SUBLEDGER_DOC_SEQUENCE_VALUE)
1111 OR ((SUBLEDGER_DOC_SEQUENCE_VALUE is null) AND (X_SUBLEDGER_DOC_SEQUENCE_VALUE is null)))
1112 AND ((rtrim(ATTRIBUTE1) = X_ATTRIBUTE1)
1113 OR ((rtrim(ATTRIBUTE1) is null) AND (X_ATTRIBUTE1 is null)))
1114 AND ((rtrim(ATTRIBUTE2) = X_ATTRIBUTE2)
1115 OR ((rtrim(ATTRIBUTE2) is null) AND (X_ATTRIBUTE2 is null)))
1116 AND ((rtrim(ATTRIBUTE3) = X_ATTRIBUTE3)
1117 OR ((rtrim(ATTRIBUTE3) is null) AND (X_ATTRIBUTE3 is null)))
1118 AND ((rtrim(ATTRIBUTE4) = X_ATTRIBUTE4)
1119 OR ((rtrim(ATTRIBUTE4) is null) AND (X_ATTRIBUTE4 is null)))
1120 AND ((rtrim(ATTRIBUTE5) = X_ATTRIBUTE5)
1121 OR ((rtrim(ATTRIBUTE5) is null) AND (X_ATTRIBUTE5 is null)))
1122 AND ((rtrim(ATTRIBUTE6) = X_ATTRIBUTE6)
1123 OR ((rtrim(ATTRIBUTE6) is null) AND (X_ATTRIBUTE6 is null)))
1124 AND ((rtrim(ATTRIBUTE7) = X_ATTRIBUTE7)
1125 OR ((rtrim(ATTRIBUTE7) is null) AND (X_ATTRIBUTE7 is null)))
1126 AND ((rtrim(ATTRIBUTE8) = X_ATTRIBUTE8)
1127 OR ((rtrim(ATTRIBUTE8) is null) AND (X_ATTRIBUTE8 is null)))
1128 AND ((rtrim(ATTRIBUTE9) = X_ATTRIBUTE9)
1129 OR ((rtrim(ATTRIBUTE9) is null) AND (X_ATTRIBUTE9 is null)))
1130 AND ((rtrim(ATTRIBUTE10) = X_ATTRIBUTE10)
1131 OR ((rtrim(ATTRIBUTE10) is null) AND (X_ATTRIBUTE10 is null)))
1132 AND ((rtrim(ATTRIBUTE11) = X_ATTRIBUTE11)
1133 OR ((rtrim(ATTRIBUTE11) is null) AND (X_ATTRIBUTE11 is null)))
1134 AND ((rtrim(ATTRIBUTE12) = X_ATTRIBUTE12)
1135 OR ((rtrim(ATTRIBUTE12) is null) AND (X_ATTRIBUTE12 is null)))
1136 AND ((rtrim(ATTRIBUTE13) = X_ATTRIBUTE13)
1137 OR ((rtrim(ATTRIBUTE13) is null) AND (X_ATTRIBUTE13 is null)))
1138 AND ((rtrim(ATTRIBUTE14) = X_ATTRIBUTE14)
1139 OR ((rtrim(ATTRIBUTE14) is null) AND (X_ATTRIBUTE14 is null)))
1140 AND ((rtrim(ATTRIBUTE15) = X_ATTRIBUTE15)
1141 OR ((rtrim(ATTRIBUTE15) is null) AND (X_ATTRIBUTE15 is null)))
1142 AND ((rtrim(ATTRIBUTE16) = X_ATTRIBUTE16)
1143 OR ((rtrim(ATTRIBUTE16) is null) AND (X_ATTRIBUTE16 is null)))
1144 AND ((rtrim(ATTRIBUTE17) = X_ATTRIBUTE17)
1145 OR ((rtrim(ATTRIBUTE17) is null) AND (X_ATTRIBUTE17 is null)))
1146 AND ((rtrim(ATTRIBUTE18) = X_ATTRIBUTE18)
1147 OR ((rtrim(ATTRIBUTE18) is null) AND (X_ATTRIBUTE18 is null)))
1148 AND ((rtrim(ATTRIBUTE19) = X_ATTRIBUTE19)
1149 OR ((rtrim(ATTRIBUTE19) is null) AND (X_ATTRIBUTE19 is null)))
1150 AND ((rtrim(ATTRIBUTE20) = X_ATTRIBUTE20)
1151 OR ((rtrim(ATTRIBUTE20) is null) AND (X_ATTRIBUTE20 is null)))
1152 AND ((rtrim(CONTEXT) = X_CONTEXT)
1153 OR ((rtrim(CONTEXT) is null) AND (X_CONTEXT is null)))
1154 AND ((rtrim(CONTEXT2) = X_CONTEXT2)
1155 OR ((rtrim(CONTEXT2) is null) AND (X_CONTEXT2 is null)))
1156 AND ((INVOICE_DATE = X_INVOICE_DATE)
1157 OR ((INVOICE_DATE is null) AND (X_INVOICE_DATE is null)))
1158 AND ((rtrim(TAX_CODE) = X_TAX_CODE)
1159 OR ((rtrim(TAX_CODE) is null) AND (X_TAX_CODE is null)))
1160 AND ((rtrim(INVOICE_IDENTIFIER) = X_INVOICE_IDENTIFIER)
1161 OR ((rtrim(INVOICE_IDENTIFIER) is null) AND (X_INVOICE_IDENTIFIER is null)))
1162 AND ((INVOICE_AMOUNT = X_INVOICE_AMOUNT)
1163 OR ((INVOICE_AMOUNT is null) AND (X_INVOICE_AMOUNT is null)))
1164 AND ((rtrim(CONTEXT3) = X_CONTEXT3)
1165 OR ((rtrim(CONTEXT3) is null) AND (X_CONTEXT3 is null)))
1166 AND ((USSGL_TRANSACTION_CODE = X_USSGL_TRANSACTION_CODE)
1167 OR ((USSGL_TRANSACTION_CODE is null) AND (X_USSGL_TRANSACTION_CODE is null)))
1168 AND ((JGZZ_RECON_REF = X_JGZZ_RECON_REF)
1169 OR ((JGZZ_RECON_REF is null) AND (X_JGZZ_RECON_REF is null)))
1170 AND ((ORIGINATING_BAL_SEG_VALUE = X_ORIGINATING_BAL_SEG_VALUE)
1171 OR ((ORIGINATING_BAL_SEG_VALUE is null) AND (X_ORIGINATING_BAL_SEG_VALUE is null)))
1172 AND ((GL_SL_LINK_ID = X_GL_SL_LINK_ID)
1173 OR ((GL_SL_LINK_ID is null) AND (X_GL_SL_LINK_ID is null)))
1174 AND ((GL_SL_LINK_TABLE = X_GL_SL_LINK_TABLE)
1175 OR ((GL_SL_LINK_TABLE is null) AND (X_GL_SL_LINK_TABLE is null)))
1176 ) THEN
1177 null;
1178 ELSE
1179 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1180 app_exception.raise_exception;
1181 END IF;
1182 end lock_row;
1183
1184
1185 procedure UPDATE_ROW (
1186 X_ROWID in VARCHAR2,
1187 X_ITABLE in VARCHAR2,
1188 X_STATUS in VARCHAR2,
1189 X_LEDGER_ID in NUMBER,
1190 X_ACCOUNTING_DATE in DATE,
1191 X_CURRENCY_CODE in VARCHAR2,
1192 X_DATE_CREATED in DATE,
1193 X_CREATED_BY in NUMBER,
1194 X_ACTUAL_FLAG in VARCHAR2,
1195 X_USER_JE_CATEGORY_NAME in VARCHAR2,
1196 X_USER_JE_SOURCE_NAME in VARCHAR2,
1197 X_CURRENCY_CONVERSION_DATE in DATE,
1198 X_ENCUMBRANCE_TYPE_ID in NUMBER,
1199 X_BUDGET_VERSION_ID in NUMBER,
1200 X_USER_CURRENCY_CONV_TYPE in VARCHAR2,
1201 X_CURRENCY_CONVERSION_RATE in NUMBER,
1202 X_AVERAGE_JOURNAL_FLAG in VARCHAR2,
1203 X_SEGMENT1 in VARCHAR2,
1204 X_SEGMENT2 in VARCHAR2,
1205 X_SEGMENT3 in VARCHAR2,
1206 X_SEGMENT4 in VARCHAR2,
1207 X_SEGMENT5 in VARCHAR2,
1208 X_SEGMENT6 in VARCHAR2,
1209 X_SEGMENT7 in VARCHAR2,
1210 X_SEGMENT8 in VARCHAR2,
1211 X_SEGMENT9 in VARCHAR2,
1212 X_SEGMENT10 in VARCHAR2,
1213 X_SEGMENT11 in VARCHAR2,
1214 X_SEGMENT12 in VARCHAR2,
1215 X_SEGMENT13 in VARCHAR2,
1216 X_SEGMENT14 in VARCHAR2,
1217 X_SEGMENT15 in VARCHAR2,
1218 X_SEGMENT16 in VARCHAR2,
1219 X_SEGMENT17 in VARCHAR2,
1220 X_SEGMENT18 in VARCHAR2,
1221 X_SEGMENT19 in VARCHAR2,
1222 X_SEGMENT20 in VARCHAR2,
1223 X_SEGMENT21 in VARCHAR2,
1224 X_SEGMENT22 in VARCHAR2,
1225 X_SEGMENT23 in VARCHAR2,
1226 X_SEGMENT24 in VARCHAR2,
1227 X_SEGMENT25 in VARCHAR2,
1228 X_SEGMENT26 in VARCHAR2,
1229 X_SEGMENT27 in VARCHAR2,
1230 X_SEGMENT28 in VARCHAR2,
1231 X_SEGMENT29 in VARCHAR2,
1232 X_SEGMENT30 in VARCHAR2,
1233 X_ENTERED_DR in NUMBER,
1234 X_ENTERED_CR in NUMBER,
1235 X_ACCOUNTED_DR in NUMBER,
1236 X_ACCOUNTED_CR in NUMBER,
1237 X_REFERENCE1 in VARCHAR2,
1238 X_REFERENCE2 in VARCHAR2,
1239 X_REFERENCE3 in VARCHAR2,
1240 X_REFERENCE4 in VARCHAR2,
1241 X_REFERENCE5 in VARCHAR2,
1242 X_REFERENCE6 in VARCHAR2,
1243 X_REFERENCE7 in VARCHAR2,
1244 X_REFERENCE8 in VARCHAR2,
1245 X_REFERENCE9 in VARCHAR2,
1246 X_REFERENCE10 in VARCHAR2,
1247 X_REFERENCE11 in VARCHAR2,
1248 X_REFERENCE12 in VARCHAR2,
1249 X_REFERENCE13 in VARCHAR2,
1250 X_REFERENCE14 in VARCHAR2,
1251 X_REFERENCE15 in VARCHAR2,
1252 X_REFERENCE16 in VARCHAR2,
1253 X_REFERENCE17 in VARCHAR2,
1254 X_REFERENCE18 in VARCHAR2,
1255 X_REFERENCE19 in VARCHAR2,
1256 X_REFERENCE20 in VARCHAR2,
1257 X_REFERENCE21 in VARCHAR2,
1258 X_REFERENCE22 in VARCHAR2,
1259 X_REFERENCE23 in VARCHAR2,
1260 X_REFERENCE24 in VARCHAR2,
1261 X_REFERENCE25 in VARCHAR2,
1262 X_REFERENCE26 in VARCHAR2,
1263 X_REFERENCE27 in VARCHAR2,
1264 X_REFERENCE28 in VARCHAR2,
1265 X_REFERENCE29 in VARCHAR2,
1266 X_REFERENCE30 in VARCHAR2,
1267 X_PERIOD_NAME in VARCHAR2,
1268 X_CODE_COMBINATION_ID in NUMBER,
1269 X_STAT_AMOUNT in NUMBER,
1270 X_GROUP_ID in NUMBER,
1271 X_REQUEST_ID in NUMBER,
1272 X_SUBLEDGER_DOC_SEQUENCE_ID in NUMBER,
1273 X_SUBLEDGER_DOC_SEQUENCE_VALUE in NUMBER,
1274 X_ATTRIBUTE1 in VARCHAR2,
1275 X_ATTRIBUTE2 in VARCHAR2,
1276 X_ATTRIBUTE3 in VARCHAR2,
1277 X_ATTRIBUTE4 in VARCHAR2,
1278 X_ATTRIBUTE5 in VARCHAR2,
1279 X_ATTRIBUTE6 in VARCHAR2,
1280 X_ATTRIBUTE7 in VARCHAR2,
1281 X_ATTRIBUTE8 in VARCHAR2,
1282 X_ATTRIBUTE9 in VARCHAR2,
1283 X_ATTRIBUTE10 in VARCHAR2,
1284 X_ATTRIBUTE11 in VARCHAR2,
1285 X_ATTRIBUTE12 in VARCHAR2,
1286 X_ATTRIBUTE13 in VARCHAR2,
1287 X_ATTRIBUTE14 in VARCHAR2,
1288 X_ATTRIBUTE15 in VARCHAR2,
1289 X_ATTRIBUTE16 in VARCHAR2,
1290 X_ATTRIBUTE17 in VARCHAR2,
1291 X_ATTRIBUTE18 in VARCHAR2,
1292 X_ATTRIBUTE19 in VARCHAR2,
1293 X_ATTRIBUTE20 in VARCHAR2,
1294 X_CONTEXT in VARCHAR2,
1295 X_CONTEXT2 in VARCHAR2,
1296 X_INVOICE_DATE in DATE,
1297 X_TAX_CODE in VARCHAR2,
1298 X_INVOICE_IDENTIFIER in VARCHAR2,
1299 X_INVOICE_AMOUNT in NUMBER,
1300 X_CONTEXT3 in VARCHAR2,
1301 X_USSGL_TRANSACTION_CODE in VARCHAR2,
1302 X_JGZZ_RECON_REF in VARCHAR2,
1303 X_ORIGINATING_BAL_SEG_VALUE in VARCHAR2,
1304 X_GL_SL_LINK_ID in NUMBER,
1305 X_GL_SL_LINK_TABLE in VARCHAR2
1306 ) IS
1307 sqlstmt VARCHAR2(10000);
1308 BEGIN
1309 sqlstmt :=
1310 'update ' || X_ITABLE || ' set
1311 STATUS = :X_STATUS,
1312 LEDGER_ID = :X_LEDGER_ID,
1313 ACCOUNTING_DATE = :X_ACCOUNTING_DATE,
1314 CURRENCY_CODE = :X_CURRENCY_CODE,
1315 DATE_CREATED = :X_DATE_CREATED,
1316 CREATED_BY = :X_CREATED_BY,
1317 ACTUAL_FLAG = :X_ACTUAL_FLAG,
1318 USER_JE_CATEGORY_NAME = :X_USER_JE_CATEGORY_NAME,
1319 USER_JE_SOURCE_NAME = :X_USER_JE_SOURCE_NAME,
1320 CURRENCY_CONVERSION_DATE = :X_CURRENCY_CONVERSION_DATE,
1321 ENCUMBRANCE_TYPE_ID = :X_ENCUMBRANCE_TYPE_ID,
1322 BUDGET_VERSION_ID = :X_BUDGET_VERSION_ID,
1323 USER_CURRENCY_CONVERSION_TYPE = :X_USER_CURRENCY_CONV_TYPE,
1324 CURRENCY_CONVERSION_RATE = :X_CURRENCY_CONVERSION_RATE,
1325 AVERAGE_JOURNAL_FLAG = :X_AVERAGE_JOURNAL_FLAG,
1326 SEGMENT1 = :X_SEGMENT1,
1327 SEGMENT2 = :X_SEGMENT2,
1328 SEGMENT3 = :X_SEGMENT3,
1329 SEGMENT4 = :X_SEGMENT4,
1330 SEGMENT5 = :X_SEGMENT5,
1331 SEGMENT6 = :X_SEGMENT6,
1332 SEGMENT7 = :X_SEGMENT7,
1333 SEGMENT8 = :X_SEGMENT8,
1334 SEGMENT9 = :X_SEGMENT9,
1335 SEGMENT10 = :X_SEGMENT10,
1336 SEGMENT11 = :X_SEGMENT11,
1337 SEGMENT12 = :X_SEGMENT12,
1338 SEGMENT13 = :X_SEGMENT13,
1339 SEGMENT14 = :X_SEGMENT14,
1340 SEGMENT15 = :X_SEGMENT15,
1341 SEGMENT16 = :X_SEGMENT16,
1342 SEGMENT17 = :X_SEGMENT17,
1343 SEGMENT18 = :X_SEGMENT18,
1344 SEGMENT19 = :X_SEGMENT19,
1345 SEGMENT20 = :X_SEGMENT20,
1346 SEGMENT21 = :X_SEGMENT21,
1347 SEGMENT22 = :X_SEGMENT22,
1348 SEGMENT23 = :X_SEGMENT23,
1349 SEGMENT24 = :X_SEGMENT24,
1350 SEGMENT25 = :X_SEGMENT25,
1351 SEGMENT26 = :X_SEGMENT26,
1352 SEGMENT27 = :X_SEGMENT27,
1353 SEGMENT28 = :X_SEGMENT28,
1354 SEGMENT29 = :X_SEGMENT29,
1355 SEGMENT30 = :X_SEGMENT30,
1356 ENTERED_DR = :X_ENTERED_DR,
1357 ENTERED_CR = :X_ENTERED_CR,
1358 ACCOUNTED_DR = :X_ACCOUNTED_DR,
1359 ACCOUNTED_CR = :X_ACCOUNTED_CR,
1360 REFERENCE1 = :X_REFERENCE1,
1361 REFERENCE2 = :X_REFERENCE2,
1362 REFERENCE3 = :X_REFERENCE3,
1363 REFERENCE4 = :X_REFERENCE4,
1364 REFERENCE5 = :X_REFERENCE5,
1365 REFERENCE6 = :X_REFERENCE6,
1366 REFERENCE7 = :X_REFERENCE7,
1367 REFERENCE8 = :X_REFERENCE8,
1368 REFERENCE9 = :X_REFERENCE9,
1369 REFERENCE10 = :X_REFERENCE10,
1370 REFERENCE11 = :X_REFERENCE11,
1371 REFERENCE12 = :X_REFERENCE12,
1372 REFERENCE13 = :X_REFERENCE13,
1373 REFERENCE14 = :X_REFERENCE14,
1374 REFERENCE15 = :X_REFERENCE15,
1375 REFERENCE16 = :X_REFERENCE16,
1376 REFERENCE17 = :X_REFERENCE17,
1377 REFERENCE18 = :X_REFERENCE18,
1378 REFERENCE19 = :X_REFERENCE19,
1379 REFERENCE20 = :X_REFERENCE20,
1380 REFERENCE21 = :X_REFERENCE21,
1381 REFERENCE22 = :X_REFERENCE22,
1382 REFERENCE23 = :X_REFERENCE23,
1383 REFERENCE24 = :X_REFERENCE24,
1384 REFERENCE25 = :X_REFERENCE25,
1385 REFERENCE26 = :X_REFERENCE26,
1386 REFERENCE27 = :X_REFERENCE27,
1387 REFERENCE28 = :X_REFERENCE28,
1388 REFERENCE29 = :X_REFERENCE29,
1389 REFERENCE30 = :X_REFERENCE30,
1390 PERIOD_NAME = :X_PERIOD_NAME,
1391 CODE_COMBINATION_ID = :X_CODE_COMBINATION_ID,
1392 STAT_AMOUNT = :X_STAT_AMOUNT,
1393 GROUP_ID = :X_GROUP_ID,
1394 REQUEST_ID = :X_REQUEST_ID,
1395 SUBLEDGER_DOC_SEQUENCE_ID = :X_SUBLEDGER_DOC_SEQUENCE_ID,
1396 SUBLEDGER_DOC_SEQUENCE_VALUE = :X_SUBLEDGER_DOC_SEQUENCE_VALUE,
1397 ATTRIBUTE1 = :X_ATTRIBUTE1,
1398 ATTRIBUTE2 = :X_ATTRIBUTE2,
1399 ATTRIBUTE3 = :X_ATTRIBUTE3,
1400 ATTRIBUTE4 = :X_ATTRIBUTE4,
1401 ATTRIBUTE5 = :X_ATTRIBUTE5,
1402 ATTRIBUTE6 = :X_ATTRIBUTE6,
1403 ATTRIBUTE7 = :X_ATTRIBUTE7,
1404 ATTRIBUTE8 = :X_ATTRIBUTE8,
1405 ATTRIBUTE9 = :X_ATTRIBUTE9,
1406 ATTRIBUTE10 = :X_ATTRIBUTE10,
1407 ATTRIBUTE11 = :X_ATTRIBUTE11,
1408 ATTRIBUTE12 = :X_ATTRIBUTE12,
1409 ATTRIBUTE13 = :X_ATTRIBUTE13,
1410 ATTRIBUTE14 = :X_ATTRIBUTE14,
1411 ATTRIBUTE15 = :X_ATTRIBUTE15,
1412 ATTRIBUTE16 = :X_ATTRIBUTE16,
1413 ATTRIBUTE17 = :X_ATTRIBUTE17,
1414 ATTRIBUTE18 = :X_ATTRIBUTE18,
1415 ATTRIBUTE19 = :X_ATTRIBUTE19,
1416 ATTRIBUTE20 = :X_ATTRIBUTE20,
1417 CONTEXT = :X_CONTEXT,
1418 CONTEXT2 = :X_CONTEXT2,
1419 INVOICE_DATE = :X_INVOICE_DATE,
1420 TAX_CODE = :X_TAX_CODE,
1421 INVOICE_IDENTIFIER = :X_INVOICE_IDENTIFIER,
1422 INVOICE_AMOUNT = :X_INVOICE_AMOUNT,
1423 CONTEXT3 = :X_CONTEXT3,
1424 USSGL_TRANSACTION_CODE = :X_USSGL_TRANSACTION_CODE,
1425 JGZZ_RECON_REF = :X_JGZZ_RECON_REF,
1426 ORIGINATING_BAL_SEG_VALUE = :X_ORIGINATING_BAL_SEG_VALUE,
1427 GL_SL_LINK_ID = :X_GL_SL_LINK_ID,
1428 GL_SL_LINK_TABLE = :X_GL_SL_LINK_TABLE
1429 where ROWID = :X_ROWID';
1430
1431 EXECUTE IMMEDIATE sqlstmt
1432 USING
1433 X_STATUS,
1434 X_LEDGER_ID,
1435 X_ACCOUNTING_DATE,
1436 X_CURRENCY_CODE,
1437 X_DATE_CREATED,
1438 X_CREATED_BY,
1439 X_ACTUAL_FLAG,
1440 X_USER_JE_CATEGORY_NAME,
1441 X_USER_JE_SOURCE_NAME,
1442 X_CURRENCY_CONVERSION_DATE,
1443 X_ENCUMBRANCE_TYPE_ID,
1444 X_BUDGET_VERSION_ID,
1445 X_USER_CURRENCY_CONV_TYPE,
1446 X_CURRENCY_CONVERSION_RATE,
1447 X_AVERAGE_JOURNAL_FLAG,
1448 X_SEGMENT1,
1449 X_SEGMENT2,
1450 X_SEGMENT3,
1451 X_SEGMENT4,
1452 X_SEGMENT5,
1453 X_SEGMENT6,
1454 X_SEGMENT7,
1455 X_SEGMENT8,
1456 X_SEGMENT9,
1457 X_SEGMENT10,
1458 X_SEGMENT11,
1459 X_SEGMENT12,
1460 X_SEGMENT13,
1461 X_SEGMENT14,
1462 X_SEGMENT15,
1463 X_SEGMENT16,
1464 X_SEGMENT17,
1465 X_SEGMENT18,
1466 X_SEGMENT19,
1467 X_SEGMENT20,
1468 X_SEGMENT21,
1469 X_SEGMENT22,
1470 X_SEGMENT23,
1471 X_SEGMENT24,
1472 X_SEGMENT25,
1473 X_SEGMENT26,
1474 X_SEGMENT27,
1475 X_SEGMENT28,
1476 X_SEGMENT29,
1477 X_SEGMENT30,
1478 X_ENTERED_DR,
1479 X_ENTERED_CR,
1480 X_ACCOUNTED_DR,
1481 X_ACCOUNTED_CR,
1482 X_REFERENCE1,
1483 X_REFERENCE2,
1484 X_REFERENCE3,
1485 X_REFERENCE4,
1486 X_REFERENCE5,
1487 X_REFERENCE6,
1488 X_REFERENCE7,
1489 X_REFERENCE8,
1490 X_REFERENCE9,
1491 X_REFERENCE10,
1492 X_REFERENCE11,
1493 X_REFERENCE12,
1494 X_REFERENCE13,
1495 X_REFERENCE14,
1496 X_REFERENCE15,
1497 X_REFERENCE16,
1498 X_REFERENCE17,
1499 X_REFERENCE18,
1500 X_REFERENCE19,
1501 X_REFERENCE20,
1502 X_REFERENCE21,
1503 X_REFERENCE22,
1504 X_REFERENCE23,
1505 X_REFERENCE24,
1506 X_REFERENCE25,
1507 X_REFERENCE26,
1508 X_REFERENCE27,
1509 X_REFERENCE28,
1510 X_REFERENCE29,
1511 X_REFERENCE30,
1512 X_PERIOD_NAME,
1513 X_CODE_COMBINATION_ID,
1514 X_STAT_AMOUNT,
1515 X_GROUP_ID,
1516 X_REQUEST_ID,
1517 X_SUBLEDGER_DOC_SEQUENCE_ID,
1518 X_SUBLEDGER_DOC_SEQUENCE_VALUE,
1519 X_ATTRIBUTE1,
1520 X_ATTRIBUTE2,
1521 X_ATTRIBUTE3,
1522 X_ATTRIBUTE4,
1523 X_ATTRIBUTE5,
1524 X_ATTRIBUTE6,
1525 X_ATTRIBUTE7,
1526 X_ATTRIBUTE8,
1527 X_ATTRIBUTE9,
1528 X_ATTRIBUTE10,
1529 X_ATTRIBUTE11,
1530 X_ATTRIBUTE12,
1531 X_ATTRIBUTE13,
1532 X_ATTRIBUTE14,
1533 X_ATTRIBUTE15,
1534 X_ATTRIBUTE16,
1535 X_ATTRIBUTE17,
1536 X_ATTRIBUTE18,
1537 X_ATTRIBUTE19,
1538 X_ATTRIBUTE20,
1539 X_CONTEXT,
1540 X_CONTEXT2,
1541 X_INVOICE_DATE,
1542 X_TAX_CODE,
1543 X_INVOICE_IDENTIFIER,
1544 X_INVOICE_AMOUNT,
1545 X_CONTEXT3,
1546 X_USSGL_TRANSACTION_CODE,
1547 X_JGZZ_RECON_REF,
1548 X_ORIGINATING_BAL_SEG_VALUE,
1549 X_GL_SL_LINK_ID,
1550 X_GL_SL_LINK_TABLE,
1551 X_ROWID;
1552
1553 if (sql%notfound) then
1554 raise no_data_found;
1555 end if;
1556 null;
1557 END update_row;
1558
1559 procedure DELETE_ROW (
1560 X_ROWID in VARCHAR2,
1561 X_ITABLE in VARCHAR2
1562 ) IS
1563 sqlstmt VARCHAR2(2000);
1564 BEGIN
1565 sqlstmt :=
1566 'delete from ' || X_ITABLE || ' ' ||
1567 'where ROW_ID = :X_ROWID';
1568
1569 EXECUTE IMMEDIATE sqlstmt
1570 USING X_ROWID;
1571
1572 if (sql%notfound) then
1573 raise no_data_found;
1574 end if;
1575 null;
1576 END delete_row;
1577
1578
1579 END gl_interface_pkg;