170: FETCH c_get_verif_item INTO verif_item_pmpt_rec ;
171: lv_isir_field := verif_item_pmpt_rec.meaning ;
172: CLOSE c_get_verif_item ;
173:
174: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ') ;
175: FND_FILE.PUT_LINE( FND_FILE.LOG, l_para_pass) ; --------------Parameters Passed--------------
176: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ') ;
177:
178: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_award_year_pmpt, 40) || ' : '|| lv_awd_alternate_code ) ;
171: lv_isir_field := verif_item_pmpt_rec.meaning ;
172: CLOSE c_get_verif_item ;
173:
174: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ') ;
175: FND_FILE.PUT_LINE( FND_FILE.LOG, l_para_pass) ; --------------Parameters Passed--------------
176: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ') ;
177:
178: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_award_year_pmpt, 40) || ' : '|| lv_awd_alternate_code ) ;
179: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_person_number_pmpt, 40) || ' : '|| l_person_number ) ;
172: CLOSE c_get_verif_item ;
173:
174: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ') ;
175: FND_FILE.PUT_LINE( FND_FILE.LOG, l_para_pass) ; --------------Parameters Passed--------------
176: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ') ;
177:
178: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_award_year_pmpt, 40) || ' : '|| lv_awd_alternate_code ) ;
179: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_person_number_pmpt, 40) || ' : '|| l_person_number ) ;
180: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_person_id_grp_pmpt, 40) || ' : '|| l_group_desc ) ;
174: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ') ;
175: FND_FILE.PUT_LINE( FND_FILE.LOG, l_para_pass) ; --------------Parameters Passed--------------
176: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ') ;
177:
178: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_award_year_pmpt, 40) || ' : '|| lv_awd_alternate_code ) ;
179: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_person_number_pmpt, 40) || ' : '|| l_person_number ) ;
180: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_person_id_grp_pmpt, 40) || ' : '|| l_group_desc ) ;
181:
182: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_isir_field_pmpt, 40) || ' : '|| lv_isir_field ) ;
175: FND_FILE.PUT_LINE( FND_FILE.LOG, l_para_pass) ; --------------Parameters Passed--------------
176: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ') ;
177:
178: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_award_year_pmpt, 40) || ' : '|| lv_awd_alternate_code ) ;
179: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_person_number_pmpt, 40) || ' : '|| l_person_number ) ;
180: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_person_id_grp_pmpt, 40) || ' : '|| l_group_desc ) ;
181:
182: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_isir_field_pmpt, 40) || ' : '|| lv_isir_field ) ;
183:
176: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ') ;
177:
178: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_award_year_pmpt, 40) || ' : '|| lv_awd_alternate_code ) ;
179: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_person_number_pmpt, 40) || ' : '|| l_person_number ) ;
180: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_person_id_grp_pmpt, 40) || ' : '|| l_group_desc ) ;
181:
182: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_isir_field_pmpt, 40) || ' : '|| lv_isir_field ) ;
183:
184: l_item_description := NULL;
178: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_award_year_pmpt, 40) || ' : '|| lv_awd_alternate_code ) ;
179: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_person_number_pmpt, 40) || ' : '|| l_person_number ) ;
180: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_person_id_grp_pmpt, 40) || ' : '|| l_group_desc ) ;
181:
182: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( lv_isir_field_pmpt, 40) || ' : '|| lv_isir_field ) ;
183:
184: l_item_description := NULL;
185: IF p_item_number_1 IS NOT NULL THEN
186: OPEN c_item_descrption(p_item_number_1);
186: OPEN c_item_descrption(p_item_number_1);
187: FETCH c_item_descrption INTO l_item_description;
188: CLOSE c_item_descrption;
189: END IF;
190: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 1', 40) || ' : ' || l_item_description );
191:
192: l_item_description := NULL;
193: IF p_item_number_2 IS NOT NULL THEN
194: OPEN c_item_descrption(p_item_number_2);
194: OPEN c_item_descrption(p_item_number_2);
195: FETCH c_item_descrption INTO l_item_description;
196: CLOSE c_item_descrption;
197: END IF ;
198: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 2', 40) || ' : ' || l_item_description );
199:
200: l_item_description := NULL;
201: IF p_item_number_3 IS NOT NULL THEN
202: OPEN c_item_descrption(p_item_number_3);
202: OPEN c_item_descrption(p_item_number_3);
203: FETCH c_item_descrption INTO l_item_description;
204: CLOSE c_item_descrption;
205: END IF;
206: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 3', 40) || ' : ' || l_item_description );
207:
208: l_item_description := NULL;
209: IF p_item_number_4 IS NOT NULL THEN
210: OPEN c_item_descrption(p_item_number_4);
210: OPEN c_item_descrption(p_item_number_4);
211: FETCH c_item_descrption INTO l_item_description;
212: CLOSE c_item_descrption;
213: END IF ;
214: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 4', 40) || ' : ' || l_item_description );
215:
216: l_item_description := NULL;
217: IF p_item_number_5 IS NOT NULL THEN
218: OPEN c_item_descrption(p_item_number_5);
218: OPEN c_item_descrption(p_item_number_5);
219: FETCH c_item_descrption INTO l_item_description;
220: CLOSE c_item_descrption;
221: END IF;
222: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 5', 40) || ' : ' || l_item_description );
223:
224: l_item_description := NULL;
225: IF p_item_number_6 IS NOT NULL THEN
226: OPEN c_item_descrption(p_item_number_6);
226: OPEN c_item_descrption(p_item_number_6);
227: FETCH c_item_descrption INTO l_item_description;
228: CLOSE c_item_descrption;
229: END IF;
230: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 6', 40) || ' : ' || l_item_description );
231:
232: l_item_description := NULL;
233: IF p_item_number_7 IS NOT NULL THEN
234: OPEN c_item_descrption(p_item_number_7);
234: OPEN c_item_descrption(p_item_number_7);
235: FETCH c_item_descrption INTO l_item_description;
236: CLOSE c_item_descrption;
237: END IF;
238: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 7', 40) || ' : ' || l_item_description );
239:
240: l_item_description := NULL;
241: IF p_item_number_8 IS NOT NULL THEN
242: OPEN c_item_descrption(p_item_number_8);
242: OPEN c_item_descrption(p_item_number_8);
243: FETCH c_item_descrption INTO l_item_description;
244: CLOSE c_item_descrption;
245: END IF;
246: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 8', 40) || ' : ' || l_item_description );
247:
248: l_item_description := NULL;
249: IF p_item_number_9 IS NOT NULL THEN
250: OPEN c_item_descrption(p_item_number_9);
250: OPEN c_item_descrption(p_item_number_9);
251: FETCH c_item_descrption INTO l_item_description;
252: CLOSE c_item_descrption;
253: END IF;
254: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 9', 40) || ' : ' || l_item_description );
255:
256: l_item_description := NULL;
257: IF p_item_number_10 IS NOT NULL THEN
258: OPEN c_item_descrption(p_item_number_10);
258: OPEN c_item_descrption(p_item_number_10);
259: FETCH c_item_descrption INTO l_item_description;
260: CLOSE c_item_descrption;
261: END IF;
262: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 10', 40) || ' : ' || l_item_description );
263:
264: l_item_description := NULL;
265: IF p_item_number_11 IS NOT NULL THEN
266: OPEN c_item_descrption(p_item_number_11);
266: OPEN c_item_descrption(p_item_number_11);
267: FETCH c_item_descrption INTO l_item_description;
268: CLOSE c_item_descrption;
269: END IF;
270: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 11', 40) || ' : ' || l_item_description );
271:
272: l_item_description := NULL;
273: IF p_item_number_12 IS NOT NULL THEN
274: OPEN c_item_descrption(p_item_number_12);
274: OPEN c_item_descrption(p_item_number_12);
275: FETCH c_item_descrption INTO l_item_description;
276: CLOSE c_item_descrption;
277: END IF;
278: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 12', 40) || ' : ' || l_item_description );
279:
280: l_item_description := NULL;
281: IF p_item_number_13 IS NOT NULL THEN
282: OPEN c_item_descrption(p_item_number_13);
282: OPEN c_item_descrption(p_item_number_13);
283: FETCH c_item_descrption INTO l_item_description;
284: CLOSE c_item_descrption;
285: END IF;
286: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 13', 40) || ' : ' || l_item_description );
287:
288: l_item_description := NULL;
289: IF p_item_number_14 IS NOT NULL THEN
290: OPEN c_item_descrption(p_item_number_14);
290: OPEN c_item_descrption(p_item_number_14);
291: FETCH c_item_descrption INTO l_item_description;
292: CLOSE c_item_descrption;
293: END IF;
294: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 14', 40) || ' : ' || l_item_description );
295:
296: l_item_description := NULL;
297: IF p_item_number_15 IS NOT NULL THEN
298: OPEN c_item_descrption(p_item_number_15);
298: OPEN c_item_descrption(p_item_number_15);
299: FETCH c_item_descrption INTO l_item_description;
300: CLOSE c_item_descrption;
301: END IF;
302: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 15', 40) || ' : ' || l_item_description );
303:
304: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
305: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------');
306: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
300: CLOSE c_item_descrption;
301: END IF;
302: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 15', 40) || ' : ' || l_item_description );
303:
304: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
305: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------');
306: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
307: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
308:
301: END IF;
302: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 15', 40) || ' : ' || l_item_description );
303:
304: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
305: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------');
306: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
307: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
308:
309: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
302: FND_FILE.PUT_LINE(FND_FILE.LOG, RPAD(lv_item_code_pmpt || ' 15', 40) || ' : ' || l_item_description );
303:
304: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
305: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------');
306: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
307: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
308:
309: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
310: FND_FILE.PUT_LINE( FND_FILE.LOG, '-------------------------------------------------------------');
303:
304: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
305: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------');
306: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
307: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
308:
309: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
310: FND_FILE.PUT_LINE( FND_FILE.LOG, '-------------------------------------------------------------');
311: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
305: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------------------');
306: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
307: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
308:
309: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
310: FND_FILE.PUT_LINE( FND_FILE.LOG, '-------------------------------------------------------------');
311: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
312: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
313:
306: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
307: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
308:
309: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
310: FND_FILE.PUT_LINE( FND_FILE.LOG, '-------------------------------------------------------------');
311: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
312: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
313:
314: EXCEPTION
307: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
308:
309: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
310: FND_FILE.PUT_LINE( FND_FILE.LOG, '-------------------------------------------------------------');
311: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
312: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
313:
314: EXCEPTION
315: WHEN OTHERS THEN
308:
309: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
310: FND_FILE.PUT_LINE( FND_FILE.LOG, '-------------------------------------------------------------');
311: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
312: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
313:
314: EXCEPTION
315: WHEN OTHERS THEN
316: NULL;
507: ELSE
508:
509: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_ITEM_PRESENT');
510: FND_MESSAGE.SET_TOKEN('ITEM', lv_meaning);
511: FND_FILE.PUT_LINE(FND_FILE.LOG ,FND_MESSAGE.GET);
512: END IF ;
513: END IF ;
514: RETURN lb_return_value;
515:
639: -- If Person ID Group and Person ID both are present then,
640: -- exit the process stating that either of the one should be present.
641: IF p_base_id IS NOT NULL AND p_prs_grp_id IS NOT NULL THEN
642: FND_MESSAGE.SET_NAME('IGS','IGS_FI_NO_PERS_PGRP');
643: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
644: retcode := 2;
645: errbuf := FND_MESSAGE.GET_STRING('IGS','IGS_FI_NO_PERS_PGRP');
646: RETURN ;
647:
647:
648:
649: ELSIF p_base_id IS NULL AND p_prs_grp_id IS NULL THEN
650: FND_MESSAGE.SET_NAME('IGS','IGS_FI_PRS_PRSIDGRP_NULL');
651: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
652: retcode := 2;
653: errbuf := FND_MESSAGE.GET_STRING('IGS','IGS_FI_PRS_PRSIDGRP_NULL');
654: RETURN ;
655: END IF;
653: errbuf := FND_MESSAGE.GET_STRING('IGS','IGS_FI_PRS_PRSIDGRP_NULL');
654: RETURN ;
655: END IF;
656:
657: -- fnd_file.put_line(fnd_file.log, 'SQL Statement:'|| lv_sql_stmt);
658:
659: IF p_prs_grp_id IS NOT NULL THEN
660: /* Changing the string to get the count only*/
661: BEGIN
670:
671: EXCEPTION
672: WHEN OTHERS THEN
673: FND_MESSAGE.SET_NAME ('IGF','IGF_AP_INVALID_QUERY');
674: FND_FILE.PUT_LINE (FND_FILE.LOG,FND_MESSAGE.GET);
675: RETURN;
676: END;
677:
678: IF ln_stdnt_count = 0 THEN
676: END;
677:
678: IF ln_stdnt_count = 0 THEN
679: FND_MESSAGE.SET_NAME('IGF','IGF_DB_NO_PER_GRP');
680: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
681: retcode := 2;
682: errbuf := FND_MESSAGE.GET_STRING('IGF','IGF_DB_NO_PER_GRP');
683: RETURN;
684: END IF;
693:
694: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PROCESSING_STUDENT');
695: FND_MESSAGE.SET_TOKEN('PERSON_NAME', lc_person_details_rec.full_name);
696: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', lc_person_details_rec.person_number);
697: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
698:
699: -- process records
700: -- Assign verification item for all the students
701:
756: l_lkup_code := 'PERSON_NUMBER' ;
757: OPEN c_get_parameters ( l_lkup_type, l_lkup_code ) ;
758: FETCH c_get_parameters INTO l_person_number;
759: CLOSE c_get_parameters;
760: FND_FILE.PUT_LINE(FND_FILE.LOG,l_person_number|| ' : '|| c_person_id_grp_rec.person_number);
761:
762: -- Log a message and skip the student
763: FND_MESSAGE.SET_NAME('IGF','IGF_AP_NO_BASEID');
764: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
760: FND_FILE.PUT_LINE(FND_FILE.LOG,l_person_number|| ' : '|| c_person_id_grp_rec.person_number);
761:
762: -- Log a message and skip the student
763: FND_MESSAGE.SET_NAME('IGF','IGF_AP_NO_BASEID');
764: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
765:
766: ELSE
767: ln_base_id := ln_base_id_rec.base_id ;
768:
771: CLOSE c_person_details;
772: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PROCESSING_STUDENT');
773: FND_MESSAGE.SET_TOKEN('PERSON_NAME', lc_person_details_rec.full_name);
774: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', lc_person_details_rec.person_number);
775: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
776:
777:
778: -- process records
779: -- Assign verification item for all the students
806:
807: EXCEPTION
808: WHEN OTHERS THEN
809: ROLLBACK;
810: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM) ;
811: RETCODE := 2 ;
812: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP') ;
813: FND_MESSAGE.SET_TOKEN('NAME','IGF_AP_ASSIGN_VER_ITEM_PKG.MAIN') ;
814: errbuf := FND_MESSAGE.GET ;