DBA Data[Home] [Help]

APPS.EGO_VALIDATE_CATALOG_GROUP dependencies on ERROR_HANDLER

Line 25: g_token_tbl Error_Handler.Token_Tbl_Type;

21: -- 10-10-2002 Refai Farook Added Check_Entity procedure
22: -- 19-FEB-2003 Refai Farook Inactive Date validations (Check_Attributes)
23: ****************************************************************************/
24: G_Pkg_Name VARCHAR2(30) := 'EGO_Validate_Catalog_Group';
25: g_token_tbl Error_Handler.Token_Tbl_Type;
26:
27:
28: /*******************************************************************
29: * Procedure : Check_Existence

Line 34: ( x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

30: * Returns : None
31: * Purpose :
32: *********************************************************************/
33: PROCEDURE Check_Existence
34: ( x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
35: , x_return_status OUT NOCOPY VARCHAR2
36: )
37: IS
38: l_token_tbl Error_Handler.Token_Tbl_Type;

Line 38: l_token_tbl Error_Handler.Token_Tbl_Type;

34: ( x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
35: , x_return_status OUT NOCOPY VARCHAR2
36: )
37: IS
38: l_token_tbl Error_Handler.Token_Tbl_Type;
39: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
40: l_return_status VARCHAR2(1);
41: BEGIN
42: EGO_Catalog_Group_Util.Query_Row

Line 39: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

35: , x_return_status OUT NOCOPY VARCHAR2
36: )
37: IS
38: l_token_tbl Error_Handler.Token_Tbl_Type;
39: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
40: l_return_status VARCHAR2(1);
41: BEGIN
42: EGO_Catalog_Group_Util.Query_Row
43: (

Line 47: Error_Handler.Write_Debug('Query Row Returned with : ' || l_return_status);

43: (
44: x_mesg_token_tbl => l_mesg_token_tbl
45: , x_return_status => l_return_status
46: );
47: Error_Handler.Write_Debug('Query Row Returned with : ' || l_return_status);
48:
49: IF l_return_status = EGO_Globals.G_RECORD_FOUND AND
50: EGO_Globals.G_Catalog_Group_Rec.transaction_type = EGO_Globals.G_OPR_CREATE
51: THEN

Line 55: Error_Handler.Add_Error_Token

51: THEN
52: l_token_tbl(1).token_name := 'CATALOG_GROUP_NAME';
53: l_token_tbl(1).token_value :=
54: EGO_Globals.G_Catalog_Group_Rec.Catalog_Group_Name;
55: Error_Handler.Add_Error_Token
56: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
57: , p_application_id => 'EGO'
58: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
59: , p_message_name => 'EGO_CATGRP_ALREADY_EXISTS'

Line 70: Error_Handler.Add_Error_Token

66: THEN
67: l_token_tbl(1).token_name := 'CATALOG_GROUP_NAME';
68: l_token_tbl(1).token_value :=
69: EGO_Globals.G_Catalog_Group_Rec.Catalog_Group_Name;
70: Error_Handler.Add_Error_Token
71: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
72: , p_application_id => 'EGO'
73: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
74: , p_message_name => 'EGO_CATGRP_DOESNOT_EXIST'

Line 80: Error_Handler.Add_Error_Token

76: );
77: l_return_status := FND_API.G_RET_STS_ERROR;
78: ELSIF l_Return_status = FND_API.G_RET_STS_UNEXP_ERROR
79: THEN
80: Error_Handler.Add_Error_Token
81: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
82: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
83: , p_message_name => NULL
84: , p_application_id => 'EGO'

Line 122: ( x_mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

118: * Message Token Table
119: * Purpose : Checks if the user has the necessary privilege
120: *********************************************************************/
121: PROCEDURE Check_Access
122: ( x_mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
123: , x_return_status OUT NOCOPY VARCHAR2
124: )
125: IS
126: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

Line 127: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

123: , x_return_status OUT NOCOPY VARCHAR2
124: )
125: IS
126: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
127: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
128: l_token_tbl Error_Handler.Token_Tbl_Type;
129:
130: BEGIN
131: /* Code to be added for proper data security checks. */

Line 128: l_token_tbl Error_Handler.Token_Tbl_Type;

124: )
125: IS
126: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
127: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
128: l_token_tbl Error_Handler.Token_Tbl_Type;
129:
130: BEGIN
131: /* Code to be added for proper data security checks. */
132:

Line 136: Error_Handler.Write_Debug('Check Access returning with ' || l_return_status );

132:
133: x_return_status := l_return_status;
134: x_mesg_token_tbl := l_mesg_token_tbl;
135:
136: Error_Handler.Write_Debug('Check Access returning with ' || l_return_status );
137:
138: END Check_Access;
139:
140:

Line 154: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

150: * revised item attrbiute in its entirety.
151: **********************************************************************/
152: PROCEDURE Check_Attributes
153: ( x_return_status OUT NOCOPY VARCHAR2
154: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
155: )
156: IS
157: l_err_text VARCHAR2(2000) := NULL;
158: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

Line 158: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

154: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
155: )
156: IS
157: l_err_text VARCHAR2(2000) := NULL;
158: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
159: l_Token_Tbl Error_Handler.Token_Tbl_Type;
160: l_parent_inactive_date DATE;
161:
162: BEGIN

Line 159: l_Token_Tbl Error_Handler.Token_Tbl_Type;

155: )
156: IS
157: l_err_text VARCHAR2(2000) := NULL;
158: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
159: l_Token_Tbl Error_Handler.Token_Tbl_Type;
160: l_parent_inactive_date DATE;
161:
162: BEGIN
163:

Line 171: Error_Handler.Add_Error_Token

167: EGO_Globals.G_Catalog_Group_Rec.parent_catalog_group_id
168: )
169: THEN
170: x_return_status := FND_API.G_RET_STS_ERROR;
171: Error_Handler.Add_Error_Token
172: ( p_message_name => 'EGO_CATALOG_ID_SAMEAS_PARENT'
173: , p_application_id => 'EGO'
174: , x_mesg_token_tbl => l_mesg_token_tbl
175: );

Line 187: Error_Handler.Add_Error_Token

183: SELECT inactive_date INTO l_parent_inactive_date FROM mtl_item_catalog_groups_b
184: WHERE item_catalog_group_id = EGO_Globals.G_Catalog_Group_Rec.parent_catalog_group_id;
185: EXCEPTION WHEN OTHERS THEN
186: x_return_status := FND_API.G_RET_STS_ERROR;
187: Error_Handler.Add_Error_Token
188: ( p_message_name => 'EGO_CG_PARENT_NOT_FOUND'
189: , p_application_id => 'EGO'
190: , x_mesg_token_tbl => l_mesg_token_tbl
191: );

Line 210: Error_Handler.Add_Error_Token

206:
207: IF trunc(EGO_Globals.G_Catalog_Group_Rec.inactive_date) < trunc(SYSDATE)
208: THEN
209: x_return_status := FND_API.G_RET_STS_ERROR;
210: Error_Handler.Add_Error_Token
211: ( p_message_name => 'EGO_CG_ENDDATE_LESS_CURRDATE'
212: , p_application_id => 'EGO'
213: , x_mesg_token_tbl => l_mesg_token_tbl
214: );

Line 223: Error_Handler.Add_Error_Token

219: IF nvl(l_parent_inactive_date,EGO_Globals.G_Catalog_Group_Rec.inactive_date) <
220: EGO_Globals.G_Catalog_Group_Rec.inactive_date
221: THEN
222: x_return_status := FND_API.G_RET_STS_ERROR;
223: Error_Handler.Add_Error_Token
224: ( p_message_name => 'EGO_CG_ENDDATE_GREAT_PARENTDT'
225: , p_application_id => 'EGO'
226: , x_mesg_token_tbl => l_mesg_token_tbl
227: );

Line 239: Error_Handler.Add_Error_Token

235:
236: IF l_parent_inactive_date is NOT NULL
237: THEN
238: x_return_status := FND_API.G_RET_STS_ERROR;
239: Error_Handler.Add_Error_Token
240: ( p_message_name => 'EGO_CG_PARENT_HAS_ENDDATE'
241: , p_application_id => 'EGO'
242: , x_mesg_token_tbl => l_mesg_token_tbl
243: );

Line 248: Error_Handler.Write_Debug('Within Catalog Group Check Attributes . . . ');

244: END IF;
245:
246: END IF;
247:
248: Error_Handler.Write_Debug('Within Catalog Group Check Attributes . . . ');
249:
250: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
251:
252: END Check_Attributes;

Line 262: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

258: * Purpose :
259: **********************************************************************/
260: PROCEDURE Check_Required
261: ( x_return_status OUT NOCOPY VARCHAR2
262: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
263: )
264: IS
265: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
266: l_Token_Tbl Error_Handler.Token_Tbl_Type;

Line 265: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

261: ( x_return_status OUT NOCOPY VARCHAR2
262: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
263: )
264: IS
265: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
266: l_Token_Tbl Error_Handler.Token_Tbl_Type;
267: BEGIN
268: x_return_status := FND_API.G_RET_STS_SUCCESS;
269:

Line 266: l_Token_Tbl Error_Handler.Token_Tbl_Type;

262: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
263: )
264: IS
265: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
266: l_Token_Tbl Error_Handler.Token_Tbl_Type;
267: BEGIN
268: x_return_status := FND_API.G_RET_STS_SUCCESS;
269:
270:

Line 284: ( x_mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

280: * Return Status
281: * Purpose : Checks for duplicate segment values
282: *********************************************************************/
283: PROCEDURE Check_Entity
284: ( x_mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
285: , x_return_status OUT NOCOPY VARCHAR2
286: )
287: IS
288: l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;

Line 289: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;

285: , x_return_status OUT NOCOPY VARCHAR2
286: )
287: IS
288: l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
289: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
290: l_Token_Tbl Error_Handler.Token_Tbl_Type;
291: l_ccid NUMBER;
292: BEGIN
293:

Line 290: l_Token_Tbl Error_Handler.Token_Tbl_Type;

286: )
287: IS
288: l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
289: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
290: l_Token_Tbl Error_Handler.Token_Tbl_Type;
291: l_ccid NUMBER;
292: BEGIN
293:
294: /*

Line 313: Error_Handler.Add_Error_Token

309: l_ccid := NULL;
310:
311: WHEN OTHERS THEN
312: l_ccid := NULL;
313: Error_Handler.Add_Error_Token
314: ( p_message_text => 'Error in Check Entity : Catalog group name is '||EGO_Globals.G_Catalog_Group_Rec.Catalog_group_name||'/'||SQLERRM
315: , x_mesg_token_tbl => l_mesg_token_tbl
316: );
317: l_return_status := FND_API.G_RET_STS_ERROR;

Line 329: Error_Handler.Add_Error_Token

325: ( EGO_Globals.G_Catalog_Group_Rec.Transaction_Type = EGO_Globals.G_OPR_UPDATE AND
326: EGO_Globals.G_Catalog_Group_Rec.Catalog_group_id <> l_ccid )
327: THEN
328: -- dbms_output.put_line('Duplicate error in : '||EGO_Globals.G_Catalog_Group_Rec.Transaction_Type);
329: Error_Handler.Add_Error_Token
330: ( p_message_name => 'EGO_CATALOG_ALREADY_EXISTS'
331: , p_application_id => 'EGO'
332: , x_mesg_token_tbl => l_mesg_token_tbl
333: );

Line 346: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

342:
343:
344: PROCEDURE Check_Entity_Delete
345: ( x_return_status OUT NOCOPY VARCHAR2
346: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
347: )
348: IS
349: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
350: l_dummy VARCHAR2(1);

Line 349: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;

345: ( x_return_status OUT NOCOPY VARCHAR2
346: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
347: )
348: IS
349: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
350: l_dummy VARCHAR2(1);
351: BEGIN
352:
353: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 364: Error_Handler.Add_Error_Token

360:
361: SELECT 'x' INTO l_dummy FROM dual WHERE EXISTS (SELECT null FROM mtl_system_items_b
362: WHERE item_catalog_group_id = EGO_Globals.G_Catalog_Group_Rec.Catalog_group_id);
363:
364: Error_Handler.Add_Error_Token
365: ( p_message_name => 'EGO_CATALOG_HAS_ITEMS'
366: , p_application_id => 'EGO'
367: , x_mesg_token_tbl => x_mesg_token_tbl
368: );

Line 379: Error_Handler.Add_Error_Token

375: Null;
376:
377: WHEN OTHERS
378: THEN
379: Error_Handler.Add_Error_Token
380: ( p_message_text => 'Error in Check Entity Delete : Catalog group name is '||EGO_Globals.G_Catalog_Group_Rec.Catalog_group_name||'/'||SQLERRM
381: , x_mesg_token_tbl => x_mesg_token_tbl
382: );
383: x_return_status := FND_API.G_RET_STS_ERROR;

Line 398: Error_Handler.Add_Error_Token

394: WHERE parent_catalog_group_id = EGO_Globals.G_Catalog_Group_Rec.Catalog_group_id);
395:
396: -- dbms_output.put_line('Found parent catalog group during delete');
397:
398: Error_Handler.Add_Error_Token
399: ( p_message_name => 'EGO_CATALOG_IS_PARENT'
400: , p_application_id => 'EGO'
401: , x_mesg_token_tbl => x_mesg_token_tbl
402: );

Line 413: Error_Handler.Add_Error_Token

409: Null;
410:
411: WHEN OTHERS
412: THEN
413: Error_Handler.Add_Error_Token
414: ( p_message_text => 'Error in Check Entity Delete : Catalog group name is '||EGO_Globals.G_Catalog_Group_Rec.Catalog_group_name||'/'||SQLERRM
415: , x_mesg_token_tbl => x_mesg_token_tbl
416: );
417: x_return_status := FND_API.G_RET_STS_ERROR;