135: WHERE load_alternate_code=p_load_alt_code)));
136:
137: IF p_load_alt_code IS NULL THEN -- group header has not yet been put..teach code will be not null only in case of teach calendar errors or relationship errors
138: --group header
139: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'_'));
140: IF p_program_cd IS NULL THEN
141: fnd_message.set_name('IGS','IGS_EN_BLK_PER_MSG');
142: ELSE
143: fnd_message.set_name('IGS','IGS_EN_BLK_PER_PRO');
143: fnd_message.set_name('IGS','IGS_EN_BLK_PER_PRO');
144: fnd_message.set_token('PRGCD',NVL(p_program_cd,''' '''));
145: END IF;
146: fnd_message.set_token('PERNUM', p_person_number);
147: fnd_file.put_line(Fnd_File.LOG,fnd_message.get);
148: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'_'));
149: END IF;
150: WHILE l_fcount < LENGTH(l_message) LOOP
151: l_lcount:=INSTR(l_message,';',l_fcount);
144: fnd_message.set_token('PRGCD',NVL(p_program_cd,''' '''));
145: END IF;
146: fnd_message.set_token('PERNUM', p_person_number);
147: fnd_file.put_line(Fnd_File.LOG,fnd_message.get);
148: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'_'));
149: END IF;
150: WHILE l_fcount < LENGTH(l_message) LOOP
151: l_lcount:=INSTR(l_message,';',l_fcount);
152: IF l_lcount=0 THEN
149: END IF;
150: WHILE l_fcount < LENGTH(l_message) LOOP
151: l_lcount:=INSTR(l_message,';',l_fcount);
152: IF l_lcount=0 THEN
153: fnd_file.put_line(fnd_file.LOG, SUBSTR(l_message,l_fcount));
154: l_fcount:=LENGTH(l_message)+1;
155: ELSE
156: fnd_file.put_line(fnd_file.LOG, SUBSTR(l_message,l_fcount,l_lcount-l_fcount));
157: l_fcount:=l_lcount+1;
152: IF l_lcount=0 THEN
153: fnd_file.put_line(fnd_file.LOG, SUBSTR(l_message,l_fcount));
154: l_fcount:=LENGTH(l_message)+1;
155: ELSE
156: fnd_file.put_line(fnd_file.LOG, SUBSTR(l_message,l_fcount,l_lcount-l_fcount));
157: l_fcount:=l_lcount+1;
158: END IF;
159: END LOOP;
160: END enrpl_log_msg;
184: l_message VARCHAR2(2000);
185:
186:
187: BEGIN
188: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'_'));
189: fnd_file.put_line(Fnd_File.LOG, rpad(fnd_message.get_string('IGS','IGS_EN_BLK_GRP_UID'),20,' ')||fnd_message.get_string('IGS','IGS_EN_BLK_GRP_UMSG'));
190: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'-'));
191: FOR i IN 0.. l_msg_rec_ind-1
192: LOOP
185:
186:
187: BEGIN
188: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'_'));
189: fnd_file.put_line(Fnd_File.LOG, rpad(fnd_message.get_string('IGS','IGS_EN_BLK_GRP_UID'),20,' ')||fnd_message.get_string('IGS','IGS_EN_BLK_GRP_UMSG'));
190: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'-'));
191: FOR i IN 0.. l_msg_rec_ind-1
192: LOOP
193:
186:
187: BEGIN
188: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'_'));
189: fnd_file.put_line(Fnd_File.LOG, rpad(fnd_message.get_string('IGS','IGS_EN_BLK_GRP_UID'),20,' ')||fnd_message.get_string('IGS','IGS_EN_BLK_GRP_UMSG'));
190: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'-'));
191: FOR i IN 0.. l_msg_rec_ind-1
192: LOOP
193:
194: IF l_message_table(i).type='S' AND p_message IS NOT NULL THEN
214: l_fcount:=1;l_lcount:=1;
215: WHILE l_fcount < LENGTH(l_message) LOOP
216: l_lcount:=INSTR(l_message,';',l_fcount);
217: IF l_lcount=0 THEN
218: fnd_file.put_line(fnd_file.LOG, rpad(nvl(to_char(l_message_table(i).upload_id),' '),20,' ')||SUBSTR(l_message,l_fcount));
219: l_fcount:=LENGTH(l_message)+1;
220: ELSE
221: fnd_file.put_line(fnd_file.LOG, rpad(nvl(to_char(l_message_table(i).upload_id),' '),20,' ')||SUBSTR(l_message,l_fcount,l_lcount-l_fcount));
222: l_message_table(i).upload_id:=null;
217: IF l_lcount=0 THEN
218: fnd_file.put_line(fnd_file.LOG, rpad(nvl(to_char(l_message_table(i).upload_id),' '),20,' ')||SUBSTR(l_message,l_fcount));
219: l_fcount:=LENGTH(l_message)+1;
220: ELSE
221: fnd_file.put_line(fnd_file.LOG, rpad(nvl(to_char(l_message_table(i).upload_id),' '),20,' ')||SUBSTR(l_message,l_fcount,l_lcount-l_fcount));
222: l_message_table(i).upload_id:=null;
223: l_fcount:=l_lcount+1;
224: END IF;
225: END LOOP;
596: IF p_ovr_enr_method IS NULL THEN
597: igs_en_gen_017.enrp_get_enr_method (l_enr_method,l_error_message,l_ret_status);
598: IF l_ret_status='FALSE' THEN
599: Fnd_message.set_name('IGS','IGS_SS_EN_NOENR_METHOD');
600: Fnd_file.put_line(fnd_file.log,fnd_message.get);
601: retcode:=2;
602: RETURN;
603: END IF;
604: ELSE
610: --Log header
611: OPEN c_batch_desc(p_batch_id);
612: FETCH c_batch_desc INTO l_batch_desc;
613: CLOSE c_batch_desc;
614: fnd_file.put_line(fnd_file.log,fnd_message.get_string('IGS','IGS_PE_CURR_DT')||':'||SYSDATE);
615: fnd_message.set_name('IGS','IGS_EN_BLK_GRP_HD');
616: fnd_message.set_token('BATCHID', p_batch_id);
617: fnd_message.set_token('BATCHDESC',l_batch_desc);
618: fnd_message.set_token('ENRMETHOD',l_enr_method);
615: fnd_message.set_name('IGS','IGS_EN_BLK_GRP_HD');
616: fnd_message.set_token('BATCHID', p_batch_id);
617: fnd_message.set_token('BATCHDESC',l_batch_desc);
618: fnd_message.set_token('ENRMETHOD',l_enr_method);
619: fnd_file.put_line(Fnd_File.LOG,fnd_message.get);
620:
621: fnd_message.set_name('IGS','IGS_EN_BLK_JOB_PARAM');
622: fnd_message.set_token('PARAM1', p_dflt_unit_confirmed);
623: fnd_message.set_token('PARAM2',p_ovr_enr_method);
621: fnd_message.set_name('IGS','IGS_EN_BLK_JOB_PARAM');
622: fnd_message.set_token('PARAM1', p_dflt_unit_confirmed);
623: fnd_message.set_token('PARAM2',p_ovr_enr_method);
624: fnd_message.set_token('PARAM3',p_deletion_flag);
625: fnd_file.put_line(Fnd_File.LOG,fnd_message.get);
626:
627:
628: FOR l_bulk_persons IN c_bulk_persons(p_batch_id)
629: LOOP --for each person
666:
667: FOR l_bulk_load IN c_bulk_load (p_batch_id,l_bulk_persons.person_number,l_bulk_programs.program_cd,l_bulk_programs.program_ver_num) LOOP --load calendars
668: SAVEPOINT blk_sc_load_lvl;
669: --group header
670: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'_'));
671: fnd_message.set_name('IGS','IGS_EN_BLK_GRP_INF');
672: fnd_message.set_token('PERNUM', l_bulk_persons.person_number);
673: fnd_message.set_token('PRGCD',l_bulk_programs.program_cd);
674: fnd_message.set_token('LOADALTCD',l_bulk_load.alt_cd);
671: fnd_message.set_name('IGS','IGS_EN_BLK_GRP_INF');
672: fnd_message.set_token('PERNUM', l_bulk_persons.person_number);
673: fnd_message.set_token('PRGCD',l_bulk_programs.program_cd);
674: fnd_message.set_token('LOADALTCD',l_bulk_load.alt_cd);
675: fnd_file.put_line(Fnd_File.LOG,fnd_message.get);
676: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'_'));
677:
678: l_abort_loop:=FALSE;
679: l_error_message:=null;
672: fnd_message.set_token('PERNUM', l_bulk_persons.person_number);
673: fnd_message.set_token('PRGCD',l_bulk_programs.program_cd);
674: fnd_message.set_token('LOADALTCD',l_bulk_load.alt_cd);
675: fnd_file.put_line(Fnd_File.LOG,fnd_message.get);
676: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'_'));
677:
678: l_abort_loop:=FALSE;
679: l_error_message:=null;
680: -- check whether the program is PRIMARY or not by considering Term Records
1203: l_processed_rec:=TRUE;
1204: END IF;
1205:
1206: IF l_processed_rec=FALSE THEN
1207: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'_'));
1208: fnd_file.put_line(Fnd_File.LOG,fnd_message.get_string('IGS','IGS_EN_BLK_NO_RECS'));
1209: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'_'));
1210: END IF;
1211:
1204: END IF;
1205:
1206: IF l_processed_rec=FALSE THEN
1207: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'_'));
1208: fnd_file.put_line(Fnd_File.LOG,fnd_message.get_string('IGS','IGS_EN_BLK_NO_RECS'));
1209: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'_'));
1210: END IF;
1211:
1212: --Delete the successfully processed records from the interface table if required
1205:
1206: IF l_processed_rec=FALSE THEN
1207: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'_'));
1208: fnd_file.put_line(Fnd_File.LOG,fnd_message.get_string('IGS','IGS_EN_BLK_NO_RECS'));
1209: fnd_file.put_line(Fnd_File.LOG, rpad(' ',80,'_'));
1210: END IF;
1211:
1212: --Delete the successfully processed records from the interface table if required
1213: IF p_deletion_flag='Y' THEN
1223: EXCEPTION
1224: WHEN OTHERS THEN
1225: retcode:=2;
1226: ROLLBACK TO blk_sua_job;
1227: fnd_file.put_line(fnd_file.LOG,SQLERRM);
1228: Fnd_Message.Set_name('IGS','IGS_GE_UNHANDLED_EXP');
1229: FND_MESSAGE.SET_TOKEN('NAME','Igs_En_Gen_018.Enrp_batch_sua_upload');
1230: IGS_GE_MSG_STACK.ADD;
1231: igs_ge_msg_stack.conc_exception_hndl;