52:
53: FND_MESSAGE.SET_NAME('IGS','IGS_FI_CAL_BALANCES_LOG');
54: FND_MESSAGE.SET_TOKEN('PARAMETER_NAME',p_msg_name);
55: FND_MESSAGE.SET_TOKEN('PARAMETER_VAL' ,p_msg_val) ;
56: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
57:
58: END log_messages ;
59:
60: PROCEDURE schedule_rollover (
145:
146: retcode:=0;
147: /** logs all the parameters in the LOG **/
148: Fnd_Message.Set_Name('IGS','IGS_FI_ANC_LOG_PARM');
149: Fnd_File.Put_Line(Fnd_File.LOG,FND_MESSAGE.GET);
150: log_messages('Old schedule version :',p_old_sch_version);
151: log_messages('New schedule version :',p_new_sch_version);
152: log_messages('Override flag :',p_override_flag);
153: log_messages('Debug flag :',p_debug_flag);
150: log_messages('Old schedule version :',p_old_sch_version);
151: log_messages('New schedule version :',p_new_sch_version);
152: log_messages('Override flag :',p_override_flag);
153: log_messages('Debug flag :',p_debug_flag);
154: fnd_file.put_line(fnd_file.LOG,' ');
155: IF p_old_sch_version = p_new_sch_version THEN
156: FND_MESSAGE.SET_NAME('IGS','IGS_PS_SCH_VER_SAME');
157: fnd_file.put_line(fnd_file.LOG,FND_MESSAGE.GET);
158: fnd_file.put_line(fnd_file.LOG,' ');
153: log_messages('Debug flag :',p_debug_flag);
154: fnd_file.put_line(fnd_file.LOG,' ');
155: IF p_old_sch_version = p_new_sch_version THEN
156: FND_MESSAGE.SET_NAME('IGS','IGS_PS_SCH_VER_SAME');
157: fnd_file.put_line(fnd_file.LOG,FND_MESSAGE.GET);
158: fnd_file.put_line(fnd_file.LOG,' ');
159: RAISE INVALID;
160: END IF;
161: OPEN cur_sel_sch_vers(p_old_sch_version);
154: fnd_file.put_line(fnd_file.LOG,' ');
155: IF p_old_sch_version = p_new_sch_version THEN
156: FND_MESSAGE.SET_NAME('IGS','IGS_PS_SCH_VER_SAME');
157: fnd_file.put_line(fnd_file.LOG,FND_MESSAGE.GET);
158: fnd_file.put_line(fnd_file.LOG,' ');
159: RAISE INVALID;
160: END IF;
161: OPEN cur_sel_sch_vers(p_old_sch_version);
162: FETCH cur_sel_sch_vers INTO v_sel_sch_vers;
171: OPEN cur_sel_sch_vers(p_old_sch_version);
172: FETCH cur_sel_sch_vers INTO v_sel_sch_vers;
173: IF cur_sel_sch_vers%NOTFOUND THEN
174: FND_MESSAGE.SET_NAME('IGS','IGS_PS_NO_SCH_VER');
175: fnd_file.put_line(fnd_file.LOG,FND_MESSAGE.GET);
176: fnd_file.put_line(fnd_file.LOG,' ');
177: RAISE INVALID;
178: ELSE
179: DECLARE
172: FETCH cur_sel_sch_vers INTO v_sel_sch_vers;
173: IF cur_sel_sch_vers%NOTFOUND THEN
174: FND_MESSAGE.SET_NAME('IGS','IGS_PS_NO_SCH_VER');
175: fnd_file.put_line(fnd_file.LOG,FND_MESSAGE.GET);
176: fnd_file.put_line(fnd_file.LOG,' ');
177: RAISE INVALID;
178: ELSE
179: DECLARE
180: lv_rowid VARCHAR2(25);
191: END;
192: END IF;
193: IF p_debug_flag = 'Y' THEN
194: FND_MESSAGE.SET_NAME('IGS','IGS_PS_NEW_SCH');
195: fnd_file.put_line(fnd_file.LOG,FND_MESSAGE.GET||lv_new_sch_version_id||' '||
196: p_new_sch_version ||' '||v_sel_sch_vers.description||' '||
197: v_sel_sch_vers.closed_ind||' '||v_sel_sch_vers.catalog_schedule||' '||
198: v_sel_old_sch_notes.note_text);
199: END IF;
227: x_org_id => p_org_id );
228: END;
229: IF p_debug_flag = 'Y' THEN
230: FND_MESSAGE.SET_NAME('IGS','IGS_PS_NEW_SCH_NOTES');
231: fnd_file.put_line(fnd_file.LOG,FND_MESSAGE.GET||v_sel_old_sch_notes.create_date||' '||
232: v_sel_old_sch_notes.end_date||' '||v_sel_old_sch_notes.SEQUENCE||' '||
233: v_sel_old_sch_notes.note_text);
234: END IF;
235: ELSE
245: x_note_text => v_sel_old_sch_notes.note_text,
246: x_mode => 'R');
247: IF p_debug_flag = 'Y' THEN
248: FND_MESSAGE.SET_NAME('IGS','IGS_PS_UPD_SCH_NOTES');
249: fnd_file.put_line(fnd_file.LOG,FND_MESSAGE.GET||v_sel_new_sch_notes.create_date||' '|| v_sel_new_sch_notes.end_date||' '||
250: v_sel_new_sch_notes.SEQUENCE||' '|| v_sel_new_sch_notes.note_text);
251: END IF;
252: END IF;
253: END IF;