DBA Data[Home] [Help]

PACKAGE BODY: APPS.PV_ENTY_ATTR_VALIDATIONS_PKG

Source


1 PACKAGE BODY PV_ENTY_ATTR_VALIDATIONS_PKG as
2 /* $Header: pvxtatvb.pls 115.1 2002/12/10 19:40:13 amaram ship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 --          PV_ATTRIBUTE_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- End of Comments
14 -- ===============================================================
15 
16 
17 G_PKG_NAME CONSTANT VARCHAR2(30):= 'PV_ENTY_ATTR_VALIDATIONS_PKG';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxtatvb.pls';
19 
20 
21 ----------------------------------------------------------
22 ----          MEDIA           ----
23 ----------------------------------------------------------
24 
25 --  ========================================================
26 --
27 --  NAME
28 --  createInsertBody
29 --
30 --  PURPOSE
31 --
32 --  NOTES
33 --
34 --  HISTORY
35 --
36 --  ========================================================
37 PROCEDURE Insert_Row(
38 		px_enty_attr_validation_id      IN OUT NOCOPY NUMBER,
39 		p_last_update_date		 DATE,
40 		p_last_updated_by		 NUMBER,
41 		p_creation_date			 DATE,
42 		p_created_by			 NUMBER,
43 		p_last_update_login		 NUMBER,
44 		px_object_version_number   IN OUT NOCOPY NUMBER,
45 		p_validation_date		   DATE,
46 		p_validated_by_resource_id        NUMBER,
47 		p_validation_document_id	         NUMBER,
48 		p_validation_note		 VARCHAR2)
49  IS
50 
51 	x_rowid    VARCHAR2(30);
52 
53 BEGIN
54 
55    px_object_version_number := 1;
56 
57    INSERT INTO PV_ENTY_ATTR_VALIDATIONS (
58      VALIDATION_ID,
59      LAST_UPDATE_DATE,
60      LAST_UPDATED_BY,
61      CREATION_DATE,
62      CREATED_BY,
63      LAST_UPDATE_LOGIN,
64      OBJECT_VERSION_NUMBER,
65 	 VALIDATION_DATE,
66      VALIDATED_BY_RESOURCE_ID,
67      VALIDATION_DOCUMENT_ID,
68      VALIDATION_NOTE
69    ) VALUES (
70         DECODE( px_enty_attr_validation_id, Fnd_Api.g_miss_num, NULL, px_enty_attr_validation_id)
71        ,DECODE( p_last_update_date, Fnd_Api.g_miss_date, NULL, p_last_update_date)
72        ,DECODE( p_last_updated_by, Fnd_Api.g_miss_num, NULL, p_last_updated_by)
73        ,DECODE( p_creation_date, Fnd_Api.g_miss_date, NULL, p_creation_date)
74        ,DECODE( p_created_by, Fnd_Api.g_miss_num, NULL, p_created_by)
75        ,DECODE( p_last_update_login, Fnd_Api.g_miss_num, NULL, p_last_update_login)
76        ,DECODE( px_object_version_number, Fnd_Api.g_miss_num, NULL, px_object_version_number)
77 	   ,DECODE( p_validation_date, Fnd_Api.g_miss_date, NULL, p_validation_date)
78        ,DECODE( p_validated_by_resource_id, Fnd_Api.g_miss_num, NULL, p_validated_by_resource_id)
79        ,DECODE( p_validation_document_id, Fnd_Api.g_miss_num, NULL, p_validation_document_id)
80        ,DECODE( p_validation_note, Fnd_Api.g_miss_char, NULL, p_validation_note)
81        );
82 
83 END Insert_Row;
84 
85 
86 ----------------------------------------------------------
87 ----          MEDIA           ----
88 ----------------------------------------------------------
89 
90 --  ========================================================
91 --
92 --  NAME
93 --  createUpdateBody
94 --
95 --  PURPOSE
96 --
97 --  NOTES
98 --
99 --  HISTORY
100 --
101 --  ========================================================
102 PROCEDURE Update_Row(
103 			p_enty_attr_validation_id       NUMBER,
104 			p_last_update_date	      DATE,
105 			p_last_updated_by	      NUMBER,
106 			p_last_update_login	      NUMBER,
107 			p_object_version_number    NUMBER,
108 			p_validation_date		   DATE,
109 			p_validated_by_resource_id NUMBER,
110 			p_validation_document_id   NUMBER,
111 			p_validation_note	      VARCHAR2
112           )
113 
114  IS
115 
116  BEGIN
117 
118     UPDATE PV_ENTY_ATTR_VALIDATIONS
119     SET
120              validation_id               = DECODE( p_enty_attr_validation_id, Fnd_Api.g_miss_num, validation_id, p_enty_attr_validation_id)
121             ,last_update_date            = DECODE( p_last_update_date, Fnd_Api.g_miss_date, last_update_date, p_last_update_date)
122             ,last_updated_by             = DECODE( p_last_updated_by, Fnd_Api.g_miss_num, last_updated_by, p_last_updated_by)
123             ,last_update_login           = DECODE( p_last_update_login, Fnd_Api.g_miss_num, last_update_login, p_last_update_login)
124             ,object_version_number       = DECODE( p_object_version_number, Fnd_Api.g_miss_num, object_version_number, p_object_version_number+1)
125 			,validation_date		   = DECODE( p_validation_date, Fnd_Api.g_miss_date, validation_date, p_validation_date)
126 			,validated_by_resource_id    = DECODE( p_validated_by_resource_id, Fnd_Api.g_miss_num, validated_by_resource_id, p_validated_by_resource_id)
127 			,validation_document_id      = DECODE( p_validation_document_id, Fnd_Api.g_miss_num, validation_document_id, p_validation_document_id)
128 			,validation_note		   = DECODE( p_validation_note, Fnd_Api.g_miss_char, validation_note, p_validation_note)
129 
130 	WHERE VALIDATION_ID = P_ENTY_ATTR_VALIDATION_ID
131 	AND   object_version_number = p_object_version_number;
132 
133 	IF (SQL%NOTFOUND) THEN
134       RAISE  Fnd_Api.G_EXC_UNEXPECTED_ERROR;
135 	END IF;
136 
137 END Update_Row;
138 
139 ----------------------------------------------------------
140 ----          MEDIA           ----
141 ----------------------------------------------------------
142 --  ========================================================
143 --
144 --  NAME
145 --  createDeleteBody
146 --
147 --  PURPOSE
148 --
149 --  NOTES
150 --
151 --  HISTORY
152 --
153 --  ========================================================
154 
155 PROCEDURE Delete_Row(
156 		p_enty_attr_validation_id  NUMBER)
157 
158  IS
159 
160  BEGIN
161 
162    DELETE FROM PV_ENTY_ATTR_VALIDATIONS
163      WHERE validation_id = p_enty_attr_validation_id;
164 
165    IF (SQL%NOTFOUND) THEN
166      RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
167    END IF;
168 
169  END Delete_Row ;
170 
171 ----------------------------------------------------------
172 ----          MEDIA           ----
173 ----------------------------------------------------------
174 --  ========================================================
175 --
176 --  NAME
177 --  createLockBody
178 --
179 --  PURPOSE
180 --
181 --  NOTES
182 --
183 --  HISTORY
184 --
185 --  ========================================================
186 
187 PROCEDURE Lock_Row(
188 			p_enty_attr_validation_id       NUMBER,
189 			p_last_update_date	      DATE,
190 			p_last_updated_by	      NUMBER,
191 			p_creation_date	      DATE,
192 			p_created_by		      NUMBER,
193 			p_last_update_login	      NUMBER,
194 			p_object_version_number    NUMBER,
195 			p_validation_date		   DATE,
196 			p_validated_by_resource_id NUMBER,
197 			p_validation_document_id   NUMBER,
198 			p_validation_note	      VARCHAR2
199 			)
200 
201  IS
202 
203    CURSOR C IS
204         SELECT *
205          FROM PV_ENTY_ATTR_VALIDATIONS
206         WHERE VALIDATION_ID =  p_enty_attr_validation_id
207         FOR UPDATE OF VALIDATION_ID NOWAIT;
208 
209    Recinfo C%ROWTYPE;
210 
211  BEGIN
212 
213     OPEN c;
214 
215     FETCH c INTO Recinfo;
216     IF (c%NOTFOUND) THEN
217         CLOSE c;
218         Fnd_Message.SET_NAME('FND', 'FORM_RECORD_DELETED');
219         App_Exception.RAISE_EXCEPTION;
220     END IF;
221 
222     CLOSE C;
223 
224     IF
225     (
226            (Recinfo.validation_id = p_enty_attr_validation_id )
227        AND (( Recinfo.last_update_date = p_last_update_date) OR
228 	      (( Recinfo.last_update_date IS NULL ) AND ( p_last_update_date IS NULL )))
229 
230        AND (( Recinfo.last_updated_by = p_last_updated_by)  OR
231               (( Recinfo.last_updated_by IS NULL ) AND (p_last_updated_by IS NULL )))
232 
233        AND (( Recinfo.creation_date = p_creation_date) OR
234               (( Recinfo.creation_date IS NULL )   AND (p_creation_date IS NULL )))
235 
236        AND (( Recinfo.created_by = p_created_by) OR
237               (( Recinfo.created_by IS NULL )  AND (  p_created_by IS NULL )))
238 
239        AND (( Recinfo.last_update_login = p_last_update_login) OR
240               (( Recinfo.last_update_login IS NULL ) AND (  p_last_update_login IS NULL )))
241 
242        AND (( Recinfo.object_version_number = p_object_version_number) OR
243               (( Recinfo.object_version_number IS NULL )  AND (  p_object_version_number IS NULL )))
244 
245 	   AND (( Recinfo.validation_date = p_validation_date) OR
246               (( Recinfo.validation_date IS NULL ) AND (  p_validation_date IS NULL )))
247 
248        AND (( Recinfo.validated_by_resource_id = p_validated_by_resource_id) OR
249               (( Recinfo.validated_by_resource_id IS NULL )  AND (  p_validated_by_resource_id IS NULL )))
250 
251        AND (( Recinfo.validation_document_id = p_validation_document_id)  OR
252               (( Recinfo.validation_document_id IS NULL ) AND (  p_validation_document_id IS NULL )))
253 
254        AND (( Recinfo.validation_note = p_validation_note) OR
255               (( Recinfo.validation_note IS NULL ) AND (  p_validation_note IS NULL )))
256     )
257 
258 
259   THEN
260        RETURN;
261 
262    ELSE
263        Fnd_Message.SET_NAME('FND', 'FORM_RECORD_CHANGED');
264        App_Exception.RAISE_EXCEPTION;
265    END IF;
266 
267 END Lock_Row;
268 
269 
270 END PV_ENTY_ATTR_VALIDATIONS_PKG;