1 PACKAGE BODY igs_he_mrk_prog_att_pkg AS
2 /* $Header: IGSHE06B.pls 120.1 2006/02/08 19:49:27 anwest noship $ */
3
4
5
6 PROCEDURE update_data(errbuf OUT NOCOPY varchar2, retcode OUT NOCOPY number,l_extract_run_id igs_he_ex_rn_dat_ln.extract_run_id%type, l_submission_name igs_he_submsn_header.submission_name%type,
7 l_return_name igs_he_submsn_return.return_name%type ) IS
8
9 /*************************************************************
10 Created By : sowsubra
11 Date Created By : 21-JAN-2002
12 Purpose : To update the marked program attempts in the IGS_HE_ST_SPA_ALL table Know limitations, enhancements or remarks
13 Change History
14 Who When What
15 anwest 18-JAN-2006 Bug# 4950285 R12 Disable OSS Mandate
16
17 (reverse chronological order - newest change first)
18 ***************************************************************/
19
20 CURSOR get_person_course_stud_details IS
21 SELECT person_id, course_cd , student_inst_number
22 FROM igs_he_ex_rn_dat_ln WHERE
23 extract_run_id = l_extract_run_id;
24 get_details_rec get_person_course_stud_details%ROWTYPE;
25
26 BEGIN
27
28 --anwest 18-JAN-2006 Bug# 4950285 R12 Disable OSS Mandate
29 IGS_GE_GEN_003.SET_ORG_ID;
30
31 FOR get_details_rec IN get_person_course_stud_details
32 LOOP
33 IF (( get_details_rec.person_id IS NOT NULL ) AND
34 ( get_details_rec.course_cd IS NOT NULL ) AND
35 ( get_details_rec.student_inst_number IS NOT NULL )) THEN
36 UPDATE igs_he_st_spa_all
37 SET HESA_SUBMISSION_NAME = l_submission_name,
38 HESA_RETURN_NAME =l_return_name,
39 HESA_RETURN_ID = l_extract_run_id
40 WHERE PERSON_ID = get_details_rec.person_id AND
41 COURSE_CD = get_details_rec.course_cd AND
42 STUDENT_INST_NUMBER =get_details_rec.student_inst_number ;
43
44 END IF;
45 END LOOP;
46 EXCEPTION WHEN OTHERS THEN
47 rollback;
48 retcode := 2;
49 errbuf :=fnd_message.get_string('IGS','IGS_SUB_UPDATE_DATA_ERR');
50 IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL;
51
52 END update_data;
53 END igs_he_mrk_prog_att_pkg;