[Home] [Help]
195:
196: l_con_req_id NUMBER;
197: BEGIN
198: /* Debug */
199: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
200: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Submit_Event';
201: l_debug_str := 'Entering Submit_Event. p_batch_type is ' || p_batch_type || 'and p_batch_id is ' || p_batch_id;
202: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
203: END IF;
198: /* Debug */
199: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
200: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Submit_Event';
201: l_debug_str := 'Entering Submit_Event. p_batch_type is ' || p_batch_type || 'and p_batch_id is ' || p_batch_id;
202: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
203: END IF;
204:
205: IF p_batch_type = 'E' THEN
206:
222: CLOSE c_party_data;
223:
224: IF l_party_id IS NULL THEN
225: /* Debug */
226: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
227: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Submit_Event';
228: l_debug_str := 'IGS_SV_PRTNR_STP_ERR error in Submit_Event.';
229: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
230: END IF;
225: /* Debug */
226: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
227: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Submit_Event';
228: l_debug_str := 'IGS_SV_PRTNR_STP_ERR error in Submit_Event.';
229: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
230: END IF;
231:
232: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_PRTNR_STP_ERR'); -- No trading partner setup found
233: FND_MSG_PUB.Add;
240: CLOSE c_get_user_id;
241:
242: l_event_key := p_batch_id || l_con_req_id;
243:
244: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
245: l_label := 'igs.plsql.igs_sv_batch_process_pkg.event_parameters';
246: l_debug_str := 'batch_id= '|| p_batch_id || 'l_party_id= '|| l_party_id || ' l_party_site_id='||l_party_site_id || 'l_trans_type= ' || l_trans_type || ' l_trans_subtype= ' || l_trans_subtype || ' l_debug_level = ' || l_debug_level ;
247: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
248: END IF;
243:
244: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
245: l_label := 'igs.plsql.igs_sv_batch_process_pkg.event_parameters';
246: l_debug_str := 'batch_id= '|| p_batch_id || 'l_party_id= '|| l_party_id || ' l_party_site_id='||l_party_site_id || 'l_trans_type= ' || l_trans_type || ' l_trans_subtype= ' || l_trans_subtype || ' l_debug_level = ' || l_debug_level ;
247: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
248: END IF;
249: /* Manoj
250: wf_event.AddParameterToList(p_name=>'DOC_ID',p_value=>p_batch_id,p_parameterlist=>l_parameter_list);
251: wf_event.AddParameterToList(p_name=>'PARTY_ID',p_value=>l_party_id,p_parameterlist=>l_parameter_list);
276:
277: l_parameter_list.DELETE;
278:
279: /* Debug */
280: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
281: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Submit_Event';
282: l_debug_str := 'Exiting Submit_Event. l_event_key: '||l_event_key;
283: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
284: END IF;
279: /* Debug */
280: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
281: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Submit_Event';
282: l_debug_str := 'Exiting Submit_Event. l_event_key: '||l_event_key;
283: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
284: END IF;
285:
286: END;
287:
304: l_str VARCHAR2(2000);
305:
306: BEGIN
307: /* Debug */
308: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
309: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Dump_Current_Person';
310: l_debug_str := 'Entering Dump_Current_Person. p_student_rec.person_id is '|| p_student_rec.person_id;
311: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
312: END IF;
307: /* Debug */
308: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
309: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Dump_Current_Person';
310: l_debug_str := 'Entering Dump_Current_Person. p_student_rec.person_id is '|| p_student_rec.person_id;
311: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
312: END IF;
313:
314: -- This is a debug procedure used to output a current person info if an error occurs
315: Put_Log_Msg('****** Execution error - dumping current person *********',1);
335: Put_Log_Msg(' edu_count '|| p_student_rec.edu_count ,1);
336:
337: Put_Log_Msg('********************************************************',1);
338: /* Debug */
339: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
340: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Dump_Current_Person';
341: l_debug_str := 'Exiting Dump_Current_Person.';
342: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
343: END IF;
338: /* Debug */
339: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
340: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Dump_Current_Person';
341: l_debug_str := 'Exiting Dump_Current_Person.';
342: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
343: END IF;
344: END Dump_Current_Person;
345:
346: /******************************************************************
390: l_local_inst hz_parties.party_number%TYPE;
391:
392: BEGIN
393: /* Debug
394: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
395: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_School_Sevis_Id';
396: l_debug_str := 'Entering Get_School_Sevis_Id. p_batch_type is '|| p_batch_type;
397: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
398: END IF;
393: /* Debug
394: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
395: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_School_Sevis_Id';
396: l_debug_str := 'Entering Get_School_Sevis_Id. p_batch_type is '|| p_batch_type;
397: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
398: END IF;
399:
400: l_local_inst := FND_PROFILE.VALUE('IGS_OR_LOCAL_INST');
401:
403: FETCH c_alt_id INTO l_alt_id;
404: CLOSE c_alt_id;
405:
406: /* Debug
407: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
408: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_School_Sevis_Id';
409: l_debug_str := 'Exiting Get_School_Sevis_Id with return value '|| l_alt_id;
410: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
411: END IF;
406: /* Debug
407: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
408: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_School_Sevis_Id';
409: l_debug_str := 'Exiting Get_School_Sevis_Id with return value '|| l_alt_id;
410: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
411: END IF;
412:
413: RETURN l_alt_id;
414:
489: IS
490:
491: BEGIN
492: /* Debug */
493: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
494: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Is_Number';
495: l_debug_str := 'Entering Is_Number. p_num is '|| p_num;
496: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
497: END IF;
492: /* Debug */
493: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
494: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Is_Number';
495: l_debug_str := 'Entering Is_Number. p_num is '|| p_num;
496: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
497: END IF;
498: Put_Log_Msg('Is_Number begins',0);
499:
500: RETURN to_char(to_number(p_num));
502: EXCEPTION
503:
504: WHEN VALUE_ERROR THEN
505: /* Debug */
506: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
507: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Is_Number';
508: l_debug_str := 'Exception in Is_Number'||SQLERRM;
509: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
510: END IF;
505: /* Debug */
506: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
507: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Is_Number';
508: l_debug_str := 'Exception in Is_Number'||SQLERRM;
509: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
510: END IF;
511:
512: RETURN '';
513:
544: l_block_name VARCHAR2(255);
545:
546: BEGIN
547: /* Debug */
548: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
549: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Lookup_Name';
550: l_debug_str := 'Entering Get_Lookup_Name. p_type is '||p_type ||' and p_code is '|| p_code;
551: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
552: END IF;
547: /* Debug */
548: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
549: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Lookup_Name';
550: l_debug_str := 'Entering Get_Lookup_Name. p_type is '||p_type ||' and p_code is '|| p_code;
551: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
552: END IF;
553:
554: OPEN c_blk_name;
555: FETCH c_blk_name INTO l_block_name;
555: FETCH c_blk_name INTO l_block_name;
556: CLOSE c_blk_name;
557:
558: /* Debug */
559: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
560: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Lookup_Name';
561: l_debug_str := 'Returning from Get_Lookup_Name with value '||l_block_name;
562: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
563: END IF;
558: /* Debug */
559: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
560: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Lookup_Name';
561: l_debug_str := 'Returning from Get_Lookup_Name with value '||l_block_name;
562: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
563: END IF;
564:
565: RETURN l_block_name;
566:
603: l_alt_code VARCHAR2(12);
604:
605: BEGIN
606: /* Debug */
607: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
608: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Convert_Country_Code';
609: l_debug_str := 'Entering Convert_Country_Code. p_code is '||p_code;
610: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
611: END IF;
606: /* Debug */
607: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
608: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Convert_Country_Code';
609: l_debug_str := 'Entering Convert_Country_Code. p_code is '||p_code;
610: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
611: END IF;
612: --Code for non-ISO countries
613: OPEN chk_iso_country(p_code);
614: FETCH chk_iso_country INTO l_alt_code;
647: END IF;
648: END IF;
649:
650: /* Debug */
651: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
652: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Convert_Country_Code';
653: l_debug_str := 'Returning from Convert_Country_Code with value '|| l_block_name;
654: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
655: END IF;
650: /* Debug */
651: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
652: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Convert_Country_Code';
653: l_debug_str := 'Returning from Convert_Country_Code with value '|| l_block_name;
654: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
655: END IF;
656:
657: RETURN NVL(l_block_name,p_code);
658:
695: l_sv_visa_code VARCHAR2(30);
696:
697: BEGIN
698: /* Debug */
699: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
700: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Convert_Visa_Type';
701: l_debug_str := 'Entering Convert_Visa_Type. p_visa_meaning is '||p_visa_meaning;
702: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
703: END IF;
698: /* Debug */
699: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
700: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Convert_Visa_Type';
701: l_debug_str := 'Entering Convert_Visa_Type. p_visa_meaning is '||p_visa_meaning;
702: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
703: END IF;
704:
705: OPEN c_visa_type;
706:
708: INTO l_sv_visa_code;
709:
710: CLOSE c_visa_type;
711: /* Debug */
712: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
713: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Convert_Visa_Type';
714: l_debug_str := 'Returning from Convert_Visa_Type with value '|| l_sv_visa_code;
715: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
716: END IF;
711: /* Debug */
712: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
713: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Convert_Visa_Type';
714: l_debug_str := 'Returning from Convert_Visa_Type with value '|| l_sv_visa_code;
715: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
716: END IF;
717:
718: RETURN l_sv_visa_code;
719:
752: l_name_suffix VARCHAR2(30);
753:
754: BEGIN
755: /* Debug */
756: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
757: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Convert_Suffix';
758: l_debug_str := 'Entering Convert_Suffix. p_person_num is '||p_person_num || ', p_code is '||p_code||' and p_type is '||p_type;
759: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
760: END IF;
755: /* Debug */
756: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
757: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Convert_Suffix';
758: l_debug_str := 'Entering Convert_Suffix. p_person_num is '||p_person_num || ', p_code is '||p_code||' and p_type is '||p_type;
759: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
760: END IF;
761:
762: OPEN c_name_suffix;
763: FETCH c_name_suffix
775: END IF;
776: CLOSE c_name_suffix;
777:
778: /* Debug */
779: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
780: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Convert_Suffix';
781: l_debug_str := 'Returning from Convert_Suffix with value '|| l_name_suffix;
782: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
783: END IF;
778: /* Debug */
779: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
780: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Convert_Suffix';
781: l_debug_str := 'Returning from Convert_Suffix with value '|| l_name_suffix;
782: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
783: END IF;
784:
785: RETURN l_name_suffix;
786:
805: IS
806:
807: BEGIN
808: /* Debug */
809: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
810: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Block_Name';
811: l_debug_str := 'Inside Get_Block_Name. p_block is '||p_block;
812: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
813: END IF;
808: /* Debug */
809: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
810: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Block_Name';
811: l_debug_str := 'Inside Get_Block_Name. p_block is '||p_block;
812: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
813: END IF;
814:
815: RETURN get_lookup_name ('SV_VALIDATIONS',p_block);
816:
848: l_alt_id VARCHAR2(255);
849:
850: BEGIN
851: /* Debug */
852: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
853: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Person_Sevis_Id';
854: l_debug_str := 'Entering Get_Person_Sevis_Id. p_person_id is '||p_person_id;
855: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
856: END IF;
851: /* Debug */
852: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
853: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Person_Sevis_Id';
854: l_debug_str := 'Entering Get_Person_Sevis_Id. p_person_id is '||p_person_id;
855: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
856: END IF;
857:
858: OPEN c_alt_id;
859: FETCH c_alt_id INTO l_alt_id;
862:
863: IF l_alt_id IS NOT NULL AND LENGTH(l_alt_id)<=11 THEN
864:
865: /* Debug */
866: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
867: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Person_Sevis_Id';
868: l_debug_str := 'Returning from Get_Person_Sevis_Id with value '||l_alt_id;
869: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
870: END IF;
865: /* Debug */
866: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
867: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Person_Sevis_Id';
868: l_debug_str := 'Returning from Get_Person_Sevis_Id with value '||l_alt_id;
869: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
870: END IF;
871:
872: RETURN l_alt_id;
873:
872: RETURN l_alt_id;
873:
874: END IF;
875: /* Debug */
876: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
877: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Person_Sevis_Id';
878: l_debug_str := 'Returning from Get_Person_Sevis_Id ';
879: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
880: END IF;
875: /* Debug */
876: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
877: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Person_Sevis_Id';
878: l_debug_str := 'Returning from Get_Person_Sevis_Id ';
879: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
880: END IF;
881:
882: RETURN '';
883:
903: l_name_suffix VARCHAR2(30);
904:
905: BEGIN
906: /* Debug */
907: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
908: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Check_US_Terr';
909: l_debug_str := 'Entering Check_US_Terr. p_person_num is '||p_person_num ||' and p_code is '||p_code;
910: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
911: END IF;
906: /* Debug */
907: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
908: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Check_US_Terr';
909: l_debug_str := 'Entering Check_US_Terr. p_person_num is '||p_person_num ||' and p_code is '||p_code;
910: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
911: END IF;
912:
913: OPEN c_name;
914: FETCH c_name
922: Put_Log_Msg(FND_MESSAGE.Get,1);
923:
924: CLOSE c_name;
925: /* Debug */
926: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
927: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Check_US_Terr';
928: l_debug_str := 'Returning E from Check_US_Terr ';
929: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
930: END IF;
925: /* Debug */
926: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
927: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Check_US_Terr';
928: l_debug_str := 'Returning E from Check_US_Terr ';
929: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
930: END IF;
931:
932: RETURN 'E';
933:
935:
936: CLOSE c_name;
937:
938: /* Debug */
939: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
940: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Check_US_Terr';
941: l_debug_str := 'Returning S from Check_US_Terr ';
942: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
943: END IF;
938: /* Debug */
939: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
940: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Check_US_Terr';
941: l_debug_str := 'Returning S from Check_US_Terr ';
942: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
943: END IF;
944:
945: RETURN 'S';
946:
975: l_dep_exists BOOLEAN := TRUE;
976: l_count NUMBER := 0;
977: BEGIN
978: /* Debug */
979: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
980: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Prev_Dep';
981: l_debug_str := 'Entering Get_Prev_Dep. p_person_id is '||p_person_id||' dependent id is'||p_depdnt_id;
982: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
983: END IF;
978: /* Debug */
979: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
980: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Prev_Dep';
981: l_debug_str := 'Entering Get_Prev_Dep. p_person_id is '||p_person_id||' dependent id is'||p_depdnt_id;
982: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
983: END IF;
984:
985: OPEN c_dep_exist;
986: FETCH c_dep_exist INTO l_count;
1066: AND sysdate BETWEEN usg.start_date AND NVL(usg.end_date,sysdate+1);
1067:
1068: BEGIN
1069: /* Debug */
1070: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1071: l_label := 'igs.plsql.igs_sv_batch_process_pkg.is_valid_addr';
1072: l_debug_str := 'Entering is_valid_addr. person id: '||p_person_id ||'site id: '|| p_site_id;
1073: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1074: END IF;
1069: /* Debug */
1070: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1071: l_label := 'igs.plsql.igs_sv_batch_process_pkg.is_valid_addr';
1072: l_debug_str := 'Entering is_valid_addr. person id: '||p_person_id ||'site id: '|| p_site_id;
1073: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1074: END IF;
1075: Put_Log_Msg('is_valid_addr begins',0);
1076:
1077: l_valid_addr := TRUE;
1114: EXCEPTION
1115:
1116: WHEN OTHERS THEN
1117: /* Debug */
1118: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1119: l_label := 'igs.plsql.igs_sv_batch_process_pkg.is_valid_addr';
1120: l_debug_str := 'Exception in is_valid_addr'||SQLERRM;
1121: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1122: END IF;
1117: /* Debug */
1118: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1119: l_label := 'igs.plsql.igs_sv_batch_process_pkg.is_valid_addr';
1120: l_debug_str := 'Exception in is_valid_addr'||SQLERRM;
1121: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1122: END IF;
1123:
1124: RETURN l_valid_addr;
1125:
1196:
1197: BEGIN
1198:
1199: /* Debug */
1200: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1201: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Issue_Info';
1202: l_debug_str := 'Entering Validate_Issue_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
1203: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1204: END IF;
1199: /* Debug */
1200: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1201: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Issue_Info';
1202: l_debug_str := 'Entering Validate_Issue_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
1203: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1204: END IF;
1205:
1206: Put_Log_Msg(l_api_name||' starts ',0);
1207:
1235: p_data_rec.last_session_flag := c_data_rec.last_session_flag;
1236: p_data_rec.adjudicated_flag := c_data_rec.adjudicated_flag;
1237:
1238: /* Debug */
1239: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1240: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Issue_Info';
1241: l_debug_str := 'Exiting from for loop of Validate_Issue_Info';
1242: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1243: END IF;
1238: /* Debug */
1239: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1240: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Issue_Info';
1241: l_debug_str := 'Exiting from for loop of Validate_Issue_Info';
1242: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1243: END IF;
1244:
1245: EXIT; -- one record is enough
1246:
1275: p_data_rec.init_prgm_start_date:= to_char(c_data_rec.init_prgm_start_date,'YYYY-MM-DD');
1276: p_data_rec.no_show_flag := c_data_rec.no_show_flag;
1277:
1278: /* Debug */
1279: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1280: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Issue_Info';
1281: l_debug_str := 'Exiting from for loop of Validate_Issue_Info';
1282: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1283: END IF;
1278: /* Debug */
1279: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1280: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Issue_Info';
1281: l_debug_str := 'Exiting from for loop of Validate_Issue_Info';
1282: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1283: END IF;
1284: EXIT; -- one record is enough
1285:
1286: END LOOP;
1292: IF p_data_rec.batch_id IS NULL THEN
1293:
1294: Put_Log_Msg(l_api_name||' Successfully completed, no rows found returns N ',0);
1295: /* Debug */
1296: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1297: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Issue_Info';
1298: l_debug_str := 'Returning N from Validate_Issue_Info';
1299: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1300: END IF;
1295: /* Debug */
1296: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1297: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Issue_Info';
1298: l_debug_str := 'Returning N from Validate_Issue_Info';
1299: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1300: END IF;
1301:
1302: RETURN 'N';
1303:
1387: IF l_not_valid THEN
1388:
1389: Put_Log_Msg(l_api_name||' Validation error, return E ',1);
1390: /* Debug */
1391: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1392: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Issue_Info';
1393: l_debug_str := 'Returning E from Validate_Issue_Info';
1394: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1395: END IF;
1390: /* Debug */
1391: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1392: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Issue_Info';
1393: l_debug_str := 'Returning E from Validate_Issue_Info';
1394: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1395: END IF;
1396:
1397: RETURN 'E';
1398:
1401: END IF;
1402:
1403: Put_Log_Msg(l_api_name||' Successfully completed, returns S',0);
1404: /* Debug */
1405: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1406: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Issue_Info';
1407: l_debug_str := 'Returning S from Validate_Issue_Info';
1408: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1409: END IF;
1404: /* Debug */
1405: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1406: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Issue_Info';
1407: l_debug_str := 'Returning S from Validate_Issue_Info';
1408: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1409: END IF;
1410:
1411: RETURN 'S'; -- Successfull validation
1412:
1413: EXCEPTION
1414:
1415: WHEN OTHERS THEN
1416: /* Debug */
1417: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1418: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Issue_Info';
1419: l_debug_str := 'Exception in Validate_Issue_Info'||SQLERRM;
1420: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1421: END IF;
1416: /* Debug */
1417: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1418: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Issue_Info';
1419: l_debug_str := 'Exception in Validate_Issue_Info'||SQLERRM;
1420: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1421: END IF;
1422:
1423: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1424: FND_MSg_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1458: FUNCTION Validate_Name(p_Name IN varchar2) RETURN boolean IS
1459: returnVal boolean := false;
1460: BEGIN
1461: /* Debug */
1462: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1463: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Name';
1464: l_debug_str := 'Inside Validate_Name. p_Name is '|| p_Name;
1465: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1466: END IF;
1461: /* Debug */
1462: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1463: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Name';
1464: l_debug_str := 'Inside Validate_Name. p_Name is '|| p_Name;
1465: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1466: END IF;
1467:
1468: FOR counter in 0..9 LOOP
1469: if instr(p_Name,counter) > 0 then
1471: EXIT WHEN returnVal;
1472: END IF;
1473: END LOOP;
1474: /* Debug */
1475: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1476: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Name';
1477: l_debug_str := 'Returning from Validate_Name';
1478: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1479: END IF;
1474: /* Debug */
1475: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1476: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Name';
1477: l_debug_str := 'Returning from Validate_Name';
1478: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1479: END IF;
1480:
1481: RETURN returnVal;
1482:
1565: -- 04 F-2
1566: -- 05 M-2
1567: -- 06 J-2
1568: /* Debug */
1569: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1570: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Bio_Info';
1571: l_debug_str := 'Inside Validate_Bio_Info. p_person_rec.batch_type is '|| p_person_rec.batch_type ||' and person_id is '|| p_person_rec.person_id;
1572: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1573: END IF;
1568: /* Debug */
1569: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1570: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Bio_Info';
1571: l_debug_str := 'Inside Validate_Bio_Info. p_person_rec.batch_type is '|| p_person_rec.batch_type ||' and person_id is '|| p_person_rec.person_id;
1572: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1573: END IF;
1574:
1575: Put_Log_Msg(l_api_name||' starts ',0);
1576: p_data_rec.batch_id := NULL; -- This will tell us if there's been any records found
1689: IF (p_data_rec.batch_id IS NULL) THEN
1690:
1691: Put_Log_Msg(l_api_name||' Successfully completed, no rows found returns N ',0);
1692: /* Debug */
1693: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1694: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Bio_Info';
1695: l_debug_str := 'Returning N from Validate_Bio_Info.';
1696: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1697: END IF;
1692: /* Debug */
1693: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1694: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Bio_Info';
1695: l_debug_str := 'Returning N from Validate_Bio_Info.';
1696: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1697: END IF;
1698:
1699: RETURN 'N';
1700:
1782: IF (l_not_valid) THEN
1783:
1784: Put_Log_Msg(l_api_name||' Validation error, return E ',1);
1785: /* Debug */
1786: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1787: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Bio_Info';
1788: l_debug_str := 'Returning E from Validate_Bio_Info.';
1789: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1790: END IF;
1785: /* Debug */
1786: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1787: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Bio_Info';
1788: l_debug_str := 'Returning E from Validate_Bio_Info.';
1789: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1790: END IF;
1791: RETURN 'E';
1792:
1793: END IF;
1795: END IF;
1796:
1797: Put_Log_Msg(l_api_name||' Successfully completed, returns S',0);
1798: /* Debug */
1799: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1800: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Bio_Info';
1801: l_debug_str := 'Returning S from Validate_Bio_Info.';
1802: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1803: END IF;
1798: /* Debug */
1799: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1800: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Bio_Info';
1801: l_debug_str := 'Returning S from Validate_Bio_Info.';
1802: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1803: END IF;
1804:
1805: RETURN 'S'; -- Successfull validation
1806:
1807: EXCEPTION
1808:
1809: WHEN OTHERS THEN
1810: /* Debug */
1811: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1812: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Bio_Info';
1813: l_debug_str := 'Exception in Validate_Bio_Info.'||SQLERRM;
1814: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1815: END IF;
1810: /* Debug */
1811: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1812: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Bio_Info';
1813: l_debug_str := 'Exception in Validate_Bio_Info.'||SQLERRM;
1814: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1815: END IF;
1816:
1817: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1818: FND_MSg_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1878: lv_region_cd IGS_PE_ALT_PERS_ID.region_cd%TYPE;
1879:
1880: BEGIN
1881: /* Debug */
1882: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1883: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Other_Info';
1884: l_debug_str := 'Entering Validate_Other_Info. Batch_id is '||p_person_rec.batch_id||' and person_id is '||p_person_rec.person_id;
1885: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1886: END IF;
1881: /* Debug */
1882: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1883: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Other_Info';
1884: l_debug_str := 'Entering Validate_Other_Info. Batch_id is '||p_person_rec.batch_id||' and person_id is '||p_person_rec.person_id;
1885: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
1886: END IF;
1887: Put_Log_Msg(l_api_name||' starts ',0);
1888:
1889: p_data_rec.batch_id := NULL; -- This will tell us if there's been any records found
1993: IF p_data_rec.batch_id IS NULL THEN
1994:
1995: Put_Log_Msg(l_api_name||' Successfully completed, no rows found returns N ',0);
1996: /* Debug */
1997: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1998: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Other_Info';
1999: l_debug_str := 'Returning N from Validate_Other_Info.';
2000: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2001: END IF;
1996: /* Debug */
1997: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
1998: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Other_Info';
1999: l_debug_str := 'Returning N from Validate_Other_Info.';
2000: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2001: END IF;
2002: RETURN 'N';
2003:
2004: ELSE
2006: IF (l_not_valid) THEN
2007:
2008: Put_Log_Msg(l_api_name||' Validation error, return E ',1);
2009: /* Debug */
2010: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2011: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Other_Info';
2012: l_debug_str := 'Returning E from Validate_Other_Info.';
2013: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2014: END IF;
2009: /* Debug */
2010: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2011: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Other_Info';
2012: l_debug_str := 'Returning E from Validate_Other_Info.';
2013: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2014: END IF;
2015:
2016: RETURN 'E';
2017:
2020: END IF;
2021:
2022: Put_Log_Msg(l_api_name||' Successfully completed, returns S',0);
2023: /* Debug */
2024: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2025: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Other_Info';
2026: l_debug_str := 'Returning S from Validate_Other_Info.';
2027: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2028: END IF;
2023: /* Debug */
2024: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2025: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Other_Info';
2026: l_debug_str := 'Returning S from Validate_Other_Info.';
2027: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2028: END IF;
2029:
2030: RETURN 'S'; -- Successfull validation
2031:
2032: EXCEPTION
2033:
2034: WHEN OTHERS THEN
2035: /* Debug */
2036: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2037: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Other_Info';
2038: l_debug_str := 'Exception in Validate_Other_Info.'||SQLERRM;
2039: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2040: END IF;
2035: /* Debug */
2036: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2037: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Other_Info';
2038: l_debug_str := 'Exception in Validate_Other_Info.'||SQLERRM;
2039: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2040: END IF;
2041:
2042: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2043: FND_MSg_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2106: BEGIN
2107:
2108: Put_Log_Msg(l_api_name||' Starts ',0);
2109: /* Debug */
2110: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2111: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_F_Addr_Info';
2112: l_debug_str := 'Entering Validate_F_Addr_Info. batch_id is '|| p_person_rec.batch_id||' and person_id is '|| p_person_rec.person_id;
2113: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2114: END IF;
2109: /* Debug */
2110: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2111: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_F_Addr_Info';
2112: l_debug_str := 'Entering Validate_F_Addr_Info. batch_id is '|| p_person_rec.batch_id||' and person_id is '|| p_person_rec.person_id;
2113: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2114: END IF;
2115:
2116:
2117: FOR c_addr_rec IN c_addr LOOP
2139: p_data_rec(l_counter).address_line1 := SUBSTR(c_addr_rec.addr_line_1||c_addr_rec.addr_line_2||c_addr_rec.addr_line_3||c_addr_rec.addr_line_4,1,60);
2140: p_data_rec(l_counter).address_line2 := SUBSTR(c_addr_rec.addr_line_1||c_addr_rec.addr_line_2||c_addr_rec.addr_line_3||c_addr_rec.addr_line_4,61,120);
2141:
2142: /* Debug */
2143: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2144: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_F_Addr_Info';
2145: l_debug_str := 'Exiting from for loop in Validate_F_Addr_Info.';
2146: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2147: END IF;
2142: /* Debug */
2143: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2144: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_F_Addr_Info';
2145: l_debug_str := 'Exiting from for loop in Validate_F_Addr_Info.';
2146: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2147: END IF;
2148:
2149: exit; -- one address is enough
2150:
2155: IF (l_counter = 0) THEN
2156:
2157: Put_Log_Msg(l_api_name||' Successfully completed, no rows found returns N ',0);
2158: /* Debug */
2159: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2160: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_F_Addr_Info';
2161: l_debug_str := 'Returning N from Validate_F_Addr_Info.';
2162: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2163: END IF;
2158: /* Debug */
2159: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2160: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_F_Addr_Info';
2161: l_debug_str := 'Returning N from Validate_F_Addr_Info.';
2162: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2163: END IF;
2164: RETURN 'N';
2165:
2166: ELSE
2192: IF l_not_valid THEN
2193:
2194: Put_Log_Msg(l_api_name||' Validation error, return E ',1);
2195: /* Debug */
2196: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2197: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_F_Addr_Info';
2198: l_debug_str := 'Returning E from Validate_F_Addr_Info.';
2199: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2200: END IF;
2195: /* Debug */
2196: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2197: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_F_Addr_Info';
2198: l_debug_str := 'Returning E from Validate_F_Addr_Info.';
2199: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2200: END IF;
2201:
2202: RETURN 'E';
2203:
2204: END IF;
2205:
2206: Put_Log_Msg(l_api_name||' Successfully completed, returns S',0);
2207: /* Debug */
2208: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2209: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_F_Addr_Info';
2210: l_debug_str := 'Returning S from Validate_F_Addr_Info.';
2211: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2212: END IF;
2207: /* Debug */
2208: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2209: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_F_Addr_Info';
2210: l_debug_str := 'Returning S from Validate_F_Addr_Info.';
2211: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2212: END IF;
2213:
2214: RETURN 'S'; -- Successfull validation
2215:
2216: EXCEPTION
2217:
2218: WHEN OTHERS THEN
2219: /* Debug */
2220: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2221: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_F_Addr_Info';
2222: l_debug_str := 'Exception in Validate_F_Addr_Info.'||SQLERRM;
2223: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2224: END IF;
2219: /* Debug */
2220: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2221: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_F_Addr_Info';
2222: l_debug_str := 'Exception in Validate_F_Addr_Info.'||SQLERRM;
2223: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2224: END IF;
2225:
2226: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2227: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
2288: l_not_valid BOOLEAN := FALSE;
2289:
2290: BEGIN
2291: /* Debug */
2292: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2293: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_US_Addr_Info';
2294: l_debug_str := 'Entering Validate_US_Addr_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
2295: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2296: END IF;
2291: /* Debug */
2292: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2293: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_US_Addr_Info';
2294: l_debug_str := 'Entering Validate_US_Addr_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
2295: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2296: END IF;
2297: Put_Log_Msg(l_api_name||' Starts ',0);
2298:
2299: FOR c_addr_rec IN c_addr LOOP
2321: p_data_rec(l_counter).last_update_date := sysdate;
2322: p_data_rec(l_counter).last_update_login := g_update_login;
2323:
2324: /* Debug */
2325: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2326: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_US_Addr_Info';
2327: l_debug_str := 'exiting from for loop in Validate_US_Addr_Info.';
2328: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2329: END IF;
2324: /* Debug */
2325: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2326: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_US_Addr_Info';
2327: l_debug_str := 'exiting from for loop in Validate_US_Addr_Info.';
2328: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2329: END IF;
2330:
2331: EXIT; -- one address is enough
2332:
2335: IF (l_counter = 0) THEN
2336:
2337: Put_Log_Msg(l_api_name||' Successfully completed, no rows found returns N ',0);
2338: /* Debug */
2339: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2340: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_US_Addr_Info';
2341: l_debug_str := 'Returning N from Validate_US_Addr_Info. ';
2342: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2343: END IF;
2338: /* Debug */
2339: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2340: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_US_Addr_Info';
2341: l_debug_str := 'Returning N from Validate_US_Addr_Info. ';
2342: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2343: END IF;
2344:
2345: RETURN 'N';
2346: ELSE
2368: IF l_not_valid THEN
2369:
2370: Put_Log_Msg(l_api_name||' Validation error, return E ',1);
2371: /* Debug */
2372: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2373: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_US_Addr_Info';
2374: l_debug_str := 'Returning E from Validate_US_Addr_Info. ';
2375: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2376: END IF;
2371: /* Debug */
2372: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2373: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_US_Addr_Info';
2374: l_debug_str := 'Returning E from Validate_US_Addr_Info. ';
2375: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2376: END IF;
2377:
2378: RETURN 'E';
2379:
2383: END IF;
2384:
2385: Put_Log_Msg(l_api_name||' Successfully completed, returns S',0);
2386: /* Debug */
2387: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2388: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_US_Addr_Info';
2389: l_debug_str := 'Returning S from Validate_US_Addr_Info. ';
2390: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2391: END IF;
2386: /* Debug */
2387: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2388: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_US_Addr_Info';
2389: l_debug_str := 'Returning S from Validate_US_Addr_Info. ';
2390: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2391: END IF;
2392:
2393: RETURN 'S'; -- Successfull validation
2394:
2395: EXCEPTION
2396:
2397: WHEN OTHERS THEN
2398: /* Debug */
2399: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2400: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_US_Addr_Info';
2401: l_debug_str := 'Exception in Validate_US_Addr_Info. '||SQLERRM;
2402: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2403: END IF;
2398: /* Debug */
2399: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2400: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_US_Addr_Info';
2401: l_debug_str := 'Exception in Validate_US_Addr_Info. '||SQLERRM;
2402: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2403: END IF;
2404:
2405: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2406: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
2610: l_site_count NUMBER(10) :=0;
2611:
2612: BEGIN
2613: /* Debug */
2614: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2615: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Site_Info';
2616: l_debug_str := 'Entering Validate_Site_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
2617: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2618: END IF;
2613: /* Debug */
2614: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2615: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Site_Info';
2616: l_debug_str := 'Entering Validate_Site_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
2617: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2618: END IF;
2619:
2620: Put_Log_Msg(l_api_name||' starts ',0);
2621:
2764: IF (l_counter = 0) THEN
2765:
2766: Put_Log_Msg(l_api_name||' Successfully completed, no rows found returns N ',0);
2767: /* Debug */
2768: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2769: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Site_Info';
2770: l_debug_str := 'Returning N from Validate_Site_Info.';
2771: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2772: END IF;
2767: /* Debug */
2768: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2769: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Site_Info';
2770: l_debug_str := 'Returning N from Validate_Site_Info.';
2771: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2772: END IF;
2773:
2774: RETURN 'N';
2775: ELSIF l_not_valid THEN
2775: ELSIF l_not_valid THEN
2776:
2777: Put_Log_Msg(l_api_name||' Validation error, return E ',1);
2778: /* Debug */
2779: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2780: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Site_Info';
2781: l_debug_str := 'Returning E from Validate_Site_Info.';
2782: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2783: END IF;
2778: /* Debug */
2779: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2780: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Site_Info';
2781: l_debug_str := 'Returning E from Validate_Site_Info.';
2782: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2783: END IF;
2784: RETURN 'E';
2785:
2786: END IF;
2788: p_records := l_counter;
2789:
2790: Put_Log_Msg(l_api_name||' Successfully completed, returns S',0);
2791: /* Debug */
2792: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2793: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Site_Info';
2794: l_debug_str := 'Returning S from Validate_Site_Info. No of SOA rec: '||l_counter;
2795: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2796: END IF;
2791: /* Debug */
2792: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2793: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Site_Info';
2794: l_debug_str := 'Returning S from Validate_Site_Info. No of SOA rec: '||l_counter;
2795: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2796: END IF;
2797:
2798: RETURN 'S'; -- Successfull validation
2799:
2800: EXCEPTION
2801:
2802: WHEN OTHERS THEN
2803: /* Debug */
2804: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2805: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Site_Info';
2806: l_debug_str := 'Exception in Validate_Site_Info.'||SQLERRM;
2807: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2808: END IF;
2803: /* Debug */
2804: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2805: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Site_Info';
2806: l_debug_str := 'Exception in Validate_Site_Info.'||SQLERRM;
2807: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2808: END IF;
2809:
2810: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2811: FND_MSg_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2894:
2895:
2896: BEGIN
2897: /* Debug */
2898: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2899: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Edu_Info
2900: ';
2901: l_debug_str := 'Entering Validate_Edu_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
2902: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2898: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2899: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Edu_Info
2900: ';
2901: l_debug_str := 'Entering Validate_Edu_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
2902: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2903: END IF;
2904:
2905: Put_Log_Msg(l_api_name||' starts ',0);
2906:
2990: IF p_data_rec.batch_id IS NULL THEN
2991:
2992: Put_Log_Msg(l_api_name||' Successfully completed, no rows found returns N ',0);
2993: /* Debug */
2994: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2995: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Edu_Info';
2996: l_debug_str := 'Returning N from Validate_Edu_Info.';
2997: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2998: END IF;
2993: /* Debug */
2994: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
2995: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Edu_Info';
2996: l_debug_str := 'Returning N from Validate_Edu_Info.';
2997: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2998: END IF;
2999:
3000: RETURN 'N';
3001:
3067: IF (l_not_valid) THEN
3068:
3069: Put_Log_Msg(l_api_name||' Validation error, return E ',1);
3070: /* Debug */
3071: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3072: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Edu_Info';
3073: l_debug_str := 'Returning E from Validate_Edu_Info.';
3074: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3075: END IF;
3070: /* Debug */
3071: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3072: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Edu_Info';
3073: l_debug_str := 'Returning E from Validate_Edu_Info.';
3074: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3075: END IF;
3076: RETURN 'E';
3077:
3078: END IF;
3080: END IF;
3081:
3082: Put_Log_Msg(l_api_name||' Successfully completed, returns S',0);
3083: /* Debug */
3084: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3085: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Edu_Info';
3086: l_debug_str := 'Returning S from Validate_Edu_Info.';
3087: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3088: END IF;
3083: /* Debug */
3084: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3085: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Edu_Info';
3086: l_debug_str := 'Returning S from Validate_Edu_Info.';
3087: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3088: END IF;
3089:
3090: RETURN 'S'; -- Successfull validation
3091:
3092: EXCEPTION
3093:
3094: WHEN OTHERS THEN
3095: /* Debug */
3096: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3097: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Edu_Info';
3098: l_debug_str := 'Exception in Validate_Edu_Info.'||SQLERRM;
3099: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3100: END IF;
3095: /* Debug */
3096: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3097: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Edu_Info';
3098: l_debug_str := 'Exception in Validate_Edu_Info.'||SQLERRM;
3099: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3100: END IF;
3101:
3102: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3103: FND_MSg_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3182: l_not_valid BOOLEAN := TRUE;
3183: BEGIN
3184:
3185: /* Debug */
3186: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3187: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Othr_Prgm_Info';
3188: l_debug_str := 'Entering Get_Othr_Prgm_Info. form_id is '||g_nonimg_form_id ||' and person_id is '||p_data_rec.person_id;
3189: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3190: END IF;
3185: /* Debug */
3186: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3187: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Othr_Prgm_Info';
3188: l_debug_str := 'Entering Get_Othr_Prgm_Info. form_id is '||g_nonimg_form_id ||' and person_id is '||p_data_rec.person_id;
3189: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3190: END IF;
3191:
3192: Put_Log_Msg(l_api_name||' starts ',0);
3193:
3249: EXCEPTION
3250:
3251: WHEN OTHERS THEN
3252: /* Debug */
3253: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3254: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Othr_Prgm_Info';
3255: l_debug_str := 'Exception in Get_Othr_Prgm_Info.'||SQLERRM;
3256: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3257: END IF;
3252: /* Debug */
3253: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3254: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Othr_Prgm_Info';
3255: l_debug_str := 'Exception in Get_Othr_Prgm_Info.'||SQLERRM;
3256: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3257: END IF;
3258:
3259: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3260: FND_MSg_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3315:
3316:
3317: BEGIN
3318: /* Debug */
3319: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3320: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Auth_Code';
3321: l_debug_str := 'Entering Insert_Edu_Info. person_id is '||p_auth_drp_data_rec.person_id|| ' and batch_id is '||p_auth_drp_data_rec.batch_id;
3322: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3323: END IF;
3318: /* Debug */
3319: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3320: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Auth_Code';
3321: l_debug_str := 'Entering Insert_Edu_Info. person_id is '||p_auth_drp_data_rec.person_id|| ' and batch_id is '||p_auth_drp_data_rec.batch_id;
3322: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3323: END IF;
3324:
3325: l_remarks := p_auth_drp_data_rec.remarks;
3326: l_prgm_start_date := p_auth_drp_data_rec.prgm_start_date;
3327: l_prgm_end_date := p_auth_drp_data_rec.prgm_end_date;
3328:
3329:
3330: /* Debug */
3331: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3332: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Auth_Code';
3333: l_debug_str := 'After assigning values to local variables';
3334: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3335: END IF;
3330: /* Debug */
3331: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3332: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Auth_Code';
3333: l_debug_str := 'After assigning values to local variables';
3334: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3335: END IF;
3336:
3337: IF p_auth_drp_data_rec.prgm_action_type = 'DB' THEN
3338: IF p_auth_drp_data_rec.auth_action_code = 'A' THEN
3373: l_english_reqd_met := l_cur_rec.english_reqd_met ;
3374: l_not_reqd_reason := l_cur_rec.not_reqd_reason;
3375:
3376: /* Debug */
3377: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3378: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Auth_Code';
3379: l_debug_str := 'After assigning values received from get_othr_prgm_info to local variables';
3380: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3381: END IF;
3376: /* Debug */
3377: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3378: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Auth_Code';
3379: l_debug_str := 'After assigning values received from get_othr_prgm_info to local variables';
3380: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3381: END IF;
3382: END IF;
3383:
3384:
3437: p_auth_drp_data_rec.sevis_auth_id ,
3438: '0'
3439: );
3440: /* Debug */
3441: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3442: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Auth_Code';
3443: l_debug_str := 'Record inserted';
3444: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3445: END IF;
3440: /* Debug */
3441: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3442: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Auth_Code';
3443: l_debug_str := 'Record inserted';
3444: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3445: END IF;
3446:
3447: EXCEPTION
3448:
3451: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
3452: END IF;
3453:
3454: /* Debug */
3455: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3456: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Auth_Code';
3457: l_debug_str := 'EXCEPTION in Insert_Auth_Code. '||SQLERRM;
3458: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3459: END IF;
3454: /* Debug */
3455: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3456: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Auth_Code';
3457: l_debug_str := 'EXCEPTION in Insert_Auth_Code. '||SQLERRM;
3458: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3459: END IF;
3460: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
3461:
3462: RAISE;
3622: c_drp_rec c_drp%ROWTYPE;
3623: BEGIN
3624:
3625: /* Debug */
3626: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3627: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3628: l_debug_str := 'Entering Validate_Prgm_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
3629: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3630: END IF;
3625: /* Debug */
3626: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3627: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3628: l_debug_str := 'Entering Validate_Prgm_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
3629: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3630: END IF;
3631:
3632: Put_Log_Msg(l_api_name||' starts ',0);
3633:
3664: p_auth_drp_data_rec(l_auth_rec_count).sevis_auth_id := l_sevis_auth_id;
3665:
3666: Put_Log_Msg('validating Authorization. Values srt. SEVIS auth ID: '||l_sevis_auth_id,0);
3667: /* Debug */
3668: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3669: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3670: l_debug_str := 'Comparing values for authorization code. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
3671: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3672: END IF;
3667: /* Debug */
3668: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3669: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3670: l_debug_str := 'Comparing values for authorization code. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
3671: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3672: END IF;
3673:
3674: OPEN c_drp(l_sevis_auth_id);
3675: FETCH c_drp INTO c_drp_rec;
3701: END IF;
3702: CLOSE c_drp;
3703:
3704: /* Debug */
3705: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3706: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3707: l_debug_str := 'Authorization values set. action type is '||p_auth_drp_data_rec(l_auth_rec_count).prgm_action_type ||' and action code is '||p_auth_drp_data_rec(l_auth_rec_count).auth_action_code;
3708: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3709: END IF;
3704: /* Debug */
3705: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3706: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3707: l_debug_str := 'Authorization values set. action type is '||p_auth_drp_data_rec(l_auth_rec_count).prgm_action_type ||' and action code is '||p_auth_drp_data_rec(l_auth_rec_count).auth_action_code;
3708: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3709: END IF;
3710:
3711:
3712: IF p_auth_drp_data_rec(l_auth_rec_count).auth_action_code IS NOT NULL AND p_auth_drp_data_rec(l_auth_rec_count).prgm_action_type IS NOT NULL THEN
3726: FND_MESSAGE.SET_TOKEN('VISA_TYPE', 'F-1');
3727: Put_Log_Msg(FND_MESSAGE.Get,1);
3728: l_not_valid := TRUE;
3729: /* Debug */
3730: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3731: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3732: l_debug_str := 'Validation failure for Authorization. Error: Invalid authorization drop below for F-1 visa';
3733: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3734: END IF;
3729: /* Debug */
3730: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3731: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3732: l_debug_str := 'Validation failure for Authorization. Error: Invalid authorization drop below for F-1 visa';
3733: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3734: END IF;
3735: ELSIF ADD_MONTHS(l_auth_end_dt,-5) > l_auth_start_dt AND l_visa_type = 'M-1' THEN
3736: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_AUTH_DRP_BLW');
3737: FND_MESSAGE.SET_TOKEN('PERSON_NUM', p_person_rec.person_number );
3739: FND_MESSAGE.SET_TOKEN('VISA_TYPE', 'M-1');
3740: Put_Log_Msg(FND_MESSAGE.Get,1);
3741: l_not_valid := TRUE;
3742: /* Debug */
3743: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3744: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3745: l_debug_str := 'Validation failure for Authorization. Error: Invalid authorization drop below for M-1 visa';
3746: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3747: END IF;
3742: /* Debug */
3743: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3744: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3745: l_debug_str := 'Validation failure for Authorization. Error: Invalid authorization drop below for M-1 visa';
3746: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3747: END IF;
3748: END IF;
3749:
3750:
3755: FND_MESSAGE.SET_TOKEN('PERSON_NUM', p_person_rec.person_number );
3756: Put_Log_Msg(FND_MESSAGE.Get,1);
3757: l_not_valid := TRUE;
3758: /* Debug */
3759: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3760: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3761: l_debug_str := 'Validation failure for Authorization. Error: Invalid authorization start date';
3762: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3763: END IF;
3758: /* Debug */
3759: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3760: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3761: l_debug_str := 'Validation failure for Authorization. Error: Invalid authorization start date';
3762: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3763: END IF;
3764: END IF;
3765: IF ((l_auth_end_dt <= sysdate) OR (l_auth_end_dt >= l_prgm_end_dt)) THEN
3766: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_INV_AUTH_END_DT'); -- Invalid authorization end date
3767: FND_MESSAGE.SET_TOKEN('PERSON_NUM', p_person_rec.person_number );
3768: Put_Log_Msg(FND_MESSAGE.Get,1);
3769: l_not_valid := TRUE;
3770: /* Debug */
3771: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3772: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3773: l_debug_str := 'Validation failure for Authorization. Error: Invalid authorization end date';
3774: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3775: END IF;
3770: /* Debug */
3771: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3772: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3773: l_debug_str := 'Validation failure for Authorization. Error: Invalid authorization end date';
3774: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3775: END IF;
3776: END IF;
3777:
3778: END IF;
3780: IF l_not_valid THEN
3781: Put_Log_Msg('validating Authorization. l_not_valid is true',0);
3782: Put_Log_Msg(l_api_name||' Validation error, return E ',1);
3783: /* Debug */
3784: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3785: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3786: l_debug_str := 'Returning E from Validate_Prgm_Info. Authorization code failed to validate.';
3787: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3788: END IF;
3783: /* Debug */
3784: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3785: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3786: l_debug_str := 'Returning E from Validate_Prgm_Info. Authorization code failed to validate.';
3787: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3788: END IF;
3789:
3790: RETURN 'E';
3791:
3860: END IF;
3861:
3862:
3863: /* Debug */
3864: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3865: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3866: l_debug_str := 'Exiting from for loop in Validate_Prgm_Info.';
3867: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3868: END IF;
3863: /* Debug */
3864: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3865: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3866: l_debug_str := 'Exiting from for loop in Validate_Prgm_Info.';
3867: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3868: END IF;
3869:
3870: -- EXIT; -- one record is enough
3871: -- Validate all the data
3948: END IF;
3949: IF l_not_valid THEN
3950: Put_Log_Msg(l_api_name||' Validation error, return E ',1);
3951: /* Debug */
3952: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3953: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3954: l_debug_str := 'Returning E from Validate_Prgm_Info.';
3955: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3956: END IF;
3951: /* Debug */
3952: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3953: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3954: l_debug_str := 'Returning E from Validate_Prgm_Info.';
3955: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3956: END IF;
3957:
3958: RETURN 'E';
3959:
3983: p_data_rec(l_counter).termination_reason := c_data_rec.termination_reason ;
3984: p_data_rec(l_counter).end_prgm_reason := c_data_rec.end_program_reason ;
3985: p_data_rec(l_counter).remarks := c_data_rec.remarks ;
3986: /* Debug */
3987: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3988: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3989: l_debug_str := 'Exiting from for loop in Validate_Prgm_Info.';
3990: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3991: END IF;
3986: /* Debug */
3987: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
3988: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
3989: l_debug_str := 'Exiting from for loop in Validate_Prgm_Info.';
3990: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3991: END IF;
3992:
3993: -- EXIT; -- one record is enough
3994: -- Validate EV date
4089:
4090: IF l_not_valid THEN
4091: Put_Log_Msg(l_api_name||' Validation error, return E ',1);
4092: /* Debug */
4093: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4094: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
4095: l_debug_str := 'Returning E from Validate_Prgm_Info.';
4096: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4097: END IF;
4092: /* Debug */
4093: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4094: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
4095: l_debug_str := 'Returning E from Validate_Prgm_Info.';
4096: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4097: END IF;
4098:
4099: RETURN 'E';
4100:
4106: p_records := l_counter;
4107: IF l_counter = 0 AND l_auth_rec_count = 0 THEN
4108: Put_Log_Msg(l_api_name||' Successfully completed, no rows found returns N ',0);
4109: /* Debug */
4110: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4111: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
4112: l_debug_str := 'Returning N from validate_empl_Info.';
4113: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4114: END IF;
4109: /* Debug */
4110: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4111: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
4112: l_debug_str := 'Returning N from validate_empl_Info.';
4113: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4114: END IF;
4115: RETURN 'N';
4116: END IF;
4117:
4117:
4118:
4119: Put_Log_Msg(l_api_name||' Successfully completed, returns S',0);
4120: /* Debug */
4121: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4122: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
4123: l_debug_str := 'Returning S from Validate_Prgm_Info.';
4124: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4125: END IF;
4120: /* Debug */
4121: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4122: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
4123: l_debug_str := 'Returning S from Validate_Prgm_Info.';
4124: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4125: END IF;
4126:
4127: RETURN 'S'; -- Successfull validation
4128:
4129: EXCEPTION
4130:
4131: WHEN OTHERS THEN
4132: /* Debug */
4133: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4134: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
4135: l_debug_str := 'Exception in Validate_Prgm_Info.'||SQLERRM;
4136: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4137: END IF;
4132: /* Debug */
4133: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4134: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Prgm_Info';
4135: l_debug_str := 'Exception in Validate_Prgm_Info.'||SQLERRM;
4136: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4137: END IF;
4138:
4139: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4140: FND_MSg_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
4254: BEGIN
4255:
4256: Put_Log_Msg(l_api_name||' starts ',0);
4257: /* Debug */
4258: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4259: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Finance_Info';
4260: l_debug_str := 'Entering Validate_Finance_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
4261: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4262: END IF;
4257: /* Debug */
4258: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4259: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Finance_Info';
4260: l_debug_str := 'Entering Validate_Finance_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
4261: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4262: END IF;
4263:
4264: p_data_rec.batch_id := NULL; -- This will tell us if there's been any records found
4265:
4384: IF p_data_rec.batch_id IS NULL THEN
4385:
4386: Put_Log_Msg(l_api_name||' Successfully completed, no rows found returns N ',0);
4387: /* Debug */
4388: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4389: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Finance_Info';
4390: l_debug_str := 'Returning N from Validate_Finance_Info.';
4391: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4392: END IF;
4387: /* Debug */
4388: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4389: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Finance_Info';
4390: l_debug_str := 'Returning N from Validate_Finance_Info.';
4391: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4392: END IF;
4393:
4394: RETURN 'N';
4395:
4471: IF (l_not_valid) THEN
4472:
4473: Put_Log_Msg(l_api_name||' Validation error, return E ',1);
4474: /* Debug */
4475: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4476: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Finance_Info';
4477: l_debug_str := 'Returning E from Validate_Finance_Info.';
4478: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4479: END IF;
4474: /* Debug */
4475: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4476: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Finance_Info';
4477: l_debug_str := 'Returning E from Validate_Finance_Info.';
4478: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4479: END IF;
4480:
4481:
4482: RETURN 'E';
4486: END IF;
4487:
4488: Put_Log_Msg(l_api_name||' Successfully completed, returns S',0);
4489: /* Debug */
4490: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4491: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Finance_Info';
4492: l_debug_str := 'Returning S from Validate_Finance_Info.';
4493: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4494: END IF;
4489: /* Debug */
4490: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4491: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Finance_Info';
4492: l_debug_str := 'Returning S from Validate_Finance_Info.';
4493: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4494: END IF;
4495:
4496:
4497: RETURN 'S'; -- Successfull validation
4499: EXCEPTION
4500:
4501: WHEN OTHERS THEN
4502: /* Debug */
4503: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4504: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Finance_Info';
4505: l_debug_str := 'Exception in Validate_Finance_Info. '||SQLERRM;
4506: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4507: END IF;
4502: /* Debug */
4503: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4504: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Finance_Info';
4505: l_debug_str := 'Exception in Validate_Finance_Info. '||SQLERRM;
4506: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4507: END IF;
4508:
4509:
4510: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4614: BEGIN
4615:
4616: Put_Log_Msg(l_api_name||' starts ',0);
4617: /* Debug */
4618: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4619: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Dependent_Info';
4620: l_debug_str := 'Entering Validate_Dependent_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
4621: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4622: END IF;
4617: /* Debug */
4618: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4619: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Dependent_Info';
4620: l_debug_str := 'Entering Validate_Dependent_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
4621: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4622: END IF;
4623:
4624:
4625:
4688: IF l_dep_person_rec.dep_status = 'E' THEN -- Validation error - mark person as invalid
4689:
4690: Put_Log_Msg('Validation error occurs ',1);
4691: /* Debug */
4692: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4693: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Dependent_Info';
4694: l_debug_str := 'Returning E from Validate_Dependent_Info.';
4695: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4696: END IF;
4691: /* Debug */
4692: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4693: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Dependent_Info';
4694: l_debug_str := 'Returning E from Validate_Dependent_Info.';
4695: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4696: END IF;
4697:
4698: RETURN 'E';
4699:
4700: ELSIF l_dep_person_rec.dep_status = 'N' THEN
4701:
4702: Put_Log_Msg('Dependent not found by Validate procedure ',0);
4703: /* Debug */
4704: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4705: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Dependent_Info';
4706: l_debug_str := 'IGS_SV_UNEXP_EXCPT_ERR Error in Validate_Dependent_Info.';
4707: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4708: END IF;
4703: /* Debug */
4704: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4705: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Dependent_Info';
4706: l_debug_str := 'IGS_SV_UNEXP_EXCPT_ERR Error in Validate_Dependent_Info.';
4707: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4708: END IF;
4709:
4710: -- probably a bug
4711: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
4735:
4736: IF p_person_rec.record_status = 'C' THEN
4737:
4738: /* Debug */
4739: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4740: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Dependent_Info';
4741: l_debug_str := 'Exiting from for loop in Validate_Dependent_Info.';
4742: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4743: END IF;
4738: /* Debug */
4739: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4740: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Dependent_Info';
4741: l_debug_str := 'Exiting from for loop in Validate_Dependent_Info.';
4742: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4743: END IF;
4744:
4745: -- EXIT; -- Just one dependent in the update mode per batch prbhardw CP enhancement
4746:
4752: IF l_counter = 0 THEN
4753:
4754: Put_Log_Msg(l_api_name||' Successfully completed, no rows found returns N ',0);
4755: /* Debug */
4756: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4757: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Dependent_Info';
4758: l_debug_str := 'Returning N from Validate_Dependent_Info.';
4759: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4760: END IF;
4755: /* Debug */
4756: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4757: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Dependent_Info';
4758: l_debug_str := 'Returning N from Validate_Dependent_Info.';
4759: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4760: END IF;
4761:
4762: RETURN 'N';
4763:
4766: p_records := l_counter;
4767:
4768: Put_Log_Msg(l_api_name||' Successfully completed, returns S',0);
4769: /* Debug */
4770: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4771: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Dependent_Info';
4772: l_debug_str := 'Returning S from Validate_Dependent_Info.';
4773: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4774: END IF;
4769: /* Debug */
4770: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4771: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Dependent_Info';
4772: l_debug_str := 'Returning S from Validate_Dependent_Info.';
4773: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4774: END IF;
4775:
4776: RETURN 'S'; -- Successfull validation
4777:
4778: EXCEPTION
4779:
4780: WHEN OTHERS THEN
4781: /* Debug */
4782: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4783: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Dependent_Info';
4784: l_debug_str := 'Exception in Validate_Dependent_Info. '||SQLERRM;
4785: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4786: END IF;
4781: /* Debug */
4782: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4783: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Dependent_Info';
4784: l_debug_str := 'Exception in Validate_Dependent_Info. '||SQLERRM;
4785: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4786: END IF;
4787:
4788: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4789: FND_MSg_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
4846:
4847: l_not_valid BOOLEAN := FALSE;
4848: BEGIN
4849: /* Debug */
4850: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4851: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Convictions_Info';
4852: l_debug_str := 'Entering Validate_Convictions_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
4853: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4854: END IF;
4849: /* Debug */
4850: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4851: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Convictions_Info';
4852: l_debug_str := 'Entering Validate_Convictions_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
4853: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4854: END IF;
4855:
4856: Put_Log_Msg(l_api_name||' starts ',0);
4857:
4882: IF p_data_rec.batch_id IS NULL THEN
4883:
4884: Put_Log_Msg(l_api_name||' Successfully completed, no rows found returns N ',0);
4885: /* Debug */
4886: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4887: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Convictions_Info';
4888: l_debug_str := 'Returning N from Validate_Convictions_Info';
4889: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4890: END IF;
4885: /* Debug */
4886: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4887: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Convictions_Info';
4888: l_debug_str := 'Returning N from Validate_Convictions_Info';
4889: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4890: END IF;
4891:
4892: RETURN 'N';
4893:
4899: Put_Log_Msg(FND_MESSAGE.Get,1);
4900:
4901: Put_Log_Msg(l_api_name||' Validation error, return E ',0);
4902: /* Debug */
4903: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4904: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Convictions_Info';
4905: l_debug_str := 'Returning E from Validate_Convictions_Info';
4906: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4907: END IF;
4902: /* Debug */
4903: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4904: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Convictions_Info';
4905: l_debug_str := 'Returning E from Validate_Convictions_Info';
4906: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4907: END IF;
4908:
4909: RETURN 'E';
4910:
4911: END IF;
4912:
4913: Put_Log_Msg(l_api_name||' Successfully completed, returns S',0);
4914: /* Debug */
4915: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4916: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Convictions_Info';
4917: l_debug_str := 'Returning S from Validate_Convictions_Info';
4918: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4919: END IF;
4914: /* Debug */
4915: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4916: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Convictions_Info';
4917: l_debug_str := 'Returning S from Validate_Convictions_Info';
4918: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4919: END IF;
4920:
4921: RETURN 'S'; -- Successfull validation
4922:
4923: EXCEPTION
4924:
4925: WHEN OTHERS THEN
4926: /* Debug */
4927: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4928: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Convictions_Info';
4929: l_debug_str := 'Exception in Validate_Convictions_Info '||SQLERRM;
4930: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4931: END IF;
4926: /* Debug */
4927: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
4928: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Convictions_Info';
4929: l_debug_str := 'Exception in Validate_Convictions_Info '||SQLERRM;
4930: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
4931: END IF;
4932:
4933: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4934: FND_MSg_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
5006: AND peva.visa_expiry_date >= trunc(sysdate);
5007:
5008: BEGIN
5009: /* Debug */
5010: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5011: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Legal_Info';
5012: l_debug_str := 'Entering Validate_Legal_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
5013: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5014: END IF;
5009: /* Debug */
5010: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5011: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Legal_Info';
5012: l_debug_str := 'Entering Validate_Legal_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
5013: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5014: END IF;
5015:
5016: Put_Log_Msg(l_api_name||' starts ',0);
5017: p_data_rec.batch_id := NULL; -- This will tell us if there's been any records found
5071: IF (p_data_rec.batch_id IS NULL) THEN
5072:
5073: Put_Log_Msg(l_api_name||' Successfully completed, no rows found returns N ',0);
5074: /* Debug */
5075: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5076: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Legal_Info';
5077: l_debug_str := 'Returning N from Validate_Legal_Info.';
5078: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5079: END IF;
5074: /* Debug */
5075: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5076: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Legal_Info';
5077: l_debug_str := 'Returning N from Validate_Legal_Info.';
5078: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5079: END IF;
5080: RETURN 'N';
5081:
5082: END IF;
5082: END IF;
5083:
5084: Put_Log_Msg(l_api_name||' Successfully completed, returns S',0);
5085: /* Debug */
5086: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5087: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Legal_Info';
5088: l_debug_str := 'Returning S from Validate_Legal_Info.';
5089: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5090: END IF;
5085: /* Debug */
5086: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5087: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Legal_Info';
5088: l_debug_str := 'Returning S from Validate_Legal_Info.';
5089: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5090: END IF;
5091: RETURN 'S'; -- Successfull validation
5092:
5093: EXCEPTION
5093: EXCEPTION
5094:
5095: WHEN OTHERS THEN
5096: /* Debug */
5097: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5098: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Legal_Info';
5099: l_debug_str := 'Exception in Validate_Legal_Info. '||SQLERRM;
5100: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5101: END IF;
5096: /* Debug */
5097: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5098: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Legal_Info';
5099: l_debug_str := 'Exception in Validate_Legal_Info. '||SQLERRM;
5100: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5101: END IF;
5102:
5103: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5104: FND_MSg_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
5156: AND peva.visa_expiry_date >= trunc(sysdate);
5157:
5158: BEGIN
5159: /* Debug */
5160: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5161: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_ev_Legal_Info';
5162: l_debug_str := 'Entering Validate_ev_Legal_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
5163: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5164: END IF;
5159: /* Debug */
5160: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5161: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_ev_Legal_Info';
5162: l_debug_str := 'Entering Validate_ev_Legal_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
5163: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5164: END IF;
5165:
5166: Put_Log_Msg(l_api_name||' starts ',0);
5167: p_data_rec.batch_id := NULL; -- This will tell us if there's been any records found
5217: IF (p_data_rec.batch_id IS NULL) THEN
5218:
5219: Put_Log_Msg(l_api_name||' Successfully completed, no rows found returns N ',0);
5220: /* Debug */
5221: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5222: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_ev_Legal_Info';
5223: l_debug_str := 'Returning N from Validate_ev_Legal_Info.';
5224: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5225: END IF;
5220: /* Debug */
5221: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5222: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_ev_Legal_Info';
5223: l_debug_str := 'Returning N from Validate_ev_Legal_Info.';
5224: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5225: END IF;
5226: RETURN 'N';
5227:
5228: END IF;
5228: END IF;
5229:
5230: Put_Log_Msg(l_api_name||' Successfully completed, returns S',0);
5231: /* Debug */
5232: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5233: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_ev_Legal_Info';
5234: l_debug_str := 'Returning S from Validate_ev_Legal_Info.';
5235: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5236: END IF;
5231: /* Debug */
5232: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5233: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_ev_Legal_Info';
5234: l_debug_str := 'Returning S from Validate_ev_Legal_Info.';
5235: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5236: END IF;
5237: RETURN 'S'; -- Successfull validation
5238:
5239: EXCEPTION
5239: EXCEPTION
5240:
5241: WHEN OTHERS THEN
5242: /* Debug */
5243: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5244: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_ev_Legal_Info';
5245: l_debug_str := 'Exception in Validate_ev_Legal_Info. '||SQLERRM;
5246: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5247: END IF;
5242: /* Debug */
5243: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5244: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_ev_Legal_Info';
5245: l_debug_str := 'Exception in Validate_ev_Legal_Info. '||SQLERRM;
5246: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5247: END IF;
5248:
5249: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5250: FND_MSg_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
5293: ORDER BY nonimg_empl_id;
5294:
5295: BEGIN
5296: /* Debug */
5297: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5298: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Empl_Info';
5299: l_debug_str := 'Entering Get_Empl_Info. p_data_rec.person_id is '||p_data_rec.person_id;
5300: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5301: END IF;
5296: /* Debug */
5297: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5298: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Empl_Info';
5299: l_debug_str := 'Entering Get_Empl_Info. p_data_rec.person_id is '||p_data_rec.person_id;
5300: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5301: END IF;
5302:
5303: Put_Log_Msg(l_api_name||' begins ',0);
5304:
5321:
5322: Put_Log_Msg('Record not found ',0);
5323: CLOSE c_data_rec;
5324: /* Debug */
5325: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5326: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Empl_Info';
5327: l_debug_str := 'Returning N from Get_Empl_Info';
5328: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5329: END IF;
5324: /* Debug */
5325: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5326: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Empl_Info';
5327: l_debug_str := 'Returning N from Get_Empl_Info';
5328: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5329: END IF;
5330: RETURN 'N';
5331:
5332: END IF;
5334: CLOSE c_data_rec;
5335:
5336: Put_Log_Msg(l_api_name||' ends S ',0);
5337: /* Debug */
5338: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5339: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Empl_Info';
5340: l_debug_str := 'Returning S from Get_Empl_Info';
5341: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5342: END IF;
5337: /* Debug */
5338: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5339: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Empl_Info';
5340: l_debug_str := 'Returning S from Get_Empl_Info';
5341: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5342: END IF;
5343: RETURN 'S';
5344:
5345: EXCEPTION
5345: EXCEPTION
5346:
5347: WHEN FND_API.G_EXC_ERROR THEN
5348: /* Debug */
5349: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5350: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Empl_Info';
5351: l_debug_str := 'Exception in Get_Empl_Info '||SQLERRM;
5352: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5353: END IF;
5348: /* Debug */
5349: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5350: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Empl_Info';
5351: l_debug_str := 'Exception in Get_Empl_Info '||SQLERRM;
5352: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5353: END IF;
5354:
5355: Put_Log_Msg(l_api_name||' EXEC ERROR ',1);
5356: RETURN 'U';
5356: RETURN 'U';
5357:
5358: WHEN OTHERS THEN
5359: /* Debug */
5360: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5361: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Empl_Info';
5362: l_debug_str := 'Exception in Get_Empl_Info '||SQLERRM;
5363: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5364: END IF;
5359: /* Debug */
5360: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5361: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Empl_Info';
5362: l_debug_str := 'Exception in Get_Empl_Info '||SQLERRM;
5363: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5364: END IF;
5365: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5366: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
5367: END IF;
5408: AND nonimg_form_id = p_person_rec.form_id;
5409:
5410: BEGIN
5411: /* Debug */
5412: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5413: l_label := 'igs.plsql.igs_sv_batch_process_pkg.validate_employment_Info';
5414: l_debug_str := 'Entering validate_employment_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
5415: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5416: END IF;
5411: /* Debug */
5412: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5413: l_label := 'igs.plsql.igs_sv_batch_process_pkg.validate_employment_Info';
5414: l_debug_str := 'Entering validate_employment_Info. p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
5415: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5416: END IF;
5417:
5418: OPEN c_get_visa_type;
5419: FETCH c_get_visa_type INTO l_visa_type;
5489: -- RETURN 'S'; -- Successfull validation
5490:
5491: END IF;
5492: /* Debug */
5493: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5494: l_label := 'igs.plsql.igs_sv_batch_process_pkg.validate_employment_Info';
5495: l_debug_str := 'Returning from validate_employment_Info';
5496: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5497: END IF;
5492: /* Debug */
5493: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5494: l_label := 'igs.plsql.igs_sv_batch_process_pkg.validate_employment_Info';
5495: l_debug_str := 'Returning from validate_employment_Info';
5496: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5497: END IF;
5498:
5499: RETURN l_not_valid;
5500:
5561:
5562: BEGIN
5563:
5564: /* Debug */
5565: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5566: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Empl_Info';
5567: l_debug_str := 'Entering validate_empl_Info p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
5568: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5569: END IF;
5564: /* Debug */
5565: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5566: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Empl_Info';
5567: l_debug_str := 'Entering validate_empl_Info p_person_rec.batch_id is '||p_person_rec.batch_id ||' and person_id is '||p_person_rec.person_id;
5568: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5569: END IF;
5570:
5571: Put_Log_Msg(l_api_name||' starts ',0);
5572:
5595: p_data_rec(l_counter).course_relevance := c_data_rec.course_relevance;
5596: p_data_rec(l_counter).action_code := c_data_rec.action_code;
5597:
5598: /* Debug */
5599: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5600: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Empl_Info';
5601: l_debug_str := 'Remarks: '||p_data_rec(l_counter).remarks||' Empl Type: '||p_data_rec(l_counter).empl_rec_type;
5602: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5603: END IF;
5598: /* Debug */
5599: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5600: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Empl_Info';
5601: l_debug_str := 'Remarks: '||p_data_rec(l_counter).remarks||' Empl Type: '||p_data_rec(l_counter).empl_rec_type;
5602: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5603: END IF;
5604:
5605: IF p_data_rec(l_counter).empl_rec_type <> 'F' THEN
5606: -- Get party id and address info
5626:
5627: IF l_not_valid THEN
5628: Put_Log_Msg(l_api_name||' Validation error, return E ',1);
5629: /* Debug */
5630: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5631: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Empl_Info';
5632: l_debug_str := 'Returning E from validate_empl_Info.';
5633: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5634: END IF;
5629: /* Debug */
5630: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5631: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Empl_Info';
5632: l_debug_str := 'Returning E from validate_empl_Info.';
5633: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5634: END IF;
5635: RETURN 'E';
5636: END IF;
5637: END LOOP;
5639: p_records := l_counter;
5640: IF l_counter = 0 THEN
5641: Put_Log_Msg(l_api_name||' Successfully completed, no rows found returns N ',0);
5642: /* Debug */
5643: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5644: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Empl_Info';
5645: l_debug_str := 'Returning N from validate_empl_Info.';
5646: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5647: END IF;
5642: /* Debug */
5643: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5644: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Empl_Info';
5645: l_debug_str := 'Returning N from validate_empl_Info.';
5646: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5647: END IF;
5648: RETURN 'N';
5649: END IF;
5650:
5651: -- Validate all the data
5652:
5653: Put_Log_Msg(l_api_name||' Successfully completed, returns S',0);
5654: /* Debug */
5655: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5656: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Empl_Info';
5657: l_debug_str := 'Returning S from validate_empl_Info.';
5658: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5659: END IF;
5654: /* Debug */
5655: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5656: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Empl_Info';
5657: l_debug_str := 'Returning S from validate_empl_Info.';
5658: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5659: END IF;
5660: RETURN 'S'; -- Successfull validation
5661: EXCEPTION
5662:
5661: EXCEPTION
5662:
5663: WHEN OTHERS THEN
5664: /* Debug */
5665: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5666: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Empl_Info';
5667: l_debug_str := 'Exception in validate_empl_Info. '||SQLERRM;
5668: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5669: END IF;
5664: /* Debug */
5665: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5666: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Validate_Empl_Info';
5667: l_debug_str := 'Exception in validate_empl_Info. '||SQLERRM;
5668: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5669: END IF;
5670:
5671: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5672: FND_MSg_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
5726: );
5727:
5728: BEGIN
5729: /* Debug */
5730: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5731: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Issue_Info';
5732: l_debug_str := 'Entering Get_Issue_Info. p_data_rec.person_id is '||p_data_rec.person_id;
5733: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5734: END IF;
5729: /* Debug */
5730: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5731: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Issue_Info';
5732: l_debug_str := 'Entering Get_Issue_Info. p_data_rec.person_id is '||p_data_rec.person_id;
5733: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5734: END IF;
5735:
5736: Put_Log_Msg(l_api_name||' begins ',0);
5737:
5759:
5760: Put_Log_Msg('Record not found ',0);
5761: CLOSE c_data_rec;
5762: /* Debug */
5763: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5764: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Issue_Info';
5765: l_debug_str := 'Returning N from Get_Issue_Info.';
5766: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5767: END IF;
5762: /* Debug */
5763: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5764: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Issue_Info';
5765: l_debug_str := 'Returning N from Get_Issue_Info.';
5766: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5767: END IF;
5768: RETURN 'N';
5769:
5770: END IF;
5772: CLOSE c_data_rec;
5773:
5774: Put_Log_Msg(l_api_name||' ends S ',0);
5775: /* Debug */
5776: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5777: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Issue_Info';
5778: l_debug_str := 'Returning S from Get_Issue_Info.';
5779: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5780: END IF;
5775: /* Debug */
5776: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5777: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Issue_Info';
5778: l_debug_str := 'Returning S from Get_Issue_Info.';
5779: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5780: END IF;
5781: RETURN 'S';
5782:
5783: EXCEPTION
5785: WHEN FND_API.G_EXC_ERROR THEN
5786:
5787: Put_Log_Msg(l_api_name||' EXEC ERROR ',1);
5788: /* Debug */
5789: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5790: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Issue_Info';
5791: l_debug_str := 'FND_API.G_EXC_ERROR in Get_Issue_Info. '||SQLERRM;
5792: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5793: END IF;
5788: /* Debug */
5789: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5790: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Issue_Info';
5791: l_debug_str := 'FND_API.G_EXC_ERROR in Get_Issue_Info. '||SQLERRM;
5792: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5793: END IF;
5794:
5795: RETURN 'U';
5796:
5799: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5800: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
5801: END IF;
5802: /* Debug */
5803: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5804: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Issue_Info';
5805: l_debug_str := 'Exception in Get_Issue_Info. '||SQLERRM;
5806: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5807: END IF;
5802: /* Debug */
5803: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5804: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Issue_Info';
5805: l_debug_str := 'Exception in Get_Issue_Info. '||SQLERRM;
5806: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5807: END IF;
5808:
5809: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
5810:
5864: );
5865:
5866: BEGIN
5867: /* Debug */
5868: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5869: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Bio_Info';
5870: l_debug_str := 'Entering Get_Bio_Info. p_data_rec.person_id is '||p_data_rec.person_id;
5871: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5872: END IF;
5867: /* Debug */
5868: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5869: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Bio_Info';
5870: l_debug_str := 'Entering Get_Bio_Info. p_data_rec.person_id is '||p_data_rec.person_id;
5871: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5872: END IF;
5873:
5874: Put_Log_Msg(l_api_name||' begins ',0);
5875:
5894:
5895: Put_Log_Msg('Record not found ',0);
5896: CLOSE c_data_rec;
5897: /* Debug */
5898: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5899: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Bio_Info';
5900: l_debug_str := 'Returning N from Get_Bio_Info.';
5901: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5902: END IF;
5897: /* Debug */
5898: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5899: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Bio_Info';
5900: l_debug_str := 'Returning N from Get_Bio_Info.';
5901: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5902: END IF;
5903: RETURN 'N';
5904:
5905: END IF;
5907: CLOSE c_data_rec;
5908:
5909: Put_Log_Msg(l_api_name||' ends S ',0);
5910: /* Debug */
5911: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5912: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Bio_Info';
5913: l_debug_str := 'Returning S from Get_Bio_Info.';
5914: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5915: END IF;
5910: /* Debug */
5911: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5912: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Bio_Info';
5913: l_debug_str := 'Returning S from Get_Bio_Info.';
5914: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5915: END IF;
5916:
5917: RETURN 'S';
5918:
5919: EXCEPTION
5920:
5921: WHEN FND_API.G_EXC_ERROR THEN
5922: /* Debug */
5923: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5924: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Bio_Info';
5925: l_debug_str := 'FND_API.G_EXC_ERROR in Get_Bio_Info. '||SQLERRM;
5926: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5927: END IF;
5922: /* Debug */
5923: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5924: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Bio_Info';
5925: l_debug_str := 'FND_API.G_EXC_ERROR in Get_Bio_Info. '||SQLERRM;
5926: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5927: END IF;
5928:
5929: Put_Log_Msg(l_api_name||' EXEC ERROR ',1);
5930:
5935: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5936: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
5937: END IF;
5938: /* Debug */
5939: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5940: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Bio_Info';
5941: l_debug_str := 'Exception in Get_Bio_Info. '||SQLERRM;
5942: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5943: END IF;
5938: /* Debug */
5939: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5940: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Bio_Info';
5941: l_debug_str := 'Exception in Get_Bio_Info. '||SQLERRM;
5942: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5943: END IF;
5944: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
5945:
5946: RETURN 'U';
5988: );
5989:
5990: BEGIN
5991: /* Debug */
5992: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5993: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Other_Info';
5994: l_debug_str := 'Entering Get_Other_Info. p_data_rec.person_id is '||p_data_rec.person_id;
5995: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5996: END IF;
5991: /* Debug */
5992: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
5993: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Other_Info';
5994: l_debug_str := 'Entering Get_Other_Info. p_data_rec.person_id is '||p_data_rec.person_id;
5995: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5996: END IF;
5997:
5998: Put_Log_Msg(l_api_name||' begins ',0);
5999:
6008:
6009: Put_Log_Msg('Record not found ',0);
6010: CLOSE c_data_rec;
6011: /* Debug */
6012: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6013: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Other_Info';
6014: l_debug_str := 'Returning N from Get_Other_Info.';
6015: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6016: END IF;
6011: /* Debug */
6012: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6013: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Other_Info';
6014: l_debug_str := 'Returning N from Get_Other_Info.';
6015: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6016: END IF;
6017:
6018: RETURN 'N';
6019:
6022: CLOSE c_data_rec;
6023:
6024: Put_Log_Msg(l_api_name||' ends S ',0);
6025: /* Debug */
6026: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6027: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Other_Info';
6028: l_debug_str := 'Returning S from Get_Other_Info.';
6029: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6030: END IF;
6025: /* Debug */
6026: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6027: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Other_Info';
6028: l_debug_str := 'Returning S from Get_Other_Info.';
6029: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6030: END IF;
6031: RETURN 'S';
6032:
6033: EXCEPTION
6035: WHEN FND_API.G_EXC_ERROR THEN
6036:
6037: Put_Log_Msg(l_api_name||' EXEC ERROR ',1);
6038: /* Debug */
6039: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6040: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Other_Info';
6041: l_debug_str := 'FND_API.G_EXC_ERROR in Get_Other_Info-- Returning U. '||SQLERRM;
6042: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6043: END IF;
6038: /* Debug */
6039: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6040: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Other_Info';
6041: l_debug_str := 'FND_API.G_EXC_ERROR in Get_Other_Info-- Returning U. '||SQLERRM;
6042: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6043: END IF;
6044: RETURN 'U';
6045:
6046: WHEN OTHERS THEN
6050: END IF;
6051:
6052: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
6053: /* Debug */
6054: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6055: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Other_Info';
6056: l_debug_str := 'Exception in Get_Other_Info-- Returning U. '||SQLERRM;
6057: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6058: END IF;
6053: /* Debug */
6054: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6055: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Other_Info';
6056: l_debug_str := 'Exception in Get_Other_Info-- Returning U. '||SQLERRM;
6057: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6058: END IF;
6059: RETURN 'U';
6060:
6061: RETURN 'U';
6117: BEGIN
6118:
6119: Put_Log_Msg(l_api_name||' begins ',0);
6120: /* Debug */
6121: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6122: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Address_Info';
6123: l_debug_str := 'Entering Get_Address_Info. p_data_rec.party_site_id is '||p_data_rec.party_site_id;
6124: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6125: END IF;
6120: /* Debug */
6121: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6122: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Address_Info';
6123: l_debug_str := 'Entering Get_Address_Info. p_data_rec.party_site_id is '||p_data_rec.party_site_id;
6124: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6125: END IF;
6126:
6127: OPEN c_data_rec;
6128: FETCH c_data_rec
6145:
6146: Put_Log_Msg('Record not found ',0);
6147: CLOSE c_data_rec;
6148: /* Debug */
6149: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6150: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Address_Info';
6151: l_debug_str := 'Returning N from Get_Address_Info.';
6152: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6153: END IF;
6148: /* Debug */
6149: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6150: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Address_Info';
6151: l_debug_str := 'Returning N from Get_Address_Info.';
6152: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6153: END IF;
6154:
6155: RETURN 'N';
6156:
6159: CLOSE c_data_rec;
6160:
6161: Put_Log_Msg(l_api_name||' ends S ',0);
6162: /* Debug */
6163: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6164: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Address_Info';
6165: l_debug_str := 'Returning S from Get_Address_Info.';
6166: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6167: END IF;
6162: /* Debug */
6163: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6164: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Address_Info';
6165: l_debug_str := 'Returning S from Get_Address_Info.';
6166: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6167: END IF;
6168: RETURN 'S';
6169:
6170: EXCEPTION
6172: WHEN FND_API.G_EXC_ERROR THEN
6173:
6174: Put_Log_Msg(l_api_name||' EXEC ERROR ',1);
6175: /* Debug */
6176: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6177: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Address_Info';
6178: l_debug_str := 'FND_API.G_EXC_ERROR in Get_Address_Info. Returning U... '||SQLERRM;
6179: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6180: END IF;
6175: /* Debug */
6176: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6177: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Address_Info';
6178: l_debug_str := 'FND_API.G_EXC_ERROR in Get_Address_Info. Returning U... '||SQLERRM;
6179: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6180: END IF;
6181:
6182: RETURN 'U';
6183:
6188: END IF;
6189:
6190: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
6191: /* Debug */
6192: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6193: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Address_Info';
6194: l_debug_str := 'EXCEPTION in Get_Address_Info. Returning U... '||SQLERRM;
6195: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6196: END IF;
6191: /* Debug */
6192: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6193: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Address_Info';
6194: l_debug_str := 'EXCEPTION in Get_Address_Info. Returning U... '||SQLERRM;
6195: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6196: END IF;
6197:
6198: RETURN 'U';
6199:
6255: BEGIN
6256:
6257: Put_Log_Msg(l_api_name||' begins ',0);
6258: /* Debug */
6259: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6260: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Edu_Info';
6261: l_debug_str := 'Entering Get_Edu_Info. p_data_rec.person_id is '||p_data_rec.person_id;
6262: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6263: END IF;
6258: /* Debug */
6259: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6260: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Edu_Info';
6261: l_debug_str := 'Entering Get_Edu_Info. p_data_rec.person_id is '||p_data_rec.person_id;
6262: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6263: END IF;
6264:
6265: OPEN c_data_rec;
6266: FETCH c_data_rec
6283:
6284: Put_Log_Msg('Record not found ',0);
6285: CLOSE c_data_rec;
6286: /* Debug */
6287: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6288: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Edu_Info';
6289: l_debug_str := 'Returning N from Get_Edu_Info.';
6290: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6291: END IF;
6286: /* Debug */
6287: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6288: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Edu_Info';
6289: l_debug_str := 'Returning N from Get_Edu_Info.';
6290: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6291: END IF;
6292: RETURN 'N';
6293:
6294: END IF;
6296: CLOSE c_data_rec;
6297:
6298: Put_Log_Msg(l_api_name||' ends S ',0);
6299: /* Debug */
6300: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6301: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Edu_Info';
6302: l_debug_str := 'Returning S from Get_Edu_Info.';
6303: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6304: END IF;
6299: /* Debug */
6300: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6301: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Edu_Info';
6302: l_debug_str := 'Returning S from Get_Edu_Info.';
6303: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6304: END IF;
6305: RETURN 'S';
6306:
6307: EXCEPTION
6309: WHEN FND_API.G_EXC_ERROR THEN
6310:
6311: Put_Log_Msg(l_api_name||' EXEC ERROR ',1);
6312: /* Debug */
6313: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6314: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Edu_Info';
6315: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Get_Edu_Info. '||SQLERRM;
6316: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6317: END IF;
6312: /* Debug */
6313: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6314: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Edu_Info';
6315: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Get_Edu_Info. '||SQLERRM;
6316: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6317: END IF;
6318:
6319: RETURN 'U';
6320:
6325: END IF;
6326:
6327: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
6328: /* Debug */
6329: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6330: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Edu_Info';
6331: l_debug_str := 'EXCEPTION: Returning U from Get_Edu_Info. '||SQLERRM;
6332: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6333: END IF;
6328: /* Debug */
6329: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6330: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Edu_Info';
6331: l_debug_str := 'EXCEPTION: Returning U from Get_Edu_Info. '||SQLERRM;
6332: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6333: END IF;
6334: RETURN 'U';
6335:
6336: END Get_Edu_Info;
6405: BEGIN
6406:
6407: Put_Log_Msg(l_api_name||' begins ',0);
6408: /* Debug */
6409: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6410: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Finance_Info';
6411: l_debug_str := 'Entering Get_Finance_Info. p_data_rec.person_id is '||p_data_rec.person_id;
6412: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6413: END IF;
6408: /* Debug */
6409: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6410: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Finance_Info';
6411: l_debug_str := 'Entering Get_Finance_Info. p_data_rec.person_id is '||p_data_rec.person_id;
6412: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6413: END IF;
6414:
6415: OPEN c_data_rec;
6416: FETCH c_data_rec
6449:
6450: Put_Log_Msg('Record not found ',0);
6451: CLOSE c_data_rec;
6452: /* Debug */
6453: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6454: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Finance_Info';
6455: l_debug_str := 'Returning N from Get_Finance_Info.';
6456: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6457: END IF;
6452: /* Debug */
6453: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6454: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Finance_Info';
6455: l_debug_str := 'Returning N from Get_Finance_Info.';
6456: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6457: END IF;
6458: RETURN 'N';
6459:
6460: END IF;
6462: CLOSE c_data_rec;
6463:
6464: Put_Log_Msg(l_api_name||' ends S ',0);
6465: /* Debug */
6466: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6467: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Finance_Info';
6468: l_debug_str := 'Returning S from Get_Finance_Info.';
6469: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6470: END IF;
6465: /* Debug */
6466: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6467: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Finance_Info';
6468: l_debug_str := 'Returning S from Get_Finance_Info.';
6469: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6470: END IF;
6471: RETURN 'S';
6472:
6473: EXCEPTION
6475: WHEN FND_API.G_EXC_ERROR THEN
6476:
6477: Put_Log_Msg(l_api_name||' EXEC ERROR ',1);
6478: /* Debug */
6479: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6480: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Finance_Info';
6481: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Get_Finance_Info. '||SQLERRM;
6482: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6483: END IF;
6478: /* Debug */
6479: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6480: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Finance_Info';
6481: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Get_Finance_Info. '||SQLERRM;
6482: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6483: END IF;
6484: RETURN 'U';
6485:
6486: WHEN OTHERS THEN
6490: END IF;
6491:
6492: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
6493: /* Debug */
6494: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6495: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Finance_Info';
6496: l_debug_str := 'EXCEPTION: Returning U from Get_Finance_Info. '||SQLERRM;
6497: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6498: END IF;
6493: /* Debug */
6494: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6495: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Finance_Info';
6496: l_debug_str := 'EXCEPTION: Returning U from Get_Finance_Info. '||SQLERRM;
6497: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6498: END IF;
6499: RETURN 'U';
6500:
6501: END Get_Finance_Info;
6558: );
6559:
6560: BEGIN
6561: /* Debug */
6562: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6563: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Dependent_Info';
6564: l_debug_str := 'Entering Get_Dependent_Info. p_data_rec.person_id is '||p_data_rec.person_id||' and p_data_rec.depdnt_id is '||p_data_rec.depdnt_id;
6565: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6566: END IF;
6561: /* Debug */
6562: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6563: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Dependent_Info';
6564: l_debug_str := 'Entering Get_Dependent_Info. p_data_rec.person_id is '||p_data_rec.person_id||' and p_data_rec.depdnt_id is '||p_data_rec.depdnt_id;
6565: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6566: END IF;
6567: Put_Log_Msg(l_api_name||' begins ',0);
6568:
6569: OPEN c_data_rec;
6591:
6592: Put_Log_Msg('Record not found ',0);
6593: CLOSE c_data_rec;
6594: /* Debug */
6595: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6596: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Dependent_Info';
6597: l_debug_str := 'Returning N from Get_Dependent_Info.';
6598: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6599: END IF;
6594: /* Debug */
6595: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6596: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Dependent_Info';
6597: l_debug_str := 'Returning N from Get_Dependent_Info.';
6598: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6599: END IF;
6600: RETURN 'N';
6601:
6602: END IF;
6604: CLOSE c_data_rec;
6605:
6606: Put_Log_Msg(l_api_name||' ends S ',0);
6607: /* Debug */
6608: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6609: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Dependent_Info';
6610: l_debug_str := 'Returning S from Get_Dependent_Info.';
6611: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6612: END IF;
6607: /* Debug */
6608: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6609: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Dependent_Info';
6610: l_debug_str := 'Returning S from Get_Dependent_Info.';
6611: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6612: END IF;
6613: RETURN 'S';
6614:
6615: EXCEPTION
6616:
6617: WHEN FND_API.G_EXC_ERROR THEN
6618: Put_Log_Msg(l_api_name||' EXEC ERROR ',1);
6619: /* Debug */
6620: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6621: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Dependent_Info';
6622: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Get_Dependent_Info. '||SQLERRM;
6623: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6624: END IF;
6619: /* Debug */
6620: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6621: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Dependent_Info';
6622: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Get_Dependent_Info. '||SQLERRM;
6623: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6624: END IF;
6625: RETURN 'U';
6626:
6627: WHEN OTHERS THEN
6630: END IF;
6631:
6632: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
6633: /* Debug */
6634: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6635: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Dependent_Info';
6636: l_debug_str := 'EXCEPTION: Returning U from Get_Dependent_Info. '||SQLERRM;
6637: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6638: END IF;
6633: /* Debug */
6634: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6635: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Dependent_Info';
6636: l_debug_str := 'EXCEPTION: Returning U from Get_Dependent_Info. '||SQLERRM;
6637: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6638: END IF;
6639: RETURN 'U';
6640:
6641: END Get_Dependent_Info;
6691: BEGIN
6692:
6693: Put_Log_Msg(l_api_name||' begins ',0);
6694: /* Debug */
6695: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6696: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Legal_Info';
6697: l_debug_str := 'Entering Get_Legal_Info. p_data_rec.person_id is '||p_data_rec.person_id;
6698: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6699: END IF;
6694: /* Debug */
6695: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6696: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Legal_Info';
6697: l_debug_str := 'Entering Get_Legal_Info. p_data_rec.person_id is '||p_data_rec.person_id;
6698: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6699: END IF;
6700:
6701: OPEN c_data_rec;
6702: FETCH c_data_rec
6717:
6718: Put_Log_Msg('Record not found ',0);
6719: CLOSE c_data_rec;
6720: /* Debug */
6721: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6722: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Legal_Info';
6723: l_debug_str := 'Returning N from Get_Legal_Info.';
6724: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6725: END IF;
6720: /* Debug */
6721: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6722: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Legal_Info';
6723: l_debug_str := 'Returning N from Get_Legal_Info.';
6724: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6725: END IF;
6726: g_legal_status := 'NEW';
6727: RETURN 'N';
6728:
6731: CLOSE c_data_rec;
6732: g_legal_status := 'EDIT';
6733: Put_Log_Msg(l_api_name||' ends S ',0);
6734: /* Debug */
6735: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6736: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Legal_Info';
6737: l_debug_str := 'Returning S from Get_Legal_Info.';
6738: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6739: END IF;
6734: /* Debug */
6735: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6736: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Legal_Info';
6737: l_debug_str := 'Returning S from Get_Legal_Info.';
6738: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6739: END IF;
6740:
6741: RETURN 'S';
6742:
6745: WHEN FND_API.G_EXC_ERROR THEN
6746:
6747: Put_Log_Msg(l_api_name||' EXEC ERROR ',1);
6748: /* Debug */
6749: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6750: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Legal_Info';
6751: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Get_Legal_Info. '||SQLERRM;
6752: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6753: END IF;
6748: /* Debug */
6749: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6750: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Legal_Info';
6751: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Get_Legal_Info. '||SQLERRM;
6752: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6753: END IF;
6754: RETURN 'U';
6755:
6756: WHEN OTHERS THEN
6760: END IF;
6761:
6762: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
6763: /* Debug */
6764: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6765: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Legal_Info';
6766: l_debug_str := 'EXCEPTION: Returning U from Get_Legal_Info. '||SQLERRM;
6767: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6768: END IF;
6763: /* Debug */
6764: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6765: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_Legal_Info';
6766: l_debug_str := 'EXCEPTION: Returning U from Get_Legal_Info. '||SQLERRM;
6767: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6768: END IF;
6769: RETURN 'U';
6770:
6771: END Get_Legal_Info;
6794: l_api_name CONSTANT VARCHAR(30) := 'Update_Issue_Info';
6795:
6796: BEGIN
6797: /* Debug */
6798: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6799: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Issue_Info';
6800: l_debug_str := 'Entering Update_Issue_Info. p_data_rec.person_id is '||p_data_rec.person_id|| ' and p_data_rec.batch_id is '||p_data_rec.batch_id;
6801: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6802: END IF;
6797: /* Debug */
6798: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6799: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Issue_Info';
6800: l_debug_str := 'Entering Update_Issue_Info. p_data_rec.person_id is '||p_data_rec.person_id|| ' and p_data_rec.batch_id is '||p_data_rec.batch_id;
6801: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6802: END IF;
6803:
6804: UPDATE IGS_SV_PERSONS
6805: SET issuing_reason = p_data_rec.issuing_reason,
6824: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6825: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
6826: END IF;
6827: /* Debug */
6828: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6829: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Issue_Info';
6830: l_debug_str := 'EXCEPTION in Update_Issue_Info. '||SQLERRM;
6831: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6832: END IF;
6827: /* Debug */
6828: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6829: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Issue_Info';
6830: l_debug_str := 'EXCEPTION in Update_Issue_Info. '||SQLERRM;
6831: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6832: END IF;
6833: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
6834:
6835: RAISE;
6860: l_api_name CONSTANT VARCHAR(30) := 'Insert_Bio_Info';
6861:
6862: BEGIN
6863: /* Debug */
6864: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6865: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Bio_Info';
6866: l_debug_str := 'Entering Insert_Bio_Info. p_data_rec.person_id is '||p_data_rec.person_id|| ' and p_data_rec.batch_id is '||p_data_rec.batch_id;
6867: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6868: END IF;
6863: /* Debug */
6864: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6865: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Bio_Info';
6866: l_debug_str := 'Entering Insert_Bio_Info. p_data_rec.person_id is '||p_data_rec.person_id|| ' and p_data_rec.batch_id is '||p_data_rec.batch_id;
6867: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6868: END IF;
6869: Insert_Summary_Info(p_data_rec.batch_id,
6870: p_data_rec.person_id,
6871: g_person_status,
6932: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6933: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
6934: END IF;
6935: /* Debug */
6936: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6937: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Bio_Info';
6938: l_debug_str := 'EXCEPTION in Insert_Bio_Info. '||SQLERRM;
6939: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6940: END IF;
6935: /* Debug */
6936: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6937: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Bio_Info';
6938: l_debug_str := 'EXCEPTION in Insert_Bio_Info. '||SQLERRM;
6939: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6940: END IF;
6941: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
6942: RAISE;
6943:
6968: l_api_name CONSTANT VARCHAR(30) := 'Insert_Other_Info';
6969:
6970: BEGIN
6971: /* Debug */
6972: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6973: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Other_Info';
6974: l_debug_str := 'Entering Insert_Other_Info. p_data_rec.person_id is '||p_data_rec.person_id|| ' and p_data_rec.batch_id is '||p_data_rec.batch_id;
6975: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6976: END IF;
6971: /* Debug */
6972: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
6973: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Other_Info';
6974: l_debug_str := 'Entering Insert_Other_Info. p_data_rec.person_id is '||p_data_rec.person_id|| ' and p_data_rec.batch_id is '||p_data_rec.batch_id;
6975: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6976: END IF;
6977: Insert_Summary_Info(p_data_rec.batch_id,
6978: p_data_rec.person_id,
6979: g_person_status,
7017: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
7018: END IF;
7019:
7020: /* Debug */
7021: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7022: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Other_Info';
7023: l_debug_str := 'EXCEPTION in Insert_Other_Info. '||SQLERRM;
7024: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7025: END IF;
7020: /* Debug */
7021: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7022: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Other_Info';
7023: l_debug_str := 'EXCEPTION in Insert_Other_Info. '||SQLERRM;
7024: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7025: END IF;
7026: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
7027:
7028: RAISE;
7058: l_btch_id NUMBER(14);
7059: l_remarks VARCHAR2(500);
7060: BEGIN
7061: /* Debug */
7062: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7063: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Address_Info';
7064: l_debug_str := 'Entering Insert_Address_Info. Number of records: '||p_records;
7065: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7066: END IF;
7061: /* Debug */
7062: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7063: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Address_Info';
7064: l_debug_str := 'Entering Insert_Address_Info. Number of records: '||p_records;
7065: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7066: END IF;
7067:
7068: FOR l_count IN 1..p_records LOOP
7069: IF p_data_rec(l_count).batch_id IS NOT NULL THEN
7173: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
7174: END IF;
7175:
7176: /* Debug */
7177: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7178: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Address_Info';
7179: l_debug_str := 'EXCEPTION in Insert_Address_Info. '||SQLERRM;
7180: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7181: END IF;
7176: /* Debug */
7177: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7178: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Address_Info';
7179: l_debug_str := 'EXCEPTION in Insert_Address_Info. '||SQLERRM;
7180: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7181: END IF;
7182: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
7183: RAISE;
7184:
7232: l_remarks igs_pe_ev_form.subject_field_remarks%TYPE;
7233:
7234: BEGIN
7235: /* Debug */
7236: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7237: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Edu_Info';
7238: l_debug_str := 'Entering Insert_Edu_Info. p_data_rec.person_id is '||p_data_rec.person_id|| ' and p_data_rec.batch_id is '||p_data_rec.batch_id;
7239: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7240: END IF;
7235: /* Debug */
7236: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7237: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Edu_Info';
7238: l_debug_str := 'Entering Insert_Edu_Info. p_data_rec.person_id is '||p_data_rec.person_id|| ' and p_data_rec.batch_id is '||p_data_rec.batch_id;
7239: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7240: END IF;
7241: l_position_code := p_data_rec.position_code;
7242: l_subject_field_code := p_data_rec.subject_field_code;
7243: l_remarks := p_data_rec.remarks;
7253: l_prgm_start_date := p_data_rec.prgm_start_date;
7254: l_prgm_end_date := p_data_rec.prgm_end_date;
7255:
7256: /* Debug */
7257: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7258: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Edu_Info';
7259: l_debug_str := 'After assigning values to local variables';
7260: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7261: END IF;
7256: /* Debug */
7257: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7258: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Edu_Info';
7259: l_debug_str := 'After assigning values to local variables';
7260: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7261: END IF;
7262: -- Nonimg action types:
7263: -- C Complete Program
7264: -- T Terminate Program
7363: IF p_data_rec.prgm_end_date IS NULL THEN
7364: l_prgm_end_date := l_cur_rec.prgm_end_date;
7365: END IF;
7366: /* Debug */
7367: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7368: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Edu_Info';
7369: l_debug_str := 'After assigning values received from get_othr_prgm_info to local variables';
7370: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7371: END IF;
7366: /* Debug */
7367: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7368: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Edu_Info';
7369: l_debug_str := 'After assigning values received from get_othr_prgm_info to local variables';
7370: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7371: END IF;
7372: END IF;
7373:
7374: ELSE
7456: p_data_rec.auth_action_code
7457: );
7458:
7459: /* Debug */
7460: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7461: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Edu_Info';
7462: l_debug_str := 'Record inserted';
7463: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7464: END IF;
7459: /* Debug */
7460: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7461: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Edu_Info';
7462: l_debug_str := 'Record inserted';
7463: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7464: END IF;
7465:
7466: EXCEPTION
7467:
7470: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
7471: END IF;
7472:
7473: /* Debug */
7474: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7475: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Edu_Info';
7476: l_debug_str := 'EXCEPTION in Insert_Edu_Info. '||SQLERRM;
7477: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7478: END IF;
7473: /* Debug */
7474: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7475: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Edu_Info';
7476: l_debug_str := 'EXCEPTION in Insert_Edu_Info. '||SQLERRM;
7477: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7478: END IF;
7479: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
7480:
7481: RAISE;
7506: l_api_name CONSTANT VARCHAR(30) := 'Insert_Finance_Info';
7507:
7508: BEGIN
7509: /* Debug */
7510: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7511: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Finance_Info';
7512: l_debug_str := 'Entering Insert_Finance_Info. p_data_rec.person_id is '||p_data_rec.person_id|| ' and p_data_rec.batch_id is '||p_data_rec.batch_id;
7513: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7514: END IF;
7509: /* Debug */
7510: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7511: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Finance_Info';
7512: l_debug_str := 'Entering Insert_Finance_Info. p_data_rec.person_id is '||p_data_rec.person_id|| ' and p_data_rec.batch_id is '||p_data_rec.batch_id;
7513: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7514: END IF;
7515: Insert_Summary_Info(p_data_rec.batch_id,
7516: p_data_rec.person_id,
7517: g_person_status,
7608: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
7609: END IF;
7610:
7611: /* Debug */
7612: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7613: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Finance_Info';
7614: l_debug_str := 'EXCEPTION in Insert_Finance_Info. '||SQLERRM;
7615: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7616: END IF;
7611: /* Debug */
7612: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7613: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Finance_Info';
7614: l_debug_str := 'EXCEPTION in Insert_Finance_Info. '||SQLERRM;
7615: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7616: END IF;
7617: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
7618:
7619: RAISE;
7649: l_btch_id NUMBER(14);
7650:
7651: BEGIN
7652: /* Debug */
7653: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7654: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Dependent_Info';
7655: l_debug_str := 'Entering Insert_Dependent_Info.Number of records being inserted: '||p_records;
7656: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7657: END IF;
7652: /* Debug */
7653: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7654: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Dependent_Info';
7655: l_debug_str := 'Entering Insert_Dependent_Info.Number of records being inserted: '||p_records;
7656: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7657: END IF;
7658:
7659: FOR l_count IN 1..p_records LOOP
7660: IF p_data_rec(l_count).depdnt_id IS NOT NULL THEN
7758: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7759: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
7760: END IF;
7761: /* Debug */
7762: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7763: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Dependent_Info';
7764: l_debug_str := 'EXCEPTION in Insert_Dependent_Info. '||SQLERRM;
7765: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7766: END IF;
7761: /* Debug */
7762: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7763: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Dependent_Info';
7764: l_debug_str := 'EXCEPTION in Insert_Dependent_Info. '||SQLERRM;
7765: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7766: END IF;
7767: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
7768:
7769: RAISE;
7783: l_btch_id NUMBER(14);
7784:
7785: BEGIN
7786: /* Debug */
7787: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7788: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Dependent_Info';
7789: l_debug_str := 'Entering Insert_Dependent_Info.';
7790: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7791: END IF;
7786: /* Debug */
7787: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7788: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Dependent_Info';
7789: l_debug_str := 'Entering Insert_Dependent_Info.';
7790: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7791: END IF;
7792:
7793: IF p_data_rec.depdnt_id IS NOT NULL THEN
7794: IF g_person_status = 'NEW' THEN
7890: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7891: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
7892: END IF;
7893: /* Debug */
7894: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7895: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Dependent_Info';
7896: l_debug_str := 'EXCEPTION in Insert_Dependent_Info. '||SQLERRM;
7897: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7898: END IF;
7893: /* Debug */
7894: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7895: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Dependent_Info';
7896: l_debug_str := 'EXCEPTION in Insert_Dependent_Info. '||SQLERRM;
7897: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7898: END IF;
7899: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
7900:
7901: RAISE;
7925: l_count NUMBER(10);
7926:
7927: BEGIN
7928: /* Debug */
7929: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7930: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Convictions_Info';
7931: l_debug_str := 'Entering Insert_Convictions_Info. p_data_rec.person_id is '||p_data_rec.person_id|| ' and p_data_rec.batch_id is '||p_data_rec.batch_id;
7932: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7933: END IF;
7928: /* Debug */
7929: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7930: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Convictions_Info';
7931: l_debug_str := 'Entering Insert_Convictions_Info. p_data_rec.person_id is '||p_data_rec.person_id|| ' and p_data_rec.batch_id is '||p_data_rec.batch_id;
7932: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7933: END IF;
7934: Insert_Summary_Info(p_data_rec.batch_id,
7935: p_data_rec.person_id,
7936: g_person_status,
7971: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
7972: END IF;
7973:
7974: /* Debug */
7975: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7976: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Convictions_Info';
7977: l_debug_str := 'EXCEPTION in Insert_Convictions_Info. '||SQLERRM;
7978: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7979: END IF;
7974: /* Debug */
7975: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
7976: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Convictions_Info';
7977: l_debug_str := 'EXCEPTION in Insert_Convictions_Info. '||SQLERRM;
7978: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
7979: END IF;
7980: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
7981:
7982: RAISE;
8005: l_api_name CONSTANT VARCHAR(30) := 'Insert_Legal_Info';
8006:
8007: BEGIN
8008: /* Debug */
8009: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8010: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Legal_Info';
8011: l_debug_str := 'Entering Insert_Legal_Info. p_data_rec.person_id is '||p_data_rec.person_id|| ' and p_data_rec.batch_id is '||p_data_rec.batch_id;
8012: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8013: END IF;
8008: /* Debug */
8009: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8010: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Legal_Info';
8011: l_debug_str := 'Entering Insert_Legal_Info. p_data_rec.person_id is '||p_data_rec.person_id|| ' and p_data_rec.batch_id is '||p_data_rec.batch_id;
8012: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8013: END IF;
8014: Insert_Summary_Info(p_data_rec.batch_id,
8015: p_data_rec.person_id,
8016: g_legal_status, --g_person_status, commented for bug 5253779
8069: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
8070: END IF;
8071:
8072: /* Debug */
8073: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8074: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Legal_Info';
8075: l_debug_str := 'EXCEPTION in Insert_Legal_Info. '||SQLERRM;
8076: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8077: END IF;
8072: /* Debug */
8073: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8074: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Legal_Info';
8075: l_debug_str := 'EXCEPTION in Insert_Legal_Info. '||SQLERRM;
8076: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8077: END IF;
8078: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
8079:
8080: RAISE;
8105: l_tag_code VARCHAR2(30);
8106: l_btch_id NUMBER(14);
8107: BEGIN
8108: /* Debug */
8109: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8110: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Empl_Info';
8111: l_debug_str := 'Entering Insert_Empl_Info. p_data_rec.person_id is '||p_data_rec.person_id|| ' and p_data_rec.batch_id is '||p_data_rec.batch_id;
8112: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8113: END IF;
8108: /* Debug */
8109: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8110: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Empl_Info';
8111: l_debug_str := 'Entering Insert_Empl_Info. p_data_rec.person_id is '||p_data_rec.person_id|| ' and p_data_rec.batch_id is '||p_data_rec.batch_id;
8112: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8113: END IF;
8114: IF g_person_status = 'NEW' THEN
8115: l_action := g_person_status;
8116: ELSIF p_data_rec.action_code = 'C' THEN
8139: 'SEND',
8140: 'IGS_SV_EMPL_INFO',
8141: p_data_rec.nonimg_empl_id);
8142: /* Debug */
8143: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8144: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
8145: l_debug_str := 'mut_exclusive chk returns '||l_btch_id||' for batch: '||p_data_rec.batch_id||'person: '||p_data_rec.person_id||' action: '||l_action||' tag: '||l_tag_code;
8146: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8147: END IF;
8142: /* Debug */
8143: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8144: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
8145: l_debug_str := 'mut_exclusive chk returns '||l_btch_id||' for batch: '||p_data_rec.batch_id||'person: '||p_data_rec.person_id||' action: '||l_action||' tag: '||l_tag_code;
8146: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8147: END IF;
8148:
8149: INSERT INTO igs_sv_empl_info (
8150: batch_id ,
8206: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
8207: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
8208: END IF;
8209: /* Debug */
8210: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8211: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Empl_Info';
8212: l_debug_str := 'EXCEPTION in Insert_Empl_Info. '||SQLERRM;
8213: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8214: END IF;
8209: /* Debug */
8210: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8211: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Empl_Info';
8212: l_debug_str := 'EXCEPTION in Insert_Empl_Info. '||SQLERRM;
8213: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8214: END IF;
8215: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
8216:
8217: RAISE;
8288:
8289:
8290: BEGIN
8291: /* Debug */
8292: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8293: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8294: l_debug_str := 'Entering Update_Registration_Info. p_person_rec.person_id is '||p_person_rec.person_id|| ' and p_person_rec.batch_type is '||p_person_rec.batch_type;
8295: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8296: END IF;
8291: /* Debug */
8292: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8293: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8294: l_debug_str := 'Entering Update_Registration_Info. p_person_rec.person_id is '||p_person_rec.person_id|| ' and p_person_rec.batch_type is '||p_person_rec.batch_type;
8295: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8296: END IF;
8297:
8298: Put_Log_Msg(l_api_name||' begins ',0);
8299:
8326: p_person_rec.person_status := 'I';
8327:
8328: Put_Log_Msg('Validation error occurs ',1);
8329: /* Debug */
8330: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8331: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8332: l_debug_str := 'Returning S from Update_Registration_Info.';
8333: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8334: END IF;
8329: /* Debug */
8330: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8331: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8332: l_debug_str := 'Returning S from Update_Registration_Info.';
8333: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8334: END IF;
8335:
8336: RETURN 'S';
8337:
8338: ELSIF p_person_rec.legal_status = 'U' THEN --Unexpected error - terminate execution
8339:
8340: Put_Log_Msg('Unexpected error returned by validation ',1);
8341: /* Debug */
8342: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8343: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8344: l_debug_str := 'Unexpected error in Update_Registration_Info.';
8345: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8346: END IF;
8341: /* Debug */
8342: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8343: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8344: l_debug_str := 'Unexpected error in Update_Registration_Info.';
8345: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8346: END IF;
8347:
8348: RAISE FND_API.G_EXC_ERROR;
8349:
8356: l_status := Get_Legal_Info ( p_data_rec => l_prev_rec);
8357:
8358: IF l_status = 'U' THEN
8359: /* Debug */
8360: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8361: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8362: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Registration_Info.';
8363: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8364: END IF;
8359: /* Debug */
8360: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8361: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8362: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Registration_Info.';
8363: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8364: END IF;
8365:
8366: RAISE FND_API.G_EXC_ERROR;
8367:
8426: Put_Log_Msg(FND_MESSAGE.Get,1);
8427:
8428: p_person_rec.person_status := 'I';
8429: /* Debug
8430: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8431: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8432: l_debug_str := 'Returning S from Update_Registration_Info.';
8433: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8434: END IF;
8429: /* Debug
8430: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8431: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8432: l_debug_str := 'Returning S from Update_Registration_Info.';
8433: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8434: END IF;
8435:
8436: RETURN 'S';
8437:
8463: p_person_rec.person_status := 'I';
8464:
8465: Put_Log_Msg('Validation error occurs - return S ',1);
8466: /* Debug */
8467: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8468: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8469: l_debug_str := 'Returning S from Update_Registration_Info.';
8470: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8471: END IF;
8466: /* Debug */
8467: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8468: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8469: l_debug_str := 'Returning S from Update_Registration_Info.';
8470: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8471: END IF;
8472:
8473: RETURN 'S';
8474:
8487: Put_Log_Msg(FND_MESSAGE.Get,1);
8488:
8489: p_person_rec.person_status := 'I';
8490: /* Debug */
8491: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8492: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8493: l_debug_str := 'Returning S from Update_Registration_Info.';
8494: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8495: END IF;
8490: /* Debug */
8491: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8492: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8493: l_debug_str := 'Returning S from Update_Registration_Info.';
8494: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8495: END IF;
8496:
8497: RETURN 'S';
8498:
8509: WHEN FND_API.G_EXC_ERROR THEN
8510:
8511: Put_Log_Msg(l_api_name||' EXEC_ERROR returns U',1);
8512: /* Debug */
8513: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8514: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8515: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_Registration_Info. '||SQLERRM;
8516: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8517: END IF;
8512: /* Debug */
8513: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8514: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8515: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_Registration_Info. '||SQLERRM;
8516: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8517: END IF;
8518: RETURN 'U';
8519:
8520: WHEN OTHERS THEN
8524: END IF;
8525:
8526: Put_Log_Msg(l_api_name||' OTHERS return U',1);
8527: /* Debug */
8528: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8529: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8530: l_debug_str := 'EXCEPTION: Returning U from Update_Registration_Info. '||SQLERRM;
8531: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8532: END IF;
8527: /* Debug */
8528: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8529: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Registration_Info';
8530: l_debug_str := 'EXCEPTION: Returning U from Update_Registration_Info. '||SQLERRM;
8531: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8532: END IF;
8533: RETURN 'U';
8534:
8535: END Update_Registration_Info;
8552:
8553:
8554: BEGIN
8555: /* Debug */
8556: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8557: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_ev_Legal_Info';
8558: l_debug_str := 'Entering Update_ev_Legal_Info. p_person_rec.person_id is '||p_person_rec.person_id|| ' and p_person_rec.batch_type is '||p_person_rec.batch_type;
8559: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8560: END IF;
8555: /* Debug */
8556: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8557: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_ev_Legal_Info';
8558: l_debug_str := 'Entering Update_ev_Legal_Info. p_person_rec.person_id is '||p_person_rec.person_id|| ' and p_person_rec.batch_type is '||p_person_rec.batch_type;
8559: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8560: END IF;
8561:
8562: Put_Log_Msg(l_api_name||' begins ',0);
8563:
8571: p_person_rec.person_status := 'I';
8572:
8573: Put_Log_Msg('Validation error occurs ',1);
8574: /* Debug */
8575: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8576: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_ev_Legal_Info';
8577: l_debug_str := 'Returning S from Update_ev_Legal_Info.';
8578: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8579: END IF;
8574: /* Debug */
8575: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8576: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_ev_Legal_Info';
8577: l_debug_str := 'Returning S from Update_ev_Legal_Info.';
8578: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8579: END IF;
8580:
8581: RETURN 'S';
8582:
8583: ELSIF p_person_rec.legal_status = 'U' THEN --Unexpected error - terminate execution
8584:
8585: Put_Log_Msg('Unexpected error returned by validation ',1);
8586: /* Debug */
8587: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8588: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_ev_Legal_Info';
8589: l_debug_str := 'Unexpected error in Update_ev_Legal_Info.';
8590: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8591: END IF;
8586: /* Debug */
8587: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8588: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_ev_Legal_Info';
8589: l_debug_str := 'Unexpected error in Update_ev_Legal_Info.';
8590: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8591: END IF;
8592:
8593: RAISE FND_API.G_EXC_ERROR;
8594:
8600:
8601: l_status := Get_Legal_Info ( p_data_rec => l_prev_rec);
8602: IF l_status = 'U' THEN
8603: /* Debug */
8604: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8605: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_ev_Legal_Info';
8606: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_ev_Legal_Info.';
8607: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8608: END IF;
8603: /* Debug */
8604: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8605: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_ev_Legal_Info';
8606: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_ev_Legal_Info.';
8607: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8608: END IF;
8609:
8610: RAISE FND_API.G_EXC_ERROR;
8611:
8610: RAISE FND_API.G_EXC_ERROR;
8611:
8612: END IF;
8613:
8614: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8615: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Previous_Legal_Info';
8616: l_debug_str := 'psprt_issuing_cntry_code=' || l_prev_rec.psprt_issuing_cntry_code;
8617: l_debug_str := l_debug_str || 'psprt_exp_date=' || l_prev_rec.psprt_exp_date;
8618: l_debug_str := l_debug_str || 'visa_number=' || l_prev_rec.visa_number ;
8623: l_debug_str := l_debug_str || 'port_of_entry=' || l_prev_rec.port_of_entry;
8624: l_debug_str := l_debug_str || 'date_of_entry=' || l_prev_rec.date_of_entry;
8625: l_debug_str := l_debug_str || 'remarks=' || l_prev_rec.remarks;
8626: l_debug_str := l_debug_str || 'visa_issue_date=' || l_prev_rec.visa_issue_date ;
8627: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8628: END IF;
8629:
8630: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8631: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Current_Legal_Info';
8626: l_debug_str := l_debug_str || 'visa_issue_date=' || l_prev_rec.visa_issue_date ;
8627: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8628: END IF;
8629:
8630: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8631: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Current_Legal_Info';
8632: l_debug_str := 'psprt_issuing_cntry_code=' || l_cur_rec.psprt_issuing_cntry_code;
8633: l_debug_str := l_debug_str || 'psprt_exp_date=' || l_cur_rec.psprt_exp_date;
8634: l_debug_str := l_debug_str || 'visa_number=' || l_cur_rec.visa_number ;
8639: l_debug_str := l_debug_str || 'port_of_entry=' || l_cur_rec.port_of_entry;
8640: l_debug_str := l_debug_str || 'date_of_entry=' || l_cur_rec.date_of_entry;
8641: l_debug_str := l_debug_str || 'remarks=' || l_cur_rec.remarks;
8642: l_debug_str := l_debug_str || 'visa_issue_date=' || l_cur_rec.visa_issue_date ;
8643: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8644: END IF;
8645:
8646: IF l_status = 'N' OR
8647: ( l_prev_rec.psprt_number
8694: WHEN FND_API.G_EXC_ERROR THEN
8695:
8696: Put_Log_Msg(l_api_name||' EXEC_ERROR returns U',1);
8697: /* Debug */
8698: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8699: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_ev_Legal_Info';
8700: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_ev_Legal_Info. '||SQLERRM;
8701: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8702: END IF;
8697: /* Debug */
8698: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8699: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_ev_Legal_Info';
8700: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_ev_Legal_Info. '||SQLERRM;
8701: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8702: END IF;
8703: RETURN 'U';
8704:
8705: WHEN OTHERS THEN
8709: END IF;
8710:
8711: Put_Log_Msg(l_api_name||' OTHERS return U',1);
8712: /* Debug */
8713: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8714: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_ev_Legal_Info';
8715: l_debug_str := 'EXCEPTION: Returning U from Update_ev_Legal_Info. '||SQLERRM;
8716: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8717: END IF;
8712: /* Debug */
8713: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8714: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_ev_Legal_Info';
8715: l_debug_str := 'EXCEPTION: Returning U from Update_ev_Legal_Info. '||SQLERRM;
8716: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8717: END IF;
8718: RETURN 'U';
8719:
8720: END Update_ev_Legal_Info;
8768: BEGIN
8769:
8770: Put_Log_Msg(l_api_name||' begins ',0);
8771: /* Debug */
8772: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8773: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
8774: l_debug_str := 'Entering Update_EV_Address_Info. p_person_rec.form_id is '||p_person_rec.form_id;
8775: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8776: END IF;
8771: /* Debug */
8772: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8773: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
8774: l_debug_str := 'Entering Update_EV_Address_Info. p_person_rec.form_id is '||p_person_rec.form_id;
8775: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8776: END IF;
8777:
8778:
8779: --Get valid flag
8794: p_person_rec.person_status := 'I';
8795:
8796: Put_Log_Msg('Validation error occurs - return S ',1);
8797: /* Debug */
8798: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8799: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
8800: l_debug_str := 'Returning S from Update_EV_Address_Info.';
8801: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8802: END IF;
8797: /* Debug */
8798: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8799: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
8800: l_debug_str := 'Returning S from Update_EV_Address_Info.';
8801: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8802: END IF;
8803:
8804: RETURN 'S';
8805:
8806: ELSIF p_person_rec.us_addr_status = 'U' THEN --Unexpected error - terminate execution
8807:
8808: Put_Log_Msg('Unexpected error returned by validation ',1);
8809: /* Debug */
8810: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8811: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
8812: l_debug_str := 'Unexpected error in Update_EV_Address_Info.';
8813: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8814: END IF;
8809: /* Debug */
8810: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8811: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
8812: l_debug_str := 'Unexpected error in Update_EV_Address_Info.';
8813: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8814: END IF;
8815:
8816: RAISE FND_API.G_EXC_ERROR;
8817:
8823: Put_Log_Msg(FND_MESSAGE.Get,1);
8824:
8825: p_person_rec.person_status := 'I';
8826: /* Debug */
8827: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8828: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
8829: l_debug_str := 'Returning S from Update_EV_Address_Info.';
8830: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8831: END IF;
8826: /* Debug */
8827: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8828: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
8829: l_debug_str := 'Returning S from Update_EV_Address_Info.';
8830: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8831: END IF;
8832:
8833: RETURN 'S';
8834:
8882:
8883: ELSE
8884: --Error found l_status = 'U'
8885: /* Debug */
8886: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8887: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
8888: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_EV_Address_Info.';
8889: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8890: END IF;
8885: /* Debug */
8886: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8887: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
8888: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_EV_Address_Info.';
8889: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8890: END IF;
8891: RAISE FND_API.G_EXC_ERROR;
8892:
8893: END IF;
8907: p_person_rec.person_status := 'I';
8908:
8909: Put_Log_Msg('Validation error occurs - return S ',1);
8910: /* Debug */
8911: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8912: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
8913: l_debug_str := 'Returning S from Update_EV_Address_Info. us_addr_status is E';
8914: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8915: END IF;
8910: /* Debug */
8911: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8912: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
8913: l_debug_str := 'Returning S from Update_EV_Address_Info. us_addr_status is E';
8914: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8915: END IF;
8916:
8917: RETURN 'S';
8918:
8919: ELSIF p_person_rec.us_addr_status = 'U' THEN --Unexpected error - terminate execution
8920:
8921: Put_Log_Msg('Unexpected error returned by validation ',1);
8922: /* Debug */
8923: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8924: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
8925: l_debug_str := 'ERROR in Update_EV_Address_Info. us_addr_status is U';
8926: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8927: END IF;
8922: /* Debug */
8923: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8924: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
8925: l_debug_str := 'ERROR in Update_EV_Address_Info. us_addr_status is U';
8926: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8927: END IF;
8928:
8929: RAISE FND_API.G_EXC_ERROR;
8930:
8931: ELSIF p_person_rec.us_addr_status = 'N' THEN -- Not found
8932:
8933: Put_Log_Msg('Site of activity Address block is not found return S',0);
8934: /* Debug */
8935: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8936: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
8937: l_debug_str := 'Returning S from Update_EV_Address_Info. us_addr_status is N';
8938: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8939: END IF;
8934: /* Debug */
8935: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8936: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
8937: l_debug_str := 'Returning S from Update_EV_Address_Info. us_addr_status is N';
8938: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8939: END IF;
8940:
8941: RETURN 'S';
8942:
8954:
8955:
8956:
8957: --manoj starts
8958: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8959: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Previous_Site_Info';
8960: l_debug_str := 'address_line1=' || l_prev_site_addr_rec.address_line1;
8961: l_debug_str := l_debug_str || 'address_line2=' || l_prev_site_addr_rec.address_line2;
8962: l_debug_str := l_debug_str || 'city=' || l_prev_site_addr_rec.city ;
8967: l_debug_str := l_debug_str || 'province=' || l_prev_site_addr_rec.province;
8968: l_debug_str := l_debug_str || 'primary_flag=' || l_prev_site_addr_rec.primary_flag;
8969: l_debug_str := l_debug_str || 'activity_site_cd=' || l_prev_site_addr_rec.activity_site_cd;
8970: l_debug_str := l_debug_str || 'remarks=' || l_prev_site_addr_rec.remarks ;
8971: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8972: END IF;
8973:
8974: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8975: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Current_Site_Info';
8970: l_debug_str := l_debug_str || 'remarks=' || l_prev_site_addr_rec.remarks ;
8971: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8972: END IF;
8973:
8974: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
8975: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Current_Site_Info';
8976: l_debug_str := 'address_line1=' || l_site_addr_rec(l_cur).address_line1;
8977: l_debug_str := l_debug_str || 'address_line2=' || l_site_addr_rec(l_cur).address_line2;
8978: l_debug_str := l_debug_str || 'city=' || l_site_addr_rec(l_cur).city ;
8983: l_debug_str := l_debug_str || 'province=' || l_site_addr_rec(l_cur).province;
8984: l_debug_str := l_debug_str || 'primary_flag=' || l_site_addr_rec(l_cur).primary_flag;
8985: l_debug_str := l_debug_str || 'activity_site_cd=' || l_site_addr_rec(l_cur).activity_site_cd;
8986: l_debug_str := l_debug_str || 'remarks=' || l_site_addr_rec(l_cur).remarks ;
8987: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
8988: END IF;
8989: --manoj ends
8990:
8991: IF l_statsite = 'N' THEN
9049:
9050: ELSE
9051: --Error found l_statsite = 'U'
9052: /* Debug */
9053: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9054: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
9055: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_EV_Address_Info.';
9056: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9057: END IF;
9052: /* Debug */
9053: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9054: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
9055: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_EV_Address_Info.';
9056: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9057: END IF;
9058:
9059: RAISE FND_API.G_EXC_ERROR;
9060:
9062:
9063: /* IF p_person_rec.changes_found = 'Y' THEN
9064: -- one address only
9065: /* Debug
9066: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9067: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
9068: l_debug_str := 'changes_found is Y. Exiting Update_EV_Address_Info.';
9069: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9070: END IF;
9065: /* Debug
9066: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9067: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
9068: l_debug_str := 'changes_found is Y. Exiting Update_EV_Address_Info.';
9069: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9070: END IF;
9071: EXIT;
9072:
9073: END IF;*/
9083:
9084:
9085: Put_Log_Msg(l_api_name||' ends ',0);
9086: /* Debug */
9087: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9088: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
9089: l_debug_str := 'Returning S from Update_EV_Address_Info.';
9090: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9091: END IF;
9086: /* Debug */
9087: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9088: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
9089: l_debug_str := 'Returning S from Update_EV_Address_Info.';
9090: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9091: END IF;
9092:
9093: RETURN 'S';
9094:
9097: WHEN FND_API.G_EXC_ERROR THEN
9098:
9099: Put_Log_Msg(l_api_name||' EXEC_ERROR returns U',1);
9100: /* Debug */
9101: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9102: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
9103: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_EV_Address_Info. '||SQLERRM;
9104: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9105: END IF;
9100: /* Debug */
9101: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9102: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
9103: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_EV_Address_Info. '||SQLERRM;
9104: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9105: END IF;
9106: RETURN 'U';
9107:
9108: WHEN OTHERS THEN
9112: END IF;
9113:
9114: Put_Log_Msg(l_api_name||' OTHERS return U',1);
9115: /* Debug */
9116: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9117: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
9118: l_debug_str := 'EXCEPTION: Returning U from Update_EV_Address_Info. '||SQLERRM;
9119: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9120: END IF;
9115: /* Debug */
9116: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9117: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Address_Info';
9118: l_debug_str := 'EXCEPTION: Returning U from Update_EV_Address_Info. '||SQLERRM;
9119: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9120: END IF;
9121:
9122: RETURN 'U';
9123:
9161:
9162:
9163: BEGIN
9164: /* Debug */
9165: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9166: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9167: l_debug_str := 'Entering Update_Personal_Info. p_person_rec.person_id is '||p_person_rec.person_id;
9168: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9169: END IF;
9164: /* Debug */
9165: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9166: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9167: l_debug_str := 'Entering Update_Personal_Info. p_person_rec.person_id is '||p_person_rec.person_id;
9168: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9169: END IF;
9170:
9171: Put_Log_Msg(l_api_name||' begins ',0);
9172:
9211: p_person_rec.person_status := 'I';
9212:
9213: Put_Log_Msg('UPI - Validation error occurs ',1);
9214: /* Debug */
9215: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9216: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9217: l_debug_str := 'Returning S from Update_Personal_Info.';
9218: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9219: END IF;
9214: /* Debug */
9215: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9216: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9217: l_debug_str := 'Returning S from Update_Personal_Info.';
9218: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9219: END IF;
9220:
9221: RETURN 'S';
9222:
9228: OR p_person_rec.us_addr_status = 'U') THEN --Unexpected error - terminate execution
9229:
9230: Put_Log_Msg('UPI - unexpected error returned by validation ',1);
9231: /* Debug */
9232: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9233: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9234: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Personal_Info.';
9235: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9236: END IF;
9231: /* Debug */
9232: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9233: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9234: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Personal_Info.';
9235: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9236: END IF;
9237:
9238: RAISE FND_API.G_EXC_ERROR;
9239:
9242: -- These are I-20 blocks and should be found. If this happens - its a bug
9243:
9244: Put_Log_Msg('UPI BIO block is not found ',1);
9245: /* Debug */
9246: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9247: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9248: l_debug_str := 'IGS_SV_UNEXP_EXCPT_ERR in Update_Personal_Info. bio_status is N';
9249: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9250: END IF;
9245: /* Debug */
9246: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9247: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9248: l_debug_str := 'IGS_SV_UNEXP_EXCPT_ERR in Update_Personal_Info. bio_status is N';
9249: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9250: END IF;
9251:
9252:
9253:
9265: l_status := Get_Bio_Info ( p_data_rec => l_prev_bio_rec);
9266:
9267: IF l_status = 'U' THEN
9268: /* Debug */
9269: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9270: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9271: l_debug_str := 'FND_API.G_EXC_ERROR in Update_Personal_Info. l_status is U';
9272: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9273: END IF;
9268: /* Debug */
9269: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9270: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9271: l_debug_str := 'FND_API.G_EXC_ERROR in Update_Personal_Info. l_status is U';
9272: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9273: END IF;
9274: RAISE FND_API.G_EXC_ERROR;
9275:
9276: END IF;
9307: p_person_rec.bio_status := 'C'; -- Changed
9308: p_person_rec.changes_found := 'Y';
9309: Put_Log_Msg('Bio info is changed ',0);
9310: /* Debug */
9311: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9312: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9313: l_debug_str := 'Bio Info changed. l_prev_bio_rec.citizen_cntry_code '||l_prev_bio_rec.citizen_cntry_code||' and l_bio_rec.citizen_cntry_code:'||l_bio_rec.citizen_cntry_code;
9314: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9315: END IF;
9310: /* Debug */
9311: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9312: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9313: l_debug_str := 'Bio Info changed. l_prev_bio_rec.citizen_cntry_code '||l_prev_bio_rec.citizen_cntry_code||' and l_bio_rec.citizen_cntry_code:'||l_bio_rec.citizen_cntry_code;
9314: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9315: END IF;
9316:
9317: END IF;
9318:
9351: ELSE
9352:
9353: --Error found l_status = 'U'
9354: /* Debug */
9355: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9356: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9357: l_debug_str := 'FND_API.G_EXC_ERROR in Update_Personal_Info.';
9358: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9359: END IF;
9354: /* Debug */
9355: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9356: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9357: l_debug_str := 'FND_API.G_EXC_ERROR in Update_Personal_Info.';
9358: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9359: END IF;
9360:
9361: RAISE FND_API.G_EXC_ERROR;
9362:
9414: ELSE
9415:
9416: --Error found l_status = 'U'
9417: /* Debug */
9418: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9419: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9420: l_debug_str := 'FND_API.G_EXC_ERROR in Update_Personal_Info. f_addr_status is S';
9421: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9422: END IF;
9417: /* Debug */
9418: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9419: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9420: l_debug_str := 'FND_API.G_EXC_ERROR in Update_Personal_Info. f_addr_status is S';
9421: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9422: END IF;
9423:
9424: RAISE FND_API.G_EXC_ERROR;
9425:
9475:
9476: ELSE
9477: --Error found l_status = 'U'
9478: /* Debug */
9479: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9480: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9481: l_debug_str := 'FND_API.G_EXC_ERROR in Update_Personal_Info. us_addr_status is S';
9482: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9483: END IF;
9478: /* Debug */
9479: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9480: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9481: l_debug_str := 'FND_API.G_EXC_ERROR in Update_Personal_Info. us_addr_status is S';
9482: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9483: END IF;
9484:
9485: RAISE FND_API.G_EXC_ERROR;
9486:
9524: END IF;
9525:
9526: Put_Log_Msg(l_api_name||' ends ',0);
9527: /* Debug */
9528: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9529: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9530: l_debug_str := 'Returning S from Update_Personal_Info.';
9531: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9532: END IF;
9527: /* Debug */
9528: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9529: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9530: l_debug_str := 'Returning S from Update_Personal_Info.';
9531: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9532: END IF;
9533:
9534: RETURN 'S';
9535:
9538: WHEN FND_API.G_EXC_ERROR THEN
9539:
9540: Put_Log_Msg(l_api_name||' EXEC_ERROR returns U',1);
9541: /* Debug */
9542: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9543: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9544: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_Personal_Info. '||SQLERRM;
9545: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9546: END IF;
9541: /* Debug */
9542: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9543: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9544: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_Personal_Info. '||SQLERRM;
9545: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9546: END IF;
9547: RETURN 'U';
9548:
9549: WHEN OTHERS THEN
9553: END IF;
9554:
9555: Put_Log_Msg(l_api_name||' OTHERS return U',1);
9556: /* Debug */
9557: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9558: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9559: l_debug_str := 'EXCEPTION: Returning U from Update_Personal_Info. '||SQLERRM;
9560: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9561: END IF;
9556: /* Debug */
9557: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9558: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Personal_Info';
9559: l_debug_str := 'EXCEPTION: Returning U from Update_Personal_Info. '||SQLERRM;
9560: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9561: END IF;
9562: RETURN 'U';
9563:
9564: END Update_Personal_Info;
9591: )
9592: ORDER BY effective_date;
9593: BEGIN
9594: /* Debug */
9595: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9596: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_EV_Prgm_Info';
9597: l_debug_str := 'Entering Get_EV_Prgm_Info. p_data_rec.person_id is '||p_data_rec.person_id;
9598: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9599: END IF;
9594: /* Debug */
9595: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9596: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_EV_Prgm_Info';
9597: l_debug_str := 'Entering Get_EV_Prgm_Info. p_data_rec.person_id is '||p_data_rec.person_id;
9598: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9599: END IF;
9600:
9601: Put_Log_Msg(l_api_name||' begins ',0);
9602:
9614:
9615: Put_Log_Msg('Record not found ',0);
9616: CLOSE c_data_rec;
9617: /* Debug */
9618: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9619: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_EV_Prgm_Info';
9620: l_debug_str := 'Returning N from Get_EV_Prgm_Info';
9621: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9622: END IF;
9617: /* Debug */
9618: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9619: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_EV_Prgm_Info';
9620: l_debug_str := 'Returning N from Get_EV_Prgm_Info';
9621: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9622: END IF;
9623: RETURN 'N';
9624:
9625: END IF;
9627: CLOSE c_data_rec;
9628:
9629: Put_Log_Msg(l_api_name||' ends S ',0);
9630: /* Debug */
9631: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9632: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_EV_Prgm_Info';
9633: l_debug_str := 'Returning S from Get_EV_Prgm_Info';
9634: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9635: END IF;
9630: /* Debug */
9631: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9632: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_EV_Prgm_Info';
9633: l_debug_str := 'Returning S from Get_EV_Prgm_Info';
9634: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9635: END IF;
9636: RETURN 'S';
9637:
9638: EXCEPTION
9638: EXCEPTION
9639:
9640: WHEN FND_API.G_EXC_ERROR THEN
9641: /* Debug */
9642: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9643: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_EV_Prgm_Info';
9644: l_debug_str := 'Exception in Get_EV_Prgm_Info '||SQLERRM;
9645: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9646: END IF;
9641: /* Debug */
9642: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9643: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_EV_Prgm_Info';
9644: l_debug_str := 'Exception in Get_EV_Prgm_Info '||SQLERRM;
9645: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9646: END IF;
9647:
9648: Put_Log_Msg(l_api_name||' EXEC ERROR ',1);
9649: RETURN 'U';
9649: RETURN 'U';
9650:
9651: WHEN OTHERS THEN
9652: /* Debug */
9653: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9654: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_EV_Prgm_Info';
9655: l_debug_str := 'Exception in Get_EV_Prgm_Info '||SQLERRM;
9656: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9657: END IF;
9652: /* Debug */
9653: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9654: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_EV_Prgm_Info';
9655: l_debug_str := 'Exception in Get_EV_Prgm_Info '||SQLERRM;
9656: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9657: END IF;
9658: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
9659: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
9660: END IF;
9692: )
9693: ORDER BY effective_date;
9694: BEGIN
9695: /* Debug */
9696: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9697: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_nonimg_Prgm_Info';
9698: l_debug_str := 'Entering Get_nonimg_Prgm_Info. p_data_rec.person_id is '||p_data_rec.person_id;
9699: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9700: END IF;
9695: /* Debug */
9696: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9697: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_nonimg_Prgm_Info';
9698: l_debug_str := 'Entering Get_nonimg_Prgm_Info. p_data_rec.person_id is '||p_data_rec.person_id;
9699: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9700: END IF;
9701:
9702: Put_Log_Msg(l_api_name||' begins ',0);
9703:
9714:
9715: Put_Log_Msg('Record not found ',0);
9716: CLOSE c_data_rec;
9717: /* Debug */
9718: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9719: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_nonimg_Prgm_Info';
9720: l_debug_str := 'Returning N from Get_nonimg_Prgm_Info';
9721: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9722: END IF;
9717: /* Debug */
9718: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9719: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_nonimg_Prgm_Info';
9720: l_debug_str := 'Returning N from Get_nonimg_Prgm_Info';
9721: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9722: END IF;
9723: RETURN 'N';
9724:
9725: END IF;
9727: CLOSE c_data_rec;
9728:
9729: Put_Log_Msg(l_api_name||' ends S ',0);
9730: /* Debug */
9731: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9732: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_nonimg_Prgm_Info';
9733: l_debug_str := 'Returning S from Get_nonimg_Prgm_Info';
9734: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9735: END IF;
9730: /* Debug */
9731: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9732: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_nonimg_Prgm_Info';
9733: l_debug_str := 'Returning S from Get_nonimg_Prgm_Info';
9734: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9735: END IF;
9736: RETURN 'S';
9737:
9738: EXCEPTION
9738: EXCEPTION
9739:
9740: WHEN FND_API.G_EXC_ERROR THEN
9741: /* Debug */
9742: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9743: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_nonimg_Prgm_Info';
9744: l_debug_str := 'Exception in Get_nonimg_Prgm_Info '||SQLERRM;
9745: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9746: END IF;
9741: /* Debug */
9742: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9743: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_nonimg_Prgm_Info';
9744: l_debug_str := 'Exception in Get_nonimg_Prgm_Info '||SQLERRM;
9745: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9746: END IF;
9747:
9748: Put_Log_Msg(l_api_name||' EXEC ERROR ',1);
9749: RETURN 'U';
9749: RETURN 'U';
9750:
9751: WHEN OTHERS THEN
9752: /* Debug */
9753: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9754: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_nonimg_Prgm_Info';
9755: l_debug_str := 'Exception in Get_nonimg_Prgm_Info '||SQLERRM;
9756: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9757: END IF;
9752: /* Debug */
9753: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9754: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Get_nonimg_Prgm_Info';
9755: l_debug_str := 'Exception in Get_nonimg_Prgm_Info '||SQLERRM;
9756: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9757: END IF;
9758: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
9759: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
9760: END IF;
9794: BEGIN
9795:
9796: Put_Log_Msg(l_api_name||' begins ',0);
9797: /* Debug */
9798: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9799: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
9800: l_debug_str := 'Entering Update_Program_Info. p_person_rec.person_id is '||p_person_rec.person_id;
9801: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9802: END IF;
9797: /* Debug */
9798: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9799: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
9800: l_debug_str := 'Entering Update_Program_Info. p_person_rec.person_id is '||p_person_rec.person_id;
9801: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9802: END IF;
9803:
9804: -- First part - check program Info block
9805:
9811: p_person_rec.person_status := 'I';
9812:
9813: Put_Log_Msg('Validation error occurs ',1);
9814: /* Debug */
9815: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9816: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
9817: l_debug_str := 'Returning S from Update_Program_Info. p_person_rec.edu_status is E';
9818: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9819: END IF;
9814: /* Debug */
9815: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9816: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
9817: l_debug_str := 'Returning S from Update_Program_Info. p_person_rec.edu_status is E';
9818: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9819: END IF;
9820:
9821: RETURN 'S';
9822:
9825: IF p_person_rec.edu_status = 'U' THEN --Unexpected error - terminate execution
9826:
9827: Put_Log_Msg('Unexpected error returned by validation ',1);
9828: /* Debug */
9829: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9830: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
9831: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Program_Info. p_person_rec.edu_status is U';
9832: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9833: END IF;
9828: /* Debug */
9829: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9830: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
9831: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Program_Info. p_person_rec.edu_status is U';
9832: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9833: END IF;
9834:
9835: RAISE FND_API.G_EXC_ERROR;
9836:
9839: -- These are I-20 blocks and should be found. If this happens - its a bug
9840:
9841: Put_Log_Msg('EDU block is not found ',0);
9842: /* Debug */
9843: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9844: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
9845: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Program_Info. p_person_rec.edu_status is N.';
9846: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9847: END IF;
9842: /* Debug */
9843: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9844: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
9845: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Program_Info. p_person_rec.edu_status is N.';
9846: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9847: END IF;
9848:
9849: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
9850: FND_MESSAGE.SET_TOKEN('BLOCK_ID',3);
9861: l_status := Get_Edu_Info ( p_data_rec => l_prev_rec);
9862:
9863: IF l_status = 'U' OR l_status = 'N' THEN
9864: /* Debug */
9865: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9866: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
9867: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Program_Info. l_status is U or N.';
9868: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9869: END IF;
9864: /* Debug */
9865: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9866: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
9867: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Program_Info. l_status is U or N.';
9868: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9869: END IF;
9870: RAISE FND_API.G_EXC_ERROR;
9871:
9872: END IF;
9922: p_person_rec.person_status := 'I';
9923:
9924: Put_Log_Msg('Validation error occurs ',1);
9925: /* Debug */
9926: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9927: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
9928: l_debug_str := 'Returning S from Update_Program_Info.';
9929: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9930: END IF;
9925: /* Debug */
9926: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9927: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
9928: l_debug_str := 'Returning S from Update_Program_Info.';
9929: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9930: END IF;
9931:
9932: RETURN 'S';
9933:
9934: ELSIF p_person_rec.edu_status = 'U' THEN --Unexpected error - terminate execution
9935:
9936: Put_Log_Msg('Unexpected error returned by validation ',1);
9937: /* Debug */
9938: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9939: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
9940: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Program_Info.';
9941: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9942: END IF;
9937: /* Debug */
9938: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9939: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
9940: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Program_Info.';
9941: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9942: END IF;
9943:
9944: RAISE FND_API.G_EXC_ERROR;
9945:
9955: l_status := Get_nonimg_Prgm_Info ( p_data_rec => l_prev_rec);
9956:
9957: IF l_status = 'U' THEN
9958: /* Debug */
9959: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9960: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
9961: l_debug_str := 'Unexpected error in Update_Employment_Info. l_status is U.';
9962: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9963: END IF;
9958: /* Debug */
9959: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
9960: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
9961: l_debug_str := 'Unexpected error in Update_Employment_Info. l_status is U.';
9962: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
9963: END IF;
9964: RAISE FND_API.G_EXC_ERROR;
9965: END IF;
9966:
10010: END LOOP;
10011:
10012: Put_Log_Msg(l_api_name||' ends ',0);
10013: /* Debug */
10014: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10015: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
10016: l_debug_str := 'Final Return S from Update_Program_Info.';
10017: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10018: END IF;
10013: /* Debug */
10014: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10015: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
10016: l_debug_str := 'Final Return S from Update_Program_Info.';
10017: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10018: END IF;
10019:
10020: RETURN 'S';
10021:
10024: WHEN FND_API.G_EXC_ERROR THEN
10025:
10026: Put_Log_Msg(l_api_name||' EXEC_ERROR returns U',1);
10027: /* Debug */
10028: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10029: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
10030: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_Program_Info. '||SQLERRM;
10031: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10032: END IF;
10027: /* Debug */
10028: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10029: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
10030: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_Program_Info. '||SQLERRM;
10031: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10032: END IF;
10033: RETURN 'U';
10034:
10035: WHEN OTHERS THEN
10039: END IF;
10040:
10041: Put_Log_Msg(l_api_name||' OTHERS return U',1);
10042: /* Debug */
10043: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10044: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
10045: l_debug_str := 'EXCEPTION: Returning U from Update_Program_Info. '||SQLERRM;
10046: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10047: END IF;
10042: /* Debug */
10043: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10044: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
10045: l_debug_str := 'EXCEPTION: Returning U from Update_Program_Info. '||SQLERRM;
10046: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10047: END IF;
10048:
10049: RETURN 'U';
10050:
10082: BEGIN
10083:
10084: Put_Log_Msg(l_api_name||' begins ',0);
10085: /* Debug */
10086: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10087: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Program_Info';
10088: l_debug_str := 'Entering Update_EV_Program_Info. p_person_rec.person_id is '||p_person_rec.person_id;
10089: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10090: END IF;
10085: /* Debug */
10086: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10087: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Program_Info';
10088: l_debug_str := 'Entering Update_EV_Program_Info. p_person_rec.person_id is '||p_person_rec.person_id;
10089: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10090: END IF;
10091:
10092:
10093: p_person_rec.edu_status := Validate_Edu_Info (p_person_rec => p_person_rec,
10098: p_person_rec.person_status := 'I';
10099:
10100: Put_Log_Msg('Validation error occurs ',1);
10101: /* Debug */
10102: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10103: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
10104: l_debug_str := 'Returning S from Update_Program_Info. p_person_rec.edu_status is E';
10105: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10106: END IF;
10101: /* Debug */
10102: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10103: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
10104: l_debug_str := 'Returning S from Update_Program_Info. p_person_rec.edu_status is E';
10105: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10106: END IF;
10107:
10108: RETURN 'S';
10109:
10112: IF p_person_rec.edu_status = 'U' THEN --Unexpected error - terminate execution
10113:
10114: Put_Log_Msg('Unexpected error returned by validation ',1);
10115: /* Debug */
10116: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10117: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
10118: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Program_Info. p_person_rec.edu_status is U';
10119: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10120: END IF;
10115: /* Debug */
10116: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10117: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
10118: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Program_Info. p_person_rec.edu_status is U';
10119: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10120: END IF;
10121:
10122: RAISE FND_API.G_EXC_ERROR;
10123:
10126: -- These are I-20 blocks and should be found. If this happens - its a bug
10127:
10128: Put_Log_Msg('EDU block is not found ',0);
10129: /* Debug */
10130: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10131: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
10132: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Program_Info. p_person_rec.edu_status is N.';
10133: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10134: END IF;
10129: /* Debug */
10130: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10131: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
10132: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Program_Info. p_person_rec.edu_status is N.';
10133: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10134: END IF;
10135:
10136: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
10137: FND_MESSAGE.SET_TOKEN('BLOCK_ID',3);
10148: l_status := Get_Edu_Info ( p_data_rec => l_prev_rec);
10149:
10150: IF l_status = 'U' OR l_status = 'N' THEN
10151: /* Debug */
10152: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10153: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
10154: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Program_Info. l_status is U or N.';
10155: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10156: END IF;
10151: /* Debug */
10152: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10153: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Program_Info';
10154: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_Program_Info. l_status is U or N.';
10155: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10156: END IF;
10157: RAISE FND_API.G_EXC_ERROR;
10158:
10159: END IF;
10207: p_person_rec.person_status := 'I';
10208:
10209: Put_Log_Msg('Validation error occurs ',1);
10210: /* Debug */
10211: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10212: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Program_Info';
10213: l_debug_str := 'Returning S from Update_EV_Program_Info. p_person_rec.edu_status is E.';
10214: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10215: END IF;
10210: /* Debug */
10211: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10212: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Program_Info';
10213: l_debug_str := 'Returning S from Update_EV_Program_Info. p_person_rec.edu_status is E.';
10214: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10215: END IF;
10216:
10217: RETURN 'S';
10218:
10219: ELSIF p_person_rec.edu_status = 'U' THEN --Unexpected error - terminate execution
10220:
10221: Put_Log_Msg('Unexpected error returned by validation ',1);
10222: /* Debug */
10223: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10224: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Program_Info';
10225: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_EV_Program_Info. p_person_rec.edu_status is U.';
10226: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10227: END IF;
10222: /* Debug */
10223: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10224: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Program_Info';
10225: l_debug_str := 'RAISE FND_API.G_EXC_ERROR in Update_EV_Program_Info. p_person_rec.edu_status is U.';
10226: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10227: END IF;
10228:
10229: RAISE FND_API.G_EXC_ERROR;
10230:
10241: l_status := Get_EV_Prgm_Info ( p_data_rec => l_prev_rec);
10242:
10243: IF l_status = 'U' THEN
10244: /* Debug */
10245: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10246: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
10247: l_debug_str := 'Unexpected error in Update_Employment_Info. l_status is U.';
10248: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10249: END IF;
10244: /* Debug */
10245: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10246: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
10247: l_debug_str := 'Unexpected error in Update_Employment_Info. l_status is U.';
10248: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10249: END IF;
10250: RAISE FND_API.G_EXC_ERROR;
10251: END IF;
10252:
10279: END IF;
10280:
10281: IF p_person_rec.edu_status = 'C' AND p_person_rec.person_status <> 'I' THEN
10282: /* Debug */
10283: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10284: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Program_Info';
10285: l_debug_str := 'inserting prgm info.';
10286: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10287: END IF;
10282: /* Debug */
10283: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10284: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Program_Info';
10285: l_debug_str := 'inserting prgm info.';
10286: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10287: END IF;
10288: Insert_Edu_Info ('PRGM', p_data_rec => l_cur_prgm_rec(l_current), p_auth_drp_data_rec => NULL);
10289: END IF;
10290: END LOOP;
10290: END LOOP;
10291:
10292: Put_Log_Msg(l_api_name||' ends ',0);
10293: /* Debug */
10294: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10295: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Program_Info';
10296: l_debug_str := 'Returning S from Update_EV_Program_Info.';
10297: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10298: END IF;
10293: /* Debug */
10294: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10295: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Program_Info';
10296: l_debug_str := 'Returning S from Update_EV_Program_Info.';
10297: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10298: END IF;
10299:
10300: RETURN 'S';
10301:
10304: WHEN FND_API.G_EXC_ERROR THEN
10305:
10306: Put_Log_Msg(l_api_name||' EXEC_ERROR returns U',1);
10307: /* Debug */
10308: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10309: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Program_Info';
10310: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_EV_Program_Info. '||SQLERRM;
10311: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10312: END IF;
10307: /* Debug */
10308: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10309: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Program_Info';
10310: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_EV_Program_Info. '||SQLERRM;
10311: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10312: END IF;
10313:
10314: RETURN 'U';
10315:
10320: END IF;
10321:
10322: Put_Log_Msg(l_api_name||' OTHERS return U',1);
10323: /* Debug */
10324: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10325: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Program_Info';
10326: l_debug_str := 'EXCEPTION: Returning U from Update_EV_Program_Info. '||SQLERRM;
10327: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10328: END IF;
10323: /* Debug */
10324: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10325: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_EV_Program_Info';
10326: l_debug_str := 'EXCEPTION: Returning U from Update_EV_Program_Info. '||SQLERRM;
10327: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10328: END IF;
10329:
10330:
10331: RETURN 'U';
10361: BEGIN
10362:
10363: Put_Log_Msg(l_api_name||' begins ',0);
10364: /* Debug */
10365: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10366: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Finance_Info';
10367: l_debug_str := 'Entering Update_Finance_Info. p_person_rec.person_id is '||p_person_rec.person_id;
10368: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10369: END IF;
10364: /* Debug */
10365: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10366: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Finance_Info';
10367: l_debug_str := 'Entering Update_Finance_Info. p_person_rec.person_id is '||p_person_rec.person_id;
10368: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10369: END IF;
10370:
10371: -- Call Validate_Finance_Info
10372: p_person_rec.fin_status := Validate_Finance_Info (p_person_rec => p_person_rec,
10376: p_person_rec.person_status := 'I';
10377:
10378: Put_Log_Msg('Validation error occurs ',1);
10379: /* Debug */
10380: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10381: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Finance_Info';
10382: l_debug_str := 'Returning S from Update_Finance_Info. p_person_rec.fin_status is E';
10383: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10384: END IF;
10379: /* Debug */
10380: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10381: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Finance_Info';
10382: l_debug_str := 'Returning S from Update_Finance_Info. p_person_rec.fin_status is E';
10383: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10384: END IF;
10385:
10386: RETURN 'S';
10387:
10388: ELSIF p_person_rec.fin_status = 'U' THEN --Unexpected error - terminate execution
10389:
10390: Put_Log_Msg('Unexpected error returned by validation ',1);
10391: /* Debug */
10392: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10393: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Finance_Info';
10394: l_debug_str := 'Raise FND_API.G_EXC_ERROR in Update_Finance_Info. fin_status is U';
10395: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10396: END IF;
10391: /* Debug */
10392: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10393: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Finance_Info';
10394: l_debug_str := 'Raise FND_API.G_EXC_ERROR in Update_Finance_Info. fin_status is U';
10395: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10396: END IF;
10397:
10398: RAISE FND_API.G_EXC_ERROR;
10399:
10402: -- These are I-20 blocks and should be found. If this happens - its a bug
10403:
10404: Put_Log_Msg('Finance block is not found ',0);
10405: /* Debug */
10406: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10407: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Finance_Info';
10408: l_debug_str := 'Raise FND_API.G_EXC_ERROR in Update_Finance_Info. fin_status is N';
10409: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10410: END IF;
10405: /* Debug */
10406: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10407: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Finance_Info';
10408: l_debug_str := 'Raise FND_API.G_EXC_ERROR in Update_Finance_Info. fin_status is N';
10409: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10410: END IF;
10411:
10412:
10413: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
10425: l_status := Get_Finance_Info ( p_data_rec => l_prev_rec);
10426:
10427: IF l_status = 'U' OR l_status = 'N' THEN
10428: /* Debug */
10429: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10430: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Finance_Info';
10431: l_debug_str := 'Raise FND_API.G_EXC_ERROR in Update_Finance_Info. l_status is U or N';
10432: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10433: END IF;
10428: /* Debug */
10429: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10430: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Finance_Info';
10431: l_debug_str := 'Raise FND_API.G_EXC_ERROR in Update_Finance_Info. l_status is U or N';
10432: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10433: END IF;
10434:
10435: RAISE FND_API.G_EXC_ERROR;
10436:
10511:
10512: END IF;
10513: Put_Log_Msg(l_api_name||' ends ',0);
10514: /* Debug */
10515: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10516: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Finance_Info';
10517: l_debug_str := 'Returning S from Update_Finance_Info.';
10518: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10519: END IF;
10514: /* Debug */
10515: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10516: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Finance_Info';
10517: l_debug_str := 'Returning S from Update_Finance_Info.';
10518: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10519: END IF;
10520:
10521: RETURN 'S';
10522:
10525: WHEN FND_API.G_EXC_ERROR THEN
10526:
10527: Put_Log_Msg(l_api_name||' EXEC_ERROR returns U',1);
10528: /* Debug */
10529: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10530: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Finance_Info';
10531: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_Finance_Info. '||SQLERRM;
10532: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10533: END IF;
10528: /* Debug */
10529: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10530: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Finance_Info';
10531: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_Finance_Info. '||SQLERRM;
10532: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10533: END IF;
10534: RETURN 'U';
10535:
10536: WHEN OTHERS THEN
10540: END IF;
10541:
10542: Put_Log_Msg(l_api_name||' OTHERS return U',1);
10543: /* Debug */
10544: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10545: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Finance_Info';
10546: l_debug_str := 'EXCEPTION: Returning U from Update_Finance_Info. '||SQLERRM;
10547: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10548: END IF;
10543: /* Debug */
10544: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10545: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Finance_Info';
10546: l_debug_str := 'EXCEPTION: Returning U from Update_Finance_Info. '||SQLERRM;
10547: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10548: END IF;
10549:
10550: RETURN 'U';
10551:
10596: BEGIN
10597:
10598: Put_Log_Msg(l_api_name||' begins ',0);
10599: /* Debug */
10600: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10601: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10602: l_debug_str := 'Entering Update_Dependent_Info. p_person_rec.person_id is '||p_person_rec.person_id;
10603: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10604: END IF;
10599: /* Debug */
10600: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10601: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10602: l_debug_str := 'Entering Update_Dependent_Info. p_person_rec.person_id is '||p_person_rec.person_id;
10603: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10604: END IF;
10605:
10606:
10607: -- Call Validate_Empl_Info
10614: p_person_rec.person_status := 'I';
10615:
10616: Put_Log_Msg('Validation error occurs ',1);
10617: /* Debug */
10618: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10619: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10620: l_debug_str := 'Returning S from Update_Dependent_Info. dep_status is E.';
10621: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10622: END IF;
10617: /* Debug */
10618: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10619: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10620: l_debug_str := 'Returning S from Update_Dependent_Info. dep_status is E.';
10621: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10622: END IF;
10623: RETURN 'S';
10624:
10625: ELSIF p_person_rec.dep_status = 'U' THEN --Unexpected error - terminate execution
10625: ELSIF p_person_rec.dep_status = 'U' THEN --Unexpected error - terminate execution
10626:
10627: Put_Log_Msg('Unexpected error returned by validation ',1);
10628: /* Debug */
10629: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10630: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10631: l_debug_str := 'Raise FND_API.G_EXC_ERROR in Update_Dependent_Info. dep_status is U.';
10632: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10633: END IF;
10628: /* Debug */
10629: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10630: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10631: l_debug_str := 'Raise FND_API.G_EXC_ERROR in Update_Dependent_Info. dep_status is U.';
10632: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10633: END IF;
10634:
10635: RAISE FND_API.G_EXC_ERROR;
10636:
10637: ELSIF p_person_rec.dep_status = 'N' THEN -- Not found
10638:
10639: Put_Log_Msg('Dependent block is not found ',0);
10640: /* Debug */
10641: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10642: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10643: l_debug_str := 'Returning S from Update_Dependent_Info. dep_status is N.';
10644: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10645: END IF;
10640: /* Debug */
10641: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10642: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10643: l_debug_str := 'Returning S from Update_Dependent_Info. dep_status is N.';
10644: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10645: END IF;
10646: RETURN 'S';
10647:
10648: END IF;
10660:
10661: --manoj stars
10662:
10663:
10664: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10665: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Previous_Dependent_Info';
10666: l_debug_str := 'l_prev_rec action_type='||l_prev_rec.depdnt_action_type;
10667: l_debug_str := l_debug_str || 'visa_type=' || l_prev_rec.visa_type;
10668: l_debug_str := l_debug_str || 'last_name=' || l_prev_rec.last_name;
10679: l_debug_str := l_debug_str || 'perm_res_cntry_code=' || l_prev_rec.perm_res_cntry_code;
10680: l_debug_str := l_debug_str || 'termination_effect_date=' || l_prev_rec.termination_effect_date;
10681: l_debug_str := l_debug_str || 'remarks=' || l_prev_rec.remarks;
10682: l_debug_str := l_debug_str || 'birth_cntry_resn_code=' || l_prev_rec.birth_cntry_resn_code;
10683: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10684: END IF;
10685:
10686:
10687: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10683: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10684: END IF;
10685:
10686:
10687: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10688: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Current_Dependent_Info';
10689: l_debug_str := 'cur dep action type: '||l_cur_rec(l_current).depdnt_action_type;
10690: l_debug_str := l_debug_str || 'visa_type=' || l_cur_rec(l_current).visa_type;
10691: l_debug_str := l_debug_str || 'last_name=' || l_cur_rec(l_current).last_name;
10702: l_debug_str := l_debug_str || 'perm_res_cntry_code=' || l_cur_rec(l_current).perm_res_cntry_code;
10703: l_debug_str := l_debug_str || 'termination_effect_date=' || l_cur_rec(l_current).termination_effect_date;
10704: l_debug_str := l_debug_str || 'remarks=' || l_cur_rec(l_current).remarks ;
10705: l_debug_str := l_debug_str || 'birth_cntry_resn_code=' || l_cur_rec(l_current).birth_cntry_resn_code;
10706: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10707: END IF;
10708: --manoj ends
10709:
10710: IF l_status = 'U' THEN
10708: --manoj ends
10709:
10710: IF l_status = 'U' THEN
10711: /* Debug */
10712: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10713: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10714: l_debug_str := 'Raise FND_API.G_EXC_ERROR in Update_Dependent_Info. l_status is U.';
10715: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10716: END IF;
10711: /* Debug */
10712: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10713: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10714: l_debug_str := 'Raise FND_API.G_EXC_ERROR in Update_Dependent_Info. l_status is U.';
10715: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10716: END IF;
10717: RAISE FND_API.G_EXC_ERROR;
10718:
10719: END IF;
10729: p_person_rec.person_status := 'I';
10730:
10731: Put_Log_Msg('Validation error occurs ',0);
10732: /* Debug */
10733: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10734: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10735: l_debug_str := 'Returning S from Update_Dependent_Info. l_status is S.';
10736: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10737: END IF;
10732: /* Debug */
10733: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10734: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10735: l_debug_str := 'Returning S from Update_Dependent_Info. l_status is S.';
10736: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10737: END IF;
10738: RETURN 'S';
10739:
10740: ELSIF l_status = 'N' THEN
10807:
10808:
10809: Put_Log_Msg('Info is changed for '||l_cur_rec(l_current).depdnt_id,0);
10810: /* Debug */
10811: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10812: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10813: l_debug_str := 'Update_Dependent_Info. l_prev_rec.depdnt_action_type: '||l_prev_rec.depdnt_action_type||'cur dep action type: '||l_cur_rec(l_current).depdnt_action_type;
10814: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10815: END IF;
10810: /* Debug */
10811: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10812: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10813: l_debug_str := 'Update_Dependent_Info. l_prev_rec.depdnt_action_type: '||l_prev_rec.depdnt_action_type||'cur dep action type: '||l_cur_rec(l_current).depdnt_action_type;
10814: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10815: END IF;
10816: --IF l_prev_rec.depdnt_action_type = l_cur_rec(l_current).depdnt_action_type THEN
10817: l_cur_rec(l_current).depdnt_action_type := 'U'; --update mode for the person
10818: --END IF;
10826:
10827: /* IF p_person_rec.dep_status = 'C' AND p_person_rec.record_status ='C' THEN prbhardw CP enhancement
10828: -- Only one dependent in the update section.
10829: /* Debug
10830: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10831: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10832: l_debug_str := 'Exiting Update_Dependent_Info. dep_status and record_status is C.';
10833: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10834: END IF;
10829: /* Debug
10830: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10831: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10832: l_debug_str := 'Exiting Update_Dependent_Info. dep_status and record_status is C.';
10833: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10834: END IF;
10835:
10836: -- EXIT;
10837:
10844: Insert_Dependent_Info ( p_data_rec => l_cur_rec(l_current),p_records => l_count );
10845: END IF; */
10846: Put_Log_Msg(l_api_name||' ends ',0);
10847: /* Debug */
10848: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10849: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10850: l_debug_str := 'Returning S from Update_Dependent_Info.';
10851: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10852: END IF;
10847: /* Debug */
10848: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10849: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10850: l_debug_str := 'Returning S from Update_Dependent_Info.';
10851: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10852: END IF;
10853:
10854: RETURN 'S';
10855:
10857:
10858: WHEN FND_API.G_EXC_ERROR THEN
10859: Put_Log_Msg(l_api_name||' EXEC_ERROR returns U',1);
10860: /* Debug */
10861: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10862: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10863: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_Dependent_Info. '||SQLERRM;
10864: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10865: END IF;
10860: /* Debug */
10861: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10862: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10863: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_Dependent_Info. '||SQLERRM;
10864: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10865: END IF;
10866: RETURN 'U';
10867:
10868: WHEN OTHERS THEN
10871: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
10872: END IF;
10873: Put_Log_Msg(l_api_name||' OTHERS return U',1);
10874: /* Debug */
10875: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10876: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10877: l_debug_str := 'EXCEPTION: Returning U from Update_Dependent_Info. '||SQLERRM;
10878: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10879: END IF;
10874: /* Debug */
10875: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10876: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Dependent_Info';
10877: l_debug_str := 'EXCEPTION: Returning U from Update_Dependent_Info. '||SQLERRM;
10878: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10879: END IF;
10880:
10881: RETURN 'U';
10882:
10914: BEGIN
10915:
10916: Put_Log_Msg(l_api_name||' begins ',0);
10917: /* Debug */
10918: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10919: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
10920: l_debug_str := 'Entering Update_Employment_Info. p_person_rec.person_id is '||p_person_rec.person_id;
10921: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10922: END IF;
10917: /* Debug */
10918: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10919: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
10920: l_debug_str := 'Entering Update_Employment_Info. p_person_rec.person_id is '||p_person_rec.person_id;
10921: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10922: END IF;
10923:
10924: -- Call Validate_Empl_Info
10925:
10930: IF p_person_rec.empl_status = 'E' THEN -- Validation error - mark person as invalid
10931: p_person_rec.person_status := 'I';
10932: Put_Log_Msg('Validation error occurs ',1);
10933: /* Debug */
10934: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10935: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
10936: l_debug_str := 'Returning S from Update_Employment_Info. empl_status is E.';
10937: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10938: END IF;
10933: /* Debug */
10934: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10935: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
10936: l_debug_str := 'Returning S from Update_Employment_Info. empl_status is E.';
10937: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10938: END IF;
10939: RETURN 'S';
10940: ELSIF p_person_rec.empl_status = 'U' THEN --Unexpected error - terminate execution
10941: Put_Log_Msg('Unexpected error returned by validation ',1);
10939: RETURN 'S';
10940: ELSIF p_person_rec.empl_status = 'U' THEN --Unexpected error - terminate execution
10941: Put_Log_Msg('Unexpected error returned by validation ',1);
10942: /* Debug */
10943: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10944: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
10945: l_debug_str := 'Unexpected error in Update_Employment_Info. empl_status is U.';
10946: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10947: END IF;
10942: /* Debug */
10943: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10944: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
10945: l_debug_str := 'Unexpected error in Update_Employment_Info. empl_status is U.';
10946: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10947: END IF;
10948: RAISE FND_API.G_EXC_ERROR;
10949: ELSIF p_person_rec.empl_status = 'N' THEN -- Not found
10950: Put_Log_Msg('Employment block is not found ',0);
10948: RAISE FND_API.G_EXC_ERROR;
10949: ELSIF p_person_rec.empl_status = 'N' THEN -- Not found
10950: Put_Log_Msg('Employment block is not found ',0);
10951: /* Debug */
10952: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10953: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
10954: l_debug_str := 'Returning S from Update_Employment_Info. empl_status is N.';
10955: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10956: END IF;
10951: /* Debug */
10952: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10953: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
10954: l_debug_str := 'Returning S from Update_Employment_Info. empl_status is N.';
10955: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10956: END IF;
10957: RETURN 'S';
10958: END IF;
10959:
10968: l_status := Get_Empl_Info ( p_data_rec => l_prev_rec);
10969:
10970:
10971: --manoj starts
10972: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10973: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Previous_empl_Info';
10974: l_debug_str := 'empl_rec_type=' || l_prev_rec.empl_rec_type;
10975: l_debug_str := l_debug_str || 'empl_type=' || l_prev_rec.empl_type;
10976: l_debug_str := l_debug_str || 'recommend_empl=' || l_prev_rec.recommend_empl ;
10980: l_debug_str := l_debug_str || 'empl_end_date=' || l_prev_rec.empl_end_date;
10981: l_debug_str := l_debug_str || 'course_relevance=' || l_prev_rec.course_relevance;
10982: l_debug_str := l_debug_str || 'empl_time=' || l_prev_rec.empl_time;
10983: l_debug_str := l_debug_str || 'empl_name=' || l_prev_rec.empl_name;
10984: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10985: END IF;
10986:
10987: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10988: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Current_empl_Info';
10983: l_debug_str := l_debug_str || 'empl_name=' || l_prev_rec.empl_name;
10984: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
10985: END IF;
10986:
10987: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
10988: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Current_empl_Info';
10989: l_debug_str := 'empl_rec_type=' || l_cur_rec(l_current).empl_rec_type;
10990: l_debug_str := l_debug_str || 'empl_type=' || l_cur_rec(l_current).empl_type;
10991: l_debug_str := l_debug_str || 'recommend_empl=' || l_cur_rec(l_current).recommend_empl ;
10995: l_debug_str := l_debug_str || 'empl_end_date=' || l_cur_rec(l_current).empl_end_date;
10996: l_debug_str := l_debug_str || 'course_relevance=' || l_cur_rec(l_current).course_relevance;
10997: l_debug_str := l_debug_str || 'empl_time=' || l_cur_rec(l_current).empl_time;
10998: l_debug_str := l_debug_str || 'empl_name=' || l_cur_rec(l_current).empl_name;
10999: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11000: END IF;
11001:
11002:
11003: --manoj ends
11002:
11003: --manoj ends
11004:
11005: /* Debug */
11006: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11007: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
11008: l_debug_str := 'l_status from Get_Empl_Info: '||l_status;
11009: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11010: END IF;
11005: /* Debug */
11006: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11007: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
11008: l_debug_str := 'l_status from Get_Empl_Info: '||l_status;
11009: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11010: END IF;
11011: IF l_status = 'U' THEN
11012: /* Debug */
11013: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11009: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11010: END IF;
11011: IF l_status = 'U' THEN
11012: /* Debug */
11013: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11014: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
11015: l_debug_str := 'Unexpected error in Update_Employment_Info. l_status is U.';
11016: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11017: END IF;
11012: /* Debug */
11013: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11014: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
11015: l_debug_str := 'Unexpected error in Update_Employment_Info. l_status is U.';
11016: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11017: END IF;
11018: RAISE FND_API.G_EXC_ERROR;
11019: END IF;
11020:
11078: Put_Log_Msg('Employment info is changed ',0);
11079:
11080: Put_Log_Msg(l_api_name||' ends ',0);
11081: /* Debug */
11082: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11083: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
11084: l_debug_str := 'Returning S from Update_Employment_Info.';
11085: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11086: END IF;
11081: /* Debug */
11082: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11083: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
11084: l_debug_str := 'Returning S from Update_Employment_Info.';
11085: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11086: END IF;
11087: RETURN 'S';
11088:
11089: EXCEPTION
11091: WHEN FND_API.G_EXC_ERROR THEN
11092:
11093: Put_Log_Msg(l_api_name||' EXEC_ERROR returns U',1);
11094: /* Debug */
11095: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11096: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
11097: l_debug_str := 'ND_API.G_EXC_ERROR: Returning U from Update_Employment_Info. '||SQLERRM;
11098: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11099: END IF;
11094: /* Debug */
11095: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11096: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
11097: l_debug_str := 'ND_API.G_EXC_ERROR: Returning U from Update_Employment_Info. '||SQLERRM;
11098: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11099: END IF;
11100: RETURN 'U';
11101:
11102: WHEN OTHERS THEN
11106: END IF;
11107:
11108: Put_Log_Msg(l_api_name||' OTHERS return U',1);
11109: /* Debug */
11110: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11111: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
11112: l_debug_str := 'EXCEPTION: Returning U from Update_Employment_Info. '||SQLERRM;
11113: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11114: END IF;
11109: /* Debug */
11110: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11111: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Employment_Info';
11112: l_debug_str := 'EXCEPTION: Returning U from Update_Employment_Info. '||SQLERRM;
11113: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11114: END IF;
11115:
11116: RETURN 'U';
11117: END Update_Employment_Info;
11146: BEGIN
11147:
11148: Put_Log_Msg(l_api_name||' begins ',0);
11149: /* Debug */
11150: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11151: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Conviction_Info';
11152: l_debug_str := 'Entering Update_Conviction_Info. p_person_rec.person_id is '||p_person_rec.person_id;
11153: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11154: END IF;
11149: /* Debug */
11150: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11151: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Conviction_Info';
11152: l_debug_str := 'Entering Update_Conviction_Info. p_person_rec.person_id is '||p_person_rec.person_id;
11153: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11154: END IF;
11155:
11156:
11157: -- Call Validate_Convictions_Info
11164: p_person_rec.person_status := 'I';
11165:
11166: Put_Log_Msg('Validation error occurs ',1);
11167: /* Debug */
11168: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11169: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Conviction_Info';
11170: l_debug_str := 'Returning S from Update_Conviction_Info. conv_status is E.';
11171: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11172: END IF;
11167: /* Debug */
11168: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11169: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Conviction_Info';
11170: l_debug_str := 'Returning S from Update_Conviction_Info. conv_status is E.';
11171: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11172: END IF;
11173:
11174: RETURN 'S';
11175:
11176: ELSIF p_person_rec.conv_status = 'U' THEN --Unexpected error - terminate execution
11177:
11178: Put_Log_Msg('Unexpected error returned by validation ',1);
11179: /* Debug */
11180: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11181: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Conviction_Info';
11182: l_debug_str := 'Unexpected error in Update_Conviction_Info. conv_status is U.';
11183: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11184: END IF;
11179: /* Debug */
11180: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11181: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Conviction_Info';
11182: l_debug_str := 'Unexpected error in Update_Conviction_Info. conv_status is U.';
11183: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11184: END IF;
11185:
11186: RAISE FND_API.G_EXC_ERROR;
11187:
11188: ELSIF p_person_rec.conv_status = 'N' THEN -- Not found
11189:
11190: Put_Log_Msg('Convictions block is not found ',0);
11191: /* Debug */
11192: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11193: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Conviction_Info';
11194: l_debug_str := 'Returning S from Update_Conviction_Info. conv_status is N.';
11195: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11196: END IF;
11191: /* Debug */
11192: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11193: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Conviction_Info';
11194: l_debug_str := 'Returning S from Update_Conviction_Info. conv_status is N.';
11195: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11196: END IF;
11197:
11198: RETURN 'S';
11199:
11212: END IF;
11213:
11214: Put_Log_Msg(l_api_name||' ends ',0);
11215: /* Debug */
11216: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11217: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Conviction_Info';
11218: l_debug_str := 'Returning S from Update_Conviction_Info.';
11219: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11220: END IF;
11215: /* Debug */
11216: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11217: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Conviction_Info';
11218: l_debug_str := 'Returning S from Update_Conviction_Info.';
11219: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11220: END IF;
11221:
11222: RETURN 'S';
11223:
11226: WHEN FND_API.G_EXC_ERROR THEN
11227:
11228: Put_Log_Msg(l_api_name||' EXEC_ERROR returns U',1);
11229: /* Debug */
11230: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11231: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Conviction_Info';
11232: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_Conviction_Info. '||SQLERRM;
11233: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11234: END IF;
11229: /* Debug */
11230: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11231: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Conviction_Info';
11232: l_debug_str := 'FND_API.G_EXC_ERROR: Returning U from Update_Conviction_Info. '||SQLERRM;
11233: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11234: END IF;
11235: RETURN 'U';
11236:
11237: WHEN OTHERS THEN
11241: END IF;
11242:
11243: Put_Log_Msg(l_api_name||' OTHERS return U',1);
11244: /* Debug */
11245: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11246: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Conviction_Info';
11247: l_debug_str := 'EXCEPTION: Returning U from Update_Conviction_Info. '||SQLERRM;
11248: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11249: END IF;
11244: /* Debug */
11245: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11246: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Update_Conviction_Info';
11247: l_debug_str := 'EXCEPTION: Returning U from Update_Conviction_Info. '||SQLERRM;
11248: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11249: END IF;
11250:
11251: RETURN 'U';
11252:
11275: ) IS
11276:
11277: BEGIN
11278: /* Debug */
11279: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11280: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Remove_Person_Data';
11281: l_debug_str := 'Entering Remove_Person_Data. p_person_id is '||p_person_id||' and p_batch_id is '||p_batch_id;
11282: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11283: END IF;
11278: /* Debug */
11279: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11280: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Remove_Person_Data';
11281: l_debug_str := 'Entering Remove_Person_Data. p_person_id is '||p_person_id||' and p_batch_id is '||p_batch_id;
11282: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11283: END IF;
11284: -- Delete from all related tables
11285:
11286: DELETE FROM igs_sv_addresses WHERE batch_id = p_batch_id AND ( person_id = p_person_id OR p_person_id IS NULL );
11305:
11306: DELETE FROM igs_sv_btch_summary WHERE batch_id = p_batch_id AND ( person_id = p_person_id OR p_person_id IS NULL ); -- prbhardw
11307:
11308: /* Debug */
11309: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11310: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Remove_Person_Data';
11311: l_debug_str := 'Exiting Remove_Person_Data.';
11312: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11313: END IF;
11308: /* Debug */
11309: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11310: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Remove_Person_Data';
11311: l_debug_str := 'Exiting Remove_Person_Data.';
11312: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11313: END IF;
11314:
11315: END Remove_Person_Data;
11316:
11351:
11352: BEGIN
11353: -- Just call the procedure
11354: /* Debug */
11355: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11356: l_label := 'igs.plsql.igs_sv_batch_process_pkg.EV_Batch_Process';
11357: l_debug_str := 'Entering EV_Batch_Process. p_validate_only is '||p_validate_only;
11358: l_debug_str := l_debug_str || 'l_org_id=' || l_org_id;
11359: l_debug_str := l_debug_str || 'l_dso_id=' || l_dso_id;
11360: l_debug_str := l_debug_str || 'l_dso_party_id=' || l_dso_party_id;
11361: l_debug_str := l_debug_str || 'l_org_party_id=' || l_org_party_id;
11362: l_debug_str := l_debug_str || 'p_org_id=' || p_org_id;
11363: l_debug_str := l_debug_str || 'p_dso_id=' || p_dso_id;
11364: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11365: END IF;
11366: SAVEPOINT EV_Batch_Process;
11367:
11368: Create_Batch(
11378: EXCEPTION
11379:
11380: WHEN OTHERS THEN
11381: /* Debug */
11382: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11383: l_label := 'igs.plsql.igs_sv_batch_process_pkg.EV_Batch_Process';
11384: l_debug_str := 'Exception in EV_Batch_Process. '||SQLERRM;
11385: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11386: END IF;
11381: /* Debug */
11382: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11383: l_label := 'igs.plsql.igs_sv_batch_process_pkg.EV_Batch_Process';
11384: l_debug_str := 'Exception in EV_Batch_Process. '||SQLERRM;
11385: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11386: END IF;
11387:
11388: ROLLBACK TO EV_Batch_Process;
11389:
11668: -- prbhardw
11669:
11670: BEGIN
11671: /* Debug */
11672: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11673: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
11674: l_debug_str := 'Entering Create_Batch. p_batch_type is '||p_batch_type;
11675: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11676: END IF;
11671: /* Debug */
11672: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11673: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
11674: l_debug_str := 'Entering Create_Batch. p_batch_type is '||p_batch_type;
11675: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11676: END IF;
11677:
11678: FND_MSG_PUB.initialize;
11679:
11679:
11680: SAVEPOINT Create_Batch;
11681: IF fnd_profile.value('IGS_SV_ENABLED') <> 'Y' THEN
11682: /* Debug */
11683: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11684: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
11685: l_debug_str := 'Raise ERROR: Sevis Disabled';
11686: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11687: END IF;
11682: /* Debug */
11683: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11684: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
11685: l_debug_str := 'Raise ERROR: Sevis Disabled';
11686: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11687: END IF;
11688:
11689: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_DISABLED'); -- SEVIS disabled
11690: FND_MSG_PUB.Add;
11718: FETCH submiter_number_cur INTO l_submiter_number;
11719: CLOSE submiter_number_cur;
11720:
11721: /* Debug */
11722: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11723: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
11724: l_debug_str := 'Raise FND_API.G_EXC_ERROR: l_person_sevis_id is null';
11725: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11726: END IF;
11721: /* Debug */
11722: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11723: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
11724: l_debug_str := 'Raise FND_API.G_EXC_ERROR: l_person_sevis_id is null';
11725: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11726: END IF;
11727:
11728: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_SUBMITTER_ID_ERR'); -- SEVIS submitter id not found
11729: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', l_submiter_number);
11743: CLOSE c_active_batch;
11744:
11745: IF l_batch_id IS NOT NULL AND p_validate_only = 'N' THEN
11746: /*Debug*/
11747: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11748: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
11749: l_debug_str := 'Raise ERROR: message name IGS_SV_BATCH_FOUND';
11750: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11751: END IF;
11746: /*Debug*/
11747: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11748: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
11749: l_debug_str := 'Raise ERROR: message name IGS_SV_BATCH_FOUND';
11750: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11751: END IF;
11752:
11753: -- Active batch is found and mode not validate only - terminate current process
11754: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_BATCH_FOUND');
11837:
11838:
11839: Put_Log_Msg('Initializing student record',0);
11840: /* Debug */
11841: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11842: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
11843: l_debug_str := 'Setting person values in Create_Batch Person ID '||c_student_list_rec.person_id||' Person No: '||c_student_list_rec.person_number;
11844: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11845: END IF;
11840: /* Debug */
11841: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11842: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
11843: l_debug_str := 'Setting person values in Create_Batch Person ID '||c_student_list_rec.person_id||' Person No: '||c_student_list_rec.person_number;
11844: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11845: END IF;
11846: -- Initialize record group for the student
11847: l_student_rec.person_id := c_student_list_rec.person_id;
11848: l_student_rec.record_number := l_record_number;
11912: FETCH c_get_dso_id INTO dso_id, dso_party_id;
11913: CLOSE c_get_dso_id;
11914: END IF;
11915: /* Debug */
11916: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11917: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
11918: l_debug_str := 'Inserting in igs_sv_persons batch id: '||l_batch_id;
11919: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11920: END IF;
11915: /* Debug */
11916: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
11917: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
11918: l_debug_str := 'Inserting in igs_sv_persons batch id: '||l_batch_id;
11919: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
11920: END IF;
11921: INSERT INTO igs_sv_persons (
11922: batch_id ,
11923: person_id ,
12009: p_records => l_count);
12010: l_soa_count := l_count;
12011: IF l_student_rec.site_addr_status = 'U' THEN --Unexpected error - terminate execution
12012: /* Debug */
12013: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12014: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12015: l_debug_str := 'Returning U from Create_Batch. site_addr_status is U.';
12016: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12017: END IF;
12012: /* Debug */
12013: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12014: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12015: l_debug_str := 'Returning U from Create_Batch. site_addr_status is U.';
12016: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12017: END IF;
12018:
12019: RAISE FND_API.G_EXC_ERROR;
12020:
12066: FND_MESSAGE.SET_NAME('IGS', 'IGS_SV_UNEXP_EXCPT_ERR'); -- I-20 is missing! Unexpected error
12067: FND_MESSAGE.SET_TOKEN('BLOCK_ID',5);
12068: FND_MSG_PUB.Add;
12069: /* Debug */
12070: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12071: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12072: l_debug_str := 'IGS_SV_UNEXP_EXCPT_ERR in Create_Batch.';
12073: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12074: END IF;
12069: /* Debug */
12070: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12071: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12072: l_debug_str := 'IGS_SV_UNEXP_EXCPT_ERR in Create_Batch.';
12073: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12074: END IF;
12075:
12076: RAISE FND_API.G_EXC_ERROR;
12077:
12164: l_status := Update_Employment_Info ( p_person_rec => l_student_rec );
12165:
12166: IF l_status <> 'S' THEN
12167: /* Debug */
12168: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12169: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12170: l_debug_str := 'ERROR in Create_Batch. l_status from Update_Employment_Info is not S';
12171: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12172: END IF;
12167: /* Debug */
12168: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12169: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12170: l_debug_str := 'ERROR in Create_Batch. l_status from Update_Employment_Info is not S';
12171: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12172: END IF;
12173: RAISE FND_API.G_EXC_ERROR;
12174: END IF;
12175:
12178: -- Call Update_Registration_Info
12179: l_status := Update_Registration_Info ( p_person_rec => l_student_rec );
12180: IF l_status <> 'S' THEN
12181: /* Debug */
12182: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12183: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12184: l_debug_str := 'ERROR in Create_Batch. l_status is not S';
12185: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12186: END IF;
12181: /* Debug */
12182: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12183: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12184: l_debug_str := 'ERROR in Create_Batch. l_status is not S';
12185: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12186: END IF;
12187:
12188: RAISE FND_API.G_EXC_ERROR;
12189: END IF;
12193: l_status := Update_Personal_Info ( p_person_rec => l_student_rec );
12194:
12195: IF l_status <> 'S' THEN
12196: /* Debug */
12197: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12198: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12199: l_debug_str := 'ERROR in Create_Batch. changes_found <> Y and l_status is not S';
12200: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12201: END IF;
12196: /* Debug */
12197: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12198: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12199: l_debug_str := 'ERROR in Create_Batch. changes_found <> Y and l_status is not S';
12200: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12201: END IF;
12202: RAISE FND_API.G_EXC_ERROR;
12203: END IF;
12204: -- END IF;
12208: l_status := Update_Program_Info ( p_person_rec => l_student_rec );
12209:
12210: IF l_status <> 'S' THEN
12211: /* Debug */
12212: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12213: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12214: l_debug_str := 'ERROR in Create_Batch. l_status from Update_Program_Info is not S';
12215: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12216: END IF;
12211: /* Debug */
12212: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12213: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12214: l_debug_str := 'ERROR in Create_Batch. l_status from Update_Program_Info is not S';
12215: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12216: END IF;
12217:
12218: RAISE FND_API.G_EXC_ERROR;
12219: END IF;
12225: l_status := Update_Finance_Info ( p_person_rec => l_student_rec );
12226:
12227: IF l_status <> 'S' THEN
12228: /* Debug */
12229: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12230: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12231: l_debug_str := 'ERROR in Create_Batch. l_status from Update_Finance_Info is not S';
12232: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12233: END IF;
12228: /* Debug */
12229: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12230: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12231: l_debug_str := 'ERROR in Create_Batch. l_status from Update_Finance_Info is not S';
12232: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12233: END IF;
12234: RAISE FND_API.G_EXC_ERROR;
12235: END IF;
12236: -- END IF;
12241: l_status := Update_Dependent_Info ( p_person_rec => l_student_rec );
12242:
12243: IF l_status <> 'S' THEN
12244: /* Debug */
12245: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12246: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12247: l_debug_str := 'ERROR in Create_Batch. l_status from Update_Dependent_Info is not S';
12248: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12249: END IF;
12244: /* Debug */
12245: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12246: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12247: l_debug_str := 'ERROR in Create_Batch. l_status from Update_Dependent_Info is not S';
12248: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12249: END IF;
12250: RAISE FND_API.G_EXC_ERROR;
12251: END IF;
12252:
12258: l_status := Update_Conviction_Info ( p_person_rec => l_student_rec );
12259:
12260: IF l_status <> 'S' THEN
12261: /* Debug */
12262: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12263: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12264: l_debug_str := 'ERROR in Create_Batch. l_status from Update_Conviction_Info is not S';
12265: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12266: END IF;
12261: /* Debug */
12262: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12263: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12264: l_debug_str := 'ERROR in Create_Batch. l_status from Update_Conviction_Info is not S';
12265: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12266: END IF;
12267: RAISE FND_API.G_EXC_ERROR;
12268: END IF;
12269:
12297: l_status := Update_Personal_Info ( p_person_rec => l_student_rec );
12298:
12299: IF l_status <> 'S' THEN
12300: /* Debug */
12301: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12302: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12303: l_debug_str := 'ERROR in Create_Batch. l_status from Update_Personal_Info is not S';
12304: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12305: END IF;
12300: /* Debug */
12301: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12302: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12303: l_debug_str := 'ERROR in Create_Batch. l_status from Update_Personal_Info is not S';
12304: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12305: END IF;
12306:
12307: RAISE FND_API.G_EXC_ERROR;
12308: END IF;
12308: END IF;
12309: l_status := Update_ev_legal_Info ( p_person_rec => l_student_rec );
12310: IF l_status <> 'S' THEN
12311: /* Debug */
12312: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12313: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12314: l_debug_str := 'ERROR in Create_Batch. Update_ev_legal_Info status is not S';
12315: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12316: END IF;
12311: /* Debug */
12312: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12313: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12314: l_debug_str := 'ERROR in Create_Batch. Update_ev_legal_Info status is not S';
12315: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12316: END IF;
12317:
12318: RAISE FND_API.G_EXC_ERROR;
12319: END IF;
12324:
12325:
12326: IF l_status <> 'S' THEN
12327: /* Debug */
12328: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12329: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12330: l_debug_str := 'ERROR in Create_Batch. l_status from Update_Finance_Info is not S';
12331: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12332: END IF;
12327: /* Debug */
12328: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12329: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12330: l_debug_str := 'ERROR in Create_Batch. l_status from Update_Finance_Info is not S';
12331: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12332: END IF;
12333: RAISE FND_API.G_EXC_ERROR;
12334: END IF;
12335: -- END IF;
12341:
12342:
12343: IF l_status <> 'S' THEN
12344: /* Debug */
12345: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12346: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12347: l_debug_str := 'ERROR in Create_Batch. l_status from Update_EV_Program_Info is not S';
12348: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12349: END IF;
12344: /* Debug */
12345: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12346: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12347: l_debug_str := 'ERROR in Create_Batch. l_status from Update_EV_Program_Info is not S';
12348: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12349: END IF;
12350: RAISE FND_API.G_EXC_ERROR;
12351: END IF;
12352: -- END IF;
12358:
12359:
12360: IF l_status <> 'S' THEN
12361: /* Debug */
12362: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12363: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12364: l_debug_str := 'ERROR in Create_Batch. l_status from Update_EV_Address_Info is not S';
12365: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12366: END IF;
12361: /* Debug */
12362: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12363: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12364: l_debug_str := 'ERROR in Create_Batch. l_status from Update_EV_Address_Info is not S';
12365: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12366: END IF;
12367: RAISE FND_API.G_EXC_ERROR;
12368: END IF;
12369:
12375:
12376:
12377: IF l_status <> 'S' THEN
12378: /* Debug */
12379: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12380: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12381: l_debug_str := 'ERROR in Create_Batch. l_status from Update_Dependent_Info is not S';
12382: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12383: END IF;
12378: /* Debug */
12379: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12380: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12381: l_debug_str := 'ERROR in Create_Batch. l_status from Update_Dependent_Info is not S';
12382: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12383: END IF;
12384: RAISE FND_API.G_EXC_ERROR;
12385: END IF;
12386:
12492: END LOOP;
12493:
12494: END IF;
12495: /* Debug */
12496: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12497: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12498: l_debug_str := 'Commiting in Create_Batch. l_batch_status: '||l_batch_status;
12499: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12500: END IF;
12495: /* Debug */
12496: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12497: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12498: l_debug_str := 'Commiting in Create_Batch. l_batch_status: '||l_batch_status;
12499: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12500: END IF;
12501: compose_log_file;
12502:
12503: COMMIT;
12507: EXCEPTION
12508:
12509: WHEN FND_API.G_EXC_ERROR THEN
12510: /* Debug */
12511: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12512: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12513: l_debug_str := 'FND_API.G_EXC_ERROR exception in Create_Batch. '||SQLERRM;
12514: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12515: END IF;
12510: /* Debug */
12511: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12512: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12513: l_debug_str := 'FND_API.G_EXC_ERROR exception in Create_Batch. '||SQLERRM;
12514: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12515: END IF;
12516: ROLLBACK TO Create_Batch;
12517: retcode := 2;
12518: dump_current_person(l_student_rec);
12525:
12526: WHEN OTHERS THEN
12527:
12528: /* Debug */
12529: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12530: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12531: l_debug_str := 'Other exception in Create_Batch. '||SQLERRM;
12532: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12533: END IF;
12528: /* Debug */
12529: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12530: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Create_Batch';
12531: l_debug_str := 'Other exception in Create_Batch. '||SQLERRM;
12532: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12533: END IF;
12534: ROLLBACK TO Create_Batch;
12535: retcode := 2;
12536: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
12583:
12584:
12585: BEGIN
12586: /* Debug */
12587: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12588: l_label := 'igs.plsql.igs_sv_batch_process_pkg.NIMG_Batch_Process';
12589: l_debug_str := 'Entering NIMG_Batch_Process.';
12590: l_debug_str := l_debug_str || 'l_org_id=' || l_org_id;
12591: l_debug_str := l_debug_str || 'l_dso_id=' || l_dso_id;
12593: l_debug_str := l_debug_str || 'l_org_party_id=' || l_org_party_id;
12594: l_debug_str := l_debug_str || 'p_org_id=' || p_org_id;
12595: l_debug_str := l_debug_str || 'p_dso_id=' || p_dso_id;
12596:
12597: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12598: END IF;
12599:
12600: -- Just call the procedure
12601: SAVEPOINT NIMG_Batch_Process;
12615:
12616: WHEN OTHERS THEN
12617:
12618: /* Debug */
12619: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12620: l_label := 'igs.plsql.igs_sv_batch_process_pkg.NIMG_Batch_Process';
12621: l_debug_str := 'Exception in NIMG_Batch_Process. '||SQLERRM;
12622: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12623: END IF;
12618: /* Debug */
12619: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12620: l_label := 'igs.plsql.igs_sv_batch_process_pkg.NIMG_Batch_Process';
12621: l_debug_str := 'Exception in NIMG_Batch_Process. '||SQLERRM;
12622: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12623: END IF;
12624:
12625: ROLLBACK TO NIMG_Batch_Process;
12626:
12671:
12672: BEGIN
12673:
12674: /* Debug */
12675: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12676: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Purge_Batch';
12677: l_debug_str := 'Entering Purge_Batch. p_batch_type is '||p_batch_type;
12678: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12679: END IF;
12674: /* Debug */
12675: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12676: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Purge_Batch';
12677: l_debug_str := 'Entering Purge_Batch. p_batch_type is '||p_batch_type;
12678: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12679: END IF;
12680: FND_MSG_PUB.initialize;
12681:
12682: SAVEPOINT Purge_Batch;
12715: END IF;
12716:
12717: retcode := 0;
12718: /* Debug */
12719: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12720: l_label := 'igs.plsql.igs_sv_batch_process_pkg.NIMG_Batch_Process';
12721: l_debug_str := 'retcode in NIMG_Batch_Process: '||retcode;
12722: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12723: END IF;
12718: /* Debug */
12719: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12720: l_label := 'igs.plsql.igs_sv_batch_process_pkg.NIMG_Batch_Process';
12721: l_debug_str := 'retcode in NIMG_Batch_Process: '||retcode;
12722: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12723: END IF;
12724: EXCEPTION
12725:
12726: WHEN FND_API.G_EXC_ERROR THEN
12725:
12726: WHEN FND_API.G_EXC_ERROR THEN
12727:
12728: /* Debug */
12729: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12730: l_label := 'igs.plsql.igs_sv_batch_process_pkg.NIMG_Batch_Process';
12731: l_debug_str := 'FND_API.G_EXC_ERROR Exception in NIMG_Batch_Process. '||SQLERRM;
12732: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12733: END IF;
12728: /* Debug */
12729: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12730: l_label := 'igs.plsql.igs_sv_batch_process_pkg.NIMG_Batch_Process';
12731: l_debug_str := 'FND_API.G_EXC_ERROR Exception in NIMG_Batch_Process. '||SQLERRM;
12732: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12733: END IF;
12734: ROLLBACK TO Purge_Batch;
12735:
12736: retcode := 2;
12739:
12740: WHEN OTHERS THEN
12741:
12742: /* Debug */
12743: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12744: l_label := 'igs.plsql.igs_sv_batch_process_pkg.NIMG_Batch_Process';
12745: l_debug_str := 'Exception in NIMG_Batch_Process. '||SQLERRM;
12746: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12747: END IF;
12742: /* Debug */
12743: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12744: l_label := 'igs.plsql.igs_sv_batch_process_pkg.NIMG_Batch_Process';
12745: l_debug_str := 'Exception in NIMG_Batch_Process. '||SQLERRM;
12746: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12747: END IF;
12748: ROLLBACK TO Purge_Batch;
12749:
12750: retcode := 2;
12785: l_msg_data VARCHAR2(2000);
12786:
12787: BEGIN
12788: /* Debug */
12789: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12790: l_label := 'igs.plsql.igs_sv_batch_process_pkg.EV_Purge_Batch';
12791: l_debug_str := 'Entering EV_Purge_Batch.';
12792: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12793: END IF;
12788: /* Debug */
12789: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12790: l_label := 'igs.plsql.igs_sv_batch_process_pkg.EV_Purge_Batch';
12791: l_debug_str := 'Entering EV_Purge_Batch.';
12792: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12793: END IF;
12794: -- Just call the procedure
12795:
12796: Purge_Batch(
12801: EXCEPTION
12802:
12803: WHEN OTHERS THEN
12804: /* Debug */
12805: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12806: l_label := 'igs.plsql.igs_sv_batch_process_pkg.EV_Purge_Batch';
12807: l_debug_str := 'EXCEPTION in EV_Purge_Batch. '||SQLERRM;
12808: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12809: END IF;
12804: /* Debug */
12805: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12806: l_label := 'igs.plsql.igs_sv_batch_process_pkg.EV_Purge_Batch';
12807: l_debug_str := 'EXCEPTION in EV_Purge_Batch. '||SQLERRM;
12808: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12809: END IF;
12810: retcode := 2;
12811:
12812: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
12846:
12847: BEGIN
12848:
12849: /* Debug */
12850: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12851: l_label := 'igs.plsql.igs_sv_batch_process_pkg.NIMG_Purge_Batch';
12852: l_debug_str := 'Entering NIMG_Purge_Batch.';
12853: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12854: END IF;
12849: /* Debug */
12850: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12851: l_label := 'igs.plsql.igs_sv_batch_process_pkg.NIMG_Purge_Batch';
12852: l_debug_str := 'Entering NIMG_Purge_Batch.';
12853: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12854: END IF;
12855: -- Just call the procedure
12856:
12857: SAVEPOINT NIMG_Purge_Batch;
12864: EXCEPTION
12865:
12866: WHEN OTHERS THEN
12867: /* Debug */
12868: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12869: l_label := 'igs.plsql.igs_sv_batch_process_pkg.NIMG_Purge_Batch';
12870: l_debug_str := 'EXCEPTION in NIMG_Purge_Batch. '||SQLERRM;
12871: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12872: END IF;
12867: /* Debug */
12868: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12869: l_label := 'igs.plsql.igs_sv_batch_process_pkg.NIMG_Purge_Batch';
12870: l_debug_str := 'EXCEPTION in NIMG_Purge_Batch. '||SQLERRM;
12871: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12872: END IF;
12873: ROLLBACK TO NIMG_Purge_Batch;
12874:
12875: retcode := 2;
12905: l_msg_data VARCHAR2(2000);
12906:
12907: BEGIN
12908: /* Debug */
12909: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12910: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Generate_Message';
12911: l_debug_str := 'Entering Generate_Message.';
12912: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12913: END IF;
12908: /* Debug */
12909: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12910: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Generate_Message';
12911: l_debug_str := 'Entering Generate_Message.';
12912: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12913: END IF;
12914: FND_MSg_PUB.Count_And_Get ( p_count => l_msg_count,
12915: p_data => l_msg_data );
12916:
12930: Put_Log_Msg(l_msg_data,1);
12931:
12932: END IF;
12933: /* Debug */
12934: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12935: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Generate_Message';
12936: l_debug_str := 'Exiting Generate_Message. l_msg_data is: '||l_msg_data;
12937: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12938: END IF;
12933: /* Debug */
12934: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
12935: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Generate_Message';
12936: l_debug_str := 'Exiting Generate_Message. l_msg_data is: '||l_msg_data;
12937: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
12938: END IF;
12939: END Generate_Message;
12940:
12941:
12995:
12996:
12997: BEGIN
12998: /* Debug */
12999: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13000: l_label := 'igs.plsql.igs_sv_batch_process_pkg.process_person_record';
13001: l_debug_str := 'Entering process_person_record. p_sevisID is: '||p_sevisID||' and p_person_id is: '||p_person_id;
13002: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13003: END IF;
12998: /* Debug */
12999: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13000: l_label := 'igs.plsql.igs_sv_batch_process_pkg.process_person_record';
13001: l_debug_str := 'Entering process_person_record. p_sevisID is: '||p_sevisID||' and p_person_id is: '||p_person_id;
13002: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13003: END IF;
13004:
13005: IF lower(p_Status) <> 'true' THEN
13006:
13069:
13070:
13071: END IF;
13072: /* Debug */
13073: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13074: l_label := 'igs.plsql.igs_sv_batch_process_pkg.process_person_record';
13075: l_debug_str := 'Exiting process_person_record';
13076: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13077: END IF;
13072: /* Debug */
13073: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13074: l_label := 'igs.plsql.igs_sv_batch_process_pkg.process_person_record';
13075: l_debug_str := 'Exiting process_person_record';
13076: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13077: END IF;
13078:
13079: END process_person_record;
13080:
13106:
13107:
13108: BEGIN
13109:
13110: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13111: l_label := 'igs.plsql.igs_sv_batch_process_pkg.process_trans_header';
13112: l_debug_str := 'Came in with p_BatchID = '||p_BatchID||' p_FileErrorCode = '||p_FileErrorCode ||' p_FileValidation = '||p_FileValidation||' '||SQLERRM;
13113: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13114: END IF;
13109:
13110: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13111: l_label := 'igs.plsql.igs_sv_batch_process_pkg.process_trans_header';
13112: l_debug_str := 'Came in with p_BatchID = '||p_BatchID||' p_FileErrorCode = '||p_FileErrorCode ||' p_FileValidation = '||p_FileValidation||' '||SQLERRM;
13113: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13114: END IF;
13115:
13116: SAVEPOINT process_trans_header;
13117:
13159: END IF;
13160: EXCEPTION
13161: WHEN FND_API.G_EXC_ERROR THEN
13162: /* Debug */
13163: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13164: l_label := 'igs.plsql.igs_sv_batch_process_pkg.process_trans_header';
13165: l_debug_str := 'FND_API.G_EXC_ERROR in process_trans_header '||SQLERRM;
13166: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13167: END IF;
13162: /* Debug */
13163: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13164: l_label := 'igs.plsql.igs_sv_batch_process_pkg.process_trans_header';
13165: l_debug_str := 'FND_API.G_EXC_ERROR in process_trans_header '||SQLERRM;
13166: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13167: END IF;
13168: ROLLBACK TO process_trans_header;
13169: WHEN OTHERS THEN
13170: /* Debug */
13167: END IF;
13168: ROLLBACK TO process_trans_header;
13169: WHEN OTHERS THEN
13170: /* Debug */
13171: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13172: l_label := 'igs.plsql.igs_sv_batch_process_pkg.process_trans_header';
13173: l_debug_str := 'Exiting process_trans_header '||SQLERRM;
13174: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13175: END IF;
13170: /* Debug */
13171: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13172: l_label := 'igs.plsql.igs_sv_batch_process_pkg.process_trans_header';
13173: l_debug_str := 'Exiting process_trans_header '||SQLERRM;
13174: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13175: END IF;
13176: ROLLBACK TO process_trans_header;
13177:
13178: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
13217:
13218:
13219: BEGIN
13220:
13221: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13222: l_label := 'igs.plsql.igs_sv_batch_process_pkg.process_student_record';
13223: l_debug_str := 'Came in with p_BatchID = '||p_BatchID||' p_sevisID = '||p_sevisID
13224: ||' p_PersonID = '||p_PersonID|| ' p_Status = '||p_Status
13225: ||' p_SEVIS_ErrorCode = '||p_SEVIS_ErrorCode||' p_SEVIS_ErrorElement = '||p_SEVIS_ErrorElement||' '||SQLERRM;
13222: l_label := 'igs.plsql.igs_sv_batch_process_pkg.process_student_record';
13223: l_debug_str := 'Came in with p_BatchID = '||p_BatchID||' p_sevisID = '||p_sevisID
13224: ||' p_PersonID = '||p_PersonID|| ' p_Status = '||p_Status
13225: ||' p_SEVIS_ErrorCode = '||p_SEVIS_ErrorCode||' p_SEVIS_ErrorElement = '||p_SEVIS_ErrorElement||' '||SQLERRM;
13226: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13227: END IF;
13228:
13229:
13230: SAVEPOINT process_student_record;
13298: WHERE PERSON_ID = p_PersonID and DEPDNT_ID = p_DepPersonID;
13299:
13300:
13301: BEGIN
13302: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13303: l_label := 'igs.plsql.igs_sv_batch_process_pkg.process_dep_record';
13304: l_debug_str := 'Came in with p_BatchID = '||p_BatchID||' p_DepPersonID = '||p_DepPersonID
13305: ||' p_DepSevisID = '||p_DepSevisID||' p_PersonID = '||p_PersonID
13306: || ' p_Status = '||p_Status||' p_SEVIS_ErrorCode = '
13304: l_debug_str := 'Came in with p_BatchID = '||p_BatchID||' p_DepPersonID = '||p_DepPersonID
13305: ||' p_DepSevisID = '||p_DepSevisID||' p_PersonID = '||p_PersonID
13306: || ' p_Status = '||p_Status||' p_SEVIS_ErrorCode = '
13307: ||p_SEVIS_ErrorCode||' p_SEVIS_ErrorElement = '||p_SEVIS_ErrorElement||' '||SQLERRM;
13308: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13309: END IF;
13310:
13311: OPEN c_dep;
13312: FETCH c_dep INTO l_temp;
13376: SELECT max(batch_id) FROM IGS_SV_BTCH_SUMMARY;
13377: l_batch NUMBER(20) := 0;
13378: BEGIN
13379: /* Debug */
13380: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13381: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Summary_Info';
13382: l_debug_str := 'Entering Insert_Summary_Info. p_data_rec.person_id is '||p_person_id|| ' and batch_id is '||p_batch_id;
13383: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13384: END IF;
13379: /* Debug */
13380: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13381: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Summary_Info';
13382: l_debug_str := 'Entering Insert_Summary_Info. p_data_rec.person_id is '||p_person_id|| ' and batch_id is '||p_batch_id;
13383: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13384: END IF;
13385:
13386: INSERT INTO IGS_SV_BTCH_SUMMARY (
13387: summary_id ,
13417: OPEN c_test;
13418: FETCH c_test INTO l_batch;
13419: CLOSE c_test;
13420: /* Debug */
13421: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13422: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Summary_Info';
13423: l_debug_str := 'record in Insert_Summary_Info max batch_id: '||l_batch;
13424: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13425: END IF;
13420: /* Debug */
13421: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13422: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Summary_Info';
13423: l_debug_str := 'record in Insert_Summary_Info max batch_id: '||l_batch;
13424: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13425: END IF;
13426: EXCEPTION
13427:
13428: WHEN OTHERS THEN
13429: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
13430: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
13431: END IF;
13432: /* Debug */
13433: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13434: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Summary_Info';
13435: l_debug_str := 'EXCEPTION in Insert_Summary_Info. '||SQLERRM;
13436: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13437: END IF;
13432: /* Debug */
13433: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13434: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Insert_Summary_Info';
13435: l_debug_str := 'EXCEPTION in Insert_Summary_Info. '||SQLERRM;
13436: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13437: END IF;
13438: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
13439: RAISE;
13440:
13469: l_batch_id igs_sv_batches.batch_id%TYPE;
13470: BEGIN
13471: retcode := 0;
13472: /* Debug */
13473: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13474: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Generate_Batch_XML';
13475: l_debug_str := 'Batch_id for Generate_Batch_XML: '||batch_id;
13476: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13477: END IF;
13472: /* Debug */
13473: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13474: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Generate_Batch_XML';
13475: l_debug_str := 'Batch_id for Generate_Batch_XML: '||batch_id;
13476: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13477: END IF;
13478: Put_Log_Msg('Batch id for Generate Batch XML: '||batch_id, 0);
13479:
13480: OPEN c_get_batch_type(batch_id);
13601: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
13602: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
13603: END IF;
13604: /* Debug */
13605: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13606: l_label := 'igs.plsql.igs_sv_batch_process_pkg.xml_log_file';
13607: l_debug_str := 'EXCEPTION in xml_log_file.'||SQLERRM;
13608: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13609: END IF;
13604: /* Debug */
13605: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13606: l_label := 'igs.plsql.igs_sv_batch_process_pkg.xml_log_file';
13607: l_debug_str := 'EXCEPTION in xml_log_file.'||SQLERRM;
13608: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13609: END IF;
13610: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
13611:
13612: RAISE;
13782: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
13783: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
13784: END IF;
13785: /* Debug */
13786: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13787: l_label := 'igs.plsql.igs_sv_batch_process_pkg.compose_log_file';
13788: l_debug_str := 'EXCEPTION in compose_log_file.'||SQLERRM;
13789: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13790: END IF;
13785: /* Debug */
13786: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13787: l_label := 'igs.plsql.igs_sv_batch_process_pkg.compose_log_file';
13788: l_debug_str := 'EXCEPTION in compose_log_file.'||SQLERRM;
13789: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13790: END IF;
13791: Put_Log_Msg(l_api_name||' OTHERS ERROR ',1);
13792:
13793: RAISE;
13908: retcode := 0;
13909: lv_last_update_date := SYSDATE;
13910: lv_object_version_number := 1;
13911: /* Debug */
13912: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13913: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Assign_DSO';
13914: l_debug_str := 'p_group_type: '||p_group_type||' p_old_dso_id: '||p_old_dso_id||' p_new_dso_id: '||p_new_dso_id||' p_group_id: '||p_group_id;
13915: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13916: END IF;
13911: /* Debug */
13912: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13913: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Assign_DSO';
13914: l_debug_str := 'p_group_type: '||p_group_type||' p_old_dso_id: '||p_old_dso_id||' p_new_dso_id: '||p_new_dso_id||' p_group_id: '||p_group_id;
13915: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13916: END IF;
13917: Put_Log_Msg('group type: '||p_group_type||'; old dso id: '||p_old_dso_id||'; new dso id: '||p_new_dso_id||'; group id: '||p_group_id, 0);
13918: Put_Log_Msg(' ', 0);
13919: IF p_group_type = 'G' THEN
13933: RETURN;
13934: END IF;
13935:
13936: /* Debug */
13937: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13938: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Assign_DSO';
13939: l_debug_str := 'Query: '||l_str;
13940: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13941: END IF;
13936: /* Debug */
13937: IF fnd_log.test(fnd_log.level_statement,l_prog_label) THEN
13938: l_label := 'igs.plsql.igs_sv_batch_process_pkg.Assign_DSO';
13939: l_debug_str := 'Query: '||l_str;
13940: fnd_log.string_with_context( fnd_log.level_statement,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
13941: END IF;
13942:
13943: --END IF;
13944: