26: SELECT 1
27: INTO dummy
28: FROM dual
29: WHERE NOT EXISTS ( SELECT 1
30: FROM pn_contacts_all c
31: WHERE c.last_name = x_last_name
32: AND c.first_name = x_first_name
33: AND c.company_site_id = x_company_site_id
34: AND (( x_rowid is null) or (c.rowid <> x_rowid))
63: BEGIN
64:
65: SELECT count(1)
66: INTO primary_count
67: FROM pn_contacts_all pc
68: WHERE pc.company_site_id = p_company_site_id
69: AND pc.primary_flag = 'Y'
70: AND ((p_contact_id is null) or pc.contact_id <> p_contact_id )
71: AND org_id = p_org_id;
121: )
122: IS
123: CURSOR c IS
124: SELECT rowid
125: FROM pn_contacts_all
126: WHERE contact_id = x_contact_id;
127:
128: CURSOR org_cur IS
129: SELECT org_id
150: SELECT pn_contacts_s.nextval
151: INTO x_contact_id
152: FROM dual;
153:
154: INSERT INTO pn_contacts_all
155: (
156: contact_id,
157: company_site_id,
158: last_name,
269: )
270: IS
271: BEGIN
272:
273: UPDATE pn_contacts_all
274: SET
275: last_name = x_last_name,
276: first_name = x_first_name,
277: status = x_status,
341: )
342: IS
343: CURSOR C IS
344: SELECT *
345: FROM pn_contacts_all
346: WHERE ROWID = x_rowid
347: FOR UPDATE OF contact_id NOWAIT;
348:
349: Recinfo C%ROWTYPE;
497:
498: DELETE FROM pn_phones_all
499: WHERE contact_id = x_contact_id;
500:
501: DELETE FROM pn_contacts_all
502: WHERE contact_id = x_contact_id;
503:
504: IF (SQL%NOTFOUND) THEN
505: RAISE NO_DATA_FOUND;