[Home] [Help]
1: PACKAGE BODY igs_en_spl_perm_pkg AS
2: /* $Header: IGSEI53B.pls 120.3 2005/08/12 05:14:36 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_spl_perm%ROWTYPE;
1: PACKAGE BODY igs_en_spl_perm_pkg AS
2: /* $Header: IGSEI53B.pls 120.3 2005/08/12 05:14:36 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_spl_perm%ROWTYPE;
6: new_references igs_en_spl_perm%ROWTYPE;
7:
8: FUNCTION get_hz_pk_for_validation (
9: x_party_id IN NUMBER
2: /* $Header: IGSEI53B.pls 120.3 2005/08/12 05:14:36 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_spl_perm%ROWTYPE;
6: new_references igs_en_spl_perm%ROWTYPE;
7:
8: FUNCTION get_hz_pk_for_validation (
9: x_party_id IN NUMBER
10: ) RETURN BOOLEAN AS
74: */
75:
76: CURSOR cur_old_ref_values IS
77: SELECT *
78: FROM IGS_EN_SPL_PERM
79: WHERE rowid = x_rowid;
80:
81: /* ltranstype igs_en_spl_perm.transaction_type%TYPE;
82: lapprovstatus igs_en_spl_perm.approval_status%TYPE;*/
77: SELECT *
78: FROM IGS_EN_SPL_PERM
79: WHERE rowid = x_rowid;
80:
81: /* ltranstype igs_en_spl_perm.transaction_type%TYPE;
82: lapprovstatus igs_en_spl_perm.approval_status%TYPE;*/
83:
84: BEGIN
85:
78: FROM IGS_EN_SPL_PERM
79: WHERE rowid = x_rowid;
80:
81: /* ltranstype igs_en_spl_perm.transaction_type%TYPE;
82: lapprovstatus igs_en_spl_perm.approval_status%TYPE;*/
83:
84: BEGIN
85:
86: l_rowid := x_rowid;
153: (reverse chronological order - newest change first)
154: *************************************************************************/
155: l_message_name VARCHAR2(30);
156: l_return_type VARCHAR2(1);
157: l_spl_perm_request_id igs_en_spl_perm.spl_perm_request_id%TYPE;
158: l_date_submission igs_en_spl_perm.date_submission%TYPE;
159: l_audit_the_course igs_en_spl_perm.audit_the_course%TYPE;
160: l_approval_status igs_en_spl_perm.approval_status%TYPE;
161: l_reason_for_request igs_en_spl_perm.reason_for_request%TYPE;
154: *************************************************************************/
155: l_message_name VARCHAR2(30);
156: l_return_type VARCHAR2(1);
157: l_spl_perm_request_id igs_en_spl_perm.spl_perm_request_id%TYPE;
158: l_date_submission igs_en_spl_perm.date_submission%TYPE;
159: l_audit_the_course igs_en_spl_perm.audit_the_course%TYPE;
160: l_approval_status igs_en_spl_perm.approval_status%TYPE;
161: l_reason_for_request igs_en_spl_perm.reason_for_request%TYPE;
162: l_instructor_more_info igs_en_spl_perm.instructor_more_info%TYPE;
155: l_message_name VARCHAR2(30);
156: l_return_type VARCHAR2(1);
157: l_spl_perm_request_id igs_en_spl_perm.spl_perm_request_id%TYPE;
158: l_date_submission igs_en_spl_perm.date_submission%TYPE;
159: l_audit_the_course igs_en_spl_perm.audit_the_course%TYPE;
160: l_approval_status igs_en_spl_perm.approval_status%TYPE;
161: l_reason_for_request igs_en_spl_perm.reason_for_request%TYPE;
162: l_instructor_more_info igs_en_spl_perm.instructor_more_info%TYPE;
163: l_instructor_deny_info igs_en_spl_perm.instructor_deny_info%TYPE;
156: l_return_type VARCHAR2(1);
157: l_spl_perm_request_id igs_en_spl_perm.spl_perm_request_id%TYPE;
158: l_date_submission igs_en_spl_perm.date_submission%TYPE;
159: l_audit_the_course igs_en_spl_perm.audit_the_course%TYPE;
160: l_approval_status igs_en_spl_perm.approval_status%TYPE;
161: l_reason_for_request igs_en_spl_perm.reason_for_request%TYPE;
162: l_instructor_more_info igs_en_spl_perm.instructor_more_info%TYPE;
163: l_instructor_deny_info igs_en_spl_perm.instructor_deny_info%TYPE;
164: l_student_more_info igs_en_spl_perm.student_more_info%TYPE;
157: l_spl_perm_request_id igs_en_spl_perm.spl_perm_request_id%TYPE;
158: l_date_submission igs_en_spl_perm.date_submission%TYPE;
159: l_audit_the_course igs_en_spl_perm.audit_the_course%TYPE;
160: l_approval_status igs_en_spl_perm.approval_status%TYPE;
161: l_reason_for_request igs_en_spl_perm.reason_for_request%TYPE;
162: l_instructor_more_info igs_en_spl_perm.instructor_more_info%TYPE;
163: l_instructor_deny_info igs_en_spl_perm.instructor_deny_info%TYPE;
164: l_student_more_info igs_en_spl_perm.student_more_info%TYPE;
165: l_transaction_type igs_en_spl_perm.transaction_type%TYPE;
158: l_date_submission igs_en_spl_perm.date_submission%TYPE;
159: l_audit_the_course igs_en_spl_perm.audit_the_course%TYPE;
160: l_approval_status igs_en_spl_perm.approval_status%TYPE;
161: l_reason_for_request igs_en_spl_perm.reason_for_request%TYPE;
162: l_instructor_more_info igs_en_spl_perm.instructor_more_info%TYPE;
163: l_instructor_deny_info igs_en_spl_perm.instructor_deny_info%TYPE;
164: l_student_more_info igs_en_spl_perm.student_more_info%TYPE;
165: l_transaction_type igs_en_spl_perm.transaction_type%TYPE;
166: l_rowid VARCHAR2(20);
159: l_audit_the_course igs_en_spl_perm.audit_the_course%TYPE;
160: l_approval_status igs_en_spl_perm.approval_status%TYPE;
161: l_reason_for_request igs_en_spl_perm.reason_for_request%TYPE;
162: l_instructor_more_info igs_en_spl_perm.instructor_more_info%TYPE;
163: l_instructor_deny_info igs_en_spl_perm.instructor_deny_info%TYPE;
164: l_student_more_info igs_en_spl_perm.student_more_info%TYPE;
165: l_transaction_type igs_en_spl_perm.transaction_type%TYPE;
166: l_rowid VARCHAR2(20);
167: l_spl_perm_request_h_id igs_en_spl_perm_h.spl_perm_request_h_id%TYPE;
160: l_approval_status igs_en_spl_perm.approval_status%TYPE;
161: l_reason_for_request igs_en_spl_perm.reason_for_request%TYPE;
162: l_instructor_more_info igs_en_spl_perm.instructor_more_info%TYPE;
163: l_instructor_deny_info igs_en_spl_perm.instructor_deny_info%TYPE;
164: l_student_more_info igs_en_spl_perm.student_more_info%TYPE;
165: l_transaction_type igs_en_spl_perm.transaction_type%TYPE;
166: l_rowid VARCHAR2(20);
167: l_spl_perm_request_h_id igs_en_spl_perm_h.spl_perm_request_h_id%TYPE;
168:
161: l_reason_for_request igs_en_spl_perm.reason_for_request%TYPE;
162: l_instructor_more_info igs_en_spl_perm.instructor_more_info%TYPE;
163: l_instructor_deny_info igs_en_spl_perm.instructor_deny_info%TYPE;
164: l_student_more_info igs_en_spl_perm.student_more_info%TYPE;
165: l_transaction_type igs_en_spl_perm.transaction_type%TYPE;
166: l_rowid VARCHAR2(20);
167: l_spl_perm_request_h_id igs_en_spl_perm_h.spl_perm_request_h_id%TYPE;
168:
169: CURSOR splh_cur IS
163: l_instructor_deny_info igs_en_spl_perm.instructor_deny_info%TYPE;
164: l_student_more_info igs_en_spl_perm.student_more_info%TYPE;
165: l_transaction_type igs_en_spl_perm.transaction_type%TYPE;
166: l_rowid VARCHAR2(20);
167: l_spl_perm_request_h_id igs_en_spl_perm_h.spl_perm_request_h_id%TYPE;
168:
169: CURSOR splh_cur IS
170: SELECT ROWID
171: FROM igs_en_spl_perm_h
167: l_spl_perm_request_h_id igs_en_spl_perm_h.spl_perm_request_h_id%TYPE;
168:
169: CURSOR splh_cur IS
170: SELECT ROWID
171: FROM igs_en_spl_perm_h
172: WHERE spl_perm_request_id = old_references.spl_perm_request_id;
173:
174:
175: BEGIN
249:
250:
251: END IF;
252:
253: -- Store IGS_EN_SPL_PERM Version History
254: IF p_updating THEN
255: IF old_references.spl_perm_request_id <> new_references.spl_perm_request_id OR
256: old_references.date_submission <> new_references.date_submission OR
257: old_references.audit_the_course <> new_references.audit_the_course OR
294: l_transaction_type
295: FROM dual;
296:
297: -- Create history record for update
298: igs_en_spl_perm_h_pkg.insert_row(
299: l_rowid,
300: l_spl_perm_request_h_id,
301: l_spl_perm_request_id,
302: l_date_submission,
318: IF p_deleting THEN
319: BEGIN
320: FOR splh_rec IN splh_cur
321: LOOP
322: igs_en_spl_perm_h_pkg.delete_row(x_rowid => splh_rec.rowid);
323: END LOOP;
324: END;
325: END IF;
326:
401: || (reverse chronological order - newest change first)
402: */
403: BEGIN
404:
405: igs_en_spl_perm_h_pkg.get_fk_igs_en_spl_perm (
406: old_references.spl_perm_request_id
407: );
408:
409: END check_child_existance;
422: || (reverse chronological order - newest change first)
423: */
424: CURSOR cur_rowid IS
425: SELECT rowid
426: FROM igs_en_spl_perm
427: WHERE spl_perm_request_id = x_spl_perm_request_id
428: FOR UPDATE NOWAIT;
429:
430: lv_rowid cur_rowid%RowType;
457: || (reverse chronological order - newest change first)
458: */
459: CURSOR cur_rowid IS
460: SELECT rowid
461: FROM igs_en_spl_perm
462: WHERE ((student_person_id = x_party_id))
463: OR ((instructor_person_id = x_party_id));
464:
465: lv_rowid cur_rowid%RowType;
493: || (reverse chronological order - newest change first)
494: */
495: CURSOR cur_rowid IS
496: SELECT rowid
497: FROM igs_en_spl_perm
498: WHERE ((uoo_id = x_uoo_id));
499:
500: lv_rowid cur_rowid%RowType;
501:
673: || (reverse chronological order - nbabyewest change first)
674: */
675: CURSOR c IS
676: SELECT rowid
677: FROM igs_en_spl_perm
678: WHERE spl_perm_request_id = x_spl_perm_request_id;
679:
680: CURSOR c_spl_perm IS
681: SELECT rowid, approval_status, transaction_type FROM igs_en_spl_perm
677: FROM igs_en_spl_perm
678: WHERE spl_perm_request_id = x_spl_perm_request_id;
679:
680: CURSOR c_spl_perm IS
681: SELECT rowid, approval_status, transaction_type FROM igs_en_spl_perm
682: WHERE student_person_id = x_student_person_id AND
683: uoo_id = x_uoo_id AND
684: request_type = x_request_type;
685:
686: x_last_update_date DATE;
687: x_last_updated_by NUMBER;
688: x_last_update_login NUMBER;
689: l_perm_row c_spl_perm%ROWTYPE;
690: l_approval_status igs_en_spl_perm.approval_status%TYPE;
691: l_transaction_type igs_en_spl_perm.transaction_type%TYPE;
692:
693:
694: BEGIN
687: x_last_updated_by NUMBER;
688: x_last_update_login NUMBER;
689: l_perm_row c_spl_perm%ROWTYPE;
690: l_approval_status igs_en_spl_perm.approval_status%TYPE;
691: l_transaction_type igs_en_spl_perm.transaction_type%TYPE;
692:
693:
694: BEGIN
695:
711: igs_ge_msg_stack.add;
712: app_exception.raise_exception;
713: END IF;
714:
715: SELECT igs_en_spl_perm_s.NEXTVAL
716: INTO x_spl_perm_request_id
717: FROM dual;
718:
719:
771: x_last_updated_by => x_last_updated_by,
772: x_last_update_login => x_last_update_login
773: );
774:
775: INSERT INTO igs_en_spl_perm (
776: spl_perm_request_id,
777: student_person_id,
778: uoo_id,
779: date_submission,
866: instructor_deny_info,
867: student_more_info,
868: transaction_type,
869: request_type
870: FROM igs_en_spl_perm
871: WHERE rowid = x_rowid
872: FOR UPDATE NOWAIT;
873:
874: tlinfo c1%ROWTYPE;
987: x_last_update_login => x_last_update_login
988: );
989:
990:
991: UPDATE igs_en_spl_perm
992: SET
993: student_person_id = new_references.student_person_id,
994: uoo_id = new_references.uoo_id,
995: date_submission = new_references.date_submission,
1046: || (reverse chronological order - newest change first)
1047: */
1048: CURSOR c1 IS
1049: SELECT rowid
1050: FROM igs_en_spl_perm
1051: WHERE spl_perm_request_id = x_spl_perm_request_id;
1052:
1053: BEGIN
1054:
1117: p_action => 'DELETE',
1118: x_rowid => x_rowid
1119: );
1120:
1121: DELETE FROM igs_en_spl_perm
1122: WHERE rowid = x_rowid;
1123:
1124: IF (SQL%NOTFOUND) THEN
1125: RAISE NO_DATA_FOUND;
1127:
1128: END delete_row;
1129:
1130:
1131: END igs_en_spl_perm_pkg;