[Home] [Help]
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.
514: -- statement rather than the full table scan.
515: --
516: CURSOR Check_For_Duplicate_Person IS
517: SELECT 'Y'
518: FROM sys.dual
519: WHERE EXISTS (SELECT NULL
520: FROM per_all_people_f
521: WHERE UPPER(last_name) = UPPER(X_Last_Name)
522: AND ( last_name like l_ul_check
533: -- fix for bug 2073795
534: --
535: CURSOR csr_per_exists is
536: select 'Y'
537: from dual
538: where exists
539: (select 'Y'
540: from per_all_people_f
541: where person_id = X_Contact_Person_Id);
542: --
543: l_dummy varchar2(10);
544: --
545: ------------------------------------------------------------
546: -- Local procedure to insert individual contact row
547: --
548: PROCEDURE Insert_Contact IS
549: CURSOR C IS
550: SELECT ROWID FROM PER_CONTACT_RELATIONSHIPS
550: SELECT ROWID FROM PER_CONTACT_RELATIONSHIPS
551: WHERE contact_relationship_id = X_Contact_Relationship_Id;
552: --
553: CURSOR C2 IS
554: SELECT per_contact_relationships_s.NEXTVAL FROM sys.dual;
555: --
556: -- Start of Fix for WWBUG 1408379
557: --
558: l_old ben_con_ler.g_con_ler_rec;
772: END IF;
773: CLOSE C;
774: END Insert_Contact;
775: ------------------------------------------------------------
776: -- Local procedure to insert individual person row
777: --
778:
779: FUNCTION Insert_Person RETURN NUMBER IS
780: --
799: WHERE person_id = X_Person_Id;
800: --
801: CURSOR C2 IS
802: SELECT per_people_s.NEXTVAL
803: FROM sys.dual;
804: --
805: CURSOR c_person IS
806: SELECT *
807: FROM per_all_people_f