[Home] [Help]
317: AS
318:
319: CURSOR c_appint IS
320: SELECT rowid,a.*
321: FROM igs_ad_appint_int a
322: WHERE interface_run_id = p_interface_run_id
323: AND status = '2';
324:
325: l_appint_rec c_appint%ROWTYPE;
368: END IF;
369:
370: l_error_text1 := igs_ad_gen_016.get_lkup_meaning ('IMPORT_ERROR_CODE', 'E678', 8405);
371:
372: UPDATE igs_ad_appint_int a
373: SET status = '3',
374: error_code = 'E678',
375: error_text = l_error_text1
376: WHERE
404: FND_MESSAGE.SET_TOKEN ('APPLTYPE', l_appint_rec.admission_application_type);
405: l_error_text := FND_MESSAGE.GET;
406: l_error_text1 := igs_ad_gen_016.get_lkup_meaning ('IMPORT_ERROR_CODE', 'E701', 8405);
407:
408: UPDATE igs_ad_appint_int
409: SET status = cst_s_val_3,
410: error_code = cst_ec_val_E701,
411: error_text = NVL(l_error_text,l_error_code)
412: WHERE rowid = l_appint_rec.rowid;
443: ) THEN
444:
445: l_error_text1 := igs_ad_gen_016.get_lkup_meaning ('IMPORT_ERROR_CODE', 'E423', 8405);
446:
447: UPDATE igs_ad_appint_int
448: SET status = '3',
449: error_code = 'E423',
450: error_text = l_error_text1
451: WHERE rowid = l_appint_rec.rowid;
498: END IF;
499:
500: IF l_type = 'E' THEN
501: ROLLBACK TO appint_save;
502: UPDATE igs_ad_appint_int
503: SET status = cst_s_val_3,
504: error_code = cst_ec_val_E322,
505: error_text = l_error_text
506: WHERE rowid = l_appint_rec.rowid;
509: igs_ad_imp_001.logerrormessage(l_appint_rec.interface_appint_id,l_msg_data);
510: END IF;
511:
512: ELSIF l_type = 'S' THEN
513: UPDATE igs_ad_appint_int
514: SET status = cst_s_val_4,
515: error_code = cst_ec_val_E702,
516: error_text = l_error_text
517: WHERE rowid = l_appint_rec.rowid;
520: igs_ad_imp_001.logerrormessage(l_appint_rec.interface_appint_id,l_msg_data);
521: END IF;
522:
523: ELSIF l_type IS NULL THEN
524: UPDATE igs_ad_appint_int
525: SET status = cst_s_val_1,
526: error_code = NULL,
527: error_text = NULL
528: WHERE rowid = l_appint_rec.rowid;
538:
539: l_error_text := FND_MESSAGE.GET;
540: l_error_text1 := igs_ad_gen_016.get_lkup_meaning ('IMPORT_ERROR_CODE', 'E701', 8405);
541:
542: UPDATE igs_ad_appint_int
543: SET status = cst_s_val_3,
544: error_code = cst_ec_val_E701,
545: error_text = NVL(l_error_text,l_error_text1)
546: WHERE rowid = l_appint_rec.rowid;
589: END IF;
590:
591: ROLLBACK TO appint_save;
592:
593: UPDATE igs_ad_appint_int
594: SET status = cst_s_val_3,
595: error_code = l_error_code ,
596: error_text = l_error_text
597: WHERE rowid = l_appint_rec.rowid;