21: problem by setting the constacts
22: effective_start_date to be the session date.
23: 13-FEB-97 FSHOJAAS 70.12 436371 Tow parameter were added to insert and update
24: logic (X_suffix and X_PRE_NAME_ADJUNCT).
25: 04-MAR-97 JAlloun 70.13 Changed all occurances of system.dual to
26: sys.dual for next release requirements.
27: 18-JUL-97 RKAMIYAM 70.14 Added per_information1 to 30 and know_as cols
28: 11-Sep-97 IHARDING 110.1 505202 Insert value 'N' for all relationship flags
29: into PER_CONTACT_RELATIONSHIPS for the
22: effective_start_date to be the session date.
23: 13-FEB-97 FSHOJAAS 70.12 436371 Tow parameter were added to insert and update
24: logic (X_suffix and X_PRE_NAME_ADJUNCT).
25: 04-MAR-97 JAlloun 70.13 Changed all occurances of system.dual to
26: sys.dual for next release requirements.
27: 18-JUL-97 RKAMIYAM 70.14 Added per_information1 to 30 and know_as cols
28: 11-Sep-97 IHARDING 110.1 505202 Insert value 'N' for all relationship flags
29: into PER_CONTACT_RELATIONSHIPS for the
30: mirror contact.
513: -- statement rather than the full table scan.
514: --
515: CURSOR Check_For_Duplicate_Person IS
516: SELECT 'Y'
517: FROM sys.dual
518: WHERE EXISTS (SELECT NULL
519: FROM per_all_people_f
520: WHERE UPPER(last_name) = UPPER(X_Last_Name)
521: AND ( last_name like l_ul_check
532: -- fix for bug 2073795
533: --
534: CURSOR csr_per_exists is
535: select 'Y'
536: from dual
537: where exists
538: (select 'Y'
539: from per_all_people_f
540: where person_id = X_Contact_Person_Id);
541: --
542: l_dummy varchar2(10);
543: --
544: ------------------------------------------------------------
545: -- Local procedure to insert individual contact row
546: --
547: PROCEDURE Insert_Contact IS
548: CURSOR C IS
549: SELECT ROWID FROM PER_CONTACT_RELATIONSHIPS
549: SELECT ROWID FROM PER_CONTACT_RELATIONSHIPS
550: WHERE contact_relationship_id = X_Contact_Relationship_Id;
551: --
552: CURSOR C2 IS
553: SELECT per_contact_relationships_s.NEXTVAL FROM sys.dual;
554: --
555: -- Start of Fix for WWBUG 1408379
556: --
557: l_old ben_con_ler.g_con_ler_rec;
771: END IF;
772: CLOSE C;
773: END Insert_Contact;
774: ------------------------------------------------------------
775: -- Local procedure to insert individual person row
776: --
777:
778: FUNCTION Insert_Person RETURN NUMBER IS
779: --
798: WHERE person_id = X_Person_Id;
799: --
800: CURSOR C2 IS
801: SELECT per_people_s.NEXTVAL
802: FROM sys.dual;
803: --
804: CURSOR c_person IS
805: SELECT *
806: FROM per_all_people_f