[Home] [Help]
PACKAGE BODY: APPS.GMD_COMPOSITE_RESULT_ASSOC_PVT
Source
1 PACKAGE BODY GMD_COMPOSITE_RESULT_ASSOC_PVT AS
2 /* $Header: GMDVCRAB.pls 115.1 2002/11/04 10:19:45 kxhunt ship $ */
3
4 -- Start of comments
5 --+==========================================================================+
6 --| Copyright (c) 1998 Oracle Corporation |
7 --| Redwood Shores, CA, USA |
8 --| All rights reserved. |
9 --+==========================================================================+
10 --| File Name : GMDVCRAB.pls |
11 --| Package Name : GMD_COMPOSITE_RESULT_ASSOC_PVT |
12 --| Type : Private |
13 --| |
14 --| Notes |
15 --| This package contains private layer APIs for Composite Result Assoc. |
16 --| |
17 --| HISTORY |
18 --| Chetan Nagar 12-Sep-2002 Created. |
19 --| |
20 --+==========================================================================+
21 -- End of comments
22
23 FUNCTION insert_row (
24 p_composite_result_assoc IN GMD_COMPOSITE_RESULT_ASSOC%ROWTYPE
25 ) RETURN BOOLEAN IS
26 BEGIN
27
28 INSERT INTO GMD_COMPOSITE_RESULT_ASSOC
29 (
30 COMPOSITE_RESULT_ID
31 ,RESULT_ID
32 ,EXCLUDE_IND
33 ,CREATION_DATE
34 ,CREATED_BY
35 ,LAST_UPDATE_DATE
36 ,LAST_UPDATED_BY
37 ,LAST_UPDATE_LOGIN
38 )
39 VALUES
40 (
41 p_composite_result_assoc.COMPOSITE_RESULT_ID
42 ,p_composite_result_assoc.RESULT_ID
43 ,p_composite_result_assoc.EXCLUDE_IND
44 ,p_composite_result_assoc.CREATION_DATE
45 ,p_composite_result_assoc.CREATED_BY
46 ,p_composite_result_assoc.LAST_UPDATE_DATE
47 ,p_composite_result_assoc.LAST_UPDATED_BY
48 ,p_composite_result_assoc.LAST_UPDATE_LOGIN
49 )
50 ;
51
52 IF SQL%FOUND THEN
53 RETURN TRUE;
54 ELSE
55 RETURN FALSE;
56 END IF;
57
58 EXCEPTION
59 WHEN OTHERS THEN
60 fnd_msg_pub.add_exc_msg ('GMD_COMPOSITE_RESULT_ASSOC_PVT', 'INSERT_ROW');
61 RETURN FALSE;
62
63 END insert_row;
64
65
66
67
68 /*
69 FUNCTION delete_row (p_composite_result_id IN NUMBER,
70 p_result_id IN NUMBER,
71 p_last_update_date IN DATE,
72 p_last_updated_by IN NUMBER,
73 p_last_update_login IN NUMBER)
74 RETURN BOOLEAN IS
75
76 dummy PLS_INTEGER;
77
78 locked_by_other_user EXCEPTION;
79 PRAGMA EXCEPTION_INIT (locked_by_other_user,-54);
80
81 BEGIN
82
83 IF p_composite_result_id IS NOT NULL AND
84 p_result_id IS NOT NULL THEN
85
86 SELECT 1
87 INTO dummy
88 FROM gmd_composite_result_assoc
89 WHERE composite_result_id = p_composite_result_id
90 AND result_id = p_result_id
91 FOR UPDATE NOWAIT;
92
93 UPDATE gmd_composite_result_assoc
94 SET delete_mark = 1,
95 last_update_date = NVL(p_last_update_date,SYSDATE),
96 last_updated_by = NVL(p_last_updated_by,FND_GLOBAL.USER_ID),
97 last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)
98 WHERE composite_result_id = p_composite_result_id
99 AND result_id = p_result_id
100 ;
101 ELSE
102 GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_COMPOSITE_RESULT_ASSOC');
103 RETURN FALSE;
104 END IF;
105
106 IF (SQL%FOUND) THEN
107 RETURN TRUE;
108 ELSE
109 GMD_API_PUB.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_COMPOSITE_RESULT_ASSOC');
110 RETURN FALSE;
111 END IF;
112
113 EXCEPTION
114 WHEN locked_by_other_user THEN
115 GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
116 'TABLE_NAME', 'GMD_COMPOSITE_RESULT_ASSOC',
117 'RECORD','Inventory Spec Validity Rule',
118 'KEY', p_composite_result_id);
119 RETURN FALSE;
120
121 WHEN OTHERS THEN
122 fnd_msg_pub.add_exc_msg ('GMD_COMPOSITE_RESULT_ASSOC_PVT', 'DELETE_ROW');
123 RETURN FALSE;
124
125 END delete_row;
126 */
127
128
129
130 FUNCTION lock_row (p_composite_result_id IN NUMBER,
131 p_result_id IN NUMBER)
132 RETURN BOOLEAN IS
133
134 dummy PLS_INTEGER;
135
136 locked_by_other_user EXCEPTION;
137 PRAGMA EXCEPTION_INIT (locked_by_other_user,-54);
138
139 BEGIN
140 IF p_composite_result_id IS NOT NULL AND
141 p_result_id IS NOT NULL THEN
142 SELECT 1
143 INTO dummy
144 FROM gmd_composite_result_assoc
145 WHERE composite_result_id = p_composite_result_id
146 AND result_id = p_result_id
147 FOR UPDATE NOWAIT;
148 ELSE
149 GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_COMPOSITE_RESULT_ASSOC');
150 RETURN FALSE;
151 END IF;
152
153 RETURN TRUE;
154
155 EXCEPTION
156 WHEN locked_by_other_user THEN
157 GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
158 'TABLE_NAME', 'GMD_COMPOSITE_RESULT_ASSOC',
159 'RECORD','Inventory Spec Validity Rule',
160 'KEY', p_composite_result_id);
161 RETURN FALSE;
162
163 WHEN OTHERS THEN
164 fnd_msg_pub.add_exc_msg ('GMD_COMPOSITE_RESULT_ASSOC_PVT', 'DELETE_ROW');
165 RETURN FALSE;
166
167 END lock_row;
168
169
170
171 FUNCTION fetch_row (
172 p_composite_result_assoc IN gmd_composite_result_assoc%ROWTYPE
173 , x_composite_result_assoc OUT NOCOPY gmd_composite_result_assoc%ROWTYPE
174 )
175 RETURN BOOLEAN
176 IS
177 BEGIN
178
179 IF p_composite_result_assoc.composite_result_id IS NOT NULL AND
180 p_composite_result_assoc.result_id IS NOT NULL THEN
181 SELECT *
182 INTO x_composite_result_assoc
183 FROM gmd_composite_result_assoc
184 WHERE composite_result_id = p_composite_result_assoc.composite_result_id
185 AND result_id = p_composite_result_assoc.result_id
186 ;
187 ELSE
188 gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_COMPOSITE_RESULT_ASSOC');
189 RETURN FALSE;
190 END IF;
191
192 RETURN TRUE;
193
194 EXCEPTION
195 WHEN NO_DATA_FOUND
196 THEN
197 gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_COMPOSITE_RESULT_ASSOC');
198 RETURN FALSE;
199 WHEN OTHERS
200 THEN
201 fnd_msg_pub.add_exc_msg ('GMD_COMPOSITE_RESULT_ASSOC_PVT', 'FETCH_ROW');
202 RETURN FALSE;
203
204 END fetch_row;
205
206 END GMD_COMPOSITE_RESULT_ASSOC_PVT;