[Home] [Help]
1: PACKAGE BODY igs_he_submsn_return_pkg AS
2: /* $Header: IGSWI11B.pls 115.8 2004/01/12 09:53:43 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_submsn_return%ROWTYPE;
1: PACKAGE BODY igs_he_submsn_return_pkg AS
2: /* $Header: IGSWI11B.pls 115.8 2004/01/12 09:53:43 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_submsn_return%ROWTYPE;
6: new_references igs_he_submsn_return%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSWI11B.pls 115.8 2004/01/12 09:53:43 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_submsn_return%ROWTYPE;
6: new_references igs_he_submsn_return%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
32: */
33:
34: CURSOR cur_old_ref_values IS
35: SELECT *
36: FROM IGS_HE_SUBMSN_RETURN
37: WHERE rowid = x_rowid;
38:
39: BEGIN
40:
125: || (reverse chronological order - newest change first)
126: */
127: BEGIN
128:
129: igs_he_ext_run_dtls_pkg.get_fk_igs_he_submsn_return (
130: old_references.submission_name,
131: old_references.user_return_subclass,
132: old_references.return_name
133: );
131: old_references.user_return_subclass,
132: old_references.return_name
133: );
134:
135: igs_he_sub_rtn_cal_pkg.get_fk_igs_he_submsn_return (
136: old_references.submission_name,
137: old_references.user_return_subclass,
138: old_references.return_name
139: );
152: || (reverse chronological order - newest change first)
153: || smaddali 9-jan-04 added condition to check rowid also, bug#2966258
154: */
155: --cursor to check for the existence of the submission return record for 'DLHE' system return class
156: CURSOR cur_check_record_exist (cp_submission_name igs_he_submsn_return.submission_name%type)
157: IS
158: SELECT hsr.rowid
159: FROM IGS_HE_SUBMSN_RETURN hsr, IGS_HE_USR_RTN_CLAS hurc
160: WHERE hsr.submission_name = cp_submission_name AND
155: --cursor to check for the existence of the submission return record for 'DLHE' system return class
156: CURSOR cur_check_record_exist (cp_submission_name igs_he_submsn_return.submission_name%type)
157: IS
158: SELECT hsr.rowid
159: FROM IGS_HE_SUBMSN_RETURN hsr, IGS_HE_USR_RTN_CLAS hurc
160: WHERE hsr.submission_name = cp_submission_name AND
161: hsr.user_return_subclass = hurc.user_return_subclass AND
162: hurc.system_return_class_type = 'DLHE' ;
163: --variable to find if the submission record exists
163: --variable to find if the submission record exists
164: l_check_record_exist cur_check_record_exist%ROWTYPE;
165:
166: --cursor to obtain the system return class type based on the user return type
167: CURSOR cur_system_return_class (cp_user_return_class igs_he_submsn_return.user_return_subclass%type)
168: IS
169: SELECT hsr.system_return_class_type
170: FROM IGS_HE_USR_RTN_CLAS hsr
171: WHERE hsr.user_return_subclass = cp_user_return_class;
209: || (reverse chronological order - newest change first)
210: */
211: CURSOR cur_rowid IS
212: SELECT rowid
213: FROM igs_he_submsn_return
214: WHERE submission_name = x_submission_name
215: AND user_return_subclass = x_user_return_subclass
216: AND return_name = x_return_name
217: FOR UPDATE NOWAIT;
246: || (reverse chronological order - newest change first)
247: */
248: CURSOR cur_rowid IS
249: SELECT rowid
250: FROM igs_he_submsn_return
251: WHERE ((submission_name = x_submission_name));
252:
253: lv_rowid cur_rowid%RowType;
254:
281: || (reverse chronological order - newest change first)
282: */
283: CURSOR cur_rowid IS
284: SELECT rowid
285: FROM igs_he_submsn_return
286: WHERE ((user_return_subclass = x_user_return_subclass));
287:
288: lv_rowid cur_rowid%RowType;
289:
410: || (reverse chronological order - newest change first)
411: */
412: CURSOR c IS
413: SELECT rowid
414: FROM igs_he_submsn_return
415: WHERE submission_name = x_submission_name
416: AND user_return_subclass = x_user_return_subclass
417: AND return_name = x_return_name;
418:
440: igs_ge_msg_stack.add;
441: app_exception.raise_exception;
442: END IF;
443:
444: SELECT igs_he_submsn_return_s.NEXTVAL
445: INTO x_sub_rtn_id
446: FROM dual;
447:
448: before_dml(
461: x_last_updated_by => x_last_updated_by,
462: x_last_update_login => x_last_update_login
463: );
464:
465: INSERT INTO igs_he_submsn_return (
466: sub_rtn_id,
467: submission_name,
468: user_return_subclass,
469: return_name,
525: sub_rtn_id,
526: lrr_start_date,
527: lrr_end_date,
528: record_id
529: FROM igs_he_submsn_return
530: WHERE rowid = x_rowid
531: FOR UPDATE NOWAIT;
532:
533: tlinfo c1%ROWTYPE;
624: x_last_updated_by => x_last_updated_by,
625: x_last_update_login => x_last_update_login
626: );
627:
628: UPDATE igs_he_submsn_return
629: SET
630: sub_rtn_id = new_references.sub_rtn_id,
631: lrr_start_date = new_references.lrr_start_date,
632: lrr_end_date = new_references.lrr_end_date,
664: || (reverse chronological order - newest change first)
665: */
666: CURSOR c1 IS
667: SELECT rowid
668: FROM igs_he_submsn_return
669: WHERE submission_name = x_submission_name
670: AND user_return_subclass = x_user_return_subclass
671: AND return_name = x_return_name;
672:
725: p_action => 'DELETE',
726: x_rowid => x_rowid
727: );
728:
729: DELETE FROM igs_he_submsn_return
730: WHERE rowid = x_rowid;
731:
732: IF (SQL%NOTFOUND) THEN
733: RAISE NO_DATA_FOUND;
735:
736: END delete_row;
737:
738:
739: END igs_he_submsn_return_pkg;