[Home] [Help]
1420: PROCEDURE create_party_rel AS
1421: /*
1422: || Created By : hkodali
1423: || Created On : 30-May-2005
1424: || Purpose : Creates an entry in the hz_relationships table between the person and the school_code (Security implementation).
1425: || Who When What
1426: || (reverse chronological order - newest change first)
1427: */
1428:
1445:
1446: CURSOR c_rel_exists(p_subject_id hz_parties.party_id%TYPE,
1447: p_object_id hz_parties.party_id%TYPE) IS
1448: SELECT 'X'
1449: FROM hz_relationships
1450: WHERE subject_id = p_subject_id
1451: AND object_id = p_object_id
1452: AND relationship_code='ATTENDS_INSTITUTION'
1453: AND SYSDATE BETWEEN start_date AND NVL(end_date, SYSDATE);
1459:
1460: lv_return_status VARCHAR2(1) ;
1461: lv_msg_count NUMBER;
1462: lv_msg_data VARCHAR2(2000);
1463: lv_party_relationship_id hz_relationships.relationship_id%TYPE ;
1464: lv_party_id hz_parties.party_id%TYPE ;
1465: lv_party_number hz_parties.party_number%TYPE ;
1466: lv_last_update_date hz_parties.last_update_date%TYPE ;
1467: lv_object_version_number hz_relationships.object_version_number%TYPE;
1463: lv_party_relationship_id hz_relationships.relationship_id%TYPE ;
1464: lv_party_id hz_parties.party_id%TYPE ;
1465: lv_party_number hz_parties.party_number%TYPE ;
1466: lv_last_update_date hz_parties.last_update_date%TYPE ;
1467: lv_object_version_number hz_relationships.object_version_number%TYPE;
1468:
1469:
1470: BEGIN
1471:
1495: -- This party_id is to be used as the object_id
1496: l_object_id := l_get_object_id.party_id;
1497:
1498: IF l_object_id IS NOT NULL THEN
1499: -- check if the relationship already exists in hz_relationships
1500: OPEN c_rel_exists(l_subject_id, l_object_id);
1501: FETCH c_rel_exists into l_rel_exists;
1502: IF c_rel_exists%NOTFOUND THEN
1503: -- if relationship doesn't exist, create a new relationship with relationship code as 'ATTENDS_INSTITUTION'
2845: IF new_references.active_isir = 'Y' THEN
2846: set_single_active_isir ( new_references.isir_id, new_references.base_id );
2847: END IF;
2848:
2849: -- create entry in the hz_relationships table. This entry will be used during enforcing security.
2850: create_party_rel;
2851:
2852: END insert_row;
2853: