1: PACKAGE BODY igr_i_e_testtyps_pkg AS
2: /* $Header: IGSRH11B.pls 120.0 2005/06/01 19:35:20 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igr_i_e_testtyps%ROWTYPE;
1: PACKAGE BODY igr_i_e_testtyps_pkg AS
2: /* $Header: IGSRH11B.pls 120.0 2005/06/01 19:35:20 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igr_i_e_testtyps%ROWTYPE;
6: new_references igr_i_e_testtyps%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSRH11B.pls 120.0 2005/06/01 19:35:20 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igr_i_e_testtyps%ROWTYPE;
6: new_references igr_i_e_testtyps%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM IGR_I_E_TESTTYPS
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
150: || (reverse chronological order - newest change first)
151: */
152: CURSOR cur_rowid IS
153: SELECT rowid
154: FROM IGR_I_E_TESTTYPS
155: WHERE ent_test_type_id = x_ent_test_type_id
156: FOR UPDATE NOWAIT;
157:
158: lv_rowid cur_rowid%RowType;
188: || (reverse chronological order - newest change first)
189: */
190: CURSOR cur_rowid IS
191: SELECT rowid
192: FROM IGR_I_E_TESTTYPS
193: WHERE inquiry_type_id = x_inquiry_type_id
194: AND admission_test_type = x_admission_test_type
195: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
196:
228: || (reverse chronological order - newest change first)
229: */
230: CURSOR cur_rowid IS
231: SELECT rowid
232: FROM IGR_I_E_TESTTYPS
233: WHERE ((admission_test_type = x_admission_test_type));
234:
235: lv_rowid cur_rowid%RowType;
236:
341: || (reverse chronological order - newest change first)
342: */
343: CURSOR c IS
344: SELECT rowid
345: FROM IGR_I_E_TESTTYPS
346: WHERE ent_test_type_id = x_ent_test_type_id;
347:
348: x_last_update_date DATE;
349: x_last_updated_by NUMBER;
385: x_inquiry_type_id => x_inquiry_type_id --Added for APC Inegration Apadegal
386:
387: );
388:
389: INSERT INTO IGR_I_E_TESTTYPS (
390: ent_test_type_id,
391: admission_test_type,
392: closed_ind,
393: creation_date,
396: last_updated_by,
397: last_update_login,
398: inquiry_type_id --Added for APC Inegration Apadegal
399: ) VALUES (
400: IGR_I_E_TESTTYPS_S.NEXTVAL,
401: new_references.admission_test_type,
402: new_references.closed_ind,
403: x_last_update_date,
404: x_last_updated_by,
439: SELECT
440: inquiry_type_id , --Added for APC Inegration Apadegal
441: admission_test_type,
442: closed_ind
443: FROM IGR_I_E_TESTTYPS
444: WHERE rowid = x_rowid
445: FOR UPDATE NOWAIT;
446:
447: tlinfo c1%ROWTYPE;
531: x_last_update_login => x_last_update_login,
532: x_inquiry_type_id => x_inquiry_type_id --Added for APC Inegration Apadegal
533: );
534:
535: UPDATE IGR_I_E_TESTTYPS
536: SET
537: admission_test_type = new_references.admission_test_type,
538: closed_ind = new_references.closed_ind,
539: last_update_date = x_last_update_date,
567: || (reverse chronological order - newest change first)
568: */
569: CURSOR c1 IS
570: SELECT rowid
571: FROM IGR_I_E_TESTTYPS
572: WHERE ent_test_type_id = x_ent_test_type_id;
573:
574: BEGIN
575:
620: p_action => 'DELETE',
621: x_rowid => x_rowid
622: );
623:
624: DELETE FROM igr_i_e_testtyps
625: WHERE rowid = x_rowid;
626:
627: IF (SQL%NOTFOUND) THEN
628: RAISE NO_DATA_FOUND;
641: -------------------------------------------------------------------
642: AS
643: CURSOR cur_rowid IS
644: SELECT rowid
645: FROM igr_i_e_testtyps
646: WHERE inquiry_type_id= x_inquiry_type_id;
647:
648: lv_rowid cur_rowid%RowType;
649: BEGIN
658: Return;
659: END IF;
660: Close cur_rowid;
661: END get_fk_igr_i_inquiry_types;
662: END igr_i_e_testtyps_pkg;