[Home] [Help]
PACKAGE BODY: APPS.IGS_FI_FEE_TYPE_CI_H_PKG
Source
1 package body IGS_FI_FEE_TYPE_CI_H_PKG AS
2 /* $Header: IGSSI38B.pls 120.1 2005/07/11 04:35:59 appldev ship $*/
3
4
5 l_rowid VARCHAR2(25);
6
7 old_references IGS_FI_FEE_TYPE_CI_H_ALL%RowType;
8
9 new_references IGS_FI_FEE_TYPE_CI_H_ALL%RowType;
10
11
12
13 PROCEDURE Set_Column_Values (
14
15 p_action IN VARCHAR2,
16
17 x_rowid IN VARCHAR2 DEFAULT NULL,
18
19 x_fee_type IN VARCHAR2 DEFAULT NULL,
20
21 x_fee_cal_type IN VARCHAR2 DEFAULT NULL,
22
23 x_fee_ci_sequence_number IN NUMBER DEFAULT NULL,
24
25 x_hist_start_dt IN DATE DEFAULT NULL,
26
27 x_hist_end_dt IN DATE DEFAULT NULL,
28
29 x_hist_who IN VARCHAR2 DEFAULT NULL,
30
31 x_fee_type_ci_status IN VARCHAR2 DEFAULT NULL,
32
33 x_start_dt_alias IN VARCHAR2 DEFAULT NULL,
34
35 x_start_dai_sequence_number IN NUMBER DEFAULT NULL,
36
37 x_end_dt_alias IN VARCHAR2 DEFAULT NULL,
38
39 x_end_dai_sequence_number IN NUMBER DEFAULT NULL,
40
41 x_retro_dt_alias IN VARCHAR2 DEFAULT NULL,
42
43 x_retro_dai_sequence_number IN NUMBER DEFAULT NULL,
44
45 x_s_chg_method_type IN VARCHAR2 DEFAULT NULL,
46
47 x_rul_sequence_number IN NUMBER DEFAULT NULL,
48
49 x_initial_default_amount IN NUMBER DEFAULT NULL,
50
51 x_org_id IN NUMBER DEFAULT NULL,
52
53 x_nonzero_billable_cp_flag IN VARCHAR2 DEFAULT NULL,
54
55 x_creation_date IN DATE DEFAULT NULL,
56
57 x_created_by IN NUMBER DEFAULT NULL,
58
59 x_last_update_date IN DATE DEFAULT NULL,
60
61 x_last_updated_by IN NUMBER DEFAULT NULL,
62
63 x_last_update_login IN NUMBER DEFAULT NULL ,
64 x_scope_rul_sequence_num IN NUMBER DEFAULT NULL,
65 x_elm_rng_order_name IN VARCHAR2 DEFAULT NULL
66
67
68 ) AS
69 /*----------------------------------------------------------------------------
70 || Created By :
71 || Created On :
72 || Purpose :
73 || Known limitations, enhancements or remarks :
74 || Change History :
75 || Who When What
76 || (reverse chronological order - newest change first)
77 || gurprsin 18-Jun-2005 Bug# 3392088 , Added 2 new columns scope_rul_sequence_num and elm_rng_order_name.
78 || vvutukur 19-Jul-2002 Bug#2425767.removed parameter x_payment_hierarchy_rank
79 || and its reference in copying old_references value
80 || into new_references.value.
81 ----------------------------------------------------------------------------*/
82
83 CURSOR cur_old_ref_values IS
84
85 SELECT *
86
87 FROM IGS_FI_FEE_TYPE_CI_H_ALL
88
89 WHERE rowid = x_rowid;
90
91
92
93 BEGIN
94
95
96
97 l_rowid := x_rowid;
98
99
100
101 -- Code for setting the Old and New Reference Values.
102
103 -- Populate Old Values.
104
105 Open cur_old_ref_values;
106
107 Fetch cur_old_ref_values INTO old_references;
108
109 IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
110
111 Close cur_old_ref_values;
112 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
113 IGS_GE_MSG_STACK.ADD;
114 App_Exception.Raise_Exception;
115
116
117 Return;
118
119 END IF;
120
121 Close cur_old_ref_values;
122
123
124
125 -- Populate New Values.
126
127 new_references.fee_type := x_fee_type;
128
129 new_references.fee_cal_type := x_fee_cal_type;
130
131 new_references.fee_ci_sequence_number := x_fee_ci_sequence_number;
132
133 new_references.hist_start_dt := x_hist_start_dt;
134
135 new_references.hist_end_dt := x_hist_end_dt;
136
137 new_references.hist_who := x_hist_who;
138
139 new_references.fee_type_ci_status := x_fee_type_ci_status;
140
141 new_references.start_dt_alias := x_start_dt_alias;
142
143 new_references.start_dai_sequence_number := x_start_dai_sequence_number;
144
145 new_references.end_dt_alias := x_end_dt_alias;
146
147 new_references.end_dai_sequence_number := x_end_dai_sequence_number;
148
149 new_references.retro_dt_alias := x_retro_dt_alias;
150
151 new_references.retro_dai_sequence_number := x_retro_dai_sequence_number;
152
153 new_references.s_chg_method_type := x_s_chg_method_type;
154
155 new_references.rul_sequence_number := x_rul_sequence_number;
156
157 new_references.initial_default_amount := x_initial_default_amount;
158
159 new_references.nonzero_billable_cp_flag := x_nonzero_billable_cp_flag;
160
161 new_references.org_id := x_org_id;
162
163 IF (p_action = 'UPDATE') THEN
164
165 new_references.creation_date := old_references.creation_date;
166
167 new_references.created_by := old_references.created_by;
168
169 ELSE
170
171 new_references.creation_date := x_creation_date;
172
173 new_references.created_by := x_created_by;
174
175 END IF;
176
177 new_references.last_update_date := x_last_update_date;
178
179 new_references.last_updated_by := x_last_updated_by;
180
181 new_references.last_update_login := x_last_update_login;
182 new_references.scope_rul_sequence_num := x_scope_rul_sequence_num;
183 new_references.elm_rng_order_name := x_elm_rng_order_name;
184
185
186 END Set_Column_Values;
187
188
189 PROCEDURE Check_Constraints (
190 Column_Name IN VARCHAR2 DEFAULT NULL,
191 Column_Value IN VARCHAR2 DEFAULT NULL
192 )AS
193 /*----------------------------------------------------------------------------
194 || Created By :
195 || Created On :
196 || Purpose :
197 || Known limitations, enhancements or remarks :
198 || Change History :
199 || Who When What
200 || (reverse chronological order - newest change first)
201 || gurprsin 18-Jun-2005 Bug# 3392088 , Added 2 new columns scope_rul_sequence_num and elm_rng_order_name.
202 || vvutukur 20-May-2002 removed upper check on fee_type,fee_type_ci_status columns.bug#2344826.
203 ----------------------------------------------------------------------------*/
204 BEGIN
205 IF Column_Name is NULL THEN
206 NULL;
207 ELSIF upper(Column_Name) = 'END_DT_ALIAS' then
208 new_references.end_dt_alias := Column_Value;
209 ELSIF upper(Column_Name) = 'FEE_CAL_TYPE' then
210 new_references.fee_cal_type := Column_Value;
211 ELSIF upper(Column_Name) = 'RETRO_DT_ALIAS' then
212 new_references.retro_dt_alias:= Column_Value;
213 ELSIF upper(Column_Name) = 'START_DT_ALIAS' then
214 new_references.start_dt_alias := Column_Value;
215 ELSIF upper(Column_Name) = 'S_CHG_METHOD_TYPE' then
216 new_references.s_chg_method_type := Column_Value;
217 ELSIF upper(Column_Name) = 'FEE_CI_SEQUENCE_NUMBER' then
218 new_references.fee_ci_sequence_number := igs_ge_number.to_num(Column_Value);
219 ELSIF upper(Column_Name) = 'START_DAI_SEQUENCE_NUMBER' then
220 new_references.start_dai_sequence_number := igs_ge_number.to_num(Column_Value);
221 ELSIF upper(Column_Name) = 'END_DAI_SEQUENCE_NUMBER' then
222 new_references.end_dai_sequence_number := igs_ge_number.to_num(Column_Value);
223 ELSIF upper(Column_Name) = 'RETRO_DAI_SEQUENCE_NUMBER' then
224 new_references.retro_dai_sequence_number := igs_ge_number.to_num(Column_Value);
225 ELSIF upper(Column_Name) = 'RUL_SEQUENCE_NUMBER' then
226 new_references.rul_sequence_number := igs_ge_number.to_num(Column_Value);
227 ELSIF upper(Column_Name) = 'INITIAL_DEFAULT_AMOUNT' then
228 new_references.initial_default_amount := igs_ge_number.to_num(Column_Value);
229 ELSIF upper(Column_Name) = 'NONZERO_BILLABLE_CP_FLAG' then
230 new_references.nonzero_billable_cp_flag := Column_Value;
231 ELSIF upper(Column_Name) = 'SCOPE_RUL_SEQUENCE_NUM' then
232 new_references.SCOPE_RUL_SEQUENCE_NUM := igs_ge_number.to_num(Column_Value);
233 ELSIF upper(Column_Name) = 'ELM_RNG_ORDER_NAME' then
234 new_references.ELM_RNG_ORDER_NAME := Column_Value;
235 END IF;
236
237 IF upper(Column_Name) = 'FEE_CI_SEQUENCE_NUMBER' OR
238 column_name is NULL THEN
239 IF new_references.fee_ci_sequence_number < 1 OR
240 new_references.fee_ci_sequence_number > 999999 THEN
241 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
242 IGS_GE_MSG_STACK.ADD;
243 App_Exception.Raise_Exception;
244 END IF;
245 END IF;
246 IF upper(Column_Name) = 'START_DAI_SEQUENCE_NUMBER' OR
247 column_name is NULL THEN
248 IF new_references.start_dai_sequence_number < 1 OR
249 new_references.start_dai_sequence_number > 999999 THEN
250 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
251 IGS_GE_MSG_STACK.ADD;
252 App_Exception.Raise_Exception;
253 END IF;
254 END IF;
255 IF upper(Column_Name) = 'END_DAI_SEQUENCE_NUMBER' OR
256 column_name is NULL THEN
257 IF new_references.end_dai_sequence_number < 1 OR
258 new_references.end_dai_sequence_number > 999999 THEN
259 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
260 IGS_GE_MSG_STACK.ADD;
261 App_Exception.Raise_Exception;
262 END IF;
263 END IF;
264 IF upper(Column_Name) = 'RETRO_DAI_SEQUENCE_NUMBER' OR
265 column_name is NULL THEN
266 IF new_references.retro_dai_sequence_number < 1 OR
267 new_references.retro_dai_sequence_number > 999999 THEN
268 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
269 IGS_GE_MSG_STACK.ADD;
270 App_Exception.Raise_Exception;
271 END IF;
272 END IF;
273 IF upper(Column_Name) = 'RUL_SEQUENCE_NUMBER' OR
274 column_name is NULL THEN
275 IF new_references.rul_sequence_number < 1 OR
276 new_references.rul_sequence_number > 999999 THEN
277 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
278 IGS_GE_MSG_STACK.ADD;
279 App_Exception.Raise_Exception;
280 END IF;
281 END IF;
282 IF upper(Column_Name) = 'FEE_CAL_TYPE' OR
283 column_name is NULL THEN
284 IF new_references.fee_cal_type <> UPPER(new_references.fee_cal_type) THEN
285 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
286 IGS_GE_MSG_STACK.ADD;
287 App_Exception.Raise_Exception;
288 END IF;
289 END IF;
290 IF upper(Column_Name) = 'END_DT_ALIAS' OR
291 column_name is NULL THEN
292 IF new_references.end_dt_alias <> UPPER(new_references.end_dt_alias) THEN
293 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
294 IGS_GE_MSG_STACK.ADD;
295 App_Exception.Raise_Exception;
296 END IF;
297 END IF;
298 IF upper(Column_Name) = 'START_DT_ALIAS' OR
299 column_name is NULL THEN
300 IF new_references.start_dt_alias <> UPPER(new_references.start_dt_alias) THEN
301 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
302 IGS_GE_MSG_STACK.ADD;
303 App_Exception.Raise_Exception;
304 END IF;
305 END IF;
306 IF upper(Column_Name) = 'RETRO_DT_ALIAS' OR
307 column_name is NULL THEN
308 IF new_references.retro_dt_alias <> UPPER(new_references.retro_dt_alias) THEN
309 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
310 IGS_GE_MSG_STACK.ADD;
311 App_Exception.Raise_Exception;
312 END IF;
313 END IF;
314
315 IF upper(Column_Name) = 'S_CHG_METHOD_TYPE' OR
316 column_name is NULL THEN
317 IF new_references.s_chg_method_type <> UPPER(new_references.s_chg_method_type) THEN
318 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
319 IGS_GE_MSG_STACK.ADD;
320 App_Exception.Raise_Exception;
321 END IF;
322 END IF;
323 IF upper(Column_Name) = 'INITIAL_DEFAULT_AMOUNT' OR
324 column_name is NULL THEN
325 IF new_references.initial_default_amount < 1 OR
326 new_references.initial_default_amount > 999999.99 THEN
327 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
328 IGS_GE_MSG_STACK.ADD;
329 App_Exception.Raise_Exception;
330 END IF;
331 END IF;
332 IF upper(Column_Name) = 'NONZERO_BILLABLE_CP_FLAG' OR
333 column_name is NULL THEN
334 IF new_references.nonzero_billable_cp_flag <> UPPER(new_references.nonzero_billable_cp_flag) THEN
335 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
336 IGS_GE_MSG_STACK.ADD;
337 App_Exception.Raise_Exception;
338 END IF;
339 END IF;
340
341 IF ((UPPER (column_name) = 'SCOPE_RUL_SEQUENCE_NUM') OR (column_name IS NULL)) THEN
342 IF ((new_references.scope_rul_sequence_num < 1) OR (new_references.scope_rul_sequence_num > 999999)) THEN
343 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
344 IGS_GE_MSG_STACK.ADD;
345 App_Exception.Raise_Exception;
346 END IF;
347 END IF;
348
349 IF ((UPPER (column_name) = 'ELM_RNG_ORDER_NAME') OR (column_name IS NULL)) THEN
350 IF (new_references.elm_rng_order_name <> UPPER (new_references.elm_rng_order_name)) THEN
351 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
352 IGS_GE_MSG_STACK.ADD;
353 App_Exception.Raise_Exception;
354 END IF;
355 END IF;
356
357 END Check_Constraints;
358 FUNCTION Get_PK_For_Validation (
359
360 x_fee_type IN VARCHAR2,
361
362 x_fee_cal_type IN VARCHAR2,
363
364 x_fee_ci_sequence_number IN NUMBER,
365
366 x_hist_start_dt IN DATE
367
368 ) RETURN BOOLEAN AS
369
370
371 CURSOR cur_rowid IS
372 SELECT rowid
373 FROM IGS_FI_FEE_TYPE_CI_H_ALL
374 WHERE fee_type = x_fee_type
375 AND fee_cal_type = x_fee_cal_type
376 AND fee_ci_sequence_number = x_fee_ci_sequence_number
377 AND hist_start_dt = x_hist_start_dt
378 FOR UPDATE NOWAIT;
379 lv_rowid cur_rowid%RowType;
380 BEGIN
381 Open cur_rowid;
382 Fetch cur_rowid INTO lv_rowid;
383 IF (cur_rowid%FOUND) THEN
384 Close cur_rowid;
385 Return (TRUE);
386 ELSE
387 Close cur_rowid;
388 Return (FALSE);
389 END IF;
390 END Get_PK_For_Validation;
391
392
393
394 PROCEDURE Before_DML (
395
396 p_action IN VARCHAR2,
397
398 x_rowid IN VARCHAR2 DEFAULT NULL,
399
400 x_fee_type IN VARCHAR2 DEFAULT NULL,
401
402 x_fee_cal_type IN VARCHAR2 DEFAULT NULL,
403
404 x_fee_ci_sequence_number IN NUMBER DEFAULT NULL,
405
406 x_hist_start_dt IN DATE DEFAULT NULL,
407
408 x_hist_end_dt IN DATE DEFAULT NULL,
409
410 x_hist_who IN VARCHAR2 DEFAULT NULL,
411
412 x_fee_type_ci_status IN VARCHAR2 DEFAULT NULL,
413
414 x_start_dt_alias IN VARCHAR2 DEFAULT NULL,
415
416 x_start_dai_sequence_number IN NUMBER DEFAULT NULL,
417
418 x_end_dt_alias IN VARCHAR2 DEFAULT NULL,
419
420 x_end_dai_sequence_number IN NUMBER DEFAULT NULL,
421
422 x_retro_dt_alias IN VARCHAR2 DEFAULT NULL,
423
424 x_retro_dai_sequence_number IN NUMBER DEFAULT NULL,
425
429
426 x_s_chg_method_type IN VARCHAR2 DEFAULT NULL,
427
428 x_rul_sequence_number IN NUMBER DEFAULT NULL,
430 x_initial_default_amount IN NUMBER DEFAULT NULL,
431
432 x_org_id IN NUMBER DEFAULT NULL,
433
434 x_creation_date IN DATE DEFAULT NULL,
435
436 x_created_by IN NUMBER DEFAULT NULL,
437
438 x_last_update_date IN DATE DEFAULT NULL,
439
440 x_last_updated_by IN NUMBER DEFAULT NULL,
441
442 x_last_update_login IN NUMBER DEFAULT NULL,
443
444 x_nonzero_billable_cp_flag IN VARCHAR2 DEFAULT NULL,
445 x_scope_rul_sequence_num IN NUMBER DEFAULT NULL,
446 x_elm_rng_order_name IN VARCHAR2 DEFAULT NULL
447 ) AS
448 /*----------------------------------------------------------------------------
449 || Created By :
450 || Created On :
451 || Purpose :
452 || Known limitations, enhancements or remarks :
453 || Change History :
454 || Who When What
455 || (reverse chronological order - newest change first)
456 || gurprsin 18-Jun-2005 Bug# 3392088 , Added 2 new columns scope_rul_sequence_num and elm_rng_order_name.
457 || vvutukur 19-Jul-2002 Bug#2425767.removed parameter x_payment_hierarchy_rank
458 || and from call to set_column_values procedure.
459 ----------------------------------------------------------------------------*/
460
461 BEGIN
462
463 Set_Column_Values (
464
465 p_action,
466
467 x_rowid,
468
469 x_fee_type,
470
471 x_fee_cal_type,
472
473 x_fee_ci_sequence_number,
474
475 x_hist_start_dt,
476
477 x_hist_end_dt,
478
479 x_hist_who,
480
481 x_fee_type_ci_status,
482
483 x_start_dt_alias,
484
485 x_start_dai_sequence_number,
486
487 x_end_dt_alias,
488
489 x_end_dai_sequence_number,
490
491 x_retro_dt_alias,
492
493 x_retro_dai_sequence_number,
494
495 x_s_chg_method_type,
496
497 x_rul_sequence_number,
498
499 x_initial_default_amount,
500
501 x_org_id,
502
503 x_nonzero_billable_cp_flag,
504
505 x_creation_date,
506
507 x_created_by,
508
509 x_last_update_date,
510
511 x_last_updated_by,
512
513 x_last_update_login,
514 x_scope_rul_sequence_num,
515 x_elm_rng_order_name
516 );
517
518
519
520 IF (p_action = 'INSERT') THEN
521 -- Call all the procedures related to Before Insert.
522 IF Get_PK_For_Validation ( new_references.fee_type,
523 new_references.fee_cal_type,
524 new_references.fee_ci_sequence_number ,
525 new_references.hist_start_dt )
526 THEN
527 Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
528 IGS_GE_MSG_STACK.ADD;
529 App_Exception.Raise_Exception;
530 END IF;
531 Check_Constraints;
532 ELSIF (p_action = 'UPDATE') THEN
533 -- Call all the procedures related to Before Update.
534 Check_Constraints;
535 ELSIF (p_action = 'VALIDATE_INSERT') THEN
536 -- Call all the procedures related to Before Insert.
537 IF Get_PK_For_Validation ( new_references.fee_type,
538 new_references.fee_cal_type,
539 new_references.fee_ci_sequence_number ,
540 new_references.hist_start_dt )
541 THEN
542 Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
543 IGS_GE_MSG_STACK.ADD;
544 App_Exception.Raise_Exception;
545 END IF;
546 Check_Constraints;
547 ELSIF (p_action = 'VALIDATE_UPDATE') THEN
548 Check_Constraints;
549 END IF;
550
551
552
553 END Before_DML;
554
555 procedure INSERT_ROW (
556 X_ROWID in out NOCOPY VARCHAR2,
557 X_FEE_TYPE in VARCHAR2,
558 X_FEE_CAL_TYPE in VARCHAR2,
559 X_HIST_START_DT in DATE,
560 X_FEE_CI_SEQUENCE_NUMBER in NUMBER,
561 X_HIST_END_DT in DATE,
562 X_HIST_WHO in NUMBER,
563 X_FEE_TYPE_CI_STATUS in VARCHAR2,
564 X_START_DT_ALIAS in VARCHAR2,
565 X_START_DAI_SEQUENCE_NUMBER in NUMBER,
566 X_END_DT_ALIAS in VARCHAR2,
567 X_END_DAI_SEQUENCE_NUMBER in NUMBER,
568 X_RETRO_DT_ALIAS in VARCHAR2,
569 X_RETRO_DAI_SEQUENCE_NUMBER in NUMBER,
570 X_S_CHG_METHOD_TYPE in VARCHAR2,
571 X_RUL_SEQUENCE_NUMBER in NUMBER,
572 X_INITIAL_DEFAULT_AMOUNT in NUMBER DEFAULT NULL,
573 X_ORG_ID in NUMBER,
574 X_MODE in VARCHAR2 default 'R',
575 X_NONZERO_BILLABLE_CP_FLAG IN VARCHAR2 DEFAULT NULL,
576 x_scope_rul_sequence_num IN NUMBER DEFAULT NULL,
577 x_elm_rng_order_name IN VARCHAR2 DEFAULT NULL
578 ) AS
579 /*----------------------------------------------------------------------------
580 || Created By :
581 || Created On :
582 || Purpose :
583 || Known limitations, enhancements or remarks :
584 || Change History :
585 || Who When What
589 || and from call to before_dml procedure,from insert statement.
586 || (reverse chronological order - newest change first)
587 || gurprsin 18-Jun-2005 Bug# 3392088 , Added 2 new columns scope_rul_sequence_num and elm_rng_order_name.
588 || vvutukur 19-Jul-2002 Bug#2425767.removed parameter x_payment_hierarchy_rank,
590 ----------------------------------------------------------------------------*/
591 cursor C is select ROWID from IGS_FI_FEE_TYPE_CI_H_ALL
592 where FEE_TYPE = X_FEE_TYPE
593 and FEE_CAL_TYPE = X_FEE_CAL_TYPE
594 and HIST_START_DT = X_HIST_START_DT
595 and FEE_CI_SEQUENCE_NUMBER = X_FEE_CI_SEQUENCE_NUMBER;
596 X_LAST_UPDATE_DATE DATE;
597 X_LAST_UPDATED_BY NUMBER;
598 X_LAST_UPDATE_LOGIN NUMBER;
599 begin
600 X_LAST_UPDATE_DATE := SYSDATE;
601 if(X_MODE = 'I') then
602 X_LAST_UPDATED_BY := 1;
603 X_LAST_UPDATE_LOGIN := 0;
604 elsif (X_MODE = 'R') then
605 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
606 if X_LAST_UPDATED_BY is NULL then
607 X_LAST_UPDATED_BY := -1;
608 end if;
609 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
610 if X_LAST_UPDATE_LOGIN is NULL then
611 X_LAST_UPDATE_LOGIN := -1;
612 end if;
613 else
614 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
615 IGS_GE_MSG_STACK.ADD;
616 app_exception.raise_exception;
617 end if;
618
619
620 Before_DML(
621
622 p_action=>'INSERT',
623
624 x_rowid=>X_ROWID,
625
626 x_end_dai_sequence_number=>X_END_DAI_SEQUENCE_NUMBER,
627
628 x_end_dt_alias=>X_END_DT_ALIAS,
629
630 x_fee_cal_type=>X_FEE_CAL_TYPE,
631
632 x_fee_ci_sequence_number=>X_FEE_CI_SEQUENCE_NUMBER,
633
634 x_fee_type=>X_FEE_TYPE,
635
636 x_fee_type_ci_status=>X_FEE_TYPE_CI_STATUS,
637
638 x_hist_end_dt=>X_HIST_END_DT,
639
640 x_hist_start_dt=>X_HIST_START_DT,
641
642 x_hist_who=>X_HIST_WHO,
643
644 x_initial_default_amount=>X_INITIAL_DEFAULT_AMOUNT,
645
646 x_retro_dai_sequence_number=>X_RETRO_DAI_SEQUENCE_NUMBER,
647
648 x_retro_dt_alias=>X_RETRO_DT_ALIAS,
649
650 x_rul_sequence_number=>X_RUL_SEQUENCE_NUMBER,
651
652 x_s_chg_method_type=>X_S_CHG_METHOD_TYPE,
653
654 x_start_dai_sequence_number=>X_START_DAI_SEQUENCE_NUMBER,
655
656 x_start_dt_alias=>X_START_DT_ALIAS,
657
658 x_org_id => igs_ge_gen_003.get_org_id,
659
660 x_creation_date=>X_LAST_UPDATE_DATE,
661
662 x_created_by=>X_LAST_UPDATED_BY,
663
664 x_last_update_date=>X_LAST_UPDATE_DATE,
665
666 x_last_updated_by=>X_LAST_UPDATED_BY,
667
668 x_last_update_login=>X_LAST_UPDATE_LOGIN,
669
670 x_nonzero_billable_cp_flag => X_NONZERO_BILLABLE_CP_FLAG,
671 x_scope_rul_sequence_num => X_scope_rul_sequence_num,
672 x_elm_rng_order_name => X_elm_rng_order_name
673 );
674
675
676 insert into IGS_FI_FEE_TYPE_CI_H_ALL (
677 FEE_TYPE,
678 FEE_CAL_TYPE,
679 FEE_CI_SEQUENCE_NUMBER,
680 HIST_START_DT,
681 HIST_END_DT,
682 HIST_WHO,
683 FEE_TYPE_CI_STATUS,
684 START_DT_ALIAS,
685 START_DAI_SEQUENCE_NUMBER,
686 END_DT_ALIAS,
687 END_DAI_SEQUENCE_NUMBER,
688 RETRO_DT_ALIAS,
689 RETRO_DAI_SEQUENCE_NUMBER,
690 S_CHG_METHOD_TYPE,
691 RUL_SEQUENCE_NUMBER,
692 INITIAL_DEFAULT_AMOUNT,
693 ORG_ID,
694 NONZERO_BILLABLE_CP_FLAG,
695 CREATION_DATE,
696 CREATED_BY,
697 LAST_UPDATE_DATE,
698 LAST_UPDATED_BY,
699 LAST_UPDATE_LOGIN,
700 SCOPE_RUL_SEQUENCE_NUM,
701 ELM_RNG_ORDER_NAME
702 ) values (
703 NEW_REFERENCES.FEE_TYPE,
704 NEW_REFERENCES.FEE_CAL_TYPE,
705 NEW_REFERENCES.FEE_CI_SEQUENCE_NUMBER,
706 NEW_REFERENCES.HIST_START_DT,
707 NEW_REFERENCES.HIST_END_DT,
708 NEW_REFERENCES.HIST_WHO,
709 NEW_REFERENCES.FEE_TYPE_CI_STATUS,
710 NEW_REFERENCES.START_DT_ALIAS,
711 NEW_REFERENCES.START_DAI_SEQUENCE_NUMBER,
712 NEW_REFERENCES.END_DT_ALIAS,
713 NEW_REFERENCES.END_DAI_SEQUENCE_NUMBER,
714 NEW_REFERENCES.RETRO_DT_ALIAS,
715 NEW_REFERENCES.RETRO_DAI_SEQUENCE_NUMBER,
716 NEW_REFERENCES.S_CHG_METHOD_TYPE,
717 NEW_REFERENCES.RUL_SEQUENCE_NUMBER,
718 NEW_REFERENCES.INITIAL_DEFAULT_AMOUNT,
719 NEW_REFERENCES.ORG_ID,
720 NEW_REFERENCES.NONZERO_BILLABLE_CP_FLAG,
721 X_LAST_UPDATE_DATE,
722 X_LAST_UPDATED_BY,
723 X_LAST_UPDATE_DATE,
724 X_LAST_UPDATED_BY,
725 X_LAST_UPDATE_LOGIN,
726 NEW_REFERENCES.SCOPE_RUL_SEQUENCE_NUM,
727 NEW_REFERENCES.ELM_RNG_ORDER_NAME
728 );
729
730 open c;
731 fetch c into X_ROWID;
732 if (c%notfound) then
733 close c;
734 raise no_data_found;
735 end if;
736 close c;
737 end INSERT_ROW;
738
739 procedure LOCK_ROW (
740 X_ROWID in VARCHAR2,
741 X_FEE_TYPE in VARCHAR2,
742 X_FEE_CAL_TYPE in VARCHAR2,
743 X_HIST_START_DT in DATE,
744 X_FEE_CI_SEQUENCE_NUMBER in NUMBER,
745 X_HIST_END_DT in DATE,
746 X_HIST_WHO in NUMBER,
750 X_END_DT_ALIAS in VARCHAR2,
747 X_FEE_TYPE_CI_STATUS in VARCHAR2,
748 X_START_DT_ALIAS in VARCHAR2,
749 X_START_DAI_SEQUENCE_NUMBER in NUMBER,
751 X_END_DAI_SEQUENCE_NUMBER in NUMBER,
752 X_RETRO_DT_ALIAS in VARCHAR2,
753 X_RETRO_DAI_SEQUENCE_NUMBER in NUMBER,
754 X_S_CHG_METHOD_TYPE in VARCHAR2,
755 X_RUL_SEQUENCE_NUMBER in NUMBER,
756 X_INITIAL_DEFAULT_AMOUNT in NUMBER DEFAULT NULL,
757 X_NONZERO_BILLABLE_CP_FLAG IN VARCHAR2 DEFAULT NULL,
758 X_SCOPE_RUL_SEQUENCE_NUM IN NUMBER DEFAULT NULL,
759 X_ELM_RNG_ORDER_NAME IN VARCHAR2 DEFAULT NULL
760 ) AS
761 /*----------------------------------------------------------------------------
762 || Created By :
763 || Created On :
764 || Purpose :
765 || Known limitations, enhancements or remarks :
766 || Change History :
767 || Who When What
768 || (reverse chronological order - newest change first)
769 || vvutukur 19-Jul-2002 Bug#2425767.removed parameter x_payment_hierarchy_rank,
770 || and from cursor c1 and its references from if condition.
771 ----------------------------------------------------------------------------*/
772 cursor c1 is select
773 HIST_END_DT,
774 HIST_WHO,
775 FEE_TYPE_CI_STATUS,
776 START_DT_ALIAS,
777 START_DAI_SEQUENCE_NUMBER,
778 END_DT_ALIAS,
779 END_DAI_SEQUENCE_NUMBER,
780 RETRO_DT_ALIAS,
781 RETRO_DAI_SEQUENCE_NUMBER,
782 S_CHG_METHOD_TYPE,
783 RUL_SEQUENCE_NUMBER,
784 INITIAL_DEFAULT_AMOUNT,
785 NONZERO_BILLABLE_CP_FLAG,
786 SCOPE_RUL_SEQUENCE_NUM,
787 ELM_RNG_ORDER_NAME
788 from IGS_FI_FEE_TYPE_CI_H_ALL
789 where ROWID = X_ROWID
790 for update nowait;
791 tlinfo c1%rowtype;
792
793 begin
794 open c1;
795 fetch c1 into tlinfo;
796 if (c1%notfound) then
797 close c1;
798 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
799 IGS_GE_MSG_STACK.ADD;
800 app_exception.raise_exception;
801 return;
802 end if;
803 close c1;
804
805 if ( (tlinfo.HIST_END_DT = X_HIST_END_DT)
806 AND (tlinfo.HIST_WHO = X_HIST_WHO)
807 AND (tlinfo.FEE_TYPE_CI_STATUS = X_FEE_TYPE_CI_STATUS)
808 AND ((tlinfo.START_DT_ALIAS = X_START_DT_ALIAS)
809 OR ((tlinfo.START_DT_ALIAS is null)
810 AND (X_START_DT_ALIAS is null)))
811 AND ((tlinfo.START_DAI_SEQUENCE_NUMBER = X_START_DAI_SEQUENCE_NUMBER)
812 OR ((tlinfo.START_DAI_SEQUENCE_NUMBER is null)
813 AND (X_START_DAI_SEQUENCE_NUMBER is null)))
814 AND ((tlinfo.END_DT_ALIAS = X_END_DT_ALIAS)
815 OR ((tlinfo.END_DT_ALIAS is null)
816 AND (X_END_DT_ALIAS is null)))
817 AND ((tlinfo.END_DAI_SEQUENCE_NUMBER = X_END_DAI_SEQUENCE_NUMBER)
818 OR ((tlinfo.END_DAI_SEQUENCE_NUMBER is null)
819 AND (X_END_DAI_SEQUENCE_NUMBER is null)))
820 AND ((tlinfo.RETRO_DT_ALIAS = X_RETRO_DT_ALIAS)
821 OR ((tlinfo.RETRO_DT_ALIAS is null)
822 AND (X_RETRO_DT_ALIAS is null)))
823 AND ((tlinfo.RETRO_DAI_SEQUENCE_NUMBER = X_RETRO_DAI_SEQUENCE_NUMBER)
824 OR ((tlinfo.RETRO_DAI_SEQUENCE_NUMBER is null)
825 AND (X_RETRO_DAI_SEQUENCE_NUMBER is null)))
826 AND ((tlinfo.S_CHG_METHOD_TYPE = X_S_CHG_METHOD_TYPE)
827 OR ((tlinfo.S_CHG_METHOD_TYPE is null)
828 AND (X_S_CHG_METHOD_TYPE is null)))
829 AND ((tlinfo.RUL_SEQUENCE_NUMBER = X_RUL_SEQUENCE_NUMBER)
830 OR ((tlinfo.RUL_SEQUENCE_NUMBER is null)
831 AND (X_RUL_SEQUENCE_NUMBER is null)))
832 AND ((tlinfo.INITIAL_DEFAULT_AMOUNT = X_INITIAL_DEFAULT_AMOUNT)
833 OR ((tlinfo.INITIAL_DEFAULT_AMOUNT is null)
834 AND (X_INITIAL_DEFAULT_AMOUNT is null)))
835 AND (tlinfo.NONZERO_BILLABLE_CP_FLAG = X_NONZERO_BILLABLE_CP_FLAG)
836
837 AND ((tlinfo.SCOPE_RUL_SEQUENCE_NUM = X_SCOPE_RUL_SEQUENCE_NUM)
838 OR ((tlinfo.SCOPE_RUL_SEQUENCE_NUM is null)
839 AND (X_SCOPE_RUL_SEQUENCE_NUM is null)))
840 AND ((tlinfo.ELM_RNG_ORDER_NAME = X_ELM_RNG_ORDER_NAME)
841 OR ((tlinfo.ELM_RNG_ORDER_NAME is null)
842 AND (X_ELM_RNG_ORDER_NAME is null)))
843
844 ) then
845 null;
846 else
847 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
848 IGS_GE_MSG_STACK.ADD;
849 app_exception.raise_exception;
850 end if;
851 return;
852 end LOCK_ROW;
853
854 procedure UPDATE_ROW (
855 X_ROWID in VARCHAR2,
856 X_FEE_TYPE in VARCHAR2,
857 X_FEE_CAL_TYPE in VARCHAR2,
858 X_HIST_START_DT in DATE,
859 X_FEE_CI_SEQUENCE_NUMBER in NUMBER,
860 X_HIST_END_DT in DATE,
861 X_HIST_WHO in NUMBER,
862 X_FEE_TYPE_CI_STATUS in VARCHAR2,
863 X_START_DT_ALIAS in VARCHAR2,
864 X_START_DAI_SEQUENCE_NUMBER in NUMBER,
865 X_END_DT_ALIAS in VARCHAR2,
866 X_END_DAI_SEQUENCE_NUMBER in NUMBER,
867 X_RETRO_DT_ALIAS in VARCHAR2,
868 X_RETRO_DAI_SEQUENCE_NUMBER in NUMBER,
869 X_S_CHG_METHOD_TYPE in VARCHAR2,
870 X_RUL_SEQUENCE_NUMBER in NUMBER,
871 X_INITIAL_DEFAULT_AMOUNT in NUMBER DEFAULT NULL,
872 X_MODE in VARCHAR2 default 'R',
873 X_NONZERO_BILLABLE_CP_FLAG IN VARCHAR2 DEFAULT NULL,
877 /*----------------------------------------------------------------------------
874 X_SCOPE_RUL_SEQUENCE_NUM IN NUMBER DEFAULT NULL,
875 X_ELM_RNG_ORDER_NAME IN VARCHAR2 DEFAULT NULL
876 ) AS
878 || Created By :
879 || Created On :
880 || Purpose :
881 || Known limitations, enhancements or remarks :
882 || Change History :
883 || Who When What
884 || (reverse chronological order - newest change first)
885 || gurprsin 18-Jun-2005 Bug# 3392088 , Added 2 new columns scope_rul_sequence_num and elm_rng_order_name.
886 || vvutukur 19-Jul-2002 Bug#2425767.removed parameter x_payment_hierarchy_rank,
887 || and from call to before_dml procedure and from update statement.
888 ----------------------------------------------------------------------------*/
889 X_LAST_UPDATE_DATE DATE;
890 X_LAST_UPDATED_BY NUMBER;
891 X_LAST_UPDATE_LOGIN NUMBER;
892 begin
893 X_LAST_UPDATE_DATE := SYSDATE;
894 if(X_MODE = 'I') then
895 X_LAST_UPDATED_BY := 1;
896 X_LAST_UPDATE_LOGIN := 0;
897 elsif (X_MODE = 'R') then
898 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
899 if X_LAST_UPDATED_BY is NULL then
900 X_LAST_UPDATED_BY := -1;
901 end if;
902 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
903 if X_LAST_UPDATE_LOGIN is NULL then
904 X_LAST_UPDATE_LOGIN := -1;
905 end if;
906 else
907 FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
908 IGS_GE_MSG_STACK.ADD;
909 app_exception.raise_exception;
910 end if;
911
912
913
914 Before_DML(
915
916 p_action=>'UPDATE',
917
918 x_rowid=>X_ROWID,
919
920 x_end_dai_sequence_number=>X_END_DAI_SEQUENCE_NUMBER,
921
922 x_end_dt_alias=>X_END_DT_ALIAS,
923
924 x_fee_cal_type=>X_FEE_CAL_TYPE,
925
926 x_fee_ci_sequence_number=>X_FEE_CI_SEQUENCE_NUMBER,
927
928 x_fee_type=>X_FEE_TYPE,
929
930 x_fee_type_ci_status=>X_FEE_TYPE_CI_STATUS,
931
932 x_hist_end_dt=>X_HIST_END_DT,
933
934 x_hist_start_dt=>X_HIST_START_DT,
935
936 x_hist_who=>X_HIST_WHO,
937
938 x_initial_default_amount=>X_INITIAL_DEFAULT_AMOUNT,
939
940 x_retro_dai_sequence_number=>X_RETRO_DAI_SEQUENCE_NUMBER,
941
942 x_retro_dt_alias=>X_RETRO_DT_ALIAS,
943
944 x_rul_sequence_number=>X_RUL_SEQUENCE_NUMBER,
945
946 x_s_chg_method_type=>X_S_CHG_METHOD_TYPE,
947
948 x_start_dai_sequence_number=>X_START_DAI_SEQUENCE_NUMBER,
949
950 x_start_dt_alias=>X_START_DT_ALIAS,
951
952 x_creation_date=>X_LAST_UPDATE_DATE,
953
954 x_created_by=>X_LAST_UPDATED_BY,
955
956 x_last_update_date=>X_LAST_UPDATE_DATE,
957
958 x_last_updated_by=>X_LAST_UPDATED_BY,
959
960 x_last_update_login=>X_LAST_UPDATE_LOGIN,
961
962 x_nonzero_billable_cp_flag => X_NONZERO_BILLABLE_CP_FLAG,
963 x_scope_rul_sequence_num => X_SCOPE_RUL_SEQUENCE_NUM,
964 x_elm_rng_order_name => X_ELM_RNG_ORDER_NAME
965 );
966 update IGS_FI_FEE_TYPE_CI_H_ALL set
967 HIST_END_DT = NEW_REFERENCES.HIST_END_DT,
968 HIST_WHO = NEW_REFERENCES.HIST_WHO,
969 FEE_TYPE_CI_STATUS = NEW_REFERENCES.FEE_TYPE_CI_STATUS,
970 START_DT_ALIAS = NEW_REFERENCES.START_DT_ALIAS,
971 START_DAI_SEQUENCE_NUMBER = NEW_REFERENCES.START_DAI_SEQUENCE_NUMBER,
972 END_DT_ALIAS = NEW_REFERENCES.END_DT_ALIAS,
973 END_DAI_SEQUENCE_NUMBER = NEW_REFERENCES.END_DAI_SEQUENCE_NUMBER,
974 RETRO_DT_ALIAS = NEW_REFERENCES.RETRO_DT_ALIAS,
975 RETRO_DAI_SEQUENCE_NUMBER = NEW_REFERENCES.RETRO_DAI_SEQUENCE_NUMBER,
976 S_CHG_METHOD_TYPE = NEW_REFERENCES.S_CHG_METHOD_TYPE,
977 RUL_SEQUENCE_NUMBER = NEW_REFERENCES.RUL_SEQUENCE_NUMBER,
978 INITIAL_DEFAULT_AMOUNT = NEW_REFERENCES.INITIAL_DEFAULT_AMOUNT,
979 NONZERO_BILLABLE_CP_FLAG = NEW_REFERENCES.NONZERO_BILLABLE_CP_FLAG,
980 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
981 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
982 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
983 SCOPE_RUL_SEQUENCE_NUM = NEW_REFERENCES.SCOPE_RUL_SEQUENCE_NUM,
984 ELM_RNG_ORDER_NAME = NEW_REFERENCES.ELM_RNG_ORDER_NAME
985 where ROWID = X_ROWID;
986 if (sql%notfound) then
987 raise no_data_found;
988 end if;
989
990 end UPDATE_ROW;
991
992 procedure ADD_ROW (
993 X_ROWID in out NOCOPY VARCHAR2,
994 X_FEE_TYPE in VARCHAR2,
995 X_FEE_CAL_TYPE in VARCHAR2,
996 X_HIST_START_DT in DATE,
997 X_FEE_CI_SEQUENCE_NUMBER in NUMBER,
998 X_HIST_END_DT in DATE,
999 X_HIST_WHO in NUMBER,
1000 X_FEE_TYPE_CI_STATUS in VARCHAR2,
1001 X_START_DT_ALIAS in VARCHAR2,
1002 X_START_DAI_SEQUENCE_NUMBER in NUMBER,
1003 X_END_DT_ALIAS in VARCHAR2,
1004 X_END_DAI_SEQUENCE_NUMBER in NUMBER,
1005 X_RETRO_DT_ALIAS in VARCHAR2,
1006 X_RETRO_DAI_SEQUENCE_NUMBER in NUMBER,
1007 X_S_CHG_METHOD_TYPE in VARCHAR2,
1008 X_RUL_SEQUENCE_NUMBER in NUMBER,
1009 X_INITIAL_DEFAULT_AMOUNT in NUMBER DEFAULT NULL,
1010 X_ORG_ID in NUMBER,
1011 X_MODE in VARCHAR2 default 'R',
1012 X_NONZERO_BILLABLE_CP_FLAG IN VARCHAR2 DEFAULT NULL,
1013 X_SCOPE_RUL_SEQUENCE_NUM IN NUMBER DEFAULT NULL,
1014 X_ELM_RNG_ORDER_NAME IN VARCHAR2 DEFAULT NULL
1015 ) AS
1016 /*----------------------------------------------------------------------------
1017 || Created By :
1018 || Created On :
1019 || Purpose :
1020 || Known limitations, enhancements or remarks :
1021 || Change History :
1022 || Who When What
1023 || (reverse chronological order - newest change first)
1024 || gurprsin 18-Jun-2005 Bug# 3392088 , Added 2 new columns scope_rul_sequence_num and elm_rng_order_name.
1025 || vvutukur 19-Jul-2002 Bug#2425767.removed parameter x_payment_hierarchy_rank,
1026 || and from calls to procedures insert_row and update_row.
1027 ----------------------------------------------------------------------------*/
1028 cursor c1 is select rowid from IGS_FI_FEE_TYPE_CI_H_ALL
1029 where FEE_TYPE = X_FEE_TYPE
1030 and FEE_CAL_TYPE = X_FEE_CAL_TYPE
1031 and HIST_START_DT = X_HIST_START_DT
1032 and FEE_CI_SEQUENCE_NUMBER = X_FEE_CI_SEQUENCE_NUMBER
1033 ;
1034 begin
1035 open c1;
1036 fetch c1 into X_ROWID;
1037 if (c1%notfound) then
1038 close c1;
1039 INSERT_ROW (
1040 X_ROWID,
1041 X_FEE_TYPE,
1042 X_FEE_CAL_TYPE,
1043 X_HIST_START_DT,
1044 X_FEE_CI_SEQUENCE_NUMBER,
1045 X_HIST_END_DT,
1046 X_HIST_WHO,
1047 X_FEE_TYPE_CI_STATUS,
1048 X_START_DT_ALIAS,
1049 X_START_DAI_SEQUENCE_NUMBER,
1050 X_END_DT_ALIAS,
1051 X_END_DAI_SEQUENCE_NUMBER,
1052 X_RETRO_DT_ALIAS,
1053 X_RETRO_DAI_SEQUENCE_NUMBER,
1054 X_S_CHG_METHOD_TYPE,
1055 X_RUL_SEQUENCE_NUMBER,
1056 X_INITIAL_DEFAULT_AMOUNT,
1057 X_ORG_ID,
1058 X_MODE,
1059 X_NONZERO_BILLABLE_CP_FLAG,
1060 X_SCOPE_RUL_SEQUENCE_NUM,
1061 X_ELM_RNG_ORDER_NAME);
1062 return;
1063 end if;
1064 close c1;
1065 UPDATE_ROW (
1066 X_ROWID,
1067 X_FEE_TYPE,
1068 X_FEE_CAL_TYPE,
1069 X_HIST_START_DT,
1070 X_FEE_CI_SEQUENCE_NUMBER,
1071 X_HIST_END_DT,
1072 X_HIST_WHO,
1073 X_FEE_TYPE_CI_STATUS,
1074 X_START_DT_ALIAS,
1075 X_START_DAI_SEQUENCE_NUMBER,
1076 X_END_DT_ALIAS,
1077 X_END_DAI_SEQUENCE_NUMBER,
1078 X_RETRO_DT_ALIAS,
1079 X_RETRO_DAI_SEQUENCE_NUMBER,
1080 X_S_CHG_METHOD_TYPE,
1081 X_RUL_SEQUENCE_NUMBER,
1082 X_INITIAL_DEFAULT_AMOUNT,
1083 X_MODE,
1084 X_NONZERO_BILLABLE_CP_FLAG,
1085 X_SCOPE_RUL_SEQUENCE_NUM,
1086 X_ELM_RNG_ORDER_NAME
1087 );
1088 end ADD_ROW;
1089
1090 procedure DELETE_ROW (
1091 X_ROWID in VARCHAR2
1092 ) AS
1093 begin
1094 Before_DML (
1095 p_action => 'DELETE',
1096 x_rowid => X_ROWID
1097 );
1098 delete from IGS_FI_FEE_TYPE_CI_H_ALL
1099 where ROWID = X_ROWID;
1100 if (sql%notfound) then
1101 raise no_data_found;
1102 end if;
1103
1104 end DELETE_ROW;
1105
1106 end IGS_FI_FEE_TYPE_CI_H_PKG;