1: PACKAGE BODY HZ_CUST_CONTACT_POINTS_PKG as
2: /*$Header: ARHCCPTB.pls 120.3 2005/10/30 04:17:38 appldev ship $ */
3:
4:
5:
20: x_PROGRAM_APPLICATION_ID NUMBER,
21: x_PROGRAM_ID NUMBER,
22: x_PROGRAM_UPDATE_DATE DATE
23: ) IS
24: CURSOR C IS SELECT rowid FROM HZ_CUST_CONTACT_POINTS
25: WHERE CUST_CONTACT_POINT_ID = x_CUST_CONTACT_POINT_ID;
26: BEGIN
27: INSERT INTO HZ_CUST_CONTACT_POINTS(
28: CUST_CONTACT_POINT_ID,
23: ) IS
24: CURSOR C IS SELECT rowid FROM HZ_CUST_CONTACT_POINTS
25: WHERE CUST_CONTACT_POINT_ID = x_CUST_CONTACT_POINT_ID;
26: BEGIN
27: INSERT INTO HZ_CUST_CONTACT_POINTS(
28: CUST_CONTACT_POINT_ID,
29: CUST_ACCOUNT_ID,
30: CUST_ACCOUNT_SITE_ID,
31: CUST_ACCOUNT_ROLE_ID,
68:
69: PROCEDURE Delete_Row( x_CUST_CONTACT_POINT_ID NUMBER
70: ) IS
71: BEGIN
72: DELETE FROM HZ_CUST_CONTACT_POINTS
73: WHERE CUST_CONTACT_POINT_ID = x_CUST_CONTACT_POINT_ID;
74: If (SQL%NOTFOUND) then
75: RAISE NO_DATA_FOUND;
76: End If;
96: x_PROGRAM_ID NUMBER,
97: x_PROGRAM_UPDATE_DATE DATE
98: ) IS
99: BEGIN
100: Update HZ_CUST_CONTACT_POINTS
101: SET
102: CUST_CONTACT_POINT_ID = decode( x_CUST_CONTACT_POINT_ID, FND_API.G_MISS_NUM,CUST_CONTACT_POINT_ID,x_CUST_CONTACT_POINT_ID),
103: CUST_ACCOUNT_ID = decode( x_CUST_ACCOUNT_ID, FND_API.G_MISS_NUM,CUST_ACCOUNT_ID,x_CUST_ACCOUNT_ID),
104: CUST_ACCOUNT_SITE_ID = decode( x_CUST_ACCOUNT_SITE_ID, FND_API.G_MISS_NUM,CUST_ACCOUNT_SITE_ID,x_CUST_ACCOUNT_SITE_ID),
145: x_PROGRAM_UPDATE_DATE DATE
146: ) IS
147: CURSOR C IS
148: SELECT *
149: FROM HZ_CUST_CONTACT_POINTS
150: WHERE rowid = x_Rowid
151: FOR UPDATE of CUST_CONTACT_POINT_ID NOWAIT;
152: Recinfo C%ROWTYPE;
153: BEGIN
212: APP_EXCEPTION.RAISE_EXCEPTION;
213: End If;
214: END Lock_Row;
215:
216: END HZ_CUST_CONTACT_POINTS_PKG;