[Home] [Help]
1: PACKAGE BODY igf_ap_isir_matched_pkg AS
2: /* $Header: IGFAI09B.pls 120.2 2005/10/05 06:49:48 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_isir_matched_all%ROWTYPE;
6: new_references igf_ap_isir_matched_all%ROWTYPE;
7:
8: PROCEDURE set_single_active_isir (
9: x_isir_id IN NUMBER ,
2: /* $Header: IGFAI09B.pls 120.2 2005/10/05 06:49:48 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_isir_matched_all%ROWTYPE;
6: new_references igf_ap_isir_matched_all%ROWTYPE;
7:
8: PROCEDURE set_single_active_isir (
9: x_isir_id IN NUMBER ,
10: x_base_id IN NUMBER
358: */
359:
360: CURSOR cur_old_ref_values IS
361: SELECT *
362: FROM IGF_AP_ISIR_MATCHED_ALL
363: WHERE rowid = x_rowid;
364:
365: BEGIN
366:
733: || (reverse chronological order - newest change first)
734: */
735: CURSOR cur_rowid IS
736: SELECT rowid
737: FROM igf_ap_isir_matched_all
738: WHERE isir_id = x_isir_id
739: FOR UPDATE NOWAIT;
740:
741: lv_rowid cur_rowid%RowType;
1430: SELECT person_id
1431: FROM igf_ap_fa_base_rec_all
1432: WHERE base_id = p_base_id;
1433:
1434: CURSOR c_get_object_id(p_school_code igf_ap_isir_matched_all.first_college%TYPE) IS
1435: SELECT hz.party_id party_id
1436: FROM hz_parties hz,
1437: igs_or_org_alt_ids oli,
1438: igs_or_org_alt_idtyp olt
1453: AND SYSDATE BETWEEN start_date AND NVL(end_date, SYSDATE);
1454:
1455: l_subject_id hz_parties.party_id%TYPE;
1456: l_object_id hz_parties.party_id%TYPE;
1457: l_school_code igf_ap_isir_matched_all.first_college%TYPE;
1458: l_rel_exists c_rel_exists%ROWTYPE;
1459:
1460: lv_return_status VARCHAR2(1) ;
1461: lv_msg_count NUMBER;
1473: OPEN c_get_person_id(new_references.base_id);
1474: FETCH c_get_person_id into l_subject_id;
1475: CLOSE c_get_person_id;
1476:
1477: -- get the school code to which he belongs. This information is stored in the fedral_schl_code_indicator of the igf_ap_isir_matched_all table.
1478: IF new_references.fedral_schl_code_indicator = '1' THEN
1479: l_school_code := new_references.first_college;
1480: ELSIF new_references.fedral_schl_code_indicator = '2' THEN
1481: l_school_code := new_references.second_college;
1846: || (reverse chronological order - newest change first)
1847: */
1848: CURSOR c IS
1849: SELECT rowid
1850: FROM igf_ap_isir_matched_all
1851: WHERE isir_id = x_isir_id;
1852:
1853: x_last_update_date DATE;
1854: x_last_updated_by NUMBER;
1856: x_request_id NUMBER;
1857: x_program_id NUMBER;
1858: x_program_application_id NUMBER;
1859: x_program_update_date DATE;
1860: l_org_id igf_ap_isir_matched_all.org_id%TYPE := igf_aw_gen.get_org_id;
1861:
1862: BEGIN
1863:
1864: SELECT igf_ap_isir_matched_s.nextval INTO x_isir_id
2207: x_verification_selection_flag => x_verification_selection_flag
2208:
2209: );
2210:
2211: INSERT INTO igf_ap_isir_matched_all (
2212: isir_id,
2213: base_id,
2214: batch_year,
2215: transaction_num,
3467: reject_override_j_flag,
3468: reject_override_k_flag ,
3469: rejected_status_change_flag,
3470: verification_selection_flag
3471: FROM igf_ap_isir_matched_all
3472: WHERE rowid = x_rowid
3473: FOR UPDATE NOWAIT;
3474:
3475: tlinfo c1%ROWTYPE;
4477: x_program_update_date := SYSDATE;
4478: END IF;
4479: END IF;
4480:
4481: UPDATE igf_ap_isir_matched_all
4482: SET
4483: base_id = new_references.base_id,
4484: batch_year = new_references.batch_year,
4485: transaction_num = new_references.transaction_num,
5116: || (reverse chronological order - newest change first)
5117: */
5118: CURSOR c1 IS
5119: SELECT rowid
5120: FROM igf_ap_isir_matched_all
5121: WHERE isir_id = x_isir_id;
5122:
5123: BEGIN
5124:
5763: p_action => 'DELETE',
5764: x_rowid => x_rowid
5765: );
5766:
5767: DELETE FROM igf_ap_isir_matched_all
5768: WHERE rowid = x_rowid;
5769:
5770: IF (SQL%NOTFOUND) THEN
5771: RAISE NO_DATA_FOUND;