[Home] [Help]
PACKAGE BODY: APPS.HZ_CUST_CONTACT_POINTS_PKG
Source
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
6 PROCEDURE Insert_Row(
7 x_Rowid IN OUT NOCOPY VARCHAR2,
8 x_CUST_CONTACT_POINT_ID NUMBER,
9 x_CUST_ACCOUNT_ID NUMBER,
10 x_CUST_ACCOUNT_SITE_ID NUMBER,
11 x_CUST_ACCOUNT_ROLE_ID NUMBER,
12 x_CONTACT_POINT_ID NUMBER,
13 x_LAST_UPDATED_BY NUMBER,
14 x_LAST_UPDATE_DATE DATE,
15 x_CREATED_BY NUMBER,
16 x_CREATION_DATE DATE,
17 x_LAST_UPDATE_LOGIN NUMBER,
18 x_STATUS VARCHAR2,
19 x_REQUEST_ID NUMBER,
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,
29 CUST_ACCOUNT_ID,
30 CUST_ACCOUNT_SITE_ID,
31 CUST_ACCOUNT_ROLE_ID,
32 CONTACT_POINT_ID,
33 LAST_UPDATED_BY,
34 LAST_UPDATE_DATE,
35 CREATED_BY,
36 CREATION_DATE,
37 LAST_UPDATE_LOGIN,
38 STATUS,
39 REQUEST_ID,
40 PROGRAM_APPLICATION_ID,
41 PROGRAM_ID,
42 PROGRAM_UPDATE_DATE
43 ) VALUES (
44 x_CUST_CONTACT_POINT_ID,
45 decode( x_CUST_ACCOUNT_ID, FND_API.G_MISS_NUM, NULL,x_CUST_ACCOUNT_ID),
46 decode( x_CUST_ACCOUNT_SITE_ID, FND_API.G_MISS_NUM, NULL,x_CUST_ACCOUNT_SITE_ID),
47 decode( x_CUST_ACCOUNT_ROLE_ID, FND_API.G_MISS_NUM, NULL,x_CUST_ACCOUNT_ROLE_ID),
48 decode( x_CONTACT_POINT_ID, FND_API.G_MISS_NUM, NULL,x_CONTACT_POINT_ID),
49 decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATED_BY),
50 decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_LAST_UPDATE_DATE),
51 decode( x_CREATED_BY, FND_API.G_MISS_NUM, NULL,x_CREATED_BY),
52 decode( x_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_CREATION_DATE),
53 decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATE_LOGIN),
54 decode( x_STATUS, FND_API.G_MISS_CHAR, 'A', NULL, 'A', x_STATUS),
55 decode( x_REQUEST_ID, FND_API.G_MISS_NUM, NULL,x_REQUEST_ID),
56 decode( x_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, NULL,x_PROGRAM_APPLICATION_ID),
57 decode( x_PROGRAM_ID, FND_API.G_MISS_NUM, NULL,x_PROGRAM_ID),
58 decode( x_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_PROGRAM_UPDATE_DATE));
59 OPEN C;
60 FETCH C INTO x_Rowid;
61 If (C%NOTFOUND) then
62 CLOSE C;
63 RAISE NO_DATA_FOUND;
64 End If;
65 End Insert_Row;
66
67
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;
77 END Delete_Row;
78
79
80
81 PROCEDURE Update_Row(
82 x_Rowid VARCHAR2,
83 x_CUST_CONTACT_POINT_ID NUMBER,
84 x_CUST_ACCOUNT_ID NUMBER,
85 x_CUST_ACCOUNT_SITE_ID NUMBER,
86 x_CUST_ACCOUNT_ROLE_ID NUMBER,
87 x_CONTACT_POINT_ID NUMBER,
88 x_LAST_UPDATED_BY NUMBER,
89 x_LAST_UPDATE_DATE DATE,
90 x_CREATED_BY NUMBER,
91 x_CREATION_DATE DATE,
92 x_LAST_UPDATE_LOGIN NUMBER,
93 x_STATUS VARCHAR2,
94 x_REQUEST_ID NUMBER,
95 x_PROGRAM_APPLICATION_ID NUMBER,
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),
105 CUST_ACCOUNT_ROLE_ID = decode( x_CUST_ACCOUNT_ROLE_ID, FND_API.G_MISS_NUM,CUST_ACCOUNT_ROLE_ID,x_CUST_ACCOUNT_ROLE_ID),
106 CONTACT_POINT_ID = decode( x_CONTACT_POINT_ID, FND_API.G_MISS_NUM,CONTACT_POINT_ID,x_CONTACT_POINT_ID),
107 LAST_UPDATED_BY = decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM,LAST_UPDATED_BY,x_LAST_UPDATED_BY),
108 LAST_UPDATE_DATE = decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,LAST_UPDATE_DATE,x_LAST_UPDATE_DATE),
109 -- Bug 3032780
110 /*
111 CREATED_BY = decode( x_CREATED_BY, FND_API.G_MISS_NUM,CREATED_BY,x_CREATED_BY),
112 CREATION_DATE = decode( x_CREATION_DATE, FND_API.G_MISS_DATE,CREATION_DATE,x_CREATION_DATE),
113 */
114 LAST_UPDATE_LOGIN = decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM,LAST_UPDATE_LOGIN,x_LAST_UPDATE_LOGIN),
115 STATUS = decode( x_STATUS, FND_API.G_MISS_CHAR,STATUS,x_STATUS),
116 REQUEST_ID = decode( x_REQUEST_ID, FND_API.G_MISS_NUM,REQUEST_ID,x_REQUEST_ID),
117 PROGRAM_APPLICATION_ID = decode( x_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM,PROGRAM_APPLICATION_ID,x_PROGRAM_APPLICATION_ID),
118 PROGRAM_ID = decode( x_PROGRAM_ID, FND_API.G_MISS_NUM,PROGRAM_ID,x_PROGRAM_ID),
119 PROGRAM_UPDATE_DATE = decode( x_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE,PROGRAM_UPDATE_DATE,x_PROGRAM_UPDATE_DATE)
120 where rowid = X_RowId;
121
122 If (SQL%NOTFOUND) then
123 RAISE NO_DATA_FOUND;
124 End If;
125 END Update_Row;
126
127
128
129 PROCEDURE Lock_Row(
130 x_Rowid VARCHAR2,
131 x_CUST_CONTACT_POINT_ID NUMBER,
132 x_CUST_ACCOUNT_ID NUMBER,
133 x_CUST_ACCOUNT_SITE_ID NUMBER,
134 x_CUST_ACCOUNT_ROLE_ID NUMBER,
135 x_CONTACT_POINT_ID NUMBER,
136 x_LAST_UPDATED_BY NUMBER,
137 x_LAST_UPDATE_DATE DATE,
138 x_CREATED_BY NUMBER,
139 x_CREATION_DATE DATE,
140 x_LAST_UPDATE_LOGIN NUMBER,
141 x_STATUS VARCHAR2,
142 x_REQUEST_ID NUMBER,
143 x_PROGRAM_APPLICATION_ID NUMBER,
144 x_PROGRAM_ID NUMBER,
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
154 OPEN C;
155 FETCH C INTO Recinfo;
156 If (C%NOTFOUND) then
157 CLOSE C;
158 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
159 APP_EXCEPTION.RAISE_EXCEPTION;
160 End If;
161 CLOSE C;
162 if (
163 ( ( Recinfo.CUST_CONTACT_POINT_ID = x_CUST_CONTACT_POINT_ID)
164 OR ( ( Recinfo.CUST_CONTACT_POINT_ID = NULL )
165 AND ( x_CUST_CONTACT_POINT_ID = NULL )))
166 AND ( ( Recinfo.CUST_ACCOUNT_ID = x_CUST_ACCOUNT_ID)
167 OR ( ( Recinfo.CUST_ACCOUNT_ID = NULL )
168 AND ( x_CUST_ACCOUNT_ID = NULL )))
169 AND ( ( Recinfo.CUST_ACCOUNT_SITE_ID = x_CUST_ACCOUNT_SITE_ID)
170 OR ( ( Recinfo.CUST_ACCOUNT_SITE_ID = NULL )
171 AND ( x_CUST_ACCOUNT_SITE_ID = NULL )))
172 AND ( ( Recinfo.CUST_ACCOUNT_ROLE_ID = x_CUST_ACCOUNT_ROLE_ID)
173 OR ( ( Recinfo.CUST_ACCOUNT_ROLE_ID = NULL )
174 AND ( x_CUST_ACCOUNT_ROLE_ID = NULL )))
175 AND ( ( Recinfo.CONTACT_POINT_ID = x_CONTACT_POINT_ID)
176 OR ( ( Recinfo.CONTACT_POINT_ID = NULL )
177 AND ( x_CONTACT_POINT_ID = NULL )))
178 AND ( ( Recinfo.LAST_UPDATED_BY = x_LAST_UPDATED_BY)
179 OR ( ( Recinfo.LAST_UPDATED_BY = NULL )
180 AND ( x_LAST_UPDATED_BY = NULL )))
181 AND ( ( Recinfo.LAST_UPDATE_DATE = x_LAST_UPDATE_DATE)
182 OR ( ( Recinfo.LAST_UPDATE_DATE = NULL )
183 AND ( x_LAST_UPDATE_DATE = NULL )))
184 AND ( ( Recinfo.CREATED_BY = x_CREATED_BY)
185 OR ( ( Recinfo.CREATED_BY = NULL )
186 AND ( x_CREATED_BY = NULL )))
187 AND ( ( Recinfo.CREATION_DATE = x_CREATION_DATE)
188 OR ( ( Recinfo.CREATION_DATE = NULL )
189 AND ( x_CREATION_DATE = NULL )))
190 AND ( ( Recinfo.LAST_UPDATE_LOGIN = x_LAST_UPDATE_LOGIN)
191 OR ( ( Recinfo.LAST_UPDATE_LOGIN = NULL )
192 AND ( x_LAST_UPDATE_LOGIN = NULL )))
193 AND ( ( Recinfo.STATUS = x_STATUS)
194 OR ( ( Recinfo.STATUS = NULL )
195 AND ( x_STATUS = NULL )))
196 AND ( ( Recinfo.REQUEST_ID = x_REQUEST_ID)
197 OR ( ( Recinfo.REQUEST_ID = NULL )
198 AND ( x_REQUEST_ID = NULL )))
199 AND ( ( Recinfo.PROGRAM_APPLICATION_ID = x_PROGRAM_APPLICATION_ID)
200 OR ( ( Recinfo.PROGRAM_APPLICATION_ID = NULL )
201 AND ( x_PROGRAM_APPLICATION_ID = NULL )))
202 AND ( ( Recinfo.PROGRAM_ID = x_PROGRAM_ID)
203 OR ( ( Recinfo.PROGRAM_ID = NULL )
204 AND ( x_PROGRAM_ID = NULL )))
205 AND ( ( Recinfo.PROGRAM_UPDATE_DATE = x_PROGRAM_UPDATE_DATE)
206 OR ( ( Recinfo.PROGRAM_UPDATE_DATE = NULL )
207 AND ( x_PROGRAM_UPDATE_DATE = NULL )))
208 ) then
209 return;
210 else
211 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
212 APP_EXCEPTION.RAISE_EXCEPTION;
213 End If;
214 END Lock_Row;
215
216 END HZ_CUST_CONTACT_POINTS_PKG;