[Home] [Help]
PACKAGE BODY: APPS.IGF_AP_FA_BASE_REC_PKG
Source
1 PACKAGE BODY igf_ap_fa_base_rec_pkg AS
2 /* $Header: IGFAI03B.pls 120.0 2005/06/02 15:52:58 appldev noship $ */
3
4 l_rowid VARCHAR2(25);
5 old_references igf_ap_fa_base_rec_all%ROWTYPE;
6 new_references igf_ap_fa_base_rec_all%ROWTYPE;
7
8 PROCEDURE set_column_values (
9 p_action IN VARCHAR2,
10 x_rowid IN VARCHAR2 ,
11 x_base_id IN NUMBER ,
12 x_ci_cal_type IN VARCHAR2 ,
13 x_person_id IN NUMBER ,
14 x_ci_sequence_number IN NUMBER ,
15 x_org_id IN NUMBER ,
16 x_coa_pending IN VARCHAR2 ,
17 x_verification_process_run IN VARCHAR2 ,
18 x_inst_verif_status_date IN DATE ,
19 x_manual_verif_flag IN VARCHAR2 ,
20 x_fed_verif_status IN VARCHAR2 ,
21 x_fed_verif_status_date IN DATE ,
22 x_inst_verif_status IN VARCHAR2 ,
23 x_nslds_eligible IN VARCHAR2 ,
24 x_ede_correction_batch_id IN VARCHAR2 , -- Modified by rbezawad on 22-Jun-2001 w.r.t. Bug ID: 1821811
25 x_fa_process_status_date IN DATE ,
26 x_isir_corr_status IN VARCHAR2 ,
27 x_isir_corr_status_date IN DATE ,
28 x_isir_status IN VARCHAR2 ,
29 x_isir_status_date IN DATE ,
30 x_coa_code_f IN VARCHAR2 ,
31 x_coa_code_i IN VARCHAR2 ,
32 x_coa_f IN NUMBER ,
33 x_coa_i IN NUMBER ,
34 x_disbursement_hold IN VARCHAR2 ,
35 x_fa_process_status IN VARCHAR2 ,
36 x_notification_status IN VARCHAR2 ,
37 x_notification_status_date IN DATE ,
38 x_packaging_status IN VARCHAR2 ,
39 x_packaging_status_date IN DATE ,
40 x_total_package_accepted IN NUMBER ,
41 x_total_package_offered IN NUMBER ,
42 x_admstruct_id IN VARCHAR2 ,
43 x_admsegment_1 IN VARCHAR2 ,
44 x_admsegment_2 IN VARCHAR2 ,
45 x_admsegment_3 IN VARCHAR2 ,
46 x_admsegment_4 IN VARCHAR2 ,
47 x_admsegment_5 IN VARCHAR2 ,
48 x_admsegment_6 IN VARCHAR2 ,
49 x_admsegment_7 IN VARCHAR2 ,
50 x_admsegment_8 IN VARCHAR2 ,
51 x_admsegment_9 IN VARCHAR2 ,
52 x_admsegment_10 IN VARCHAR2 ,
53 x_admsegment_11 IN VARCHAR2 ,
54 x_admsegment_12 IN VARCHAR2 ,
55 x_admsegment_13 IN VARCHAR2 ,
56 x_admsegment_14 IN VARCHAR2 ,
57 x_admsegment_15 IN VARCHAR2 ,
58 x_admsegment_16 IN VARCHAR2 ,
59 x_admsegment_17 IN VARCHAR2 ,
60 x_admsegment_18 IN VARCHAR2 ,
61 x_admsegment_19 IN VARCHAR2 ,
62 x_admsegment_20 IN VARCHAR2 ,
63 x_packstruct_id IN VARCHAR2 ,
64 x_packsegment_1 IN VARCHAR2 ,
65 x_packsegment_2 IN VARCHAR2 ,
66 x_packsegment_3 IN VARCHAR2 ,
67 x_packsegment_4 IN VARCHAR2 ,
68 x_packsegment_5 IN VARCHAR2 ,
69 x_packsegment_6 IN VARCHAR2 ,
70 x_packsegment_7 IN VARCHAR2 ,
71 x_packsegment_8 IN VARCHAR2 ,
72 x_packsegment_9 IN VARCHAR2 ,
73 x_packsegment_10 IN VARCHAR2 ,
74 x_packsegment_11 IN VARCHAR2 ,
75 x_packsegment_12 IN VARCHAR2 ,
76 x_packsegment_13 IN VARCHAR2 ,
77 x_packsegment_14 IN VARCHAR2 ,
78 x_packsegment_15 IN VARCHAR2 ,
79 x_packsegment_16 IN VARCHAR2 ,
80 x_packsegment_17 IN VARCHAR2 ,
81 x_packsegment_18 IN VARCHAR2 ,
82 x_packsegment_19 IN VARCHAR2 ,
83 x_packsegment_20 IN VARCHAR2 ,
84 x_miscstruct_id IN VARCHAR2 ,
85 x_miscsegment_1 IN VARCHAR2 ,
86 x_miscsegment_2 IN VARCHAR2 ,
87 x_miscsegment_3 IN VARCHAR2 ,
88 x_miscsegment_4 IN VARCHAR2 ,
89 x_miscsegment_5 IN VARCHAR2 ,
90 x_miscsegment_6 IN VARCHAR2 ,
91 x_miscsegment_7 IN VARCHAR2 ,
92 x_miscsegment_8 IN VARCHAR2 ,
93 x_miscsegment_9 IN VARCHAR2 ,
94 x_miscsegment_10 IN VARCHAR2 ,
95 x_miscsegment_11 IN VARCHAR2 ,
96 x_miscsegment_12 IN VARCHAR2 ,
97 x_miscsegment_13 IN VARCHAR2 ,
98 x_miscsegment_14 IN VARCHAR2 ,
99 x_miscsegment_15 IN VARCHAR2 ,
100 x_miscsegment_16 IN VARCHAR2 ,
101 x_miscsegment_17 IN VARCHAR2 ,
102 x_miscsegment_18 IN VARCHAR2 ,
103 x_miscsegment_19 IN VARCHAR2 ,
104 x_miscsegment_20 IN VARCHAR2 ,
105 x_prof_judgement_flg IN VARCHAR2 ,
106 x_nslds_data_override_flg IN VARCHAR2 ,
107 x_target_group IN VARCHAR2 ,
108 x_coa_fixed IN NUMBER ,
109 x_coa_pell IN NUMBER ,
110 x_profile_status IN VARCHAR2 ,
111 x_profile_status_date IN DATE ,
112 x_profile_fc IN NUMBER ,
113 x_tolerance_amount IN NUMBER , --Modified by kkillams on 28- June-2001 w.r.t. bug 1794114
114 x_creation_date IN DATE ,
115 x_created_by IN NUMBER ,
116 x_last_update_date IN DATE ,
117 x_last_updated_by IN NUMBER ,
118 x_last_update_login IN NUMBER ,
119 x_manual_disb_hold IN VARCHAR2 ,
120 x_pell_alt_expense IN NUMBER ,
121 x_assoc_org_num IN NUMBER , --Modified by ugummall on 25-SEP-2003 w.r.t FA 126 - Multiple FA Offices
122 x_award_fmly_contribution_type IN VARCHAR2 , --Modified by rasahoo on 17-NOV-2003 w.r.t FA 128 ISIR update 20004-05
123 x_isir_locked_by IN VARCHAR2 ,
124 x_adnl_unsub_loan_elig_flag IN VARCHAR2 ,
125 x_lock_awd_flag IN VARCHAR2 ,
126 x_lock_coa_flag IN VARCHAR2
127 ) AS
128 /*
129 || Created By : skoppula
130 || Created On : 07-DEC-2000
131 || Purpose : Initialises the Old and New references for the columns of the table.
132 || Known limitations, enhancements or remarks :
133 || Change History :
134 || Who When What
135 -- removed packaging hold
136 || masehgal 25-Sep-2002 FA 014 -To Do Enhancements
137 || Added manual_disb_hold checkbox
138 || rbezawad 22-Jun-2001
139 || x_ede_correction_batch_id parameter in procedures is
140 || changed to VARCHAR2 Datatype w.r.t. Bug ID: 1821811.
141 || (reverse chronological order - newest change first)
142 */
143
144 CURSOR cur_old_ref_values IS
145 SELECT *
146 FROM igf_ap_fa_base_rec_all
147 WHERE rowid = x_rowid;
148
149 BEGIN
150
151 l_rowid := x_rowid;
152 --Code for the calculation of the Need Based on the Cost of Attendence and the Effective Family Contribution
153
154 -- Code for setting the Old and New Reference Values.
155 -- Populate Old Values.
156 OPEN cur_old_ref_values;
157 FETCH cur_old_ref_values INTO old_references;
158 IF ((cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT'))) THEN
159 CLOSE cur_old_ref_values;
160 FND_MESSAGE.SET_NAME ('FND', 'FORM_RECORD_DELETED');
161 IGS_GE_MSG_STACK.ADD;
162 app_exception.raise_exception;
163 RETURN;
164 END IF;
165 CLOSE cur_old_ref_values;
166
167 -- Populate New Values.
168 new_references.base_id := x_base_id;
169 new_references.ci_cal_type := x_ci_cal_type;
170 new_references.person_id := x_person_id;
171 new_references.ci_sequence_number := x_ci_sequence_number;
172 new_references.org_id := x_org_id;
173 new_references.coa_pending := x_coa_pending;
174 new_references.verification_process_run := x_verification_process_run;
175 new_references.inst_verif_status_date := x_inst_verif_status_date;
176 new_references.manual_verif_flag := x_manual_verif_flag;
177 new_references.fed_verif_status := x_fed_verif_status;
178 new_references.fed_verif_status_date := x_fed_verif_status_date;
179 new_references.inst_verif_status := x_inst_verif_status;
180 new_references.nslds_eligible := x_nslds_eligible;
181 new_references.ede_correction_batch_id := x_ede_correction_batch_id;
182 new_references.fa_process_status_date := x_fa_process_status_date;
183 new_references.isir_corr_status := x_isir_corr_status;
184 new_references.isir_corr_status_date := x_isir_corr_status_date;
185 new_references.isir_status := x_isir_status;
186 new_references.isir_status_date := x_isir_status_date;
187 new_references.coa_code_f := x_coa_code_f;
188 new_references.coa_code_i := x_coa_code_i;
189 new_references.coa_f := x_coa_f;
190 new_references.coa_i := x_coa_i;
191 new_references.disbursement_hold := x_disbursement_hold;
192
193 -- The following code is commented bcoz, these columns are no longer used in the OSS_FAM
194 -- these columns are getting populated thru either from OSS_interface table or from OSS tables
195 -- To avoid the lock row problems and to have data always NULL we have commented the code and passing always
196
197
198 new_references.fa_process_status := x_fa_process_status;
199 new_references.notification_status := x_notification_status;
200 new_references.notification_status_date := x_notification_status_date;
201 new_references.packaging_status := x_packaging_status;
202 new_references.packaging_status_date := x_packaging_status_date;
203 new_references.total_package_accepted := x_total_package_accepted;
204 new_references.total_package_offered := x_total_package_offered;
205 new_references.admstruct_id := x_admstruct_id;
206 new_references.admsegment_1 := x_admsegment_1;
207 new_references.admsegment_2 := x_admsegment_2;
208 new_references.admsegment_3 := x_admsegment_3;
209 new_references.admsegment_4 := x_admsegment_4;
210 new_references.admsegment_5 := x_admsegment_5;
211 new_references.admsegment_6 := x_admsegment_6;
212 new_references.admsegment_7 := x_admsegment_7;
213 new_references.admsegment_8 := x_admsegment_8;
214 new_references.admsegment_9 := x_admsegment_9;
215 new_references.admsegment_10 := x_admsegment_10;
216 new_references.admsegment_11 := x_admsegment_11;
217 new_references.admsegment_12 := x_admsegment_12;
218 new_references.admsegment_13 := x_admsegment_13;
219 new_references.admsegment_14 := x_admsegment_14;
220 new_references.admsegment_15 := x_admsegment_15;
221 new_references.admsegment_16 := x_admsegment_16;
222 new_references.admsegment_17 := x_admsegment_17;
223 new_references.admsegment_18 := x_admsegment_18;
224 new_references.admsegment_19 := x_admsegment_19;
225 new_references.admsegment_20 := x_admsegment_20;
226 new_references.packstruct_id := x_packstruct_id;
227 new_references.packsegment_1 := x_packsegment_1;
228 new_references.packsegment_2 := x_packsegment_2;
229 new_references.packsegment_3 := x_packsegment_3;
230 new_references.packsegment_4 := x_packsegment_4;
231 new_references.packsegment_5 := x_packsegment_5;
232 new_references.packsegment_6 := x_packsegment_6;
233 new_references.packsegment_7 := x_packsegment_7;
234 new_references.packsegment_8 := x_packsegment_8;
235 new_references.packsegment_9 := x_packsegment_9;
236 new_references.packsegment_10 := x_packsegment_10;
237 new_references.packsegment_11 := x_packsegment_11;
238 new_references.packsegment_12 := x_packsegment_12;
239 new_references.packsegment_13 := x_packsegment_13;
240 new_references.packsegment_14 := x_packsegment_14;
241 new_references.packsegment_15 := x_packsegment_15;
242 new_references.packsegment_16 := x_packsegment_16;
243 new_references.packsegment_17 := x_packsegment_17;
244 new_references.packsegment_18 := x_packsegment_18;
245 new_references.packsegment_19 := x_packsegment_19;
246 new_references.packsegment_20 := x_packsegment_20;
247 new_references.miscstruct_id := x_miscstruct_id;
248 new_references.miscsegment_1 := x_miscsegment_1;
249 new_references.miscsegment_2 := x_miscsegment_2;
250 new_references.miscsegment_3 := x_miscsegment_3;
251 new_references.miscsegment_4 := x_miscsegment_4;
252 new_references.miscsegment_5 := x_miscsegment_5;
253 new_references.miscsegment_6 := x_miscsegment_6;
254 new_references.miscsegment_7 := x_miscsegment_7;
255 new_references.miscsegment_8 := x_miscsegment_8;
256 new_references.miscsegment_9 := x_miscsegment_9;
257 new_references.miscsegment_10 := x_miscsegment_10;
258 new_references.miscsegment_11 := x_miscsegment_11;
259 new_references.miscsegment_12 := x_miscsegment_12;
260 new_references.miscsegment_13 := x_miscsegment_13;
261 new_references.miscsegment_14 := x_miscsegment_14;
262 new_references.miscsegment_15 := x_miscsegment_15;
263 new_references.miscsegment_16 := x_miscsegment_16;
264 new_references.miscsegment_17 := x_miscsegment_17;
265 new_references.miscsegment_18 := x_miscsegment_18;
266 new_references.miscsegment_19 := x_miscsegment_19;
267 new_references.miscsegment_20 := x_miscsegment_20;
268 new_references.prof_judgement_flg := x_prof_judgement_flg;
269 new_references.nslds_data_override_flg := x_nslds_data_override_flg;
273 new_references.profile_status := x_profile_status;
270 new_references.target_group := x_target_group;
271 new_references.coa_fixed := x_coa_fixed;
272 new_references.coa_pell := x_coa_pell;
274 new_references.profile_status_date := x_profile_status_date;
275 new_references.profile_fc := x_profile_fc;
276 new_references.tolerance_amount := x_tolerance_amount;
277 new_references.manual_disb_hold := x_manual_disb_hold;
278 new_references.pell_alt_expense := x_pell_alt_expense ;
279 new_references.assoc_org_num := x_assoc_org_num;
280 new_references.award_fmly_contribution_type := x_award_fmly_contribution_type;
281 new_references.isir_locked_by := x_isir_locked_by;
282 new_references.adnl_unsub_loan_elig_flag := x_adnl_unsub_loan_elig_flag;
283 new_references.lock_awd_flag := x_lock_awd_flag;
284 new_references.lock_coa_flag := x_lock_coa_flag;
285
286
287 IF (p_action = 'UPDATE') THEN
288 new_references.creation_date := old_references.creation_date;
289 new_references.created_by := old_references.created_by;
290 ELSE
291 new_references.creation_date := x_creation_date;
292 new_references.created_by := x_created_by;
293 END IF;
294
295 new_references.last_update_date := x_last_update_date;
296 new_references.last_updated_by := x_last_updated_by;
297 new_references.last_update_login := x_last_update_login;
298
299 END set_column_values;
300
301 PROCEDURE check_parent_existance AS
302 /*
303 || Created By : skoppula
304 || Created On : 07-DEC-2000
305 || Purpose : Checks for the existance of Parent records.
306 || Known limitations, enhancements or remarks :
307 || Change History :
308 || Who When What
309 || (reverse chronological order - newest change first)
310 */
311 BEGIN
312 IF NOT igs_ca_inst_pkg.get_pk_for_validation ( new_references.ci_cal_type,
313 new_references.ci_sequence_number ) THEN
314 FND_MESSAGE.SET_NAME ('FND', 'FORM_RECORD_DELETED');
315 IGS_GE_MSG_STACK.ADD;
316 app_exception.raise_exception;
317 END IF;
318
319 END check_parent_existance;
320
321 PROCEDURE check_uniqueness AS
322 /*
323 || Created By : skoppula
324 || Created On : 07-DEC-2000
325 || Purpose : Handles the Unique Constraint logic defined for the columns.
326 || Known limitations, enhancements or remarks :
327 || Change History :
328 || Who When What
329 || (reverse chronological order - newest change first)
330 */
331 BEGIN
332
333 IF ( get_uk_for_validation ( new_references.ci_cal_type,
334 new_references.person_id,
335 new_references.ci_sequence_number ) ) THEN
336 FND_MESSAGE.SET_NAME ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
337 IGS_GE_MSG_STACK.ADD;
338 app_exception.raise_exception;
339 END IF;
340
341 END check_uniqueness;
342
343
344 PROCEDURE check_child_existance IS
345 /*
346 || Created By : skoppula
347 || Created On : 07-DEC-2000
348 || Purpose : Checks for the existance of Child records.
349 || Known limitations, enhancements or remarks :
350 || Change History :
351 || Who When What
352 || brajendr 21-Jul-2003 Bug # 2991359 Legacy Part II
353 || Added check child for igf_gr_rfms
354 ||
355 || smadathi 03-feb-2002 Bug 2154941. Added igf_sp_stdnt_rel_pkg.get_fk_igf_ap_fa_base_rec call.
356 || (reverse chronological order - newest change first)
357 */
358 BEGIN
359
360 igf_ap_st_inst_appl_pkg.get_fk_igf_ap_fa_base_rec ( old_references.base_id );
361
362 igf_ap_td_item_inst_pkg.get_fk_igf_ap_fa_base_rec ( old_references.base_id );
363
364 igf_aw_award_pkg.get_fk_igf_ap_fa_base_rec ( old_references.base_id );
365
366 igf_ap_inst_ver_item_pkg.get_fk_igf_ap_fa_base_rec ( old_references.base_id );
367
368 igf_ap_tax_pkg.get_fk_igf_ap_fa_base_rec ( old_references.base_id );
369
370 igf_ap_pers_note_pkg.get_fk_igf_ap_fa_base_rec ( old_references.base_id );
371
372 igf_sp_stdnt_rel_pkg.get_fk_igf_ap_fa_base_rec ( old_references.base_id );
373
374 igf_gr_rfms_pkg.get_fk_igf_ap_fa_base_rec ( old_references.base_id );
375
376 igf_sl_lor_loc_pkg.get_fk_igf_ap_fa_base_rec (old_references.base_id) ;
377
378 END check_child_existance;
379
380
381 FUNCTION get_pk_for_validation ( x_base_id IN NUMBER ) RETURN BOOLEAN AS
382 /*
383 || Created By : skoppula
384 || Created On : 07-DEC-2000
385 || Purpose : Validates the Primary Key of the table.
386 || Known limitations, enhancements or remarks :
387 || Change History :
388 || Who When What
389 || (reverse chronological order - newest change first)
390 */
391 CURSOR cur_rowid IS
392 SELECT rowid
393 FROM igf_ap_fa_base_rec_all
394 WHERE base_id = x_base_id
398
395 FOR UPDATE NOWAIT;
396
397 lv_rowid cur_rowid%RowType;
399 BEGIN
400
401 OPEN cur_rowid;
402 FETCH cur_rowid INTO lv_rowid;
403 IF (cur_rowid%FOUND) THEN
404 CLOSE cur_rowid;
405 RETURN(TRUE);
406 ELSE
407 CLOSE cur_rowid;
408 RETURN(FALSE);
409 END IF;
410
411 END get_pk_for_validation;
412
413
414 FUNCTION get_uk_for_validation (
415 x_ci_cal_type IN VARCHAR2,
416 x_person_id IN NUMBER,
417 x_ci_sequence_number IN NUMBER
418 ) RETURN BOOLEAN AS
419 /*
420 || Created By : skoppula
421 || Created On : 07-DEC-2000
422 || Purpose : Validates the Unique Keys of the table.
423 || Known limitations, enhancements or remarks :
424 || Change History :
425 || Who When What
426 || (reverse chronological order - newest change first)
427 */
428 CURSOR cur_rowid IS
429 SELECT rowid
430 FROM igf_ap_fa_base_rec_all
431 WHERE ci_cal_type = x_ci_cal_type
432 AND person_id = x_person_id
433 AND ci_sequence_number = x_ci_sequence_number
434 AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
435
436 lv_rowid cur_rowid%RowType;
437
438 BEGIN
439
440 OPEN cur_rowid;
441 FETCH cur_rowid INTO lv_rowid;
442 IF (cur_rowid%FOUND) THEN
443 CLOSE cur_rowid;
444 RETURN (true);
445 ELSE
446 CLOSE cur_rowid;
447 RETURN(FALSE);
448 END IF;
449
450 END get_uk_for_validation ;
451
452 PROCEDURE get_fk_igs_ca_inst (
453 x_cal_type IN VARCHAR2,
454 x_sequence_number IN NUMBER
455 ) AS
456 /*
457 || Created By : skoppula
458 || Created On : 07-DEC-2000
459 || Purpose : Validates the Foreign Keys for the table.
460 || Known limitations, enhancements or remarks :
461 || Change History :
462 || Who When What
463 || (reverse chronological order - newest change first)
464 */
465 CURSOR cur_rowid IS
466 SELECT rowid
467 FROM igf_ap_fa_base_rec_all
468 WHERE ((ci_cal_type = x_cal_type) AND
469 (ci_sequence_number = x_sequence_number));
470
471 lv_rowid cur_rowid%RowType;
472
473 BEGIN
474
475 OPEN cur_rowid;
476 FETCH cur_rowid INTO lv_rowid;
477 IF (cur_rowid%FOUND) THEN
478 CLOSE cur_rowid;
479 FND_MESSAGE.SET_NAME ('IGF', 'IGF_AP_FA_DETAIL_CI_FK');
480 IGS_GE_MSG_STACK.ADD;
481 app_exception.raise_exception;
482 RETURN;
483 END IF;
484 CLOSE cur_rowid;
485
486 END get_fk_igs_ca_inst;
487
488
489
490 PROCEDURE before_dml (
491 p_action IN VARCHAR2,
492 x_rowid IN VARCHAR2 ,
493 x_base_id IN NUMBER ,
494 x_ci_cal_type IN VARCHAR2 ,
495 x_person_id IN NUMBER ,
496 x_ci_sequence_number IN NUMBER ,
497 x_org_id IN NUMBER ,
498 x_coa_pending IN VARCHAR2 ,
499 x_verification_process_run IN VARCHAR2 ,
500 x_inst_verif_status_date IN DATE ,
501 x_manual_verif_flag IN VARCHAR2 ,
502 x_fed_verif_status IN VARCHAR2 ,
503 x_fed_verif_status_date IN DATE ,
504 x_inst_verif_status IN VARCHAR2 ,
505 x_nslds_eligible IN VARCHAR2 ,
506 x_ede_correction_batch_id IN VARCHAR2 , -- Modified by rbezawad on 22-Jun-2001 w.r.t. Bug ID: 1821811
507 x_fa_process_status_date IN DATE ,
508 x_isir_corr_status IN VARCHAR2 ,
509 x_isir_corr_status_date IN DATE ,
510 x_isir_status IN VARCHAR2 ,
511 x_isir_status_date IN DATE ,
512 x_coa_code_f IN VARCHAR2 ,
513 x_coa_code_i IN VARCHAR2 ,
514 x_coa_f IN NUMBER ,
515 x_coa_i IN NUMBER ,
516 x_disbursement_hold IN VARCHAR2 ,
517 x_fa_process_status IN VARCHAR2 ,
518 x_notification_status IN VARCHAR2 ,
519 x_notification_status_date IN DATE ,
520 x_packaging_hold IN VARCHAR2 ,
521 x_packaging_status IN VARCHAR2 ,
522 x_packaging_status_date IN DATE ,
523 x_total_package_accepted IN NUMBER ,
524 x_total_package_offered IN NUMBER ,
525 x_admstruct_id IN VARCHAR2 ,
526 x_admsegment_1 IN VARCHAR2 ,
527 x_admsegment_2 IN VARCHAR2 ,
528 x_admsegment_3 IN VARCHAR2 ,
529 x_admsegment_4 IN VARCHAR2 ,
530 x_admsegment_5 IN VARCHAR2 ,
531 x_admsegment_6 IN VARCHAR2 ,
532 x_admsegment_7 IN VARCHAR2 ,
536 x_admsegment_11 IN VARCHAR2 ,
533 x_admsegment_8 IN VARCHAR2 ,
534 x_admsegment_9 IN VARCHAR2 ,
535 x_admsegment_10 IN VARCHAR2 ,
537 x_admsegment_12 IN VARCHAR2 ,
538 x_admsegment_13 IN VARCHAR2 ,
539 x_admsegment_14 IN VARCHAR2 ,
540 x_admsegment_15 IN VARCHAR2 ,
541 x_admsegment_16 IN VARCHAR2 ,
542 x_admsegment_17 IN VARCHAR2 ,
543 x_admsegment_18 IN VARCHAR2 ,
544 x_admsegment_19 IN VARCHAR2 ,
545 x_admsegment_20 IN VARCHAR2 ,
546 x_packstruct_id IN VARCHAR2 ,
547 x_packsegment_1 IN VARCHAR2 ,
548 x_packsegment_2 IN VARCHAR2 ,
549 x_packsegment_3 IN VARCHAR2 ,
550 x_packsegment_4 IN VARCHAR2 ,
551 x_packsegment_5 IN VARCHAR2 ,
552 x_packsegment_6 IN VARCHAR2 ,
553 x_packsegment_7 IN VARCHAR2 ,
554 x_packsegment_8 IN VARCHAR2 ,
555 x_packsegment_9 IN VARCHAR2 ,
556 x_packsegment_10 IN VARCHAR2 ,
557 x_packsegment_11 IN VARCHAR2 ,
558 x_packsegment_12 IN VARCHAR2 ,
559 x_packsegment_13 IN VARCHAR2 ,
560 x_packsegment_14 IN VARCHAR2 ,
561 x_packsegment_15 IN VARCHAR2 ,
562 x_packsegment_16 IN VARCHAR2 ,
563 x_packsegment_17 IN VARCHAR2 ,
564 x_packsegment_18 IN VARCHAR2 ,
565 x_packsegment_19 IN VARCHAR2 ,
566 x_packsegment_20 IN VARCHAR2 ,
567 x_miscstruct_id IN VARCHAR2 ,
568 x_miscsegment_1 IN VARCHAR2 ,
569 x_miscsegment_2 IN VARCHAR2 ,
570 x_miscsegment_3 IN VARCHAR2 ,
571 x_miscsegment_4 IN VARCHAR2 ,
572 x_miscsegment_5 IN VARCHAR2 ,
573 x_miscsegment_6 IN VARCHAR2 ,
574 x_miscsegment_7 IN VARCHAR2 ,
575 x_miscsegment_8 IN VARCHAR2 ,
576 x_miscsegment_9 IN VARCHAR2 ,
577 x_miscsegment_10 IN VARCHAR2 ,
578 x_miscsegment_11 IN VARCHAR2 ,
579 x_miscsegment_12 IN VARCHAR2 ,
580 x_miscsegment_13 IN VARCHAR2 ,
581 x_miscsegment_14 IN VARCHAR2 ,
582 x_miscsegment_15 IN VARCHAR2 ,
583 x_miscsegment_16 IN VARCHAR2 ,
584 x_miscsegment_17 IN VARCHAR2 ,
585 x_miscsegment_18 IN VARCHAR2 ,
586 x_miscsegment_19 IN VARCHAR2 ,
587 x_miscsegment_20 IN VARCHAR2 ,
588 x_prof_judgement_flg IN VARCHAR2 ,
589 x_nslds_data_override_flg IN VARCHAR2 ,
590 x_target_group IN VARCHAR2 ,
591 x_coa_fixed IN NUMBER ,
592 x_coa_pell IN NUMBER ,
593 x_profile_status IN VARCHAR2 ,
594 x_profile_status_date IN DATE ,
595 x_profile_fc IN NUMBER ,
596 x_tolerance_amount IN NUMBER , --Modified by kkillams on 28- June-2001 w.r.t. bug 1794114
597 x_creation_date IN DATE ,
598 x_created_by IN NUMBER ,
599 x_last_update_date IN DATE ,
600 x_last_updated_by IN NUMBER ,
601 x_last_update_login IN NUMBER ,
602 x_manual_disb_hold IN VARCHAR2 ,
603 x_pell_alt_expense IN NUMBER ,
604 x_assoc_org_num IN NUMBER , --Modified by ugummall on 25-SEP-2003 w.r.t. FA 126 - Multiple FA Offices
605 x_award_fmly_contribution_type IN VARCHAR2 , --Modified by rasahoo on 17-NOV-2003 w.r.t FA 128 ISIR update 20004-05
606 x_isir_locked_by IN VARCHAR2 ,
607 x_adnl_unsub_loan_elig_flag IN VARCHAR2 ,
608 x_lock_awd_flag IN VARCHAR2 ,
609 x_lock_coa_flag IN VARCHAR2
610
611 ) AS
612 /*
613 || Created By : skoppula
614 || Created On : 07-DEC-2000
615 || Purpose : Initialises the columns, Checks Constraints, Calls the
616 || Trigger Handlers for the table, before any DML operation.
617 || Known limitations, enhancements or remarks :
618 || Change History :
619 || Who When What
620 -- removed packaging hold
621 || masehgal 25-Sep-2002 FA 014 -To Do Enhancements
622 || Added manual_disb_hold checkbox
623 || rbezawad 22-Jun-2001
624 || x_ede_correction_batch_id parameter in procedures is
625 || changed to VARCHAR2 Datatype w.r.t. Bug ID: 1821811.
626 || (reverse chronological order - newest change first)
627 */
628 BEGIN
629
630 set_column_values (
634 x_ci_cal_type,
631 p_action,
632 x_rowid,
633 x_base_id,
635 x_person_id,
636 x_ci_sequence_number,
637 x_org_id,
638 x_coa_pending,
639 x_verification_process_run,
640 TRUNC(x_inst_verif_status_date),
641 x_manual_verif_flag,
642 x_fed_verif_status,
643 TRUNC(x_fed_verif_status_date),
644 x_inst_verif_status,
645 x_nslds_eligible,
646 x_ede_correction_batch_id,
647 TRUNC(x_fa_process_status_date),
648 x_isir_corr_status,
649 TRUNC(x_isir_corr_status_date),
650 x_isir_status,
651 TRUNC(x_isir_status_date),
652 x_coa_code_f,
653 x_coa_code_i,
654 x_coa_f,
655 x_coa_i,
656 x_disbursement_hold,
657 x_fa_process_status,
658 x_notification_status,
659 TRUNC(x_notification_status_date),
660 x_packaging_status,
661 TRUNC(x_packaging_status_date),
662 x_total_package_accepted,
663 x_total_package_offered,
664 x_admstruct_id,
665 x_admsegment_1,
666 x_admsegment_2,
667 x_admsegment_3,
668 x_admsegment_4,
669 x_admsegment_5,
670 x_admsegment_6,
671 x_admsegment_7,
672 x_admsegment_8,
673 x_admsegment_9,
674 x_admsegment_10,
675 x_admsegment_11,
676 x_admsegment_12,
677 x_admsegment_13,
678 x_admsegment_14,
679 x_admsegment_15,
680 x_admsegment_16,
681 x_admsegment_17,
682 x_admsegment_18,
683 x_admsegment_19,
684 x_admsegment_20,
685 x_packstruct_id,
686 x_packsegment_1,
687 x_packsegment_2,
688 x_packsegment_3,
689 x_packsegment_4,
690 x_packsegment_5,
691 x_packsegment_6,
692 x_packsegment_7,
693 x_packsegment_8,
694 x_packsegment_9,
695 x_packsegment_10,
696 x_packsegment_11,
697 x_packsegment_12,
698 x_packsegment_13,
699 x_packsegment_14,
700 x_packsegment_15,
701 x_packsegment_16,
702 x_packsegment_17,
703 x_packsegment_18,
704 x_packsegment_19,
705 x_packsegment_20,
706 x_miscstruct_id,
707 x_miscsegment_1,
708 x_miscsegment_2,
709 x_miscsegment_3,
710 x_miscsegment_4,
711 x_miscsegment_5,
712 x_miscsegment_6,
713 x_miscsegment_7,
714 x_miscsegment_8,
715 x_miscsegment_9,
716 x_miscsegment_10,
717 x_miscsegment_11,
718 x_miscsegment_12,
719 x_miscsegment_13,
720 x_miscsegment_14,
721 x_miscsegment_15,
722 x_miscsegment_16,
723 x_miscsegment_17,
724 x_miscsegment_18,
725 x_miscsegment_19,
726 x_miscsegment_20,
727 x_prof_judgement_flg,
728 x_nslds_data_override_flg,
729 x_target_group,
730 x_coa_fixed,
731 x_coa_pell,
732 x_profile_status,
733 x_profile_status_date,
734 x_profile_fc,
735 x_tolerance_amount,
736 x_creation_date,
737 x_created_by,
738 x_last_update_date,
739 x_last_updated_by,
740 x_last_update_login,
741 x_manual_disb_hold,
742 x_pell_alt_expense,
743 x_assoc_org_num,
744 x_award_fmly_contribution_type,
745 x_isir_locked_by,
746 x_adnl_unsub_loan_elig_flag,
747 x_lock_awd_flag,
748 x_lock_coa_flag
749
750 );
751
752 IF (p_action = 'INSERT') THEN
753 -- Call all the procedures related to Before Insert.
754 IF ( get_pk_for_validation( new_references.base_id ) ) THEN
755 FND_MESSAGE.SET_NAME('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
756 IGS_GE_MSG_STACK.ADD;
757 app_exception.raise_exception;
758 END IF;
759 check_uniqueness;
760 check_parent_existance;
761
762 ELSIF (p_action = 'UPDATE') THEN
763 -- Call all the procedures related to Before Update.
764 check_uniqueness;
765 check_parent_existance;
766 ELSIF (p_action = 'DELETE') THEN
767 -- Call all the procedures related to Before Delete.
768 check_child_existance;
769 ELSIF (p_action = 'VALIDATE_INSERT') THEN
770 -- Call all the procedures related to Before Insert.
771 IF ( get_pk_for_validation ( new_references.base_id ) ) THEN
772 FND_MESSAGE.SET_NAME('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
773 IGS_GE_MSG_STACK.ADD;
774 app_exception.raise_exception;
775 END IF;
776 check_uniqueness;
777 check_parent_existance;
778 ELSIF (p_action = 'VALIDATE_UPDATE') THEN
779 check_uniqueness;
780 check_parent_existance;
781 ELSIF (p_action = 'VALIDATE_DELETE') THEN
782 check_child_existance;
783 END IF;
784
785 END before_dml;
786
787 PROCEDURE insert_row (
788 x_rowid IN OUT NOCOPY VARCHAR2,
789 x_base_id IN OUT NOCOPY NUMBER,
790 x_ci_cal_type IN VARCHAR2,
791 x_person_id IN NUMBER,
795 x_verification_process_run IN VARCHAR2,
792 x_ci_sequence_number IN NUMBER,
793 x_org_id IN NUMBER,
794 x_coa_pending IN VARCHAR2,
796 x_inst_verif_status_date IN DATE,
797 x_manual_verif_flag IN VARCHAR2,
798 x_fed_verif_status IN VARCHAR2,
799 x_fed_verif_status_date IN DATE,
800 x_inst_verif_status IN VARCHAR2,
801 x_nslds_eligible IN VARCHAR2,
802 x_ede_correction_batch_id IN VARCHAR2, -- Modified by rbezawad on 22-Jun-2001 w.r.t. Bug ID: 1821811
803 x_fa_process_status_date IN DATE,
804 x_isir_corr_status IN VARCHAR2,
805 x_isir_corr_status_date IN DATE,
806 x_isir_status IN VARCHAR2,
807 x_isir_status_date IN DATE,
808 x_coa_code_f IN VARCHAR2,
809 x_coa_code_i IN VARCHAR2,
810 x_coa_f IN NUMBER,
811 x_coa_i IN NUMBER,
812 x_disbursement_hold IN VARCHAR2,
813 x_fa_process_status IN VARCHAR2,
814 x_notification_status IN VARCHAR2,
815 x_notification_status_date IN DATE,
816 x_packaging_hold IN VARCHAR2,
817 x_packaging_status IN VARCHAR2,
818 x_packaging_status_date IN DATE,
819 x_total_package_accepted IN NUMBER,
820 x_total_package_offered IN NUMBER,
821 x_admstruct_id IN VARCHAR2,
822 x_admsegment_1 IN VARCHAR2,
823 x_admsegment_2 IN VARCHAR2,
824 x_admsegment_3 IN VARCHAR2,
825 x_admsegment_4 IN VARCHAR2,
826 x_admsegment_5 IN VARCHAR2,
827 x_admsegment_6 IN VARCHAR2,
828 x_admsegment_7 IN VARCHAR2,
829 x_admsegment_8 IN VARCHAR2,
830 x_admsegment_9 IN VARCHAR2,
831 x_admsegment_10 IN VARCHAR2,
832 x_admsegment_11 IN VARCHAR2,
833 x_admsegment_12 IN VARCHAR2,
834 x_admsegment_13 IN VARCHAR2,
835 x_admsegment_14 IN VARCHAR2,
836 x_admsegment_15 IN VARCHAR2,
837 x_admsegment_16 IN VARCHAR2,
838 x_admsegment_17 IN VARCHAR2,
839 x_admsegment_18 IN VARCHAR2,
840 x_admsegment_19 IN VARCHAR2,
841 x_admsegment_20 IN VARCHAR2,
842 x_packstruct_id IN VARCHAR2,
843 x_packsegment_1 IN VARCHAR2,
844 x_packsegment_2 IN VARCHAR2,
845 x_packsegment_3 IN VARCHAR2,
846 x_packsegment_4 IN VARCHAR2,
847 x_packsegment_5 IN VARCHAR2,
848 x_packsegment_6 IN VARCHAR2,
849 x_packsegment_7 IN VARCHAR2,
850 x_packsegment_8 IN VARCHAR2,
851 x_packsegment_9 IN VARCHAR2,
852 x_packsegment_10 IN VARCHAR2,
853 x_packsegment_11 IN VARCHAR2,
854 x_packsegment_12 IN VARCHAR2,
855 x_packsegment_13 IN VARCHAR2,
856 x_packsegment_14 IN VARCHAR2,
857 x_packsegment_15 IN VARCHAR2,
858 x_packsegment_16 IN VARCHAR2,
859 x_packsegment_17 IN VARCHAR2,
860 x_packsegment_18 IN VARCHAR2,
861 x_packsegment_19 IN VARCHAR2,
862 x_packsegment_20 IN VARCHAR2,
863 x_miscstruct_id IN VARCHAR2,
864 x_miscsegment_1 IN VARCHAR2,
865 x_miscsegment_2 IN VARCHAR2,
866 x_miscsegment_3 IN VARCHAR2,
867 x_miscsegment_4 IN VARCHAR2,
868 x_miscsegment_5 IN VARCHAR2,
869 x_miscsegment_6 IN VARCHAR2,
870 x_miscsegment_7 IN VARCHAR2,
871 x_miscsegment_8 IN VARCHAR2,
872 x_miscsegment_9 IN VARCHAR2,
873 x_miscsegment_10 IN VARCHAR2,
874 x_miscsegment_11 IN VARCHAR2,
875 x_miscsegment_12 IN VARCHAR2,
876 x_miscsegment_13 IN VARCHAR2,
877 x_miscsegment_14 IN VARCHAR2,
878 x_miscsegment_15 IN VARCHAR2,
879 x_miscsegment_16 IN VARCHAR2,
880 x_miscsegment_17 IN VARCHAR2,
881 x_miscsegment_18 IN VARCHAR2,
882 x_miscsegment_19 IN VARCHAR2,
883 x_miscsegment_20 IN VARCHAR2,
884 x_prof_judgement_flg IN VARCHAR2,
885 x_nslds_data_override_flg IN VARCHAR2,
886 x_target_group IN VARCHAR2,
887 x_coa_fixed IN NUMBER,
891 x_profile_status_date IN DATE,
888 x_coa_pell IN NUMBER,
889 x_mode IN VARCHAR2,
890 x_profile_status IN VARCHAR2,
892 x_profile_fc IN NUMBER,
893 x_tolerance_amount IN NUMBER, --Modified by kkillams on 28- June-2001 w.r.t. bug 1794114
894 x_manual_disb_hold IN VARCHAR2,
895 x_pell_alt_expense IN NUMBER,
896 x_assoc_org_num IN NUMBER, --Modified by ugummall on 25-SEP-2003 w.r.t. FA 126 - Multiple FA Offices
897 x_award_fmly_contribution_type IN VARCHAR2, --Modified by rasahoo on 17-NOV-2003 w.r.t FA 128 ISIR update 20004-05
898 x_isir_locked_by IN VARCHAR2,
899 x_adnl_unsub_loan_elig_flag IN VARCHAR2,
900 x_lock_awd_flag IN VARCHAR2,
901 x_lock_coa_flag IN VARCHAR2
902
903 ) AS
904 /*
905 || Created By : skoppula
906 || Created On : 07-DEC-2000
907 || Purpose : Handles the INSERT DML logic for the table.
908 || Known limitations, enhancements or remarks :
909 || Change History :
910 || Who When What
911 || rasahoo 27-Aug-2003 Removed call to IGF_AP_OSS_PROCESS.PROCESS_FA_BASE_HIST
912 || as part of obsoletion of FA base record history
913 || masehgal 25-Sep-2002 FA 014 -To Do Enhancements
914 || Added manual_disb_hold checkbox
915 || vvutukur 16-feb-2002 removed l_org_id part and passed igf_aw_gen.get_org_id to before_dml instead of x_org_id bug:2222272
916 || rbezawad 22-Jun-2001
917 || x_ede_correction_batch_id parameter in procedures is
918 || changed to VARCHAR2 Datatype w.r.t. Bug ID: 1821811.
919 || (reverse chronological order - newest change first)
920 */
921 CURSOR c IS
922 SELECT rowid
923 FROM igf_ap_fa_base_rec_all
924 WHERE base_id = x_base_id;
925
926 x_last_update_date DATE;
927 x_last_updated_by NUMBER;
928 x_last_update_login NUMBER;
929 x_request_id NUMBER;
930 x_program_id NUMBER;
931 x_program_application_id NUMBER;
932 x_program_update_date DATE;
933 l_return_val_pe_hz BOOLEAN;
934
935 BEGIN
936
937 x_last_update_date := SYSDATE;
938 IF (x_mode = 'I') THEN
939 x_last_updated_by := 1;
940 x_last_update_login := 0;
941 ELSIF (x_mode = 'R') THEN
942 x_last_updated_by := FND_GLOBAL.USER_ID;
943 IF (x_last_updated_by IS NULL) THEN
944 x_last_updated_by := -1;
945 END IF;
946 x_last_update_login := FND_GLOBAL.LOGIN_ID;
947 IF (x_last_update_login IS NULL) THEN
948 x_last_update_login := -1;
949 END IF;
950 x_request_id := FND_GLOBAL.CONC_REQUEST_ID;
951 x_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
952 x_program_application_id := FND_GLOBAL.PROG_APPL_ID;
953
954 IF (x_request_id = -1) THEN
955 x_request_id := NULL;
956 x_program_id := NULL;
957 x_program_application_id := NULL;
958 x_program_update_date := NULL;
959 ELSE
960 x_program_update_date := SYSDATE;
961 END IF;
962 ELSE
963 FND_MESSAGE.SET_NAME ('FND', 'SYSTEM-INVALID ARGS');
964 IGS_GE_MSG_STACK.ADD;
965 app_exception.raise_exception;
966 END IF;
967
968
969 SELECT igf_ap_fa_base_rec_s.NEXTVAL INTO x_base_id FROM dual;
970
971 before_dml(
972 p_action => 'INSERT',
973 x_rowid => x_rowid,
974 x_base_id => x_base_id,
975 x_ci_cal_type => x_ci_cal_type,
976 x_person_id => x_person_id,
977 x_ci_sequence_number => x_ci_sequence_number,
978 x_org_id => igf_aw_gen.get_org_id,
979 x_coa_pending => x_coa_pending,
980 x_verification_process_run => x_verification_process_run,
981 x_inst_verif_status_date => x_inst_verif_status_date,
982 x_manual_verif_flag => x_manual_verif_flag,
983 x_fed_verif_status => x_fed_verif_status,
984 x_fed_verif_status_date => x_fed_verif_status_date,
985 x_inst_verif_status => x_inst_verif_status,
986 x_nslds_eligible => x_nslds_eligible,
987 x_ede_correction_batch_id => x_ede_correction_batch_id,
988 x_fa_process_status_date => x_fa_process_status_date,
989 x_isir_corr_status => x_isir_corr_status,
990 x_isir_corr_status_date => x_isir_corr_status_date,
991 x_isir_status => x_isir_status,
992 x_isir_status_date => x_isir_status_date,
993 x_coa_code_f => x_coa_code_f,
994 x_coa_code_i => x_coa_code_i,
995 x_coa_f => x_coa_f,
996 x_coa_i => x_coa_i,
997 x_disbursement_hold => x_disbursement_hold,
998 x_fa_process_status => x_fa_process_status,
999 x_notification_status => x_notification_status,
1000 x_notification_status_date => x_notification_status_date,
1004 x_total_package_offered => x_total_package_offered,
1001 x_packaging_status => x_packaging_status,
1002 x_packaging_status_date => x_packaging_status_date,
1003 x_total_package_accepted => x_total_package_accepted,
1005 x_admstruct_id => x_admstruct_id,
1006 x_admsegment_1 => x_admsegment_1,
1007 x_admsegment_2 => x_admsegment_2,
1008 x_admsegment_3 => x_admsegment_3,
1009 x_admsegment_4 => x_admsegment_4,
1010 x_admsegment_5 => x_admsegment_5,
1011 x_admsegment_6 => x_admsegment_6,
1012 x_admsegment_7 => x_admsegment_7,
1013 x_admsegment_8 => x_admsegment_8,
1014 x_admsegment_9 => x_admsegment_9,
1015 x_admsegment_10 => x_admsegment_10,
1016 x_admsegment_11 => x_admsegment_11,
1017 x_admsegment_12 => x_admsegment_12,
1018 x_admsegment_13 => x_admsegment_13,
1019 x_admsegment_14 => x_admsegment_14,
1020 x_admsegment_15 => x_admsegment_15,
1021 x_admsegment_16 => x_admsegment_16,
1022 x_admsegment_17 => x_admsegment_17,
1023 x_admsegment_18 => x_admsegment_18,
1024 x_admsegment_19 => x_admsegment_19,
1025 x_admsegment_20 => x_admsegment_20,
1026 x_packstruct_id => x_packstruct_id,
1027 x_packsegment_1 => x_packsegment_1,
1028 x_packsegment_2 => x_packsegment_2,
1029 x_packsegment_3 => x_packsegment_3,
1030 x_packsegment_4 => x_packsegment_4,
1031 x_packsegment_5 => x_packsegment_5,
1032 x_packsegment_6 => x_packsegment_6,
1033 x_packsegment_7 => x_packsegment_7,
1034 x_packsegment_8 => x_packsegment_8,
1035 x_packsegment_9 => x_packsegment_9,
1036 x_packsegment_10 => x_packsegment_10,
1037 x_packsegment_11 => x_packsegment_11,
1038 x_packsegment_12 => x_packsegment_12,
1039 x_packsegment_13 => x_packsegment_13,
1040 x_packsegment_14 => x_packsegment_14,
1041 x_packsegment_15 => x_packsegment_15,
1042 x_packsegment_16 => x_packsegment_16,
1043 x_packsegment_17 => x_packsegment_17,
1044 x_packsegment_18 => x_packsegment_18,
1045 x_packsegment_19 => x_packsegment_19,
1046 x_packsegment_20 => x_packsegment_20,
1047 x_miscstruct_id => x_miscstruct_id,
1048 x_miscsegment_1 => x_miscsegment_1,
1049 x_miscsegment_2 => x_miscsegment_2,
1050 x_miscsegment_3 => x_miscsegment_3,
1051 x_miscsegment_4 => x_miscsegment_4,
1052 x_miscsegment_5 => x_miscsegment_5,
1053 x_miscsegment_6 => x_miscsegment_6,
1054 x_miscsegment_7 => x_miscsegment_7,
1055 x_miscsegment_8 => x_miscsegment_8,
1056 x_miscsegment_9 => x_miscsegment_9,
1057 x_miscsegment_10 => x_miscsegment_10,
1058 x_miscsegment_11 => x_miscsegment_11,
1059 x_miscsegment_12 => x_miscsegment_12,
1060 x_miscsegment_13 => x_miscsegment_13,
1061 x_miscsegment_14 => x_miscsegment_14,
1062 x_miscsegment_15 => x_miscsegment_15,
1063 x_miscsegment_16 => x_miscsegment_16,
1064 x_miscsegment_17 => x_miscsegment_17,
1065 x_miscsegment_18 => x_miscsegment_18,
1066 x_miscsegment_19 => x_miscsegment_19,
1067 x_miscsegment_20 => x_miscsegment_20,
1068 x_prof_judgement_flg => x_prof_judgement_flg,
1069 x_nslds_data_override_flg => x_nslds_data_override_flg,
1070 x_target_group => x_target_group,
1071 x_coa_fixed => x_coa_fixed,
1072 x_coa_pell => x_coa_pell,
1073 x_profile_status => x_profile_status,
1074 x_profile_status_date => x_profile_status_date,
1075 x_profile_fc => x_profile_fc,
1076 x_tolerance_amount => x_tolerance_amount,
1077 x_creation_date => x_last_update_date,
1078 x_created_by => x_last_updated_by,
1079 x_last_update_date => x_last_update_date,
1080 x_last_updated_by => x_last_updated_by,
1081 x_last_update_login => x_last_update_login,
1082 x_manual_disb_hold => x_manual_disb_hold,
1083 x_pell_alt_expense => x_pell_alt_expense,
1084 x_assoc_org_num => x_assoc_org_num,
1085 x_award_fmly_contribution_type => x_award_fmly_contribution_type,
1086 x_isir_locked_by => x_isir_locked_by,
1087 x_adnl_unsub_loan_elig_flag => x_adnl_unsub_loan_elig_flag,
1088 x_lock_awd_flag => x_lock_awd_flag,
1089 x_lock_coa_flag => x_lock_coa_flag
1090
1091 );
1092
1096
1093 -- Bug 3700586 : Person data missing in OSS if peson is created thru HRMS
1094 -- Added the call to check whether HZ information is present in the IGS_PE_HZ_PARTIES table, if not it will add
1095 l_return_val_pe_hz := igs_pe_person_pkg.get_pk_for_validation(new_references.person_id);
1097 INSERT INTO igf_ap_fa_base_rec_all (
1098 base_id,
1099 ci_cal_type,
1100 person_id,
1101 ci_sequence_number,
1102 org_id,
1103 coa_pending,
1104 verification_process_run,
1105 inst_verif_status_date,
1106 manual_verif_flag,
1107 fed_verif_status,
1108 fed_verif_status_date,
1109 inst_verif_status,
1110 nslds_eligible,
1111 ede_correction_batch_id,
1112 fa_process_status_date,
1113 isir_corr_status,
1114 isir_corr_status_date,
1115 isir_status,
1116 isir_status_date,
1117 coa_code_f,
1118 coa_code_i,
1119 coa_f,
1120 coa_i,
1121 disbursement_hold,
1122 fa_process_status,
1123 notification_status,
1124 notification_status_date,
1125 packaging_status,
1126 packaging_status_date,
1127 total_package_accepted,
1128 total_package_offered,
1129 admstruct_id,
1130 admsegment_1,
1131 admsegment_2,
1132 admsegment_3,
1133 admsegment_4,
1134 admsegment_5,
1135 admsegment_6,
1136 admsegment_7,
1137 admsegment_8,
1138 admsegment_9,
1139 admsegment_10,
1140 admsegment_11,
1141 admsegment_12,
1142 admsegment_13,
1143 admsegment_14,
1144 admsegment_15,
1145 admsegment_16,
1146 admsegment_17,
1147 admsegment_18,
1148 admsegment_19,
1149 admsegment_20,
1150 packstruct_id,
1151 packsegment_1,
1152 packsegment_2,
1153 packsegment_3,
1154 packsegment_4,
1155 packsegment_5,
1156 packsegment_6,
1157 packsegment_7,
1158 packsegment_8,
1159 packsegment_9,
1160 packsegment_10,
1161 packsegment_11,
1162 packsegment_12,
1163 packsegment_13,
1164 packsegment_14,
1165 packsegment_15,
1166 packsegment_16,
1167 packsegment_17,
1168 packsegment_18,
1169 packsegment_19,
1170 packsegment_20,
1171 miscstruct_id,
1172 miscsegment_1,
1173 miscsegment_2,
1174 miscsegment_3,
1175 miscsegment_4,
1176 miscsegment_5,
1177 miscsegment_6,
1178 miscsegment_7,
1179 miscsegment_8,
1180 miscsegment_9,
1181 miscsegment_10,
1182 miscsegment_11,
1183 miscsegment_12,
1184 miscsegment_13,
1185 miscsegment_14,
1186 miscsegment_15,
1187 miscsegment_16,
1188 miscsegment_17,
1189 miscsegment_18,
1190 miscsegment_19,
1191 miscsegment_20,
1192 prof_judgement_flg,
1193 nslds_data_override_flg,
1194 target_group,
1195 coa_fixed,
1196 coa_pell,
1197 profile_status,
1198 profile_status_date,
1199 profile_fc,
1200 tolerance_amount,
1201 creation_date,
1202 created_by,
1203 last_update_date,
1204 last_updated_by,
1205 last_update_login,
1206 request_id,
1207 program_id,
1208 program_application_id,
1209 program_update_date,
1210 manual_disb_hold,
1211 pell_alt_expense,
1212 assoc_org_num,
1213 award_fmly_contribution_type,
1214 isir_locked_by,
1215 adnl_unsub_loan_elig_flag,
1216 lock_awd_flag,
1217 lock_coa_flag
1218 ) VALUES (
1219 new_references.base_id,
1220 new_references.ci_cal_type,
1221 new_references.person_id,
1222 new_references.ci_sequence_number,
1223 new_references.org_id,
1224 new_references.coa_pending,
1225 new_references.verification_process_run,
1226 new_references.inst_verif_status_date,
1227 new_references.manual_verif_flag,
1228 new_references.fed_verif_status,
1229 new_references.fed_verif_status_date,
1230 new_references.inst_verif_status,
1231 new_references.nslds_eligible,
1232 new_references.ede_correction_batch_id,
1233 new_references.fa_process_status_date,
1234 new_references.isir_corr_status,
1235 new_references.isir_corr_status_date,
1236 new_references.isir_status,
1237 new_references.isir_status_date,
1238 new_references.coa_code_f,
1239 new_references.coa_code_i,
1240 new_references.coa_f,
1241 new_references.coa_i,
1242 new_references.disbursement_hold,
1243 new_references.fa_process_status,
1244 new_references.notification_status,
1245 new_references.notification_status_date,
1246 new_references.packaging_status,
1247 new_references.packaging_status_date,
1248 new_references.total_package_accepted,
1249 new_references.total_package_offered,
1250 new_references.admstruct_id,
1254 new_references.admsegment_4,
1251 new_references.admsegment_1,
1252 new_references.admsegment_2,
1253 new_references.admsegment_3,
1255 new_references.admsegment_5,
1256 new_references.admsegment_6,
1257 new_references.admsegment_7,
1258 new_references.admsegment_8,
1259 new_references.admsegment_9,
1260 new_references.admsegment_10,
1261 new_references.admsegment_11,
1262 new_references.admsegment_12,
1263 new_references.admsegment_13,
1264 new_references.admsegment_14,
1265 new_references.admsegment_15,
1266 new_references.admsegment_16,
1267 new_references.admsegment_17,
1268 new_references.admsegment_18,
1269 new_references.admsegment_19,
1270 new_references.admsegment_20,
1271 new_references.packstruct_id,
1272 new_references.packsegment_1,
1273 new_references.packsegment_2,
1274 new_references.packsegment_3,
1275 new_references.packsegment_4,
1276 new_references.packsegment_5,
1277 new_references.packsegment_6,
1278 new_references.packsegment_7,
1279 new_references.packsegment_8,
1280 new_references.packsegment_9,
1281 new_references.packsegment_10,
1282 new_references.packsegment_11,
1283 new_references.packsegment_12,
1284 new_references.packsegment_13,
1285 new_references.packsegment_14,
1286 new_references.packsegment_15,
1287 new_references.packsegment_16,
1288 new_references.packsegment_17,
1289 new_references.packsegment_18,
1290 new_references.packsegment_19,
1291 new_references.packsegment_20,
1292 new_references.miscstruct_id,
1293 new_references.miscsegment_1,
1294 new_references.miscsegment_2,
1295 new_references.miscsegment_3,
1296 new_references.miscsegment_4,
1297 new_references.miscsegment_5,
1298 new_references.miscsegment_6,
1299 new_references.miscsegment_7,
1300 new_references.miscsegment_8,
1301 new_references.miscsegment_9,
1302 new_references.miscsegment_10,
1303 new_references.miscsegment_11,
1304 new_references.miscsegment_12,
1305 new_references.miscsegment_13,
1306 new_references.miscsegment_14,
1307 new_references.miscsegment_15,
1308 new_references.miscsegment_16,
1309 new_references.miscsegment_17,
1310 new_references.miscsegment_18,
1311 new_references.miscsegment_19,
1312 new_references.miscsegment_20,
1313 new_references.prof_judgement_flg,
1314 new_references.nslds_data_override_flg,
1315 new_references.target_group,
1316 new_references.coa_fixed,
1317 new_references.coa_pell,
1318 new_references.profile_status,
1319 new_references.profile_status_date,
1320 new_references.profile_fc,
1321 new_references.tolerance_amount,
1322 x_last_update_date,
1323 x_last_updated_by,
1324 x_last_update_date,
1325 x_last_updated_by,
1326 x_last_update_login ,
1327 x_request_id,
1328 x_program_id,
1329 x_program_application_id,
1330 x_program_update_date,
1331 new_references.manual_disb_hold,
1332 new_references.pell_alt_expense,
1333 new_references.assoc_org_num,
1334 new_references.award_fmly_contribution_type,
1335 new_references.isir_locked_by,
1336 new_references.adnl_unsub_loan_elig_flag,
1337 new_references.lock_awd_flag,
1338 new_references.lock_coa_flag
1339
1340 );
1341
1342 OPEN c;
1343 FETCH c INTO x_rowid;
1344 IF (c%NOTFOUND) THEN
1345 CLOSE c;
1346 RAISE NO_DATA_FOUND;
1347 END IF;
1348 CLOSE c;
1349
1350 END insert_row;
1351
1352 PROCEDURE lock_row (
1353 x_rowid IN VARCHAR2,
1354 x_base_id IN NUMBER,
1355 x_ci_cal_type IN VARCHAR2,
1356 x_person_id IN NUMBER,
1357 x_ci_sequence_number IN NUMBER,
1358 x_org_id IN NUMBER,
1359 x_coa_pending IN VARCHAR2,
1360 x_verification_process_run IN VARCHAR2,
1361 x_inst_verif_status_date IN DATE,
1362 x_manual_verif_flag IN VARCHAR2,
1363 x_fed_verif_status IN VARCHAR2,
1364 x_fed_verif_status_date IN DATE,
1365 x_inst_verif_status IN VARCHAR2,
1366 x_nslds_eligible IN VARCHAR2,
1367 x_ede_correction_batch_id IN VARCHAR2, -- Modified by rbezawad on 22-Jun-2001 w.r.t. Bug ID: 1821811
1368 x_fa_process_status_date IN DATE,
1369 x_isir_corr_status IN VARCHAR2,
1370 x_isir_corr_status_date IN DATE,
1371 x_isir_status IN VARCHAR2,
1372 x_isir_status_date IN DATE,
1373 x_coa_code_f IN VARCHAR2,
1374 x_coa_code_i IN VARCHAR2,
1375 x_coa_f IN NUMBER,
1376 x_coa_i IN NUMBER,
1377 x_disbursement_hold IN VARCHAR2,
1378 x_fa_process_status IN VARCHAR2,
1379 x_notification_status IN VARCHAR2,
1380 x_notification_status_date IN DATE,
1384 x_total_package_accepted IN NUMBER,
1381 x_packaging_hold IN VARCHAR2,
1382 x_packaging_status IN VARCHAR2,
1383 x_packaging_status_date IN DATE,
1385 x_total_package_offered IN NUMBER,
1386 x_admstruct_id IN VARCHAR2,
1387 x_admsegment_1 IN VARCHAR2,
1388 x_admsegment_2 IN VARCHAR2,
1389 x_admsegment_3 IN VARCHAR2,
1390 x_admsegment_4 IN VARCHAR2,
1391 x_admsegment_5 IN VARCHAR2,
1392 x_admsegment_6 IN VARCHAR2,
1393 x_admsegment_7 IN VARCHAR2,
1394 x_admsegment_8 IN VARCHAR2,
1395 x_admsegment_9 IN VARCHAR2,
1396 x_admsegment_10 IN VARCHAR2,
1397 x_admsegment_11 IN VARCHAR2,
1398 x_admsegment_12 IN VARCHAR2,
1399 x_admsegment_13 IN VARCHAR2,
1400 x_admsegment_14 IN VARCHAR2,
1401 x_admsegment_15 IN VARCHAR2,
1402 x_admsegment_16 IN VARCHAR2,
1403 x_admsegment_17 IN VARCHAR2,
1404 x_admsegment_18 IN VARCHAR2,
1405 x_admsegment_19 IN VARCHAR2,
1406 x_admsegment_20 IN VARCHAR2,
1407 x_packstruct_id IN VARCHAR2,
1408 x_packsegment_1 IN VARCHAR2,
1409 x_packsegment_2 IN VARCHAR2,
1410 x_packsegment_3 IN VARCHAR2,
1411 x_packsegment_4 IN VARCHAR2,
1412 x_packsegment_5 IN VARCHAR2,
1413 x_packsegment_6 IN VARCHAR2,
1414 x_packsegment_7 IN VARCHAR2,
1415 x_packsegment_8 IN VARCHAR2,
1416 x_packsegment_9 IN VARCHAR2,
1417 x_packsegment_10 IN VARCHAR2,
1418 x_packsegment_11 IN VARCHAR2,
1419 x_packsegment_12 IN VARCHAR2,
1420 x_packsegment_13 IN VARCHAR2,
1421 x_packsegment_14 IN VARCHAR2,
1422 x_packsegment_15 IN VARCHAR2,
1423 x_packsegment_16 IN VARCHAR2,
1424 x_packsegment_17 IN VARCHAR2,
1425 x_packsegment_18 IN VARCHAR2,
1426 x_packsegment_19 IN VARCHAR2,
1427 x_packsegment_20 IN VARCHAR2,
1428 x_miscstruct_id IN VARCHAR2,
1429 x_miscsegment_1 IN VARCHAR2,
1430 x_miscsegment_2 IN VARCHAR2,
1431 x_miscsegment_3 IN VARCHAR2,
1432 x_miscsegment_4 IN VARCHAR2,
1433 x_miscsegment_5 IN VARCHAR2,
1434 x_miscsegment_6 IN VARCHAR2,
1435 x_miscsegment_7 IN VARCHAR2,
1436 x_miscsegment_8 IN VARCHAR2,
1437 x_miscsegment_9 IN VARCHAR2,
1438 x_miscsegment_10 IN VARCHAR2,
1439 x_miscsegment_11 IN VARCHAR2,
1440 x_miscsegment_12 IN VARCHAR2,
1441 x_miscsegment_13 IN VARCHAR2,
1442 x_miscsegment_14 IN VARCHAR2,
1443 x_miscsegment_15 IN VARCHAR2,
1444 x_miscsegment_16 IN VARCHAR2,
1445 x_miscsegment_17 IN VARCHAR2,
1446 x_miscsegment_18 IN VARCHAR2,
1447 x_miscsegment_19 IN VARCHAR2,
1448 x_miscsegment_20 IN VARCHAR2,
1449 x_prof_judgement_flg IN VARCHAR2,
1450 x_nslds_data_override_flg IN VARCHAR2,
1451 x_target_group IN VARCHAR2,
1452 x_coa_fixed IN NUMBER,
1453 x_coa_pell IN NUMBER,
1454 x_profile_status IN VARCHAR2,
1455 x_profile_status_date IN DATE,
1456 x_profile_fc IN NUMBER,
1457 x_tolerance_amount IN NUMBER, --Modified by kkillams on 28- June-2001 w.r.t. bug 1794114
1458 x_manual_disb_hold IN VARCHAR2,
1459 x_pell_alt_expense IN NUMBER,
1460 x_assoc_org_num IN NUMBER, --Modified by ugummall on 25-SEP-2003 w.r.t FA 126 - Multiple FA Offices
1461 x_award_fmly_contribution_type IN VARCHAR2, --Modified by rasahoo on 17-NOV-2003 w.r.t FA 128 ISIR update 20004-05
1462 x_isir_locked_by IN VARCHAR2,
1463 x_adnl_unsub_loan_elig_flag IN VARCHAR2,
1464 x_lock_awd_flag IN VARCHAR2,
1465 x_lock_coa_flag IN VARCHAR2
1466 ) AS
1467 /*
1468 || Created By : skoppula
1469 || Created On : 07-DEC-2000
1470 || Purpose : Handles the LOCK mechanism for the table.
1471 || Known limitations, enhancements or remarks :
1472 || Change History :
1473 || Who When What
1474 || masehgal 25-Sep-2002 FA 014 -To Do Enhancements
1478 || changed to VARCHAR2 Datatype w.r.t. Bug ID: 1821811.
1475 || Added manual_disb_hold checkbox
1476 || rbezawad 22-Jun-2001
1477 || x_ede_correction_batch_id parameter in procedures is
1479 || (reverse chronological order - newest change first)
1480 */
1481 CURSOR c1 IS
1482 SELECT
1483 ci_cal_type,
1484 person_id,
1485 ci_sequence_number,
1486 org_id,
1487 coa_pending,
1488 verification_process_run,
1489 inst_verif_status_date,
1490 manual_verif_flag,
1491 fed_verif_status,
1492 fed_verif_status_date,
1493 inst_verif_status,
1494 nslds_eligible,
1495 ede_correction_batch_id,
1496 fa_process_status_date,
1497 isir_corr_status,
1498 isir_corr_status_date,
1499 isir_status,
1500 isir_status_date,
1501 coa_code_f,
1502 coa_code_i,
1503 coa_f,
1504 coa_i,
1505 disbursement_hold,
1506 fa_process_status,
1507 notification_status,
1508 notification_status_date,
1509 packaging_status,
1510 packaging_status_date,
1511 total_package_accepted,
1512 total_package_offered,
1513 admstruct_id,
1514 admsegment_1,
1515 admsegment_2,
1516 admsegment_3,
1517 admsegment_4,
1518 admsegment_5,
1519 admsegment_6,
1520 admsegment_7,
1521 admsegment_8,
1522 admsegment_9,
1523 admsegment_10,
1524 admsegment_11,
1525 admsegment_12,
1526 admsegment_13,
1527 admsegment_14,
1528 admsegment_15,
1529 admsegment_16,
1530 admsegment_17,
1531 admsegment_18,
1532 admsegment_19,
1533 admsegment_20,
1534 packstruct_id,
1535 packsegment_1,
1536 packsegment_2,
1537 packsegment_3,
1538 packsegment_4,
1539 packsegment_5,
1540 packsegment_6,
1541 packsegment_7,
1542 packsegment_8,
1543 packsegment_9,
1544 packsegment_10,
1545 packsegment_11,
1546 packsegment_12,
1547 packsegment_13,
1548 packsegment_14,
1549 packsegment_15,
1550 packsegment_16,
1551 packsegment_17,
1552 packsegment_18,
1553 packsegment_19,
1554 packsegment_20,
1555 miscstruct_id,
1556 miscsegment_1,
1557 miscsegment_2,
1558 miscsegment_3,
1559 miscsegment_4,
1560 miscsegment_5,
1561 miscsegment_6,
1562 miscsegment_7,
1563 miscsegment_8,
1564 miscsegment_9,
1565 miscsegment_10,
1566 miscsegment_11,
1567 miscsegment_12,
1568 miscsegment_13,
1569 miscsegment_14,
1570 miscsegment_15,
1571 miscsegment_16,
1572 miscsegment_17,
1573 miscsegment_18,
1574 miscsegment_19,
1575 miscsegment_20,
1576 prof_judgement_flg,
1577 nslds_data_override_flg,
1578 target_group,
1579 coa_fixed,
1580 coa_pell,
1581 profile_status,
1582 profile_status_date,
1583 profile_fc,
1584 tolerance_amount,
1585 manual_disb_hold,
1586 pell_alt_expense,
1587 assoc_org_num,
1588 award_fmly_contribution_type,
1589 isir_locked_by,
1590 adnl_unsub_loan_elig_flag,
1591 lock_awd_flag,
1592 lock_coa_flag
1593 FROM igf_ap_fa_base_rec_all
1594 WHERE rowid = x_rowid
1595 FOR UPDATE NOWAIT;
1596
1597 tlinfo c1%ROWTYPE;
1598
1599 BEGIN
1600
1601 OPEN c1;
1602 FETCH c1 INTO tlinfo;
1603 IF (c1%notfound) THEN
1604 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
1605 IGS_GE_MSG_STACK.ADD;
1606 CLOSE c1;
1607 app_exception.raise_exception;
1608 RETURN;
1609 END IF;
1610 CLOSE c1;
1611
1612 IF (
1613 (tlinfo.ci_cal_type = x_ci_cal_type)
1614 AND (tlinfo.person_id = x_person_id)
1615 AND (tlinfo.ci_sequence_number = x_ci_sequence_number)
1616 AND ((tlinfo.coa_pending = x_coa_pending) OR ((tlinfo.coa_pending IS NULL) AND (X_coa_pending IS NULL)))
1617 AND ((tlinfo.verification_process_run = x_verification_process_run) OR ((tlinfo.verification_process_run IS NULL) AND (X_verification_process_run IS NULL)))
1618 AND ((tlinfo.inst_verif_status_date = x_inst_verif_status_date) OR ((tlinfo.inst_verif_status_date IS NULL) AND (X_inst_verif_status_date IS NULL)))
1619 AND ((tlinfo.manual_verif_flag = x_manual_verif_flag) OR ((tlinfo.manual_verif_flag IS NULL) AND (X_manual_verif_flag IS NULL)))
1620 AND ((tlinfo.fed_verif_status = x_fed_verif_status) OR ((tlinfo.fed_verif_status IS NULL) AND (X_fed_verif_status IS NULL)))
1621 AND ((tlinfo.fed_verif_status_date = x_fed_verif_status_date) OR ((tlinfo.fed_verif_status_date IS NULL) AND (X_fed_verif_status_date IS NULL)))
1625 AND ((tlinfo.fa_process_status_date = x_fa_process_status_date) OR ((tlinfo.fa_process_status_date IS NULL) AND (X_fa_process_status_date IS NULL)))
1622 AND ((tlinfo.inst_verif_status = x_inst_verif_status) OR ((tlinfo.inst_verif_status IS NULL) AND (X_inst_verif_status IS NULL)))
1623 AND ((tlinfo.nslds_eligible = x_nslds_eligible) OR ((tlinfo.nslds_eligible IS NULL) AND (X_nslds_eligible IS NULL)))
1624 AND ((tlinfo.ede_correction_batch_id = x_ede_correction_batch_id) OR ((tlinfo.ede_correction_batch_id IS NULL) AND (X_ede_correction_batch_id IS NULL)))
1626 AND ((tlinfo.isir_corr_status = x_isir_corr_status) OR ((tlinfo.isir_corr_status IS NULL) AND (X_isir_corr_status IS NULL)))
1627 AND ((tlinfo.isir_corr_status_date = x_isir_corr_status_date) OR ((tlinfo.isir_corr_status_date IS NULL) AND (X_isir_corr_status_date IS NULL)))
1628 AND ((tlinfo.isir_status = x_isir_status) OR ((tlinfo.isir_status IS NULL) AND (X_isir_status IS NULL)))
1629 AND ((tlinfo.isir_status_date = x_isir_status_date) OR ((tlinfo.isir_status_date IS NULL) AND (X_isir_status_date IS NULL)))
1630 AND ((tlinfo.coa_code_f = x_coa_code_f) OR ((tlinfo.coa_code_f IS NULL) AND (X_coa_code_f IS NULL)))
1631 AND ((tlinfo.coa_code_i = x_coa_code_i) OR ((tlinfo.coa_code_i IS NULL) AND (X_coa_code_i IS NULL)))
1632 AND ((tlinfo.coa_f = x_coa_f) OR ((tlinfo.coa_f IS NULL) AND (X_coa_f IS NULL)))
1633 AND ((tlinfo.coa_i = x_coa_i) OR ((tlinfo.coa_i IS NULL) AND (X_coa_i IS NULL)))
1634 AND ((tlinfo.disbursement_hold = x_disbursement_hold) OR ((tlinfo.disbursement_hold IS NULL) AND (X_disbursement_hold IS NULL)))
1635
1636 -- Commented by brajendr 15-May-2001, Columns are getting populated thru OSS tables
1637
1638 AND ((tlinfo.fa_process_status = x_fa_process_status) OR ((tlinfo.fa_process_status IS NULL) AND (X_fa_process_status IS NULL)))
1639
1640 -- Commented by brajendr 15-May-2001, Columns are getting populated thru OSS tables
1641
1642 AND ((tlinfo.notification_status = x_notification_status) OR ((tlinfo.notification_status IS NULL) AND (X_notification_status IS NULL)))
1643 AND ((tlinfo.notification_status_date = x_notification_status_date) OR ((tlinfo.notification_status_date IS NULL) AND (X_notification_status_date IS NULL)))
1644 AND ((tlinfo.packaging_status = x_packaging_status) OR ((tlinfo.packaging_status IS NULL) AND (X_packaging_status IS NULL)))
1645 AND ((tlinfo.packaging_status_date = x_packaging_status_date) OR ((tlinfo.packaging_status_date IS NULL) AND (X_packaging_status_date IS NULL)))
1646 AND ((tlinfo.total_package_accepted = x_total_package_accepted) OR ((tlinfo.total_package_accepted IS NULL) AND (X_total_package_accepted IS NULL)))
1647 AND ((tlinfo.total_package_offered = x_total_package_offered) OR ((tlinfo.total_package_offered IS NULL) AND (X_total_package_offered IS NULL)))
1648 AND ((tlinfo.admstruct_id = x_admstruct_id) OR ((tlinfo.admstruct_id IS NULL) AND (X_admstruct_id IS NULL)))
1649 AND ((tlinfo.admsegment_1 = x_admsegment_1) OR ((tlinfo.admsegment_1 IS NULL) AND (X_admsegment_1 IS NULL)))
1650 AND ((tlinfo.admsegment_2 = x_admsegment_2) OR ((tlinfo.admsegment_2 IS NULL) AND (X_admsegment_2 IS NULL)))
1651 AND ((tlinfo.admsegment_3 = x_admsegment_3) OR ((tlinfo.admsegment_3 IS NULL) AND (X_admsegment_3 IS NULL)))
1652 AND ((tlinfo.admsegment_4 = x_admsegment_4) OR ((tlinfo.admsegment_4 IS NULL) AND (X_admsegment_4 IS NULL)))
1653 AND ((tlinfo.admsegment_5 = x_admsegment_5) OR ((tlinfo.admsegment_5 IS NULL) AND (X_admsegment_5 IS NULL)))
1654 AND ((tlinfo.admsegment_6 = x_admsegment_6) OR ((tlinfo.admsegment_6 IS NULL) AND (X_admsegment_6 IS NULL)))
1655 AND ((tlinfo.admsegment_7 = x_admsegment_7) OR ((tlinfo.admsegment_7 IS NULL) AND (X_admsegment_7 IS NULL)))
1656 AND ((tlinfo.admsegment_8 = x_admsegment_8) OR ((tlinfo.admsegment_8 IS NULL) AND (X_admsegment_8 IS NULL)))
1657 AND ((tlinfo.admsegment_9 = x_admsegment_9) OR ((tlinfo.admsegment_9 IS NULL) AND (X_admsegment_9 IS NULL)))
1658 AND ((tlinfo.admsegment_10 = x_admsegment_10) OR ((tlinfo.admsegment_10 IS NULL) AND (X_admsegment_10 IS NULL)))
1659 AND ((tlinfo.admsegment_11 = x_admsegment_11) OR ((tlinfo.admsegment_11 IS NULL) AND (X_admsegment_11 IS NULL)))
1660 AND ((tlinfo.admsegment_12 = x_admsegment_12) OR ((tlinfo.admsegment_12 IS NULL) AND (X_admsegment_12 IS NULL)))
1661 AND ((tlinfo.admsegment_13 = x_admsegment_13) OR ((tlinfo.admsegment_13 IS NULL) AND (X_admsegment_13 IS NULL)))
1662 AND ((tlinfo.admsegment_14 = x_admsegment_14) OR ((tlinfo.admsegment_14 IS NULL) AND (X_admsegment_14 IS NULL)))
1663 AND ((tlinfo.admsegment_15 = x_admsegment_15) OR ((tlinfo.admsegment_15 IS NULL) AND (X_admsegment_15 IS NULL)))
1664 AND ((tlinfo.admsegment_16 = x_admsegment_16) OR ((tlinfo.admsegment_16 IS NULL) AND (X_admsegment_16 IS NULL)))
1665 AND ((tlinfo.admsegment_17 = x_admsegment_17) OR ((tlinfo.admsegment_17 IS NULL) AND (X_admsegment_17 IS NULL)))
1666 AND ((tlinfo.admsegment_18 = x_admsegment_18) OR ((tlinfo.admsegment_18 IS NULL) AND (X_admsegment_18 IS NULL)))
1667 AND ((tlinfo.admsegment_19 = x_admsegment_19) OR ((tlinfo.admsegment_19 IS NULL) AND (X_admsegment_19 IS NULL)))
1668 AND ((tlinfo.admsegment_20 = x_admsegment_20) OR ((tlinfo.admsegment_20 IS NULL) AND (X_admsegment_20 IS NULL)))
1669 AND ((tlinfo.packstruct_id = x_packstruct_id) OR ((tlinfo.packstruct_id IS NULL) AND (X_packstruct_id IS NULL)))
1670 AND ((tlinfo.packsegment_1 = x_packsegment_1) OR ((tlinfo.packsegment_1 IS NULL) AND (X_packsegment_1 IS NULL)))
1671 AND ((tlinfo.packsegment_2 = x_packsegment_2) OR ((tlinfo.packsegment_2 IS NULL) AND (X_packsegment_2 IS NULL)))
1672 AND ((tlinfo.packsegment_3 = x_packsegment_3) OR ((tlinfo.packsegment_3 IS NULL) AND (X_packsegment_3 IS NULL)))
1673 AND ((tlinfo.packsegment_4 = x_packsegment_4) OR ((tlinfo.packsegment_4 IS NULL) AND (X_packsegment_4 IS NULL)))
1674 AND ((tlinfo.packsegment_5 = x_packsegment_5) OR ((tlinfo.packsegment_5 IS NULL) AND (X_packsegment_5 IS NULL)))
1678 AND ((tlinfo.packsegment_9 = x_packsegment_9) OR ((tlinfo.packsegment_9 IS NULL) AND (X_packsegment_9 IS NULL)))
1675 AND ((tlinfo.packsegment_6 = x_packsegment_6) OR ((tlinfo.packsegment_6 IS NULL) AND (X_packsegment_6 IS NULL)))
1676 AND ((tlinfo.packsegment_7 = x_packsegment_7) OR ((tlinfo.packsegment_7 IS NULL) AND (X_packsegment_7 IS NULL)))
1677 AND ((tlinfo.packsegment_8 = x_packsegment_8) OR ((tlinfo.packsegment_8 IS NULL) AND (X_packsegment_8 IS NULL)))
1679 AND ((tlinfo.packsegment_10 = x_packsegment_10) OR ((tlinfo.packsegment_10 IS NULL) AND (X_packsegment_10 IS NULL)))
1680 AND ((tlinfo.packsegment_11 = x_packsegment_11) OR ((tlinfo.packsegment_11 IS NULL) AND (X_packsegment_11 IS NULL)))
1681 AND ((tlinfo.packsegment_12 = x_packsegment_12) OR ((tlinfo.packsegment_12 IS NULL) AND (X_packsegment_12 IS NULL)))
1682 AND ((tlinfo.packsegment_13 = x_packsegment_13) OR ((tlinfo.packsegment_13 IS NULL) AND (X_packsegment_13 IS NULL)))
1683 AND ((tlinfo.packsegment_14 = x_packsegment_14) OR ((tlinfo.packsegment_14 IS NULL) AND (X_packsegment_14 IS NULL)))
1684 AND ((tlinfo.packsegment_15 = x_packsegment_15) OR ((tlinfo.packsegment_15 IS NULL) AND (X_packsegment_15 IS NULL)))
1685 AND ((tlinfo.packsegment_16 = x_packsegment_16) OR ((tlinfo.packsegment_16 IS NULL) AND (X_packsegment_16 IS NULL)))
1686 AND ((tlinfo.packsegment_17 = x_packsegment_17) OR ((tlinfo.packsegment_17 IS NULL) AND (X_packsegment_17 IS NULL)))
1687 AND ((tlinfo.packsegment_18 = x_packsegment_18) OR ((tlinfo.packsegment_18 IS NULL) AND (X_packsegment_18 IS NULL)))
1688 AND ((tlinfo.packsegment_19 = x_packsegment_19) OR ((tlinfo.packsegment_19 IS NULL) AND (X_packsegment_19 IS NULL)))
1689 AND ((tlinfo.packsegment_20 = x_packsegment_20) OR ((tlinfo.packsegment_20 IS NULL) AND (X_packsegment_20 IS NULL)))
1690 AND ((tlinfo.miscstruct_id = x_miscstruct_id) OR ((tlinfo.miscstruct_id IS NULL) AND (X_miscstruct_id IS NULL)))
1691 AND ((tlinfo.miscsegment_1 = x_miscsegment_1) OR ((tlinfo.miscsegment_1 IS NULL) AND (X_miscsegment_1 IS NULL)))
1692 AND ((tlinfo.miscsegment_2 = x_miscsegment_2) OR ((tlinfo.miscsegment_2 IS NULL) AND (X_miscsegment_2 IS NULL)))
1693 AND ((tlinfo.miscsegment_3 = x_miscsegment_3) OR ((tlinfo.miscsegment_3 IS NULL) AND (X_miscsegment_3 IS NULL)))
1694 AND ((tlinfo.miscsegment_4 = x_miscsegment_4) OR ((tlinfo.miscsegment_4 IS NULL) AND (X_miscsegment_4 IS NULL)))
1695 AND ((tlinfo.miscsegment_5 = x_miscsegment_5) OR ((tlinfo.miscsegment_5 IS NULL) AND (X_miscsegment_5 IS NULL)))
1696 AND ((tlinfo.miscsegment_6 = x_miscsegment_6) OR ((tlinfo.miscsegment_6 IS NULL) AND (X_miscsegment_6 IS NULL)))
1697 AND ((tlinfo.miscsegment_7 = x_miscsegment_7) OR ((tlinfo.miscsegment_7 IS NULL) AND (X_miscsegment_7 IS NULL)))
1698 AND ((tlinfo.miscsegment_8 = x_miscsegment_8) OR ((tlinfo.miscsegment_8 IS NULL) AND (X_miscsegment_8 IS NULL)))
1699 AND ((tlinfo.miscsegment_9 = x_miscsegment_9) OR ((tlinfo.miscsegment_9 IS NULL) AND (X_miscsegment_9 IS NULL)))
1700 AND ((tlinfo.miscsegment_10 = x_miscsegment_10) OR ((tlinfo.miscsegment_10 IS NULL) AND (X_miscsegment_10 IS NULL)))
1701 AND ((tlinfo.miscsegment_11 = x_miscsegment_11) OR ((tlinfo.miscsegment_11 IS NULL) AND (X_miscsegment_11 IS NULL)))
1702 AND ((tlinfo.miscsegment_12 = x_miscsegment_12) OR ((tlinfo.miscsegment_12 IS NULL) AND (X_miscsegment_12 IS NULL)))
1703 AND ((tlinfo.miscsegment_13 = x_miscsegment_13) OR ((tlinfo.miscsegment_13 IS NULL) AND (X_miscsegment_13 IS NULL)))
1704 AND ((tlinfo.miscsegment_14 = x_miscsegment_14) OR ((tlinfo.miscsegment_14 IS NULL) AND (X_miscsegment_14 IS NULL)))
1705 AND ((tlinfo.miscsegment_15 = x_miscsegment_15) OR ((tlinfo.miscsegment_15 IS NULL) AND (X_miscsegment_15 IS NULL)))
1706 AND ((tlinfo.miscsegment_16 = x_miscsegment_16) OR ((tlinfo.miscsegment_16 IS NULL) AND (X_miscsegment_16 IS NULL)))
1707 AND ((tlinfo.miscsegment_17 = x_miscsegment_17) OR ((tlinfo.miscsegment_17 IS NULL) AND (X_miscsegment_17 IS NULL)))
1708 AND ((tlinfo.miscsegment_18 = x_miscsegment_18) OR ((tlinfo.miscsegment_18 IS NULL) AND (X_miscsegment_18 IS NULL)))
1709 AND ((tlinfo.miscsegment_19 = x_miscsegment_19) OR ((tlinfo.miscsegment_19 IS NULL) AND (X_miscsegment_19 IS NULL)))
1710 AND ((tlinfo.miscsegment_20 = x_miscsegment_20) OR ((tlinfo.miscsegment_20 IS NULL) AND (X_miscsegment_20 IS NULL)))
1711 AND ((tlinfo.prof_judgement_flg = x_prof_judgement_flg) OR ((tlinfo.prof_judgement_flg IS NULL) AND (X_prof_judgement_flg IS NULL)))
1712 AND ((tlinfo.nslds_data_override_flg = x_nslds_data_override_flg) OR ((tlinfo.nslds_data_override_flg IS NULL) AND (X_nslds_data_override_flg IS NULL)))
1713 AND ((tlinfo.target_group = x_target_group) OR ((tlinfo.target_group IS NULL) AND (X_target_group IS NULL)))
1714
1715 AND ((tlinfo.coa_fixed = x_coa_fixed) OR ((tlinfo.coa_fixed IS NULL) AND (X_coa_fixed IS NULL)))
1716 AND ((tlinfo.coa_pell = x_coa_pell) OR ((tlinfo.coa_pell IS NULL) AND (X_coa_pell IS NULL)))
1717 AND ((tlinfo.profile_status = x_profile_status) OR ((tlinfo.profile_status IS NULL) AND (x_profile_status IS NULL)))
1718 AND ((tlinfo.profile_status_date = x_profile_status_date) OR ((tlinfo.profile_status_date IS NULL) AND (x_profile_status_date IS NULL)))
1719 AND ((tlinfo.profile_fc = x_profile_fc) OR ((tlinfo.profile_fc IS NULL) AND (x_profile_fc IS NULL)))
1720
1721 AND ((tlinfo.tolerance_amount = x_tolerance_amount) OR ((tlinfo.tolerance_amount IS NULL) AND (x_tolerance_amount IS NULL)))
1722 AND ((tlinfo.manual_disb_hold = x_manual_disb_hold) OR ((tlinfo.manual_disb_hold IS NULL) AND (x_manual_disb_hold IS NULL)))
1723 AND ((tlinfo.pell_alt_expense = x_pell_alt_expense) OR ((tlinfo.pell_alt_expense IS NULL) AND (x_pell_alt_expense IS NULL)))
1724 AND ((tlinfo.assoc_org_num = x_assoc_org_num) OR ((tlinfo.assoc_org_num IS NULL) AND (x_assoc_org_num IS NULL))) --Modified by ugummall on 25-SEP-2003 w.r.t FA 126 - Multiple FA Offices
1728 AND ((tlinfo.adnl_unsub_loan_elig_flag = x_adnl_unsub_loan_elig_flag) OR ((tlinfo.adnl_unsub_loan_elig_flag IS NULL) AND (x_adnl_unsub_loan_elig_flag IS NULL)))
1725 AND ((tlinfo.award_fmly_contribution_type = x_award_fmly_contribution_type) OR ((tlinfo.award_fmly_contribution_type IS NULL) AND (x_award_fmly_contribution_type IS NULL)))
1726
1727 AND ((tlinfo.isir_locked_by = x_isir_locked_by) OR ((tlinfo.isir_locked_by IS NULL) AND (x_isir_locked_by IS NULL)))
1729 AND ((tlinfo.lock_awd_flag = x_lock_awd_flag) OR ((tlinfo.lock_awd_flag IS NULL) AND (x_lock_awd_flag IS NULL)))
1730 AND ((tlinfo.lock_coa_flag = x_lock_coa_flag) OR ((tlinfo.lock_coa_flag IS NULL) AND (x_lock_coa_flag IS NULL)))
1731
1732 ) THEN
1733 NULL;
1734 ELSE
1735 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
1736 IGS_GE_MSG_STACK.ADD;
1737 app_exception.raise_exception;
1738 END IF;
1739
1740 RETURN;
1741
1742 END lock_row;
1743
1744
1745 PROCEDURE update_row (
1746 x_rowid IN VARCHAR2,
1747 x_base_id IN NUMBER,
1748 x_ci_cal_type IN VARCHAR2,
1749 x_person_id IN NUMBER,
1750 x_ci_sequence_number IN NUMBER,
1751 x_org_id IN NUMBER,
1752 x_coa_pending IN VARCHAR2,
1753 x_verification_process_run IN VARCHAR2,
1754 x_inst_verif_status_date IN DATE,
1755 x_manual_verif_flag IN VARCHAR2,
1756 x_fed_verif_status IN VARCHAR2,
1757 x_fed_verif_status_date IN DATE,
1758 x_inst_verif_status IN VARCHAR2,
1759 x_nslds_eligible IN VARCHAR2,
1760 x_ede_correction_batch_id IN VARCHAR2, -- Modified by rbezawad on 22-Jun-2001 w.r.t. Bug ID: 1821811
1761 x_fa_process_status_date IN DATE,
1762 x_isir_corr_status IN VARCHAR2,
1763 x_isir_corr_status_date IN DATE,
1764 x_isir_status IN VARCHAR2,
1765 x_isir_status_date IN DATE,
1766 x_coa_code_f IN VARCHAR2,
1767 x_coa_code_i IN VARCHAR2,
1768 x_coa_f IN NUMBER,
1769 x_coa_i IN NUMBER,
1770 x_disbursement_hold IN VARCHAR2,
1771 x_fa_process_status IN VARCHAR2,
1772 x_notification_status IN VARCHAR2,
1773 x_notification_status_date IN DATE,
1774 x_packaging_hold IN VARCHAR2,
1775 x_packaging_status IN VARCHAR2,
1776 x_packaging_status_date IN DATE,
1777 x_total_package_accepted IN NUMBER,
1778 x_total_package_offered IN NUMBER,
1779 x_admstruct_id IN VARCHAR2,
1780 x_admsegment_1 IN VARCHAR2,
1781 x_admsegment_2 IN VARCHAR2,
1782 x_admsegment_3 IN VARCHAR2,
1783 x_admsegment_4 IN VARCHAR2,
1784 x_admsegment_5 IN VARCHAR2,
1785 x_admsegment_6 IN VARCHAR2,
1786 x_admsegment_7 IN VARCHAR2,
1787 x_admsegment_8 IN VARCHAR2,
1788 x_admsegment_9 IN VARCHAR2,
1789 x_admsegment_10 IN VARCHAR2,
1790 x_admsegment_11 IN VARCHAR2,
1791 x_admsegment_12 IN VARCHAR2,
1792 x_admsegment_13 IN VARCHAR2,
1793 x_admsegment_14 IN VARCHAR2,
1794 x_admsegment_15 IN VARCHAR2,
1795 x_admsegment_16 IN VARCHAR2,
1796 x_admsegment_17 IN VARCHAR2,
1797 x_admsegment_18 IN VARCHAR2,
1798 x_admsegment_19 IN VARCHAR2,
1799 x_admsegment_20 IN VARCHAR2,
1800 x_packstruct_id IN VARCHAR2,
1801 x_packsegment_1 IN VARCHAR2,
1802 x_packsegment_2 IN VARCHAR2,
1803 x_packsegment_3 IN VARCHAR2,
1804 x_packsegment_4 IN VARCHAR2,
1805 x_packsegment_5 IN VARCHAR2,
1806 x_packsegment_6 IN VARCHAR2,
1807 x_packsegment_7 IN VARCHAR2,
1808 x_packsegment_8 IN VARCHAR2,
1809 x_packsegment_9 IN VARCHAR2,
1810 x_packsegment_10 IN VARCHAR2,
1811 x_packsegment_11 IN VARCHAR2,
1812 x_packsegment_12 IN VARCHAR2,
1813 x_packsegment_13 IN VARCHAR2,
1814 x_packsegment_14 IN VARCHAR2,
1815 x_packsegment_15 IN VARCHAR2,
1816 x_packsegment_16 IN VARCHAR2,
1817 x_packsegment_17 IN VARCHAR2,
1818 x_packsegment_18 IN VARCHAR2,
1819 x_packsegment_19 IN VARCHAR2,
1820 x_packsegment_20 IN VARCHAR2,
1821 x_miscstruct_id IN VARCHAR2,
1822 x_miscsegment_1 IN VARCHAR2,
1823 x_miscsegment_2 IN VARCHAR2,
1827 x_miscsegment_6 IN VARCHAR2,
1824 x_miscsegment_3 IN VARCHAR2,
1825 x_miscsegment_4 IN VARCHAR2,
1826 x_miscsegment_5 IN VARCHAR2,
1828 x_miscsegment_7 IN VARCHAR2,
1829 x_miscsegment_8 IN VARCHAR2,
1830 x_miscsegment_9 IN VARCHAR2,
1831 x_miscsegment_10 IN VARCHAR2,
1832 x_miscsegment_11 IN VARCHAR2,
1833 x_miscsegment_12 IN VARCHAR2,
1834 x_miscsegment_13 IN VARCHAR2,
1835 x_miscsegment_14 IN VARCHAR2,
1836 x_miscsegment_15 IN VARCHAR2,
1837 x_miscsegment_16 IN VARCHAR2,
1838 x_miscsegment_17 IN VARCHAR2,
1839 x_miscsegment_18 IN VARCHAR2,
1840 x_miscsegment_19 IN VARCHAR2,
1841 x_miscsegment_20 IN VARCHAR2,
1842 x_prof_judgement_flg IN VARCHAR2,
1843 x_nslds_data_override_flg IN VARCHAR2,
1844 x_target_group IN VARCHAR2,
1845 x_coa_fixed IN NUMBER,
1846 x_coa_pell IN NUMBER,
1847 x_mode IN VARCHAR2,
1848 x_profile_status IN VARCHAR2,
1849 x_profile_status_date IN DATE,
1850 x_profile_fc IN NUMBER,
1851 x_tolerance_amount IN NUMBER, --Modified by kkillams on 28- June-2001 w.r.t. bug 1794114
1852 x_manual_disb_hold IN VARCHAR2,
1853 x_pell_alt_expense IN NUMBER,
1854 x_assoc_org_num IN NUMBER, --Modified by ugummall on 25-SEP-2003 w.r.t. FA 126 - Multiple FA Offices
1855 x_award_fmly_contribution_type IN VARCHAR2, --Modified by rasahoo on 17-NOV-2003 w.r.t FA 128 ISIR update 20004-05
1856 x_isir_locked_by IN VARCHAR2,
1857 x_adnl_unsub_loan_elig_flag IN VARCHAR2,
1858 x_lock_awd_flag IN VARCHAR2,
1859 x_lock_coa_flag IN VARCHAR2
1860
1861 ) AS
1862 /*
1863 || Created By : skoppula
1864 || Created On : 07-DEC-2000
1865 || Purpose : Handles the UPDATE DML logic for the table.
1866 || Known limitations, enhancements or remarks :
1867 || Change History :
1868 || Who When What
1869 || masehgal 25-Sep-2002 FA 014 -To Do Enhancements
1870 || Added manual_disb_hold checkbox
1871 || vvutukur 16-feb-2002 passed igf_aw_gen.get_org_id to before_dml call instead of x_org_id bug:2222272.
1872 || rbezawad 22-Jun-2001 x_ede_correction_batch_id parameter in procedures is
1873 || changed to VARCHAR2 Datatype w.r.t. Bug ID: 1821811.
1874 || (reverse chronological order - newest change first)
1875 */
1876 x_last_update_date DATE ;
1877 x_last_updated_by NUMBER;
1878 x_last_update_login NUMBER;
1879 x_request_id NUMBER;
1880 x_program_id NUMBER;
1881 x_program_application_id NUMBER;
1882 x_program_update_date DATE;
1883
1884
1885 BEGIN
1886
1887 x_last_update_date := SYSDATE;
1888 IF (X_MODE = 'I') THEN
1889 x_last_updated_by := 1;
1890 x_last_update_login := 0;
1891 ELSIF (x_mode = 'R') THEN
1892 x_last_updated_by := fnd_global.user_id;
1893 IF x_last_updated_by IS NULL THEN
1894 x_last_updated_by := -1;
1895 END IF;
1896 x_last_update_login := fnd_global.login_id;
1897 IF (x_last_update_login IS NULL) THEN
1898 x_last_update_login := -1;
1899 END IF;
1900 ELSE
1901 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1902 IGS_GE_MSG_STACK.ADD;
1903 app_exception.raise_exception;
1904 END IF;
1905
1906 before_dml(
1907 p_action => 'UPDATE',
1908 x_rowid => x_rowid,
1909 x_base_id => x_base_id,
1910 x_ci_cal_type => x_ci_cal_type,
1911 x_person_id => x_person_id,
1912 x_ci_sequence_number => x_ci_sequence_number,
1913 x_org_id => igf_aw_gen.get_org_id,
1914 x_coa_pending => x_coa_pending,
1915 x_verification_process_run => x_verification_process_run,
1916 x_inst_verif_status_date => x_inst_verif_status_date,
1917 x_manual_verif_flag => x_manual_verif_flag,
1918 x_fed_verif_status => x_fed_verif_status,
1919 x_fed_verif_status_date => x_fed_verif_status_date,
1920 x_inst_verif_status => x_inst_verif_status,
1921 x_nslds_eligible => x_nslds_eligible,
1922 x_ede_correction_batch_id => x_ede_correction_batch_id,
1923 x_fa_process_status_date => x_fa_process_status_date,
1924 x_isir_corr_status => x_isir_corr_status,
1928 x_coa_code_f => x_coa_code_f,
1925 x_isir_corr_status_date => x_isir_corr_status_date,
1926 x_isir_status => x_isir_status,
1927 x_isir_status_date => x_isir_status_date,
1929 x_coa_code_i => x_coa_code_i,
1930 x_coa_f => x_coa_f,
1931 x_coa_i => x_coa_i,
1932 x_disbursement_hold => x_disbursement_hold,
1933 x_fa_process_status => x_fa_process_status,
1934 x_notification_status => x_notification_status,
1935 x_notification_status_date => x_notification_status_date,
1936 x_packaging_status => x_packaging_status,
1937 x_packaging_status_date => x_packaging_status_date,
1938 x_total_package_accepted => x_total_package_accepted,
1939 x_total_package_offered => x_total_package_offered,
1940 x_admstruct_id => x_admstruct_id,
1941 x_admsegment_1 => x_admsegment_1,
1942 x_admsegment_2 => x_admsegment_2,
1943 x_admsegment_3 => x_admsegment_3,
1944 x_admsegment_4 => x_admsegment_4,
1945 x_admsegment_5 => x_admsegment_5,
1946 x_admsegment_6 => x_admsegment_6,
1947 x_admsegment_7 => x_admsegment_7,
1948 x_admsegment_8 => x_admsegment_8,
1949 x_admsegment_9 => x_admsegment_9,
1950 x_admsegment_10 => x_admsegment_10,
1951 x_admsegment_11 => x_admsegment_11,
1952 x_admsegment_12 => x_admsegment_12,
1953 x_admsegment_13 => x_admsegment_13,
1954 x_admsegment_14 => x_admsegment_14,
1955 x_admsegment_15 => x_admsegment_15,
1956 x_admsegment_16 => x_admsegment_16,
1957 x_admsegment_17 => x_admsegment_17,
1958 x_admsegment_18 => x_admsegment_18,
1959 x_admsegment_19 => x_admsegment_19,
1960 x_admsegment_20 => x_admsegment_20,
1961 x_packstruct_id => x_packstruct_id,
1962 x_packsegment_1 => x_packsegment_1,
1963 x_packsegment_2 => x_packsegment_2,
1964 x_packsegment_3 => x_packsegment_3,
1965 x_packsegment_4 => x_packsegment_4,
1966 x_packsegment_5 => x_packsegment_5,
1967 x_packsegment_6 => x_packsegment_6,
1968 x_packsegment_7 => x_packsegment_7,
1969 x_packsegment_8 => x_packsegment_8,
1970 x_packsegment_9 => x_packsegment_9,
1971 x_packsegment_10 => x_packsegment_10,
1972 x_packsegment_11 => x_packsegment_11,
1973 x_packsegment_12 => x_packsegment_12,
1974 x_packsegment_13 => x_packsegment_13,
1975 x_packsegment_14 => x_packsegment_14,
1976 x_packsegment_15 => x_packsegment_15,
1977 x_packsegment_16 => x_packsegment_16,
1978 x_packsegment_17 => x_packsegment_17,
1979 x_packsegment_18 => x_packsegment_18,
1980 x_packsegment_19 => x_packsegment_19,
1981 x_packsegment_20 => x_packsegment_20,
1982 x_miscstruct_id => x_miscstruct_id,
1983 x_miscsegment_1 => x_miscsegment_1,
1984 x_miscsegment_2 => x_miscsegment_2,
1985 x_miscsegment_3 => x_miscsegment_3,
1986 x_miscsegment_4 => x_miscsegment_4,
1987 x_miscsegment_5 => x_miscsegment_5,
1988 x_miscsegment_6 => x_miscsegment_6,
1989 x_miscsegment_7 => x_miscsegment_7,
1990 x_miscsegment_8 => x_miscsegment_8,
1991 x_miscsegment_9 => x_miscsegment_9,
1992 x_miscsegment_10 => x_miscsegment_10,
1993 x_miscsegment_11 => x_miscsegment_11,
1994 x_miscsegment_12 => x_miscsegment_12,
1995 x_miscsegment_13 => x_miscsegment_13,
1996 x_miscsegment_14 => x_miscsegment_14,
1997 x_miscsegment_15 => x_miscsegment_15,
1998 x_miscsegment_16 => x_miscsegment_16,
1999 x_miscsegment_17 => x_miscsegment_17,
2000 x_miscsegment_18 => x_miscsegment_18,
2001 x_miscsegment_19 => x_miscsegment_19,
2002 x_miscsegment_20 => x_miscsegment_20,
2003 x_prof_judgement_flg => x_prof_judgement_flg,
2004 x_nslds_data_override_flg => x_nslds_data_override_flg,
2005 x_target_group => x_target_group,
2006 x_coa_fixed => x_coa_fixed,
2007 x_coa_pell => x_coa_pell,
2008 x_profile_status => x_profile_status,
2009 x_profile_status_date => x_profile_status_date,
2010 x_profile_fc => x_profile_fc,
2011 x_tolerance_amount => x_tolerance_amount,
2012 x_creation_date => x_last_update_date,
2013 x_created_by => x_last_updated_by,
2017 x_manual_disb_hold => x_manual_disb_hold,
2014 x_last_update_date => x_last_update_date,
2015 x_last_updated_by => x_last_updated_by,
2016 x_last_update_login => x_last_update_login,
2018 x_pell_alt_expense => x_pell_alt_expense,
2019 x_assoc_org_num => x_assoc_org_num, --Modified by ugummall on 25-SEP-2003 w.r.t FA 126 - Multiple FA Offices
2020 x_award_fmly_contribution_type => x_award_fmly_contribution_type,
2021 x_isir_locked_by => x_isir_locked_by,
2022 x_adnl_unsub_loan_elig_flag => x_adnl_unsub_loan_elig_flag,
2023 x_lock_awd_flag => x_lock_awd_flag,
2024 x_lock_coa_flag => x_lock_coa_flag
2025
2026 );
2027
2028 IF (x_mode = 'R') THEN
2029 x_request_id := fnd_global.conc_request_id;
2030 x_program_id := fnd_global.conc_program_id;
2031 x_program_application_id := fnd_global.prog_appl_id;
2032 IF (x_request_id = -1) THEN
2033 x_request_id := old_references.request_id;
2034 x_program_id := old_references.program_id;
2035 x_program_application_id := old_references.program_application_id;
2036 x_program_update_date := old_references.program_update_date;
2037 ELSE
2038 x_program_update_date := SYSDATE;
2039 END IF;
2040 END IF;
2041
2042 UPDATE igf_ap_fa_base_rec_all
2043 SET
2044 ci_cal_type = new_references.ci_cal_type,
2045 person_id = new_references.person_id,
2046 ci_sequence_number = new_references.ci_sequence_number,
2047 coa_pending = new_references.coa_pending,
2048 verification_process_run = new_references.verification_process_run,
2049 inst_verif_status_date = new_references.inst_verif_status_date,
2050 manual_verif_flag = new_references.manual_verif_flag,
2051 fed_verif_status = new_references.fed_verif_status,
2052 fed_verif_status_date = new_references.fed_verif_status_date,
2053 inst_verif_status = new_references.inst_verif_status,
2054 nslds_eligible = new_references.nslds_eligible,
2055 ede_correction_batch_id = new_references.ede_correction_batch_id,
2056 fa_process_status_date = new_references.fa_process_status_date,
2057 isir_corr_status = new_references.isir_corr_status,
2058 isir_corr_status_date = new_references.isir_corr_status_date,
2059 isir_status = new_references.isir_status,
2060 isir_status_date = new_references.isir_status_date,
2061 coa_code_f = new_references.coa_code_f,
2062 coa_code_i = new_references.coa_code_i,
2063 coa_f = new_references.coa_f,
2064 coa_i = new_references.coa_i,
2065 disbursement_hold = new_references.disbursement_hold,
2066 fa_process_status = new_references.fa_process_status,
2067 notification_status = new_references.notification_status,
2068 notification_status_date = new_references.notification_status_date,
2069 packaging_status = new_references.packaging_status,
2070 packaging_status_date = new_references.packaging_status_date,
2071 total_package_accepted = new_references.total_package_accepted,
2072 total_package_offered = new_references.total_package_offered,
2073 admstruct_id = new_references.admstruct_id,
2074 admsegment_1 = new_references.admsegment_1,
2075 admsegment_2 = new_references.admsegment_2,
2076 admsegment_3 = new_references.admsegment_3,
2077 admsegment_4 = new_references.admsegment_4,
2078 admsegment_5 = new_references.admsegment_5,
2079 admsegment_6 = new_references.admsegment_6,
2080 admsegment_7 = new_references.admsegment_7,
2081 admsegment_8 = new_references.admsegment_8,
2082 admsegment_9 = new_references.admsegment_9,
2083 admsegment_10 = new_references.admsegment_10,
2084 admsegment_11 = new_references.admsegment_11,
2085 admsegment_12 = new_references.admsegment_12,
2086 admsegment_13 = new_references.admsegment_13,
2087 admsegment_14 = new_references.admsegment_14,
2088 admsegment_15 = new_references.admsegment_15,
2089 admsegment_16 = new_references.admsegment_16,
2090 admsegment_17 = new_references.admsegment_17,
2091 admsegment_18 = new_references.admsegment_18,
2092 admsegment_19 = new_references.admsegment_19,
2093 admsegment_20 = new_references.admsegment_20,
2094 packstruct_id = new_references.packstruct_id,
2095 packsegment_1 = new_references.packsegment_1,
2096 packsegment_2 = new_references.packsegment_2,
2100 packsegment_6 = new_references.packsegment_6,
2097 packsegment_3 = new_references.packsegment_3,
2098 packsegment_4 = new_references.packsegment_4,
2099 packsegment_5 = new_references.packsegment_5,
2101 packsegment_7 = new_references.packsegment_7,
2102 packsegment_8 = new_references.packsegment_8,
2103 packsegment_9 = new_references.packsegment_9,
2104 packsegment_10 = new_references.packsegment_10,
2105 packsegment_11 = new_references.packsegment_11,
2106 packsegment_12 = new_references.packsegment_12,
2107 packsegment_13 = new_references.packsegment_13,
2108 packsegment_14 = new_references.packsegment_14,
2109 packsegment_15 = new_references.packsegment_15,
2110 packsegment_16 = new_references.packsegment_16,
2111 packsegment_17 = new_references.packsegment_17,
2112 packsegment_18 = new_references.packsegment_18,
2113 packsegment_19 = new_references.packsegment_19,
2114 packsegment_20 = new_references.packsegment_20,
2115 miscstruct_id = new_references.miscstruct_id,
2116 miscsegment_1 = new_references.miscsegment_1,
2117 miscsegment_2 = new_references.miscsegment_2,
2118 miscsegment_3 = new_references.miscsegment_3,
2119 miscsegment_4 = new_references.miscsegment_4,
2120 miscsegment_5 = new_references.miscsegment_5,
2121 miscsegment_6 = new_references.miscsegment_6,
2122 miscsegment_7 = new_references.miscsegment_7,
2123 miscsegment_8 = new_references.miscsegment_8,
2124 miscsegment_9 = new_references.miscsegment_9,
2125 miscsegment_10 = new_references.miscsegment_10,
2126 miscsegment_11 = new_references.miscsegment_11,
2127 miscsegment_12 = new_references.miscsegment_12,
2128 miscsegment_13 = new_references.miscsegment_13,
2129 miscsegment_14 = new_references.miscsegment_14,
2130 miscsegment_15 = new_references.miscsegment_15,
2131 miscsegment_16 = new_references.miscsegment_16,
2132 miscsegment_17 = new_references.miscsegment_17,
2133 miscsegment_18 = new_references.miscsegment_18,
2134 miscsegment_19 = new_references.miscsegment_19,
2135 miscsegment_20 = new_references.miscsegment_20,
2136 prof_judgement_flg = new_references.prof_judgement_flg,
2137 nslds_data_override_flg = new_references.nslds_data_override_flg,
2138 target_group = new_references.target_group,
2139 coa_fixed = new_references.coa_fixed,
2140 coa_pell = new_references.coa_pell,
2141 profile_status = new_references.profile_status,
2142 profile_status_date = new_references.profile_status_date,
2143 profile_fc = new_references.profile_fc,
2144 tolerance_amount = new_references.tolerance_amount,
2145 last_update_date = x_last_update_date,
2146 last_updated_by = x_last_updated_by,
2147 last_update_login = x_last_update_login ,
2148 request_id = x_request_id,
2149 program_id = x_program_id,
2150 program_application_id = x_program_application_id,
2151 program_update_date = x_program_update_date,
2152 manual_disb_hold = new_references.manual_disb_hold,
2153 pell_alt_expense = new_references.pell_alt_expense,
2154 assoc_org_num = new_references.assoc_org_num, --Modified by ugummall on 25-SEP-2003 w.r.t FA 126 - Multiple FA Offices
2155 award_fmly_contribution_type = new_references.award_fmly_contribution_type,
2156 isir_locked_by = new_references.isir_locked_by,
2157 adnl_unsub_loan_elig_flag = new_references.adnl_unsub_loan_elig_flag,
2158 lock_awd_flag = new_references.lock_awd_flag,
2159 lock_coa_flag = new_references.lock_coa_flag
2160
2161 WHERE rowid = x_rowid;
2162
2163 IF (SQL%NOTFOUND) THEN
2164 RAISE NO_DATA_FOUND;
2165 END IF;
2166
2167 END update_row;
2168
2169
2170 PROCEDURE add_row (
2171 x_rowid IN OUT NOCOPY VARCHAR2,
2172 x_base_id IN OUT NOCOPY NUMBER,
2173 x_ci_cal_type IN VARCHAR2,
2174 x_person_id IN NUMBER,
2175 x_ci_sequence_number IN NUMBER,
2176 x_org_id IN NUMBER,
2177 x_coa_pending IN VARCHAR2,
2178 x_verification_process_run IN VARCHAR2,
2179 x_inst_verif_status_date IN DATE,
2180 x_manual_verif_flag IN VARCHAR2,
2181 x_fed_verif_status IN VARCHAR2,
2185 x_ede_correction_batch_id IN VARCHAR2, -- Modified by rbezawad on 22-Jun-2001 w.r.t. Bug ID: 1821811
2182 x_fed_verif_status_date IN DATE,
2183 x_inst_verif_status IN VARCHAR2,
2184 x_nslds_eligible IN VARCHAR2,
2186 x_fa_process_status_date IN DATE,
2187 x_isir_corr_status IN VARCHAR2,
2188 x_isir_corr_status_date IN DATE,
2189 x_isir_status IN VARCHAR2,
2190 x_isir_status_date IN DATE,
2191 x_coa_code_f IN VARCHAR2,
2192 x_coa_code_i IN VARCHAR2,
2193 x_coa_f IN NUMBER,
2194 x_coa_i IN NUMBER,
2195 x_disbursement_hold IN VARCHAR2,
2196 x_fa_process_status IN VARCHAR2,
2197 x_notification_status IN VARCHAR2,
2198 x_notification_status_date IN DATE,
2199 x_packaging_hold IN VARCHAR2,
2200 x_packaging_status IN VARCHAR2,
2201 x_packaging_status_date IN DATE,
2202 x_total_package_accepted IN NUMBER,
2203 x_total_package_offered IN NUMBER,
2204 x_admstruct_id IN VARCHAR2,
2205 x_admsegment_1 IN VARCHAR2,
2206 x_admsegment_2 IN VARCHAR2,
2207 x_admsegment_3 IN VARCHAR2,
2208 x_admsegment_4 IN VARCHAR2,
2209 x_admsegment_5 IN VARCHAR2,
2210 x_admsegment_6 IN VARCHAR2,
2211 x_admsegment_7 IN VARCHAR2,
2212 x_admsegment_8 IN VARCHAR2,
2213 x_admsegment_9 IN VARCHAR2,
2214 x_admsegment_10 IN VARCHAR2,
2215 x_admsegment_11 IN VARCHAR2,
2216 x_admsegment_12 IN VARCHAR2,
2217 x_admsegment_13 IN VARCHAR2,
2218 x_admsegment_14 IN VARCHAR2,
2219 x_admsegment_15 IN VARCHAR2,
2220 x_admsegment_16 IN VARCHAR2,
2221 x_admsegment_17 IN VARCHAR2,
2222 x_admsegment_18 IN VARCHAR2,
2223 x_admsegment_19 IN VARCHAR2,
2224 x_admsegment_20 IN VARCHAR2,
2225 x_packstruct_id IN VARCHAR2,
2226 x_packsegment_1 IN VARCHAR2,
2227 x_packsegment_2 IN VARCHAR2,
2228 x_packsegment_3 IN VARCHAR2,
2229 x_packsegment_4 IN VARCHAR2,
2230 x_packsegment_5 IN VARCHAR2,
2231 x_packsegment_6 IN VARCHAR2,
2232 x_packsegment_7 IN VARCHAR2,
2233 x_packsegment_8 IN VARCHAR2,
2234 x_packsegment_9 IN VARCHAR2,
2235 x_packsegment_10 IN VARCHAR2,
2236 x_packsegment_11 IN VARCHAR2,
2237 x_packsegment_12 IN VARCHAR2,
2238 x_packsegment_13 IN VARCHAR2,
2239 x_packsegment_14 IN VARCHAR2,
2240 x_packsegment_15 IN VARCHAR2,
2241 x_packsegment_16 IN VARCHAR2,
2242 x_packsegment_17 IN VARCHAR2,
2243 x_packsegment_18 IN VARCHAR2,
2244 x_packsegment_19 IN VARCHAR2,
2245 x_packsegment_20 IN VARCHAR2,
2246 x_miscstruct_id IN VARCHAR2,
2247 x_miscsegment_1 IN VARCHAR2,
2248 x_miscsegment_2 IN VARCHAR2,
2249 x_miscsegment_3 IN VARCHAR2,
2250 x_miscsegment_4 IN VARCHAR2,
2251 x_miscsegment_5 IN VARCHAR2,
2252 x_miscsegment_6 IN VARCHAR2,
2253 x_miscsegment_7 IN VARCHAR2,
2254 x_miscsegment_8 IN VARCHAR2,
2255 x_miscsegment_9 IN VARCHAR2,
2256 x_miscsegment_10 IN VARCHAR2,
2257 x_miscsegment_11 IN VARCHAR2,
2258 x_miscsegment_12 IN VARCHAR2,
2259 x_miscsegment_13 IN VARCHAR2,
2260 x_miscsegment_14 IN VARCHAR2,
2261 x_miscsegment_15 IN VARCHAR2,
2262 x_miscsegment_16 IN VARCHAR2,
2263 x_miscsegment_17 IN VARCHAR2,
2264 x_miscsegment_18 IN VARCHAR2,
2265 x_miscsegment_19 IN VARCHAR2,
2266 x_miscsegment_20 IN VARCHAR2,
2267 x_prof_judgement_flg IN VARCHAR2,
2268 x_nslds_data_override_flg IN VARCHAR2,
2269 x_target_group IN VARCHAR2,
2270 x_coa_fixed IN NUMBER,
2271 x_coa_pell IN NUMBER,
2272 x_mode IN VARCHAR2,
2273 x_profile_status IN VARCHAR2,
2274 x_profile_status_date IN DATE,
2275 x_profile_fc IN NUMBER,
2276 x_tolerance_amount IN NUMBER, --Modified by kkillams on 28- June-2001 w.r.t. bug 1794114
2280 x_award_fmly_contribution_type IN VARCHAR2, --Modified by rasahoo on 17-NOV-2003 w.r.t FA 128 ISIR update 20004-05
2277 x_manual_disb_hold IN VARCHAR2,
2278 x_pell_alt_expense IN NUMBER,
2279 x_assoc_org_num IN NUMBER, --Modified by ugummall on 25-SEP-2003 w.r.t FA 126 - Multiple FA Offices
2281 x_isir_locked_by IN VARCHAR2,
2282 x_adnl_unsub_loan_elig_flag IN VARCHAR2,
2283 x_lock_awd_flag IN VARCHAR2,
2284 x_lock_coa_flag IN VARCHAR2
2285
2286 ) AS
2287 /*
2288 || Created By : skoppula
2289 || Created On : 07-DEC-2000
2290 || Purpose : Adds a row if there is no existing row, otherwise updates existing row in the table.
2291 || Known limitations, enhancements or remarks :
2292 || Change History :
2293 || Who When What
2294 || masehgal 25-Sep-2002 FA 014 -To Do Enhancements
2295 || Added manual_disb_hold checkbox
2296 || rbezawad 22-Jun-2001 x_ede_correction_batch_id parameter in procedures is
2297 || changed to VARCHAR2 Datatype w.r.t. Bug ID: 1821811.
2298 || (reverse chronological order - newest change first)
2299 */
2300 CURSOR c1 IS
2301 SELECT rowid
2302 FROM igf_ap_fa_base_rec_all
2303 WHERE base_id = x_base_id;
2304
2305 BEGIN
2306
2307 OPEN c1;
2308 FETCH c1 INTO x_rowid;
2309 IF (c1%NOTFOUND) THEN
2310 CLOSE c1;
2311
2312 insert_row (
2313 x_rowid,
2314 x_base_id,
2315 x_ci_cal_type,
2316 x_person_id,
2317 x_ci_sequence_number,
2318 x_org_id,
2319 x_coa_pending,
2320 x_verification_process_run,
2321 x_inst_verif_status_date,
2322 x_manual_verif_flag,
2323 x_fed_verif_status,
2324 x_fed_verif_status_date,
2325 x_inst_verif_status,
2326 x_nslds_eligible,
2327 x_ede_correction_batch_id,
2328 x_fa_process_status_date,
2329 x_isir_corr_status,
2330 x_isir_corr_status_date,
2331 x_isir_status,
2332 x_isir_status_date,
2333 x_coa_code_f,
2334 x_coa_code_i,
2335 x_coa_f,
2336 x_coa_i,
2337 x_disbursement_hold,
2338 x_fa_process_status,
2339 x_notification_status,
2340 x_notification_status_date,
2341 NULL , -- Obsoletion under FA 101 (SAP)
2342 x_packaging_status,
2343 x_packaging_status_date,
2344 x_total_package_accepted,
2345 x_total_package_offered,
2346 x_admstruct_id,
2347 x_admsegment_1,
2348 x_admsegment_2,
2349 x_admsegment_3,
2350 x_admsegment_4,
2351 x_admsegment_5,
2352 x_admsegment_6,
2353 x_admsegment_7,
2354 x_admsegment_8,
2355 x_admsegment_9,
2356 x_admsegment_10,
2357 x_admsegment_11,
2358 x_admsegment_12,
2359 x_admsegment_13,
2360 x_admsegment_14,
2361 x_admsegment_15,
2362 x_admsegment_16,
2363 x_admsegment_17,
2364 x_admsegment_18,
2365 x_admsegment_19,
2366 x_admsegment_20,
2367 x_packstruct_id,
2368 x_packsegment_1,
2369 x_packsegment_2,
2370 x_packsegment_3,
2371 x_packsegment_4,
2372 x_packsegment_5,
2373 x_packsegment_6,
2374 x_packsegment_7,
2375 x_packsegment_8,
2376 x_packsegment_9,
2377 x_packsegment_10,
2378 x_packsegment_11,
2379 x_packsegment_12,
2380 x_packsegment_13,
2381 x_packsegment_14,
2382 x_packsegment_15,
2383 x_packsegment_16,
2384 x_packsegment_17,
2385 x_packsegment_18,
2386 x_packsegment_19,
2387 x_packsegment_20,
2388 x_miscstruct_id,
2389 x_miscsegment_1,
2390 x_miscsegment_2,
2391 x_miscsegment_3,
2392 x_miscsegment_4,
2393 x_miscsegment_5,
2394 x_miscsegment_6,
2395 x_miscsegment_7,
2396 x_miscsegment_8,
2397 x_miscsegment_9,
2398 x_miscsegment_10,
2399 x_miscsegment_11,
2400 x_miscsegment_12,
2401 x_miscsegment_13,
2402 x_miscsegment_14,
2403 x_miscsegment_15,
2404 x_miscsegment_16,
2405 x_miscsegment_17,
2406 x_miscsegment_18,
2407 x_miscsegment_19,
2408 x_miscsegment_20,
2409 x_prof_judgement_flg,
2410 x_nslds_data_override_flg,
2411 x_target_group,
2412 x_coa_fixed,
2413 x_coa_pell,
2414 x_mode ,
2415 x_profile_status,
2416 x_profile_status_date,
2417 x_profile_fc,
2418 x_tolerance_amount,
2419 x_manual_disb_hold,
2420 x_pell_alt_expense,
2421 x_assoc_org_num, --Modified by ugummall on 25-SEP-2003 w.r.t FA 126 - Multiple FA Offices
2422 x_award_fmly_contribution_type,
2423 x_isir_locked_by,
2424 x_adnl_unsub_loan_elig_flag,
2425 x_lock_awd_flag,
2426 x_lock_coa_flag
2427
2428 );
2429 RETURN;
2430 END IF;
2431 CLOSE c1;
2432
2433 update_row (
2434 x_rowid,
2435 x_base_id,
2436 x_ci_cal_type,
2437 x_person_id,
2438 x_ci_sequence_number,
2439 x_org_id,
2440 x_coa_pending,
2441 x_verification_process_run,
2442 x_inst_verif_status_date,
2443 x_manual_verif_flag,
2444 x_fed_verif_status,
2445 x_fed_verif_status_date,
2446 x_inst_verif_status,
2447 x_nslds_eligible,
2448 x_ede_correction_batch_id,
2449 x_fa_process_status_date,
2450 x_isir_corr_status,
2451 x_isir_corr_status_date,
2452 x_isir_status,
2453 x_isir_status_date,
2454 x_coa_code_f,
2455 x_coa_code_i,
2456 x_coa_f,
2457 x_coa_i,
2458 x_disbursement_hold,
2459 x_fa_process_status,
2460 x_notification_status,
2461 x_notification_status_date,
2462 NULL , -- -- Obsoletion under FA 101 (SAP)
2463 x_packaging_status,
2464 x_packaging_status_date,
2465 x_total_package_accepted,
2466 x_total_package_offered,
2467 x_admstruct_id,
2468 x_admsegment_1,
2469 x_admsegment_2,
2470 x_admsegment_3,
2471 x_admsegment_4,
2472 x_admsegment_5,
2473 x_admsegment_6,
2474 x_admsegment_7,
2475 x_admsegment_8,
2476 x_admsegment_9,
2477 x_admsegment_10,
2478 x_admsegment_11,
2479 x_admsegment_12,
2480 x_admsegment_13,
2481 x_admsegment_14,
2482 x_admsegment_15,
2483 x_admsegment_16,
2484 x_admsegment_17,
2485 x_admsegment_18,
2486 x_admsegment_19,
2487 x_admsegment_20,
2488 x_packstruct_id,
2489 x_packsegment_1,
2490 x_packsegment_2,
2491 x_packsegment_3,
2492 x_packsegment_4,
2493 x_packsegment_5,
2494 x_packsegment_6,
2495 x_packsegment_7,
2496 x_packsegment_8,
2497 x_packsegment_9,
2498 x_packsegment_10,
2499 x_packsegment_11,
2500 x_packsegment_12,
2501 x_packsegment_13,
2502 x_packsegment_14,
2503 x_packsegment_15,
2504 x_packsegment_16,
2505 x_packsegment_17,
2506 x_packsegment_18,
2507 x_packsegment_19,
2508 x_packsegment_20,
2509 x_miscstruct_id,
2510 x_miscsegment_1,
2511 x_miscsegment_2,
2512 x_miscsegment_3,
2513 x_miscsegment_4,
2514 x_miscsegment_5,
2515 x_miscsegment_6,
2516 x_miscsegment_7,
2517 x_miscsegment_8,
2518 x_miscsegment_9,
2519 x_miscsegment_10,
2520 x_miscsegment_11,
2521 x_miscsegment_12,
2522 x_miscsegment_13,
2523 x_miscsegment_14,
2524 x_miscsegment_15,
2525 x_miscsegment_16,
2526 x_miscsegment_17,
2527 x_miscsegment_18,
2528 x_miscsegment_19,
2529 x_miscsegment_20,
2530 x_prof_judgement_flg,
2531 x_nslds_data_override_flg,
2532 x_target_group,
2533 x_coa_fixed,
2534 x_coa_pell,
2535 x_mode,
2536 x_profile_status,
2537 x_profile_status_date,
2538 x_profile_fc,
2539 x_tolerance_amount,
2540 x_manual_disb_hold,
2541 x_pell_alt_expense,
2542 x_assoc_org_num, --Modified by ugummall on 25-SEP-2003 w.r.t FA 126 - Multiple FA Offices
2543 x_award_fmly_contribution_type,
2544 x_isir_locked_by,
2545 x_adnl_unsub_loan_elig_flag,
2546 x_lock_awd_flag,
2547 x_lock_coa_flag
2548
2549 );
2550
2551 END add_row;
2552
2553
2554 PROCEDURE delete_row (
2555 x_rowid IN VARCHAR2
2556 ) AS
2557 /*
2558 || Created By : skoppula
2559 || Created On : 07-DEC-2000
2560 || Purpose : Handles the DELETE DML logic for the table.
2561 || Known limitations, enhancements or remarks :
2562 || Change History :
2563 || Who When What
2564 || (reverse chronological order - newest change first)
2565 */
2566 BEGIN
2567
2568 before_dml (
2569 p_action => 'DELETE',
2570 x_rowid => x_rowid
2571 );
2572
2573 DELETE FROM igf_ap_fa_base_rec_all
2574 WHERE rowid = x_rowid;
2575
2576 IF (SQL%NOTFOUND) THEN
2577 RAISE NO_DATA_FOUND;
2578 END IF;
2579
2580 END delete_row;
2581
2582
2583 END igf_ap_fa_base_rec_pkg;