[Home] [Help]
PACKAGE BODY: APPS.IGS_FI_INVLN_INT_PKG
Source
1 PACKAGE BODY igs_fi_invln_int_pkg AS
2 /* $Header: IGSSI74B.pls 120.3 2005/07/08 05:25:19 appldev ship $ */
3 l_rowid VARCHAR2(25);
4 old_references igs_fi_invln_int_all%RowType;
5 new_references igs_fi_invln_int_all%RowType;
6
7 PROCEDURE Set_Column_Values (
8 p_action IN VARCHAR2,
9 x_rowid IN VARCHAR2 ,
10 x_invoice_id IN NUMBER ,
11 x_line_number IN NUMBER ,
12 x_invoice_lines_id IN NUMBER ,
13 x_attribute2 IN VARCHAR2 ,
14 x_chg_elements IN NUMBER ,
15 x_amount IN NUMBER ,
16 x_unit_attempt_status IN VARCHAR2 ,
17 x_eftsu IN NUMBER ,
18 x_credit_points IN NUMBER ,
19 x_attribute_category IN VARCHAR2 ,
20 x_attribute1 IN VARCHAR2 ,
21 x_s_chg_method_type IN VARCHAR2 ,
22 x_description IN VARCHAR2 ,
23 x_attribute3 IN VARCHAR2 ,
24 x_attribute4 IN VARCHAR2 ,
25 x_attribute5 IN VARCHAR2 ,
26 x_attribute6 IN VARCHAR2 ,
27 x_attribute7 IN VARCHAR2 ,
28 x_attribute8 IN VARCHAR2 ,
29 x_attribute9 IN VARCHAR2 ,
30 x_attribute10 IN VARCHAR2 ,
31 x_org_id IN NUMBER ,
32 x_creation_date IN DATE ,
33 x_created_by IN NUMBER ,
34 x_last_update_date IN DATE ,
35 x_last_updated_by IN NUMBER ,
36 x_last_update_login IN NUMBER ,
37 x_REC_ACCOUNT_CD IN VARCHAR2 ,
38 x_REV_ACCOUNT_CD IN VARCHAR2 ,
39 x_REC_GL_CCID IN NUMBER ,
40 x_REV_GL_CCID IN NUMBER ,
41 x_ORG_UNIT_CD IN VARCHAR2 ,
42 x_POSTING_ID IN NUMBER ,
43 x_ATTRIBUTE11 IN VARCHAR2 ,
44 x_ATTRIBUTE12 IN VARCHAR2 ,
45 x_ATTRIBUTE13 IN VARCHAR2 ,
46 x_ATTRIBUTE14 IN VARCHAR2 ,
47 x_ATTRIBUTE15 IN VARCHAR2 ,
48 x_ATTRIBUTE16 IN VARCHAR2 ,
49 x_ATTRIBUTE17 IN VARCHAR2 ,
50 x_ATTRIBUTE18 IN VARCHAR2 ,
51 x_ATTRIBUTE19 IN VARCHAR2 ,
52 x_ATTRIBUTE20 IN VARCHAR2 ,
53 x_ERROR_STRING IN VARCHAR2 ,
54 x_ERROR_ACCOUNT IN VARCHAR2 ,
55 x_location_cd IN VARCHAR2 ,
56 x_uoo_id IN NUMBER ,
57 x_gl_date IN DATE,
58 x_gl_posted_date IN DATE,
59 x_posting_control_id IN NUMBER,
60 x_unit_type_id IN NUMBER,
61 x_unit_level IN VARCHAR2
62 ) AS
63
64 /*************************************************************
65 Created By :
66 Date Created By :
67 Purpose :
68 Know limitations, enhancements or remarks
69 Change History
70 Who When What
71 svuppala 30-MAY-2005 Enh 3442712 - Added new columns Unit_Type_Id, Unit_Level
72 vchappid 23-Dec-2002 Enh#2720702, Error_Account is inserted as 'N' whenever it is found NULL
73 smadathi 01-Nov-2002 Enh. Bug 2584986. Added new column GL_DATE,GL_POSTED_DATE,
74 POSTING_CONTROL_ID. Also removed all DEFAULT CLAUSES
75 msrinivi 17 Jul,2001 Added 2 new cols : error_string, error_account
76 (reverse chronological order - newest change first)
77 ***************************************************************/
78
79 CURSOR cur_old_ref_values IS
80 SELECT *
81 FROM IGS_FI_INVLN_INT_ALL
82 WHERE rowid = x_rowid;
83
84 BEGIN
85
86 l_rowid := x_rowid;
87
88 -- Code for setting the Old and New Reference Values.
89 -- Populate Old Values.
90 Open cur_old_ref_values;
91 Fetch cur_old_ref_values INTO old_references;
92 IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
93 Close cur_old_ref_values;
94 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
95 IGS_GE_MSG_STACK.ADD;
96 App_Exception.Raise_Exception;
97 Return;
98 END IF;
99 Close cur_old_ref_values;
100
101 -- Populate New Values.
102 new_references.invoice_id := x_invoice_id;
103 new_references.line_number := x_line_number;
104 new_references.invoice_lines_id := x_invoice_lines_id;
105 new_references.attribute2 := x_attribute2;
106 new_references.chg_elements := x_chg_elements;
107 new_references.amount := x_amount;
108 new_references.unit_attempt_status := x_unit_attempt_status;
109 new_references.eftsu := x_eftsu;
110 new_references.credit_points := x_credit_points;
111 new_references.attribute_category := x_attribute_category;
112 new_references.attribute1 := x_attribute1;
113 new_references.s_chg_method_type := x_s_chg_method_type;
114 new_references.description := x_description;
115 new_references.attribute3 := x_attribute3;
116 new_references.attribute4 := x_attribute4;
117 new_references.attribute5 := x_attribute5;
118 new_references.attribute6 := x_attribute6;
119 new_references.attribute7 := x_attribute7;
120 new_references.attribute8 := x_attribute8;
121 new_references.attribute9 := x_attribute9;
122 new_references.attribute10 := x_attribute10;
123 new_references.org_id := x_org_id;
124 new_references.rec_account_cd := x_rec_account_cd;
125 new_references.rev_account_cd := x_rev_account_cd;
126 new_references.rec_gl_ccid := x_rec_gl_ccid;
127 new_references.rev_gl_ccid := x_rev_gl_ccid;
128 new_references.org_unit_cd := x_org_unit_cd;
129 new_references.posting_id := x_posting_id;
130 new_references.attribute11 := x_attribute11;
131 new_references.attribute12 := x_attribute12;
132 new_references.attribute13 := x_attribute13;
133 new_references.attribute14 := x_attribute14;
134 new_references.attribute15 := x_attribute15;
135 new_references.attribute16 := x_attribute16;
136 new_references.attribute17 := x_attribute17;
137 new_references.attribute18 := x_attribute18;
138 new_references.attribute19 := x_attribute19;
139 new_references.attribute20 := x_attribute20;
140 new_references.error_string := x_error_string;
141 new_references.error_account := NVL(x_error_account,'N');
142 new_references.location_cd := x_location_cd;
143 new_references.uoo_id := x_uoo_id;
144 new_references.gl_date := TRUNC(x_gl_date);
145 new_references.gl_posted_date := x_gl_posted_date;
146 new_references.posting_control_id := x_posting_control_id;
147 new_references.unit_type_id := x_unit_type_id;
148 new_references.unit_level := x_unit_level;
149
150 IF (p_action = 'UPDATE') THEN
151 new_references.creation_date := old_references.creation_date;
152 new_references.created_by := old_references.created_by;
153 ELSE
154 new_references.creation_date := x_creation_date;
155 new_references.created_by := x_created_by;
156 END IF;
157 new_references.last_update_date := x_last_update_date;
158 new_references.last_updated_by := x_last_updated_by;
159 new_references.last_update_login := x_last_update_login;
160
161 END Set_Column_Values;
162
163
164
165 PROCEDURE Check_Constraints (
166 Column_Name IN VARCHAR2 ,
167 Column_Value IN VARCHAR2 ) AS
168 /*************************************************************
169 Created By :
170 Date Created By :
171 Purpose :
172 Know limitations, enhancements or remarks
173 Change History
174 Who When What
175
176 (reverse chronological order - newest change first)
177 ***************************************************************/
178
179 BEGIN
180
181 IF column_name IS NULL THEN
182 NULL;
183 ELSIF UPPER(column_name) ='ERROR_ACCOUNT' OR COLUMN_NAME IS NULL THEN
184 new_references.error_account := column_value;
185 END IF;
186
187 IF UPPER(column_name) = 'ERROR_ACCOUNT' OR column_name IS NULL THEN
188 IF NVL(new_references.error_account,'N') NOT IN ('Y','N') THEN
189 FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE');
190 IGS_GE_MSG_STACK.ADD;
191 APP_EXCEPTION.RAISE_EXCEPTION;
192 END IF;
193 END IF;
194
195 END Check_Constraints;
196
197
198 PROCEDURE Check_Uniqueness AS
199 /*************************************************************
200 Created By :
201 Date Created By :
202 Purpose :
203 Know limitations, enhancements or remarks
204 Change History
205 Who When What
206
207 (reverse chronological order - newest change first)
208 ***************************************************************/
209
210 BEGIN
211 IF Get_Uk_For_Validation (
212 new_references.invoice_id,
213 new_references.line_number
214 ) THEN
215 Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
216 IGS_GE_MSG_STACK.ADD;
217 app_exception.raise_exception;
218 END IF;
219 END Check_Uniqueness ;
220
221
222 FUNCTION Get_PK_For_Validation (
223 x_invoice_lines_id IN NUMBER
224 ) RETURN BOOLEAN AS
225
226 /*************************************************************
227 Created By :
228 Date Created By :
229 Purpose :
230 Know limitations, enhancements or remarks
231 Change History
232 Who When What
233
234 (reverse chronological order - newest change first)
235 ***************************************************************/
236
237 CURSOR cur_rowid IS
238 SELECT rowid
239 FROM igs_fi_invln_int_all
240 WHERE invoice_lines_id = x_invoice_lines_id
241 FOR UPDATE NOWAIT;
242
243 lv_rowid cur_rowid%RowType;
244
245 BEGIN
246
247 Open cur_rowid;
248 Fetch cur_rowid INTO lv_rowid;
249 IF (cur_rowid%FOUND) THEN
250 Close cur_rowid;
251 Return(TRUE);
252 ELSE
253 Close cur_rowid;
254 Return(FALSE);
255 END IF;
256 END Get_PK_For_Validation;
257
258
259 PROCEDURE Check_Parent_Existance AS
260 /*************************************************************
261 Created By :schodava
262 Date Created By :2000/05/11
263 Purpose :
264 Know limitations, enhancements or remarks
265 Change History
266 Who When What
267
268 (reverse chronological order - newest change first)
269 SVUPPALA 4-JUL-2005 Enh 3442712 - Added igs_ps_unit_type_lvl_pkg.get_pk_for_validation
270 ***************************************************************/
271
272 BEGIN
273
274 IF ((old_references.rev_account_cd = new_references.rev_account_cd) OR
275 (new_references.rev_account_cd IS NULL)) THEN
276 NULL;
277 ELSE
278 IF NOT IGS_FI_ACC_PKG.Get_PK_For_Validation (
279 new_references.rev_account_cd
280 ) THEN
281 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
282 IGS_GE_MSG_STACK.ADD;
283 App_Exception.Raise_Exception;
284 END IF;
285 END IF;
286 IF ((old_references.rec_account_cd = new_references.rec_account_cd) OR
287 (new_references.rec_account_cd IS NULL)) THEN
288 NULL;
289 ELSE
290 IF NOT IGS_FI_ACC_PKG.Get_PK_For_Validation (
291 new_references.rec_account_cd
292 ) THEN
293 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
294 IGS_GE_MSG_STACK.ADD;
295 App_Exception.Raise_Exception;
296 END IF;
297 END IF;
298
299
300 IF (((old_references.s_chg_method_type = new_references.s_chg_method_type) OR
301 (new_references.s_chg_method_type IS NULL))) THEN
302 NULL;
303 ELSIF NOT Igs_lookups_view_Pkg.Get_PK_For_Validation (
304 'CHG_METHOD',
305 new_references.s_chg_method_type
306 ) THEN
307 Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
308 IGS_GE_MSG_STACK.ADD;
309 App_Exception.Raise_Exception;
310 END IF;
311
312 IF (((old_references.posting_id = new_references.posting_id)) OR
313 ((new_references.posting_id IS NULL))) THEN
314 NULL;
315 ELSIF NOT igs_fi_posting_int_pkg.get_pk_for_validation (
316 new_references.posting_id
317 ) THEN
318 fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
319 igs_ge_msg_stack.add;
320 app_exception.raise_exception;
321 END IF;
322
323 IF (((old_references.unit_type_id = new_references.unit_type_id)) OR
324 ((new_references.unit_type_id IS NULL))) THEN
325 NULL;
326 ELSIF NOT igs_ps_unit_type_lvl_pkg.get_pk_for_validation (
327 new_references.unit_type_id
328 ) THEN
329 fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
330 igs_ge_msg_stack.add;
331 app_exception.raise_exception;
332 END IF;
333
334 END Check_Parent_Existance;
335
336
337 FUNCTION Get_UK_For_Validation (
338 x_invoice_id IN NUMBER,
339 x_line_number IN NUMBER
340 ) RETURN BOOLEAN AS
341
342 /*************************************************************
343 Created By :
344 Date Created By :
345 Purpose :
346 Know limitations, enhancements or remarks
347 Change History
348 Who When What
349
350 (reverse chronological order - newest change first)
351 ***************************************************************/
352
353 CURSOR cur_rowid IS
354 SELECT rowid
355 FROM igs_fi_invln_int_all
356 WHERE invoice_id = x_invoice_id
357 AND line_number = x_line_number and ((l_rowid is null) or (rowid <> l_rowid))
358
359 ;
360 lv_rowid cur_rowid%RowType;
361
362 BEGIN
363
364 Open cur_rowid;
365 Fetch cur_rowid INTO lv_rowid;
366 IF (cur_rowid%FOUND) THEN
367 Close cur_rowid;
368 return (true);
369 ELSE
370 close cur_rowid;
371 return(false);
372 END IF;
373 END Get_UK_For_Validation ;
374
375
376 PROCEDURE get_fk_igs_fi_posting_int_all (
377 x_posting_id IN NUMBER
378 ) AS
379 /*
380 || Created By : brajendr
381 || Created On : 30-APR-2001
382 || Purpose : Validates the Foreign Keys for the table.
383 || Known limitations, enhancements or remarks :
384 || Change History :
385 || Who When What
386 || (reverse chronological order - newest change first)
387 */
388 CURSOR cur_rowid IS
389 SELECT rowid
390 FROM igs_fi_invln_int_all
391 WHERE ((posting_id = x_posting_id));
392
393 lv_rowid cur_rowid%RowType;
394
395 BEGIN
396
397 OPEN cur_rowid;
398 FETCH cur_rowid INTO lv_rowid;
399 IF (cur_rowid%FOUND) THEN
400 CLOSE cur_rowid;
401 fnd_message.set_name ('IGS', 'IGS_FI_PINT_INLI_FK');
402 igs_ge_msg_stack.add;
403 app_exception.raise_exception;
404 RETURN;
405 END IF;
406 CLOSE cur_rowid;
407
408 END get_fk_igs_fi_posting_int_all;
409
410
411 PROCEDURE get_fk_igs_ps_unit_ofr_opt_all (
412 x_uoo_id IN NUMBER
413 ) AS
414 /*
415 || Created By : svuppala
416 || Created On : 01-JUN-2005
417 || Purpose : Validates the Foreign Keys for the table.
418 || Known limitations, enhancements or remarks :
419 || Change History :
420 || Who When What
421 || (reverse chronological order - newest change first)
422 */
423 CURSOR cur_rowid IS
424 SELECT rowid
425 FROM igs_fi_invln_int_all
426 WHERE ((UOO_ID = x_UOO_ID ));
427
428 lv_rowid cur_rowid%RowType;
429
430 BEGIN
431
432 OPEN cur_rowid;
433 FETCH cur_rowid INTO lv_rowid;
434 IF (cur_rowid%FOUND) THEN
435 CLOSE cur_rowid;
436 fnd_message.set_name ('IGS', 'IGS_FI_INLI_UOO_FK');
437 igs_ge_msg_stack.add;
438 app_exception.raise_exception;
439 RETURN;
440 END IF;
441 CLOSE cur_rowid;
442
443 END get_fk_igs_ps_unit_ofr_opt_all;
444
445 PROCEDURE Before_DML (
446 p_action IN VARCHAR2,
447 x_rowid IN VARCHAR2 ,
448 x_invoice_id IN NUMBER ,
449 x_line_number IN NUMBER ,
450 x_invoice_lines_id IN NUMBER ,
451 x_attribute2 IN VARCHAR2 ,
452 x_chg_elements IN NUMBER ,
453 x_amount IN NUMBER ,
454 x_unit_attempt_status IN VARCHAR2 ,
455 x_eftsu IN NUMBER ,
456 x_credit_points IN NUMBER ,
457 x_attribute_category IN VARCHAR2 ,
458 x_attribute1 IN VARCHAR2 ,
459 x_s_chg_method_type IN VARCHAR2 ,
460 x_description IN VARCHAR2 ,
461 x_attribute3 IN VARCHAR2 ,
462 x_attribute4 IN VARCHAR2 ,
463 x_attribute5 IN VARCHAR2 ,
464 x_attribute6 IN VARCHAR2 ,
465 x_attribute7 IN VARCHAR2 ,
466 x_attribute8 IN VARCHAR2 ,
467 x_attribute9 IN VARCHAR2 ,
468 x_attribute10 IN VARCHAR2 ,
469 x_org_id IN NUMBER ,
470 x_creation_date IN DATE ,
471 x_created_by IN NUMBER ,
472 x_last_update_date IN DATE ,
473 x_last_updated_by IN NUMBER ,
474 x_last_update_login IN NUMBER ,
475 x_REC_ACCOUNT_CD IN VARCHAR2 ,
476 x_REV_ACCOUNT_CD IN VARCHAR2 ,
477 x_REC_GL_CCID IN NUMBER ,
478 x_REV_GL_CCID IN NUMBER ,
479 x_ORG_UNIT_CD IN VARCHAR2 ,
480 x_POSTING_ID IN NUMBER ,
481 x_ATTRIBUTE11 IN VARCHAR2 ,
482 x_ATTRIBUTE12 IN VARCHAR2 ,
483 x_ATTRIBUTE13 IN VARCHAR2 ,
484 x_ATTRIBUTE14 IN VARCHAR2 ,
485 x_ATTRIBUTE15 IN VARCHAR2 ,
486 x_ATTRIBUTE16 IN VARCHAR2 ,
487 x_ATTRIBUTE17 IN VARCHAR2 ,
488 x_ATTRIBUTE18 IN VARCHAR2 ,
489 x_ATTRIBUTE19 IN VARCHAR2 ,
490 x_ATTRIBUTE20 IN VARCHAR2 ,
491 x_ERROR_STRING IN VARCHAR2 ,
492 x_ERROR_ACCOUNT IN VARCHAR2 ,
493 x_location_cd IN VARCHAR2 ,
494 x_uoo_id IN NUMBER ,
495 x_gl_date IN DATE,
496 x_gl_posted_date IN DATE,
497 x_posting_control_id IN NUMBER,
498 x_unit_type_id IN NUMBER,
499 x_unit_level IN VARCHAR2
500 ) AS
501 /*************************************************************
502 Created By :
503 Date Created By :
504 Purpose :
505 Know limitations, enhancements or remarks
506 Change History
507 Who When What
508 svuppala 30-MAY-2005 Enh 3442712 - Added new columns Unit_Type_Id, Unit_Level
509 smadathi 01-Nov-2002 Enh. Bug 2584986. Added new column GL_DATE,GL_POSTED_DATE,
510 POSTING_CONTROL_ID. Also removed all DEFAULT CLAUSES
511 msrinivi 17 Jul,2001 Added 2 new cols : error_string, error_account
512 (reverse chronological order - newest change first)
513 ***************************************************************/
514
515 BEGIN
516
517 Set_Column_Values (
518 p_action,
519 x_rowid,
520 x_invoice_id,
521 x_line_number,
522 x_invoice_lines_id,
523 x_attribute2,
524 x_chg_elements,
525 x_amount,
526 x_unit_attempt_status,
527 x_eftsu,
528 x_credit_points,
529 x_attribute_category,
530 x_attribute1,
531 x_s_chg_method_type,
532 x_description,
533 x_attribute3,
534 x_attribute4,
535 x_attribute5,
536 x_attribute6,
537 x_attribute7,
538 x_attribute8,
539 x_attribute9,
540 x_attribute10,
541 x_org_id,
542 x_creation_date,
543 x_created_by,
544 x_last_update_date,
545 x_last_updated_by,
546 x_last_update_login,
547 x_rec_account_cd,
548 x_rev_account_cd,
549 x_rec_gl_ccid,
550 x_rev_gl_ccid,
551 x_org_unit_cd,
552 x_posting_id,
553 x_attribute11,
554 x_attribute12,
555 x_attribute13,
556 x_attribute14,
557 x_attribute15,
558 x_attribute16,
559 x_attribute17,
560 x_attribute18,
561 x_attribute19,
562 x_attribute20,
563 x_error_string,
564 x_error_account,
565 x_location_cd,
566 x_uoo_id,
567 x_gl_date,
568 x_gl_posted_date,
569 x_posting_control_id,
570 x_unit_type_id,
571 x_unit_level
572 );
573
574 IF (p_action = 'INSERT') THEN
575 -- Call all the procedures related to Before Insert.
576 Null;
577 IF Get_Pk_For_Validation(
578 new_references.invoice_lines_id) THEN
579 Fnd_Message.Set_name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
580 IGS_GE_MSG_STACK.ADD;
581 App_Exception.Raise_Exception;
582 END IF;
583 Check_Uniqueness;
584 Check_Constraints;
585 Check_Parent_Existance;
586 ELSIF (p_action = 'UPDATE') THEN
587 -- Call all the procedures related to Before Update.
588 Null;
589 Check_Uniqueness;
590 Check_Constraints;
591 ELSIF (p_action = 'DELETE') THEN
592 -- Call all the procedures related to Before Delete.
593 Null;
594 ELSIF (p_action = 'VALIDATE_INSERT') THEN
595 -- Call all the procedures related to Before Insert.
596 IF Get_PK_For_Validation (
597 new_references.invoice_lines_id) THEN
598 Fnd_Message.Set_name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
599 IGS_GE_MSG_STACK.ADD;
600 App_Exception.Raise_Exception;
601 END IF;
602 Check_Uniqueness;
603 Check_Constraints;
604 ELSIF (p_action = 'VALIDATE_UPDATE') THEN
605 Check_Uniqueness;
606 Check_Constraints;
607 ELSIF (p_action = 'VALIDATE_DELETE') THEN
608 Null;
609 END IF;
610
611 END Before_DML;
612
613 PROCEDURE After_DML (
614 p_action IN VARCHAR2,
615 x_rowid IN VARCHAR2
616 ) IS
617 /*************************************************************
618 Created By :
619 Date Created By :
620 Purpose :
621 Know limitations, enhancements or remarks
622 Change History
623 Who When What
624 svuppala 30-MAY-2005 Enh 3442712 - Added new columns Unit_Type_Id, Unit_Level
625 (reverse chronological order - newest change first)
626 ***************************************************************/
627
628 BEGIN
629
630 l_rowid := x_rowid;
631
632 IF (p_action = 'INSERT') THEN
633 -- Call all the procedures related to After Insert.
634 Null;
635 ELSIF (p_action = 'UPDATE') THEN
636 -- Call all the procedures related to After Update.
637 Null;
638 ELSIF (p_action = 'DELETE') THEN
639 -- Call all the procedures related to After Delete.
640 Null;
641 END IF;
642
643 END After_DML;
644
645 procedure INSERT_ROW (
646 X_ROWID in out NOCOPY VARCHAR2,
647 x_INVOICE_ID IN NUMBER,
648 x_LINE_NUMBER IN NUMBER,
649 x_INVOICE_LINES_ID IN out NOCOPY NUMBER,
650 x_ATTRIBUTE2 IN VARCHAR2,
651 x_CHG_ELEMENTS IN NUMBER,
652 x_AMOUNT IN NUMBER,
653 x_UNIT_ATTEMPT_STATUS IN VARCHAR2,
654 x_EFTSU IN NUMBER,
655 x_CREDIT_POINTS IN NUMBER,
656 x_ATTRIBUTE_CATEGORY IN VARCHAR2,
657 x_ATTRIBUTE1 IN VARCHAR2,
658 x_S_CHG_METHOD_TYPE IN VARCHAR2,
659 x_DESCRIPTION IN VARCHAR2,
660 x_ATTRIBUTE3 IN VARCHAR2,
661 x_ATTRIBUTE4 IN VARCHAR2,
662 x_ATTRIBUTE5 IN VARCHAR2,
663 x_ATTRIBUTE6 IN VARCHAR2,
664 x_ATTRIBUTE7 IN VARCHAR2,
665 x_ATTRIBUTE8 IN VARCHAR2,
666 x_ATTRIBUTE9 IN VARCHAR2,
667 x_ATTRIBUTE10 IN VARCHAR2,
668 x_org_id IN NUMBER,
669 X_MODE in VARCHAR2 ,
670 x_REC_ACCOUNT_CD IN VARCHAR2,
671 x_REV_ACCOUNT_CD IN VARCHAR2,
672 x_REC_GL_CCID IN NUMBER,
673 x_REV_GL_CCID IN NUMBER,
674 x_ORG_UNIT_CD IN VARCHAR2,
675 x_POSTING_ID IN NUMBER,
676 x_ATTRIBUTE11 IN VARCHAR2,
677 x_ATTRIBUTE12 IN VARCHAR2,
678 x_ATTRIBUTE13 IN VARCHAR2,
679 x_ATTRIBUTE14 IN VARCHAR2,
680 x_ATTRIBUTE15 IN VARCHAR2,
681 x_ATTRIBUTE16 IN VARCHAR2,
682 x_ATTRIBUTE17 IN VARCHAR2,
683 x_ATTRIBUTE18 IN VARCHAR2,
684 x_ATTRIBUTE19 IN VARCHAR2,
685 x_ATTRIBUTE20 IN VARCHAR2,
686 x_error_string IN VARCHAR2 ,
687 x_error_account IN VARCHAR2 ,
688 x_location_cd IN VARCHAR2 ,
689 x_uoo_id IN NUMBER ,
690 x_gl_date IN DATE,
691 x_gl_posted_date IN DATE,
692 x_posting_control_id IN NUMBER,
693 x_unit_type_id IN NUMBER,
694 x_unit_level IN VARCHAR2
695 ) AS
696 /*************************************************************
697 Created By :
698 Date Created By :
699 Purpose :
700 Know limitations, enhancements or remarks
701 Change History
702 Who When What
703 smadathi 01-Nov-2002 Enh. Bug 2584986. Added new column GL_DATE,GL_POSTED_DATE,
704 POSTING_CONTROL_ID. Also removed all DEFAULT CLAUSES
705 msrinivi 17 Jul,2001 Added 2 new cols : error_string, error_account
706 (reverse chronological order - newest change first)
707 ***************************************************************/
708
709 cursor C is select ROWID from IGS_FI_INVLN_INT_ALL
710 where INVOICE_LINES_ID= X_INVOICE_LINES_ID;
711
712 X_LAST_UPDATE_DATE DATE ;
713 X_LAST_UPDATED_BY NUMBER ;
714 X_LAST_UPDATE_LOGIN NUMBER ;
715 X_REQUEST_ID NUMBER;
716 X_PROGRAM_ID NUMBER;
717 X_PROGRAM_APPLICATION_ID NUMBER;
718 X_PROGRAM_UPDATE_DATE DATE;
719
720 begin
721 X_LAST_UPDATE_DATE := SYSDATE;
722 if(X_MODE = 'I') then
723 X_LAST_UPDATED_BY := 1;
724 X_LAST_UPDATE_LOGIN := 0;
725 elsif (X_MODE = 'R') then
726 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
727 if X_LAST_UPDATED_BY is NULL then
728 X_LAST_UPDATED_BY := -1;
729 end if;
730 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
731 if X_LAST_UPDATE_LOGIN is NULL then
732 X_LAST_UPDATE_LOGIN := -1;
733 end if;
734 X_REQUEST_ID:=FND_GLOBAL.CONC_REQUEST_ID;
735 X_PROGRAM_ID:=FND_GLOBAL.CONC_PROGRAM_ID;
736 X_PROGRAM_APPLICATION_ID:=FND_GLOBAL.PROG_APPL_ID;
737 if (X_REQUEST_ID = -1 ) then
738 X_REQUEST_ID:=NULL;
739 X_PROGRAM_ID:=NULL;
740 X_PROGRAM_APPLICATION_ID:=NULL;
741 X_PROGRAM_UPDATE_DATE:=NULL;
742 else
743 X_PROGRAM_UPDATE_DATE:=SYSDATE;
744 end if;
745 else
746 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
747 IGS_GE_MSG_STACK.ADD;
748 app_exception.raise_exception;
749 end if;
750
751 SELECT
752 IGS_FI_INVLN_INT_S.nextval
753 INTO
754 x_invoice_lines_id
755 FROM
756 dual;
757
758 Before_DML(
759 p_action=>'INSERT',
760 x_rowid=>X_ROWID,
761 x_invoice_id=>X_INVOICE_ID,
762 x_line_number=>X_LINE_NUMBER,
763 x_invoice_lines_id=>X_INVOICE_LINES_ID,
764 x_attribute2=>X_ATTRIBUTE2,
765 x_chg_elements=>X_CHG_ELEMENTS,
766 x_amount=>X_AMOUNT,
767 x_unit_attempt_status=>X_UNIT_ATTEMPT_STATUS,
768 x_eftsu=>X_EFTSU,
769 x_credit_points=>X_CREDIT_POINTS,
770 x_attribute_category=>X_ATTRIBUTE_CATEGORY,
771 x_attribute1=>X_ATTRIBUTE1,
772 x_s_chg_method_type=>X_S_CHG_METHOD_TYPE,
773 x_description=>X_DESCRIPTION,
774 x_attribute3=>X_ATTRIBUTE3,
775 x_attribute4=>X_ATTRIBUTE4,
776 x_attribute5=>X_ATTRIBUTE5,
777 x_attribute6=>X_ATTRIBUTE6,
778 x_attribute7=>X_ATTRIBUTE7,
779 x_attribute8=>X_ATTRIBUTE8,
780 x_attribute9=>X_ATTRIBUTE9,
781 x_attribute10=>X_ATTRIBUTE10,
782 x_org_id=>igs_ge_gen_003.get_org_id,
783 x_creation_date=>X_LAST_UPDATE_DATE,
784 x_created_by=>X_LAST_UPDATED_BY,
785 x_last_update_date=>X_LAST_UPDATE_DATE,
786 x_last_updated_by=>X_LAST_UPDATED_BY,
787 x_last_update_login=>X_LAST_UPDATE_LOGIN,
788 x_rec_account_cd=>X_REC_ACCOUNT_CD,
789 x_rev_account_cd=>X_REV_ACCOUNT_Cd,
790 x_rec_gl_ccid=>X_REC_GL_CCID,
791 x_rev_gl_ccid=>X_REV_GL_CCID,
792 x_org_unit_cd=>X_ORG_UNIT_CD,
793 x_posting_id=>X_POSTING_ID,
794 x_attribute11=>X_ATTRIBUTE11,
795 x_attribute12=>X_ATTRIBUTE12,
796 x_attribute13=>X_ATTRIBUTE13,
797 x_attribute14=>X_ATTRIBUTE14,
798 x_attribute15=>X_ATTRIBUTE15,
799 x_attribute16=>X_ATTRIBUTE16,
800 x_attribute17=>X_ATTRIBUTE17,
801 x_attribute18=>X_ATTRIBUTE18,
802 x_attribute19=>X_ATTRIBUTE19,
803 x_attribute20=>X_ATTRIBUTE20,
804 x_error_string => x_error_string,
805 x_error_account => x_error_account,
806 x_location_cd => x_location_cd,
807 x_uoo_id => x_uoo_id,
808 x_gl_date => x_gl_date,
809 x_gl_posted_date => x_gl_posted_date,
810 x_posting_control_id => x_posting_control_id,
811 x_unit_type_id => x_unit_type_id,
812 x_unit_level => x_unit_level
813 );
814
815 INSERT INTO IGS_FI_INVLN_INT_ALL (
816 INVOICE_ID
817 ,LINE_NUMBER
818 ,INVOICE_LINES_ID
819 ,ATTRIBUTE2
820 ,CHG_ELEMENTS
821 ,AMOUNT
822 ,UNIT_ATTEMPT_STATUS
823 ,EFTSU
824 ,CREDIT_POINTS
825 ,ATTRIBUTE_CATEGORY
826 ,ATTRIBUTE1
827 ,S_CHG_METHOD_TYPE
828 ,DESCRIPTION
829 ,ATTRIBUTE3
830 ,ATTRIBUTE4
831 ,ATTRIBUTE5
832 ,ATTRIBUTE6
833 ,ATTRIBUTE7
834 ,ATTRIBUTE8
835 ,ATTRIBUTE9
836 ,ATTRIBUTE10
837 ,ORG_ID
838 ,CREATION_DATE
839 ,CREATED_BY
840 ,LAST_UPDATE_DATE
841 ,LAST_UPDATED_BY
842 ,LAST_UPDATE_LOGIN
843 ,REC_ACCOUNT_CD
844 ,REV_ACCOUNT_CD
845 ,REC_GL_CCID
846 ,REV_GL_CCID
847 ,ORG_UNIT_CD
848 ,POSTING_ID
849 ,ATTRIBUTE11
850 ,ATTRIBUTE12
851 ,ATTRIBUTE13
852 ,ATTRIBUTE14
853 ,ATTRIBUTE15
854 ,ATTRIBUTE16
855 ,ATTRIBUTE17
856 ,ATTRIBUTE18
857 ,ATTRIBUTE19
858 ,ATTRIBUTE20
859 ,REQUEST_ID
860 ,PROGRAM_ID
861 ,PROGRAM_APPLICATION_ID
862 ,PROGRAM_UPDATE_DATE
863 ,error_string
864 ,error_account
865 ,LOCATION_CD
866 ,UOO_ID
867 ,GL_DATE
868 ,GL_POSTED_DATE
869 ,POSTING_CONTROL_ID
870 ,UNIT_TYPE_ID
871 ,UNIT_LEVEL
872 ) VALUES
873 (
874 NEW_REFERENCES.INVOICE_ID
875 ,NEW_REFERENCES.LINE_NUMBER
876 ,NEW_REFERENCES.INVOICE_LINES_ID
877 ,NEW_REFERENCES.ATTRIBUTE2
878 ,NEW_REFERENCES.CHG_ELEMENTS
879 ,NEW_REFERENCES.AMOUNT
880 ,NEW_REFERENCES.UNIT_ATTEMPT_STATUS
881 ,NEW_REFERENCES.EFTSU
882 ,NEW_REFERENCES.CREDIT_POINTS
883 ,NEW_REFERENCES.ATTRIBUTE_CATEGORY
884 ,NEW_REFERENCES.ATTRIBUTE1
885 ,NEW_REFERENCES.S_CHG_METHOD_TYPE
886 ,NEW_REFERENCES.DESCRIPTION
887 ,NEW_REFERENCES.ATTRIBUTE3
888 ,NEW_REFERENCES.ATTRIBUTE4
889 ,NEW_REFERENCES.ATTRIBUTE5
890 ,NEW_REFERENCES.ATTRIBUTE6
891 ,NEW_REFERENCES.ATTRIBUTE7
892 ,NEW_REFERENCES.ATTRIBUTE8
893 ,NEW_REFERENCES.ATTRIBUTE9
894 ,NEW_REFERENCES.ATTRIBUTE10
895 ,NEW_REFERENCES.ORG_ID
896 ,X_LAST_UPDATE_DATE
897 ,X_LAST_UPDATED_BY
898 ,X_LAST_UPDATE_DATE
899 ,X_LAST_UPDATED_BY
900 ,X_LAST_UPDATE_LOGIN
901 ,NEW_REFERENCES.REC_ACCOUNT_CD
902 ,NEW_REFERENCES.REV_ACCOUNT_CD
903 ,NEW_REFERENCES.REC_GL_CCID
904 ,NEW_REFERENCES.REV_GL_CCID
905 ,NEW_REFERENCES.ORG_UNIT_CD
906 ,NEW_REFERENCES.POSTING_ID
907 ,NEW_REFERENCES.ATTRIBUTE11
908 ,NEW_REFERENCES.ATTRIBUTE12
909 ,NEW_REFERENCES.ATTRIBUTE13
910 ,NEW_REFERENCES.ATTRIBUTE14
911 ,NEW_REFERENCES.ATTRIBUTE15
912 ,NEW_REFERENCES.ATTRIBUTE16
913 ,NEW_REFERENCES.ATTRIBUTE17
914 ,NEW_REFERENCES.ATTRIBUTE18
915 ,NEW_REFERENCES.ATTRIBUTE19
916 ,NEW_REFERENCES.ATTRIBUTE20
917 ,X_REQUEST_ID
918 ,X_PROGRAM_ID
919 ,X_PROGRAM_APPLICATION_ID
920 ,X_PROGRAM_UPDATE_DATE
921 ,new_references.error_string
922 ,new_references.error_account
923 ,NEW_REFERENCES.LOCATION_CD
924 ,NEW_REFERENCES.UOO_ID
925 ,NEW_REFERENCES.GL_DATE
926 ,NEW_REFERENCES.GL_POSTED_DATE
927 ,NEW_REFERENCES.POSTING_CONTROL_ID
928 ,NEW_REFERENCES.UNIT_TYPE_ID
929 ,NEW_REFERENCES.UNIT_LEVEL
930 );
931 open c;
932 fetch c into X_ROWID;
933 if (c%notfound) then
934 close c;
935 raise no_data_found;
936 end if;
937 close c;
938 After_DML (
939 p_action => 'INSERT' ,
940 x_rowid => X_ROWID );
941 end INSERT_ROW;
942
943
944 procedure LOCK_ROW (
945 X_ROWID in VARCHAR2,
946 x_INVOICE_ID IN NUMBER,
947 x_LINE_NUMBER IN NUMBER,
948 x_INVOICE_LINES_ID IN NUMBER,
949 x_ATTRIBUTE2 IN VARCHAR2,
950 x_CHG_ELEMENTS IN NUMBER,
951 x_AMOUNT IN NUMBER,
952 x_UNIT_ATTEMPT_STATUS IN VARCHAR2,
953 x_EFTSU IN NUMBER,
954 x_CREDIT_POINTS IN NUMBER,
955 x_ATTRIBUTE_CATEGORY IN VARCHAR2,
956 x_ATTRIBUTE1 IN VARCHAR2,
957 x_S_CHG_METHOD_TYPE IN VARCHAR2,
958 x_DESCRIPTION IN VARCHAR2,
959 x_ATTRIBUTE3 IN VARCHAR2,
960 x_ATTRIBUTE4 IN VARCHAR2,
961 x_ATTRIBUTE5 IN VARCHAR2,
962 x_ATTRIBUTE6 IN VARCHAR2,
963 x_ATTRIBUTE7 IN VARCHAR2,
964 x_ATTRIBUTE8 IN VARCHAR2,
965 x_ATTRIBUTE9 IN VARCHAR2,
966 x_ATTRIBUTE10 IN VARCHAR2,
967 x_REC_ACCOUNT_CD IN VARCHAR2,
968 x_REV_ACCOUNT_CD IN VARCHAR2,
969 x_REC_GL_CCID IN NUMBER,
970 x_REV_GL_CCID IN NUMBER,
971 x_ORG_UNIT_CD IN VARCHAR2,
972 x_POSTING_ID IN NUMBER,
973 x_ATTRIBUTE11 IN VARCHAR2,
974 x_ATTRIBUTE12 IN VARCHAR2,
975 x_ATTRIBUTE13 IN VARCHAR2,
976 x_ATTRIBUTE14 IN VARCHAR2,
977 x_ATTRIBUTE15 IN VARCHAR2,
978 x_ATTRIBUTE16 IN VARCHAR2,
979 x_ATTRIBUTE17 IN VARCHAR2,
980 x_ATTRIBUTE18 IN VARCHAR2,
981 x_ATTRIBUTE19 IN VARCHAR2,
982 x_ATTRIBUTE20 IN VARCHAR2,
983 x_error_string IN VARCHAR2 ,
984 x_error_account IN VARCHAR2 ,
985 x_location_cd IN VARCHAR2 ,
986 x_uoo_id IN NUMBER ,
987 x_gl_date IN DATE,
988 x_gl_posted_date IN DATE,
989 x_posting_control_id IN NUMBER,
990 x_unit_type_id IN NUMBER,
991 x_unit_level IN VARCHAR2
992 ) AS
993 /*************************************************************
994 Created By :
995 Date Created By :
996 Purpose :
997 Know limitations, enhancements or remarks
998 Change History
999 Who When What
1000 svuppala 30-MAY-2005 Enh 3442712 - Added new columns Unit_Type_Id, Unit_Level
1001 smadathi 01-Nov-2002 Enh. Bug 2584986. Added new column GL_DATE,GL_POSTED_DATE,
1002 POSTING_CONTROL_ID. Also removed all DEFAULT CLAUSES
1003 msrinivi 17 Jul,2001 Added 2 new cols : error_string, error_account
1004 (reverse chronological order - newest change first)
1005 ***************************************************************/
1006
1007 cursor c1 is select
1008
1009 INVOICE_ID
1010 , LINE_NUMBER
1011 , ATTRIBUTE2
1012 , CHG_ELEMENTS
1013 , AMOUNT
1014 , UNIT_ATTEMPT_STATUS
1015 , EFTSU
1016 , CREDIT_POINTS
1017 , ATTRIBUTE_CATEGORY
1018 , ATTRIBUTE1
1019 , S_CHG_METHOD_TYPE
1020 , DESCRIPTION
1021 , ATTRIBUTE3
1022 , ATTRIBUTE4
1023 , ATTRIBUTE5
1024 , ATTRIBUTE6
1025 , ATTRIBUTE7
1026 , ATTRIBUTE8
1027 , ATTRIBUTE9
1028 , ATTRIBUTE10
1029 , REC_ACCOUNT_CD
1030 , REV_ACCOUNT_CD
1031 , REC_GL_CCID
1032 , REV_GL_CCID
1033 , ORG_UNIT_CD
1034 , POSTING_ID
1035 , ATTRIBUTE11
1036 , ATTRIBUTE12
1037 , ATTRIBUTE13
1038 , ATTRIBUTE14
1039 , ATTRIBUTE15
1040 , ATTRIBUTE16
1041 , ATTRIBUTE17
1042 , ATTRIBUTE18
1043 , ATTRIBUTE19
1044 , ATTRIBUTE20
1045 , error_string
1046 , error_account
1047 , LOCATION_CD
1048 , UOO_ID
1049 , gl_date
1050 , gl_posted_date
1051 , posting_control_id
1052 , unit_type_id
1053 , unit_level
1054
1055 from IGS_FI_INVLN_INT_ALL
1056 where ROWID = X_ROWID
1057 for update nowait;
1058 tlinfo c1%rowtype;
1059 begin
1060 open c1;
1061 fetch c1 into tlinfo;
1062 if (c1%notfound) then
1063 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1064 IGS_GE_MSG_STACK.ADD;
1065 close c1;
1066 app_exception.raise_exception;
1067 return;
1068 end if;
1069 close c1;
1070 if (
1071 ( tlinfo.INVOICE_ID = X_INVOICE_ID)
1072 AND (tlinfo.LINE_NUMBER = X_LINE_NUMBER)
1073 AND ((tlinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
1074 OR ((tlinfo.ATTRIBUTE2 is null)
1075 AND (X_ATTRIBUTE2 is null)))
1076 AND ((tlinfo.CHG_ELEMENTS = X_CHG_ELEMENTS)
1077 OR ((tlinfo.CHG_ELEMENTS is null)
1078 AND (X_CHG_ELEMENTS is null)))
1079 AND ((tlinfo.AMOUNT = X_AMOUNT)
1080 OR ((tlinfo.AMOUNT is null)
1081 AND (X_AMOUNT is null)))
1082 AND ((tlinfo.UNIT_ATTEMPT_STATUS = X_UNIT_ATTEMPT_STATUS)
1083 OR ((tlinfo.UNIT_ATTEMPT_STATUS is null)
1084 AND (X_UNIT_ATTEMPT_STATUS is null)))
1085 AND ((tlinfo.EFTSU = X_EFTSU)
1086 OR ((tlinfo.EFTSU is null)
1087 AND (X_EFTSU is null)))
1088 AND ((tlinfo.CREDIT_POINTS = X_CREDIT_POINTS)
1089 OR ((tlinfo.CREDIT_POINTS is null)
1090 AND (X_CREDIT_POINTS is null)))
1091 AND ((tlinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
1092 OR ((tlinfo.ATTRIBUTE_CATEGORY is null)
1093 AND (X_ATTRIBUTE_CATEGORY is null)))
1094 AND ((tlinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
1095 OR ((tlinfo.ATTRIBUTE1 is null)
1096 AND (X_ATTRIBUTE1 is null)))
1097 AND ((tlinfo.S_CHG_METHOD_TYPE = X_S_CHG_METHOD_TYPE)
1098 OR ((tlinfo.S_CHG_METHOD_TYPE is null)
1099 AND (X_S_CHG_METHOD_TYPE is null)))
1100 AND ((tlinfo.DESCRIPTION = X_DESCRIPTION)
1101 OR ((tlinfo.DESCRIPTION is null)
1102 AND (X_DESCRIPTION is null)))
1103 AND ((tlinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
1104 OR ((tlinfo.ATTRIBUTE3 is null)
1105 AND (X_ATTRIBUTE3 is null)))
1106 AND ((tlinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
1107 OR ((tlinfo.ATTRIBUTE4 is null)
1108 AND (X_ATTRIBUTE4 is null)))
1109 AND ((tlinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
1110 OR ((tlinfo.ATTRIBUTE5 is null)
1111 AND (X_ATTRIBUTE5 is null)))
1112 AND ((tlinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
1113 OR ((tlinfo.ATTRIBUTE6 is null)
1114 AND (X_ATTRIBUTE6 is null)))
1115 AND ((tlinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
1116 OR ((tlinfo.ATTRIBUTE7 is null)
1117 AND (X_ATTRIBUTE7 is null)))
1118 AND ((tlinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
1119 OR ((tlinfo.ATTRIBUTE8 is null)
1120 AND (X_ATTRIBUTE8 is null)))
1121 AND ((tlinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
1122 OR ((tlinfo.ATTRIBUTE9 is null)
1123 AND (X_ATTRIBUTE9 is null)))
1124 AND ((tlinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
1125 OR ((tlinfo.ATTRIBUTE10 is null)
1126 AND (X_ATTRIBUTE10 is null)))
1127 AND ((tlinfo.REC_ACCOUNT_CD = X_REC_ACCOUNT_CD)
1128 OR ((tlinfo.REC_ACCOUNT_CD is null)
1129 AND (X_REC_ACCOUNT_CD is null)))
1130 AND ((tlinfo.REV_ACCOUNT_CD = X_REV_ACCOUNT_CD)
1131 OR ((tlinfo.REV_ACCOUNT_CD is null)
1132 AND (X_REV_ACCOUNT_CD is null)))
1133 AND ((tlinfo.REC_GL_CCID = X_REC_GL_CCID)
1134 OR ((tlinfo.REC_GL_CCID is null)
1135 AND (X_REC_GL_CCID is null)))
1136 AND ((tlinfo.REV_GL_CCID = X_REV_GL_CCID)
1137 OR ((tlinfo.REV_GL_CCID is null)
1138 AND (X_REV_GL_CCID is null)))
1139 AND ((tlinfo.ORG_UNIT_CD = X_ORG_UNIT_CD)
1140 OR ((tlinfo.ORG_UNIT_CD is null)
1141 AND (X_ORG_UNIT_CD is null)))
1142 AND ((tlinfo.POSTING_ID = X_POSTING_ID)
1143 OR ((tlinfo.POSTING_ID is null)
1144 AND (X_POSTING_ID is null)))
1145 AND ((tlinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
1146 OR ((tlinfo.ATTRIBUTE11 is null)
1147 AND (X_ATTRIBUTE11 is null)))
1148 AND ((tlinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
1149 OR ((tlinfo.ATTRIBUTE12 is null)
1150 AND (X_ATTRIBUTE12 is null)))
1151 AND ((tlinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
1152 OR ((tlinfo.ATTRIBUTE13 is null)
1153 AND (X_ATTRIBUTE13 is null)))
1154 AND ((tlinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
1155 OR ((tlinfo.ATTRIBUTE14 is null)
1156 AND (X_ATTRIBUTE14 is null)))
1157 AND ((tlinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
1158 OR ((tlinfo.ATTRIBUTE15 is null)
1159 AND (X_ATTRIBUTE15 is null)))
1160 AND ((tlinfo.ATTRIBUTE16 = X_ATTRIBUTE16)
1161 OR ((tlinfo.ATTRIBUTE16 is null)
1162 AND (X_ATTRIBUTE16 is null)))
1163 AND ((tlinfo.ATTRIBUTE17 = X_ATTRIBUTE17)
1164 OR ((tlinfo.ATTRIBUTE17 is null)
1165 AND (X_ATTRIBUTE17 is null)))
1166 AND ((tlinfo.ATTRIBUTE18 = X_ATTRIBUTE18)
1167 OR ((tlinfo.ATTRIBUTE18 is null)
1168 AND (X_ATTRIBUTE18 is null)))
1169 AND ((tlinfo.ATTRIBUTE19 = X_ATTRIBUTE19)
1170 OR ((tlinfo.ATTRIBUTE19 is null)
1171 AND (X_ATTRIBUTE19 is null)))
1172 AND ((tlinfo.ATTRIBUTE20 = X_ATTRIBUTE20)
1173 OR ((tlinfo.ATTRIBUTE20 is null)
1174 AND (X_ATTRIBUTE20 is null)))
1175 AND ((tlinfo.error_string = x_error_string)
1176 OR ((tlinfo.error_string is null)
1177 AND (x_error_string is null)))
1178 AND ((tlinfo.error_account = x_error_account)
1179 OR ((tlinfo.error_account is null)
1180 AND (x_error_account is null)))
1181 AND ((tlinfo.LOCATION_CD = x_location_cd)
1182 OR ((tlinfo.LOCATION_CD is null)
1183 AND (x_location_cd is null)))
1184 AND ((tlinfo.UOO_ID = x_uoo_id)
1185 OR ((tlinfo.UOO_ID is null)
1186 AND (x_uoo_id is null)))
1187 AND ((TRUNC(tlinfo.gl_date) = TRUNC(x_gl_date)) OR ((tlinfo.gl_date IS NULL) AND (X_gl_date IS NULL)))
1188 AND ((tlinfo.gl_posted_date = x_gl_posted_date) OR ((tlinfo.gl_posted_date IS NULL) AND (X_gl_posted_date IS NULL)))
1189 AND ((tlinfo.posting_control_id = x_posting_control_id) OR ((tlinfo.posting_control_id IS NULL) AND (X_posting_control_id IS NULL)))
1190 AND ((tlinfo.unit_type_id = x_unit_type_id) OR ((tlinfo.unit_type_id IS NULL) AND (x_unit_type_id IS NULL)))
1191 AND ((tlinfo.unit_level = x_unit_level) OR ((tlinfo.unit_level IS NULL) AND (x_unit_level IS NULL)))
1192 ) THEN
1193 null;
1194 ELSE
1195 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1196 IGS_GE_MSG_STACK.ADD;
1197 app_exception.raise_exception;
1198 END IF;
1199 RETURN;
1200 end LOCK_ROW;
1201
1202
1203 Procedure UPDATE_ROW (
1204 X_ROWID in VARCHAR2,
1205 x_INVOICE_ID IN NUMBER,
1206 x_LINE_NUMBER IN NUMBER,
1207 x_INVOICE_LINES_ID IN NUMBER,
1208 x_ATTRIBUTE2 IN VARCHAR2,
1209 x_CHG_ELEMENTS IN NUMBER,
1210 x_AMOUNT IN NUMBER,
1211 x_UNIT_ATTEMPT_STATUS IN VARCHAR2,
1212 x_EFTSU IN NUMBER,
1213 x_CREDIT_POINTS IN NUMBER,
1214 x_ATTRIBUTE_CATEGORY IN VARCHAR2,
1215 x_ATTRIBUTE1 IN VARCHAR2,
1216 x_S_CHG_METHOD_TYPE IN VARCHAR2,
1217 x_DESCRIPTION IN VARCHAR2,
1218 x_ATTRIBUTE3 IN VARCHAR2,
1219 x_ATTRIBUTE4 IN VARCHAR2,
1220 x_ATTRIBUTE5 IN VARCHAR2,
1221 x_ATTRIBUTE6 IN VARCHAR2,
1222 x_ATTRIBUTE7 IN VARCHAR2,
1223 x_ATTRIBUTE8 IN VARCHAR2,
1224 x_ATTRIBUTE9 IN VARCHAR2,
1225 x_ATTRIBUTE10 IN VARCHAR2,
1226 X_MODE in VARCHAR2 ,
1227 x_REC_ACCOUNT_CD IN VARCHAR2,
1228 x_REV_ACCOUNT_CD IN VARCHAR2,
1229 x_REC_GL_CCID IN NUMBER,
1230 x_REV_GL_CCID IN NUMBER,
1231 x_ORG_UNIT_CD IN VARCHAR2,
1232 x_POSTING_ID IN NUMBER,
1233 x_ATTRIBUTE11 IN VARCHAR2,
1234 x_ATTRIBUTE12 IN VARCHAR2,
1235 x_ATTRIBUTE13 IN VARCHAR2,
1236 x_ATTRIBUTE14 IN VARCHAR2,
1237 x_ATTRIBUTE15 IN VARCHAR2,
1238 x_ATTRIBUTE16 IN VARCHAR2,
1239 x_ATTRIBUTE17 IN VARCHAR2,
1240 x_ATTRIBUTE18 IN VARCHAR2,
1241 x_ATTRIBUTE19 IN VARCHAR2,
1242 x_ATTRIBUTE20 IN VARCHAR2,
1243 x_error_string IN VARCHAR2 ,
1244 x_error_account IN VARCHAR2 ,
1245 x_location_cd IN VARCHAR2 ,
1246 x_uoo_id IN NUMBER ,
1247 x_gl_date IN DATE,
1248 x_gl_posted_date IN DATE,
1249 x_posting_control_id IN NUMBER,
1250 x_unit_type_id IN NUMBER,
1251 x_unit_level IN VARCHAR2
1252 ) AS
1253 /*************************************************************
1254 Created By :
1255 Date Created By :
1256 Purpose :
1257 Know limitations, enhancements or remarks
1258 Change History
1259 Who When What
1260 svuppala 30-MAY-2005 Enh 3442712 - Added new columns Unit_Type_Id, Unit_Level
1261 vchappid 23-Dec-2002 Bug#2720702,columns Error_String, Error_Account, location_cd, uoo_id
1262 are directly passed to the Update Statement instead of passing as
1263 new_references.error_string etc. Changed to pass as new_references.column_name
1264 smadathi 01-Nov-2002 Enh. Bug 2584986. Added new column GL_DATE,GL_POSTED_DATE,
1265 POSTING_CONTROL_ID. Also removed all DEFAULT CLAUSES
1266 msrinivi 17 Jul,2001 Added 2 new cols : error_string, error_account
1267 (reverse chronological order - newest change first)
1268 ***************************************************************/
1269
1270 X_LAST_UPDATE_DATE DATE ;
1271 X_LAST_UPDATED_BY NUMBER ;
1272 X_LAST_UPDATE_LOGIN NUMBER ;
1273 X_REQUEST_ID NUMBER;
1274 X_PROGRAM_ID NUMBER;
1275 X_PROGRAM_APPLICATION_ID NUMBER;
1276 X_PROGRAM_UPDATE_DATE DATE;
1277
1278 begin
1279 X_LAST_UPDATE_DATE := SYSDATE;
1280 if(X_MODE = 'I') then
1281 X_LAST_UPDATED_BY := 1;
1282 X_LAST_UPDATE_LOGIN := 0;
1283 elsif (X_MODE = 'R') then
1284 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1285 if X_LAST_UPDATED_BY is NULL then
1286 X_LAST_UPDATED_BY := -1;
1287 end if;
1288 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
1289 if X_LAST_UPDATE_LOGIN is NULL then
1290 X_LAST_UPDATE_LOGIN := -1;
1291 end if;
1292 X_REQUEST_ID:=FND_GLOBAL.CONC_REQUEST_ID;
1293 X_PROGRAM_ID:=FND_GLOBAL.CONC_PROGRAM_ID;
1294 X_PROGRAM_APPLICATION_ID:=FND_GLOBAL.PROG_APPL_ID;
1295 if (X_REQUEST_ID = -1 ) then
1296 X_REQUEST_ID:=OLD_REFERENCES.REQUEST_ID;
1297 X_PROGRAM_ID:=OLD_REFERENCES.PROGRAM_ID;
1298 X_PROGRAM_APPLICATION_ID:=OLD_REFERENCES.PROGRAM_APPLICATION_ID;
1299 X_PROGRAM_UPDATE_DATE:=OLD_REFERENCES.PROGRAM_UPDATE_DATE;
1300 else
1301 X_PROGRAM_UPDATE_DATE:=SYSDATE;
1302 end if;
1303 else
1304 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1305 IGS_GE_MSG_STACK.ADD;
1306 app_exception.raise_exception;
1307 end if;
1308 Before_DML(
1309 p_action =>'UPDATE',
1310 x_rowid =>X_ROWID,
1311 x_invoice_id =>X_INVOICE_ID,
1312 x_line_number =>X_LINE_NUMBER,
1313 x_invoice_lines_id =>X_INVOICE_LINES_ID,
1314 x_attribute2 =>X_ATTRIBUTE2,
1315 x_chg_elements =>X_CHG_ELEMENTS,
1316 x_amount =>X_AMOUNT,
1317 x_unit_attempt_status=>X_UNIT_ATTEMPT_STATUS,
1318 x_eftsu =>X_EFTSU,
1319 x_credit_points =>X_CREDIT_POINTS,
1320 x_attribute_category =>X_ATTRIBUTE_CATEGORY,
1321 x_attribute1 =>X_ATTRIBUTE1,
1322 x_s_chg_method_type =>X_S_CHG_METHOD_TYPE,
1323 x_description =>X_DESCRIPTION,
1324 x_attribute3 =>X_ATTRIBUTE3,
1325 x_attribute4 =>X_ATTRIBUTE4,
1326 x_attribute5 =>X_ATTRIBUTE5,
1327 x_attribute6 =>X_ATTRIBUTE6,
1328 x_attribute7 =>X_ATTRIBUTE7,
1329 x_attribute8 =>X_ATTRIBUTE8,
1330 x_attribute9 =>X_ATTRIBUTE9,
1331 x_attribute10 =>X_ATTRIBUTE10,
1332 x_creation_date =>X_LAST_UPDATE_DATE,
1333 x_created_by =>X_LAST_UPDATED_BY,
1334 x_last_update_date =>X_LAST_UPDATE_DATE,
1335 x_last_updated_by =>X_LAST_UPDATED_BY,
1336 x_last_update_login =>X_LAST_UPDATE_LOGIN,
1337 x_rec_account_cd =>X_REC_ACCOUNT_CD,
1338 x_rev_account_cd =>X_REV_ACCOUNT_CD,
1339 x_rec_gl_ccid=>X_REC_GL_CCID,
1340 x_rev_gl_ccid=>X_REV_GL_CCID,
1341 x_org_unit_cd=>X_ORG_UNIT_CD,
1342 x_posting_id=>X_POSTING_ID,
1343 x_attribute11=>X_ATTRIBUTE11,
1344 x_attribute12=>X_ATTRIBUTE12,
1345 x_attribute13=>X_ATTRIBUTE13,
1346 x_attribute14=>X_ATTRIBUTE14,
1347 x_attribute15=>X_ATTRIBUTE15,
1348 x_attribute16=>X_ATTRIBUTE16,
1349 x_attribute17=>X_ATTRIBUTE17,
1350 x_attribute18=>X_ATTRIBUTE18,
1351 x_attribute19=>X_ATTRIBUTE19,
1352 x_attribute20=>X_ATTRIBUTE20,
1353 x_error_string =>x_error_string,
1354 x_error_account=>x_error_account,
1355 x_location_cd=>x_location_cd,
1356 x_uoo_id=>x_uoo_id,
1357 x_gl_date => x_gl_date,
1358 x_gl_posted_date => x_gl_posted_date,
1359 x_posting_control_id => x_posting_control_id ,
1360 x_unit_type_id => x_unit_type_id,
1361 x_unit_level => x_unit_level
1362 );
1363
1364 update IGS_FI_INVLN_INT_ALL set
1365 INVOICE_ID = NEW_REFERENCES.INVOICE_ID,
1366 LINE_NUMBER = NEW_REFERENCES.LINE_NUMBER,
1367 ATTRIBUTE2 = NEW_REFERENCES.ATTRIBUTE2,
1368 CHG_ELEMENTS = NEW_REFERENCES.CHG_ELEMENTS,
1369 AMOUNT = NEW_REFERENCES.AMOUNT,
1370 UNIT_ATTEMPT_STATUS = NEW_REFERENCES.UNIT_ATTEMPT_STATUS,
1371 EFTSU = NEW_REFERENCES.EFTSU,
1372 CREDIT_POINTS = NEW_REFERENCES.CREDIT_POINTS,
1373 ATTRIBUTE_CATEGORY = NEW_REFERENCES.ATTRIBUTE_CATEGORY,
1374 ATTRIBUTE1 = NEW_REFERENCES.ATTRIBUTE1,
1375 S_CHG_METHOD_TYPE = NEW_REFERENCES.S_CHG_METHOD_TYPE,
1376 DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
1377 ATTRIBUTE3 = NEW_REFERENCES.ATTRIBUTE3,
1378 ATTRIBUTE4 = NEW_REFERENCES.ATTRIBUTE4,
1379 ATTRIBUTE5 = NEW_REFERENCES.ATTRIBUTE5,
1380 ATTRIBUTE6 = NEW_REFERENCES.ATTRIBUTE6,
1381 ATTRIBUTE7 = NEW_REFERENCES.ATTRIBUTE7,
1382 ATTRIBUTE8 = NEW_REFERENCES.ATTRIBUTE8,
1383 ATTRIBUTE9 = NEW_REFERENCES.ATTRIBUTE9,
1384 ATTRIBUTE10 = NEW_REFERENCES.ATTRIBUTE10,
1385 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
1386 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
1387 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
1388 REC_ACCOUNT_CD = NEW_REFERENCES.REC_ACCOUNT_CD,
1389 REV_ACCOUNT_CD = NEW_REFERENCES.REV_ACCOUNT_CD,
1390 REC_GL_CCID = NEW_REFERENCES.REC_GL_CCID,
1391 REV_GL_CCID = NEW_REFERENCES.REV_GL_CCID,
1392 ORG_UNIT_CD = NEW_REFERENCES.ORG_UNIT_CD,
1393 POSTING_ID = NEW_REFERENCES.POSTING_ID,
1394 ATTRIBUTE11 = NEW_REFERENCES.ATTRIBUTE11,
1395 ATTRIBUTE12 = NEW_REFERENCES.ATTRIBUTE12,
1396 ATTRIBUTE13 = NEW_REFERENCES.ATTRIBUTE13,
1397 ATTRIBUTE14 = NEW_REFERENCES.ATTRIBUTE14,
1398 ATTRIBUTE15 = NEW_REFERENCES.ATTRIBUTE15,
1399 ATTRIBUTE16 = NEW_REFERENCES.ATTRIBUTE16,
1400 ATTRIBUTE17 = NEW_REFERENCES.ATTRIBUTE17,
1401 ATTRIBUTE18 = NEW_REFERENCES.ATTRIBUTE18,
1402 ATTRIBUTE19 = NEW_REFERENCES.ATTRIBUTE19,
1403 ATTRIBUTE20 = NEW_REFERENCES.ATTRIBUTE20,
1404 REQUEST_ID = X_REQUEST_ID,
1405 PROGRAM_ID = X_PROGRAM_ID,
1406 PROGRAM_APPLICATION_ID=X_PROGRAM_APPLICATION_ID,
1407 PROGRAM_UPDATE_DATE=X_PROGRAM_UPDATE_DATE,
1408 error_string = new_references.error_string,
1409 error_account = new_references.error_account,
1410 location_cd = new_references.location_cd,
1411 uoo_id = new_references.uoo_id,
1412 gl_date = new_references.gl_date,
1413 gl_posted_date = new_references.gl_posted_date,
1414 posting_control_id = new_references.posting_control_id,
1415 unit_type_id = new_references.unit_type_id,
1416 unit_level = new_references.unit_level
1417 WHERE ROWID = X_ROWID;
1418
1419 if (sql%notfound) then
1420 raise no_data_found;
1421 end if;
1422
1423 After_DML (
1424 p_action => 'UPDATE' ,
1425 x_rowid => X_ROWID
1426 );
1427 end UPDATE_ROW;
1428
1429 procedure ADD_ROW (
1430 X_ROWID in out NOCOPY VARCHAR2,
1431 x_INVOICE_ID IN NUMBER,
1432 x_LINE_NUMBER IN NUMBER,
1433 x_INVOICE_LINES_ID IN out NOCOPY NUMBER,
1434 x_ATTRIBUTE2 IN VARCHAR2,
1435 x_CHG_ELEMENTS IN NUMBER,
1436 x_AMOUNT IN NUMBER,
1437 x_UNIT_ATTEMPT_STATUS IN VARCHAR2,
1438 x_EFTSU IN NUMBER,
1439 x_CREDIT_POINTS IN NUMBER,
1440 x_ATTRIBUTE_CATEGORY IN VARCHAR2,
1441 x_ATTRIBUTE1 IN VARCHAR2,
1442 x_S_CHG_METHOD_TYPE IN VARCHAR2,
1443 x_DESCRIPTION IN VARCHAR2,
1444 x_ATTRIBUTE3 IN VARCHAR2,
1445 x_ATTRIBUTE4 IN VARCHAR2,
1446 x_ATTRIBUTE5 IN VARCHAR2,
1447 x_ATTRIBUTE6 IN VARCHAR2,
1448 x_ATTRIBUTE7 IN VARCHAR2,
1449 x_ATTRIBUTE8 IN VARCHAR2,
1450 x_ATTRIBUTE9 IN VARCHAR2,
1451 x_ATTRIBUTE10 IN VARCHAR2,
1452 x_ORG_ID IN NUMBER,
1453 X_MODE in VARCHAR2 ,
1454 x_REC_ACCOUNT_CD IN VARCHAR2,
1455 x_REV_ACCOUNT_CD IN VARCHAR2,
1456 x_REC_GL_CCID IN NUMBER,
1457 x_REV_GL_CCID IN NUMBER,
1458 x_ORG_UNIT_CD IN VARCHAR2,
1459 x_POSTING_ID IN NUMBER,
1460 x_ATTRIBUTE11 IN VARCHAR2,
1461 x_ATTRIBUTE12 IN VARCHAR2,
1462 x_ATTRIBUTE13 IN VARCHAR2,
1463 x_ATTRIBUTE14 IN VARCHAR2,
1464 x_ATTRIBUTE15 IN VARCHAR2,
1465 x_ATTRIBUTE16 IN VARCHAR2,
1466 x_ATTRIBUTE17 IN VARCHAR2,
1467 x_ATTRIBUTE18 IN VARCHAR2,
1468 x_ATTRIBUTE19 IN VARCHAR2,
1469 x_ATTRIBUTE20 IN VARCHAR2,
1470 x_error_string IN VARCHAR2 ,
1471 x_error_account IN VARCHAR2 ,
1472 x_location_cd IN VARCHAR2 ,
1473 x_uoo_id IN NUMBER ,
1474 x_gl_date IN DATE,
1475 x_gl_posted_date IN DATE,
1476 x_posting_control_id IN NUMBER,
1477 x_unit_type_id IN NUMBER,
1478 x_unit_level IN VARCHAR2
1479 ) AS
1480 /*************************************************************
1481 Created By :
1482 Date Created By :
1483 Purpose :
1484 Know limitations, enhancements or remarks
1485 Change History
1486 Who When What
1487 svuppala 30-MAY-2005 Enh 3442712 - Added new columns Unit_Type_Id, Unit_Level
1488 smadathi 01-Nov-2002 Enh. Bug 2584986. Added new column GL_DATE,GL_POSTED_DATE,
1489 POSTING_CONTROL_ID. Also removed all DEFAULT CLAUSES
1490 msrinivi 17 Jul,2001 Added 2 new cols : error_string, error_account
1491 (reverse chronological order - newest change first)
1492 ***************************************************************/
1493
1494 cursor c1 is select ROWID from IGS_FI_INVLN_INT_ALL
1495 where INVOICE_LINES_ID= X_INVOICE_LINES_ID
1496 ;
1497 begin
1498 open c1;
1499 fetch c1 into X_ROWID;
1500 if (c1%notfound) then
1501 close c1;
1502 INSERT_ROW (
1503 X_ROWID,
1504 X_INVOICE_ID,
1505 X_LINE_NUMBER,
1506 X_INVOICE_LINES_ID,
1507 X_ATTRIBUTE2,
1508 X_CHG_ELEMENTS,
1509 X_AMOUNT,
1510 X_UNIT_ATTEMPT_STATUS,
1511 X_EFTSU,
1512 X_CREDIT_POINTS,
1513 X_ATTRIBUTE_CATEGORY,
1514 X_ATTRIBUTE1,
1515 X_S_CHG_METHOD_TYPE,
1516 X_DESCRIPTION,
1517 X_ATTRIBUTE3,
1518 X_ATTRIBUTE4,
1519 X_ATTRIBUTE5,
1520 X_ATTRIBUTE6,
1521 X_ATTRIBUTE7,
1522 X_ATTRIBUTE8,
1523 X_ATTRIBUTE9,
1524 X_ATTRIBUTE10,
1525 X_ORG_ID,
1526 X_MODE,
1527 X_REC_ACCOUNT_CD,
1528 X_REV_ACCOUNT_CD,
1529 X_REC_GL_CCID,
1530 X_REV_GL_CCID,
1531 X_ORG_UNIT_CD,
1532 X_POSTING_ID,
1533 X_ATTRIBUTE11,
1534 X_ATTRIBUTE12,
1535 X_ATTRIBUTE13,
1536 X_ATTRIBUTE14,
1537 X_ATTRIBUTE15,
1538 X_ATTRIBUTE16,
1539 X_ATTRIBUTE17,
1540 X_ATTRIBUTE18,
1541 X_ATTRIBUTE19,
1542 X_ATTRIBUTE20,
1543 x_error_string,
1544 x_error_account,
1545 X_LOCATION_CD,
1546 X_UOO_ID,
1547 x_gl_date,
1548 x_gl_posted_date,
1549 x_posting_control_id,
1550 x_unit_type_id,
1551 x_unit_level
1552 );
1553 return;
1554 end if;
1555 close c1;
1556 UPDATE_ROW (
1557 X_ROWID,
1558 X_INVOICE_ID,
1559 X_LINE_NUMBER,
1560 X_INVOICE_LINES_ID,
1561 X_ATTRIBUTE2,
1562 X_CHG_ELEMENTS,
1563 X_AMOUNT,
1564 X_UNIT_ATTEMPT_STATUS,
1565 X_EFTSU,
1566 X_CREDIT_POINTS,
1567 X_ATTRIBUTE_CATEGORY,
1568 X_ATTRIBUTE1,
1569 X_S_CHG_METHOD_TYPE,
1570 X_DESCRIPTION,
1571 X_ATTRIBUTE3,
1572 X_ATTRIBUTE4,
1573 X_ATTRIBUTE5,
1574 X_ATTRIBUTE6,
1575 X_ATTRIBUTE7,
1576 X_ATTRIBUTE8,
1577 X_ATTRIBUTE9,
1578 X_ATTRIBUTE10,
1579 X_MODE,
1580 X_REC_ACCOUNT_CD,
1581 X_REV_ACCOUNT_CD,
1582 X_REC_GL_CCID,
1583 X_REV_GL_CCID,
1584 X_ORG_UNIT_CD,
1585 X_POSTING_ID,
1586 X_ATTRIBUTE11,
1587 X_ATTRIBUTE12,
1588 X_ATTRIBUTE13,
1589 X_ATTRIBUTE14,
1590 X_ATTRIBUTE15,
1591 X_ATTRIBUTE16,
1592 X_ATTRIBUTE17,
1593 X_ATTRIBUTE18,
1594 X_ATTRIBUTE19,
1595 X_ATTRIBUTE20,
1596 x_error_string,
1597 x_error_account,
1598 X_LOCATION_CD,
1599 X_UOO_ID,
1600 x_gl_date,
1601 x_gl_posted_date,
1602 x_posting_control_id,
1603 x_unit_type_id,
1604 x_unit_level
1605 );
1606 end ADD_ROW;
1607
1608 procedure DELETE_ROW (
1609 X_ROWID in VARCHAR2
1610 ) AS
1611 /*************************************************************
1612 Created By :
1613 Date Created By :
1614 Purpose :
1615 Know limitations, enhancements or remarks
1616 Change History
1617 Who When What
1618
1619 (reverse chronological order - newest change first)
1620 ***************************************************************/
1621
1622 begin
1623 Before_DML (
1624 p_action => 'DELETE',
1625 x_rowid => X_ROWID
1626 );
1627 delete from IGS_FI_INVLN_INT_ALL
1628 where ROWID = X_ROWID;
1629 if (sql%notfound) then
1630 raise no_data_found;
1631 end if;
1632 After_DML (
1633 p_action => 'DELETE',
1634 x_rowid => X_ROWID
1635 );
1636 end DELETE_ROW;
1637
1638 END igs_fi_invln_int_pkg;