eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.GMD_SPEC_VRS_PUB dependencies on FND_API

Line 84: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;

80: l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_INVENTORY_SPEC_VRS';
81: l_api_version CONSTANT NUMBER := 1.0;
82: l_msg_count NUMBER :=0;
83: l_msg_data VARCHAR2(2000);
84: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
85: l_spec GMD_SPECIFICATIONS%ROWTYPE;
86: l_inventory_spec_vrs GMD_INVENTORY_SPEC_VRS%ROWTYPE;
87: l_inventory_spec_vrs_out GMD_INVENTORY_SPEC_VRS%ROWTYPE;
88: l_inventory_spec_vrs_tbl GMD_SPEC_VRS_PUB.inventory_spec_vrs_tbl;

Line 100: IF NOT FND_API.Compatible_API_CALL

96: SAVEPOINT Create_Inventory_Spec_VRS;
97:
98: -- Standard call to check for call compatibility
99: -- =============================================
100: IF NOT FND_API.Compatible_API_CALL
101: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
102: THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
104: END IF;

Line 103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

99: -- =============================================
100: IF NOT FND_API.Compatible_API_CALL
101: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
102: THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
104: END IF;
105:
106: -- Initialize message list if p_int_msg_list is set TRUE.
107: -- ======================================================

Line 108: IF FND_API.to_boolean(p_init_msg_list)

104: END IF;
105:
106: -- Initialize message list if p_int_msg_list is set TRUE.
107: -- ======================================================
108: IF FND_API.to_boolean(p_init_msg_list)
109: THEN
110: FND_MSG_PUB.Initialize;
111: END IF;
112:

Line 115: l_return_status := FND_API.G_RET_STS_SUCCESS;

111: END IF;
112:
113: -- Initialize API return Parameters
114: -- ================================
115: l_return_status := FND_API.G_RET_STS_SUCCESS;
116:
117: -- Validate User Name Parameter
118: -- ============================
119: GMD_SPEC_GRP.GET_WHO ( p_user_name => p_user_name

Line 126: RAISE FND_API.G_EXC_ERROR;

122: IF NVL(l_user_id, -1) < 0
123: THEN
124: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
125: 'l_user_name', p_user_name);
126: RAISE FND_API.G_EXC_ERROR;
127: END IF;
128:
129: -- Loop through the inventory spec validity rules validating and creating
130: -- ======================================================================

Line 164: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

160: x_inv_vr => l_inventory_spec_vrs_out,
161: x_return_status => l_return_status
162: );
163:
164: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
165: -- Diagnostic message is already on the stack
166: RAISE FND_API.G_EXC_ERROR;
167: END IF;
168:

Line 166: RAISE FND_API.G_EXC_ERROR;

162: );
163:
164: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
165: -- Diagnostic message is already on the stack
166: RAISE FND_API.G_EXC_ERROR;
167: END IF;
168:
169: l_inventory_spec_vrs := l_inventory_spec_vrs_out;
170:

Line 174: RAISE FND_API.G_EXC_ERROR;

170:
171: IF NOT GMD_INVENTORY_SPEC_VRS_PVT.Insert_Row(l_inventory_spec_vrs, l_inventory_spec_vrs_out)
172: THEN
173: -- Diagnostic message is already on the stack
174: RAISE FND_API.G_EXC_ERROR;
175: END IF;
176:
177: -- Update Return Parameter Tbl
178: -- ===========================

Line 185: IF FND_API.to_boolean(p_commit)

181: END LOOP;
182:
183: -- Standard Check of p_commit.
184: -- ==========================
185: IF FND_API.to_boolean(p_commit)
186: THEN
187: COMMIT WORK;
188: END IF;
189:

Line 194: WHEN FND_API.G_EXC_ERROR THEN

190: x_return_status := l_return_status;
191: x_inventory_spec_vrs_tbl := l_inventory_spec_vrs_tbl;
192:
193: EXCEPTION
194: WHEN FND_API.G_EXC_ERROR THEN
195: ROLLBACK TO Create_Inventory_Spec_VRS;
196: x_return_status := FND_API.G_RET_STS_ERROR;
197: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
198: , p_count => x_msg_count

Line 196: x_return_status := FND_API.G_RET_STS_ERROR;

192:
193: EXCEPTION
194: WHEN FND_API.G_EXC_ERROR THEN
195: ROLLBACK TO Create_Inventory_Spec_VRS;
196: x_return_status := FND_API.G_RET_STS_ERROR;
197: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
198: , p_count => x_msg_count
199: , p_data => x_msg_data
200: );

Line 197: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

193: EXCEPTION
194: WHEN FND_API.G_EXC_ERROR THEN
195: ROLLBACK TO Create_Inventory_Spec_VRS;
196: x_return_status := FND_API.G_RET_STS_ERROR;
197: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
198: , p_count => x_msg_count
199: , p_data => x_msg_data
200: );
201:

Line 202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

198: , p_count => x_msg_count
199: , p_data => x_msg_data
200: );
201:
202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
203: ROLLBACK TO Create_Inventory_Spec_VRS;
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
206: , p_count => x_msg_count

Line 204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

200: );
201:
202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
203: ROLLBACK TO Create_Inventory_Spec_VRS;
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
206: , p_count => x_msg_count
207: , p_data => x_msg_data
208: );

Line 205: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

201:
202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
203: ROLLBACK TO Create_Inventory_Spec_VRS;
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
206: , p_count => x_msg_count
207: , p_data => x_msg_data
208: );
209:

Line 213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

209:
210:
211:
212: WHEN OTHERS THEN
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
214: ROLLBACK TO Create_Inventory_Spec_VRS;
215: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
216: , l_api_name
217: );

Line 219: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

215: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
216: , l_api_name
217: );
218:
219: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
220: , p_count => x_msg_count
221: , p_data => x_msg_data
222: );
223:

Line 264: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;

260: l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_WIP_SPEC_VRS';
261: l_api_version CONSTANT NUMBER := 1.0;
262: l_msg_count NUMBER :=0;
263: l_msg_data VARCHAR2(2000);
264: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
265: l_spec GMD_SPECIFICATIONS%ROWTYPE;
266: l_wip_spec_vrs GMD_WIP_SPEC_VRS%ROWTYPE;
267: l_wip_spec_vrs_out GMD_WIP_SPEC_VRS%ROWTYPE;
268: l_wip_spec_vrs_tbl GMD_SPEC_VRS_PUB.wip_spec_vrs_tbl;

Line 281: IF NOT FND_API.Compatible_API_CALL

277: SAVEPOINT Create_WIP_Spec_VRS;
278:
279: -- Standard call to check for call compatibility
280: -- =============================================
281: IF NOT FND_API.Compatible_API_CALL
282: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
283: THEN
284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
285: END IF;

Line 284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

280: -- =============================================
281: IF NOT FND_API.Compatible_API_CALL
282: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
283: THEN
284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
285: END IF;
286:
287: -- Initialize message list if p_int_msg_list is set TRUE.
288: -- ======================================================

Line 289: IF FND_API.to_boolean(p_init_msg_list)

285: END IF;
286:
287: -- Initialize message list if p_int_msg_list is set TRUE.
288: -- ======================================================
289: IF FND_API.to_boolean(p_init_msg_list)
290: THEN
291: FND_MSG_PUB.Initialize;
292: END IF;
293:

Line 296: l_return_status := FND_API.G_RET_STS_SUCCESS;

292: END IF;
293:
294: -- Initialize API return Parameters
295: -- ================================
296: l_return_status := FND_API.G_RET_STS_SUCCESS;
297:
298: -- Validate User Name Parameter
299: -- ============================
300: GMD_SPEC_GRP.GET_WHO ( p_user_name => p_user_name

Line 307: RAISE FND_API.G_EXC_ERROR;

303: IF NVL(l_user_id, -1) < 0
304: THEN
305: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
306: 'l_user_name', p_user_name);
307: RAISE FND_API.G_EXC_ERROR;
308: END IF;
309:
310: -- Loop through the WIP spec validity rules validating and creating
311: -- ================================================================

Line 345: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

341: x_wip_vr => l_wip_spec_vrs_out,
342: x_return_status => l_return_status
343: );
344:
345: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
346: -- Diagnostic message is already on the stack
347: RAISE FND_API.G_EXC_ERROR;
348: END IF;
349:

Line 347: RAISE FND_API.G_EXC_ERROR;

343: );
344:
345: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
346: -- Diagnostic message is already on the stack
347: RAISE FND_API.G_EXC_ERROR;
348: END IF;
349:
350: l_wip_spec_vrs := l_wip_spec_vrs_out;
351:

Line 355: RAISE FND_API.G_EXC_ERROR;

351:
352: IF NOT GMD_WIP_SPEC_VRS_PVT.Insert_Row(l_wip_spec_vrs, l_wip_spec_vrs_out)
353: THEN
354: -- Diagnostic message is already on the stack
355: RAISE FND_API.G_EXC_ERROR;
356: END IF;
357:
358: -- Update Return Parameter Tbl
359: -- ===========================

Line 366: IF FND_API.to_boolean(p_commit)

362: END LOOP;
363:
364: -- Standard Check of p_commit.
365: -- ==========================
366: IF FND_API.to_boolean(p_commit)
367: THEN
368: COMMIT WORK;
369: END IF;
370:

Line 375: WHEN FND_API.G_EXC_ERROR THEN

371: x_return_status := l_return_status;
372: x_wip_spec_vrs_tbl := l_wip_spec_vrs_tbl;
373:
374: EXCEPTION
375: WHEN FND_API.G_EXC_ERROR THEN
376: ROLLBACK TO Create_WIP_Spec_VRS;
377: x_return_status := FND_API.G_RET_STS_ERROR;
378: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
379: , p_count => x_msg_count

Line 377: x_return_status := FND_API.G_RET_STS_ERROR;

373:
374: EXCEPTION
375: WHEN FND_API.G_EXC_ERROR THEN
376: ROLLBACK TO Create_WIP_Spec_VRS;
377: x_return_status := FND_API.G_RET_STS_ERROR;
378: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
379: , p_count => x_msg_count
380: , p_data => x_msg_data
381: );

Line 378: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

374: EXCEPTION
375: WHEN FND_API.G_EXC_ERROR THEN
376: ROLLBACK TO Create_WIP_Spec_VRS;
377: x_return_status := FND_API.G_RET_STS_ERROR;
378: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
379: , p_count => x_msg_count
380: , p_data => x_msg_data
381: );
382:

Line 383: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

379: , p_count => x_msg_count
380: , p_data => x_msg_data
381: );
382:
383: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
384: ROLLBACK TO Create_WIP_Spec_VRS;
385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
386: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
387: , p_count => x_msg_count

Line 385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

381: );
382:
383: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
384: ROLLBACK TO Create_WIP_Spec_VRS;
385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
386: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
387: , p_count => x_msg_count
388: , p_data => x_msg_data
389: );

Line 386: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

382:
383: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
384: ROLLBACK TO Create_WIP_Spec_VRS;
385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
386: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
387: , p_count => x_msg_count
388: , p_data => x_msg_data
389: );
390:

Line 392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

388: , p_data => x_msg_data
389: );
390:
391: WHEN OTHERS THEN
392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
393: ROLLBACK TO Create_WIP_Spec_VRS;
394: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
395: , l_api_name
396: );

Line 398: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

394: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
395: , l_api_name
396: );
397:
398: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
399: , p_count => x_msg_count
400: , p_data => x_msg_data
401: );
402:

Line 443: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;

439: l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_CUSTOMER_SPEC_VRS';
440: l_api_version CONSTANT NUMBER := 1.0;
441: l_msg_count NUMBER :=0;
442: l_msg_data VARCHAR2(2000);
443: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
444: l_customer_spec_vrs GMD_CUSTOMER_SPEC_VRS%ROWTYPE;
445: l_customer_spec_vrs_out GMD_CUSTOMER_SPEC_VRS%ROWTYPE;
446: l_customer_spec_vrs_tbl GMD_SPEC_VRS_PUB.customer_spec_vrs_tbl;
447: l_user_id NUMBER(15);

Line 458: IF NOT FND_API.Compatible_API_CALL

454: SAVEPOINT Create_Customer_Spec_VRS;
455:
456: -- Standard call to check for call compatibility
457: -- =============================================
458: IF NOT FND_API.Compatible_API_CALL
459: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
460: THEN
461: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
462: END IF;

Line 461: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

457: -- =============================================
458: IF NOT FND_API.Compatible_API_CALL
459: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
460: THEN
461: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
462: END IF;
463:
464: -- Initialize message list if p_int_msg_list is set TRUE.
465: -- ======================================================

Line 466: IF FND_API.to_boolean(p_init_msg_list)

462: END IF;
463:
464: -- Initialize message list if p_int_msg_list is set TRUE.
465: -- ======================================================
466: IF FND_API.to_boolean(p_init_msg_list)
467: THEN
468: FND_MSG_PUB.Initialize;
469: END IF;
470:

Line 473: l_return_status := FND_API.G_RET_STS_SUCCESS;

469: END IF;
470:
471: -- Initialize API return Parameters
472: -- ================================
473: l_return_status := FND_API.G_RET_STS_SUCCESS;
474:
475: -- Validate User Name Parameter
476: -- ============================
477: GMD_SPEC_GRP.GET_WHO ( p_user_name => p_user_name

Line 484: RAISE FND_API.G_EXC_ERROR;

480: IF NVL(l_user_id, -1) < 0
481: THEN
482: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
483: 'l_user_name', p_user_name);
484: RAISE FND_API.G_EXC_ERROR;
485: END IF;
486:
487: -- Loop through the Customer spec validity rules validating and creating
488: -- =====================================================================

Line 520: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

516: p_operation => 'INSERT',
517: x_return_status => l_return_status
518: );
519:
520: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
521: -- Diagnostic message is already on the stack
522: RAISE FND_API.G_EXC_ERROR;
523: END IF;
524:

Line 522: RAISE FND_API.G_EXC_ERROR;

518: );
519:
520: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
521: -- Diagnostic message is already on the stack
522: RAISE FND_API.G_EXC_ERROR;
523: END IF;
524:
525: IF NOT GMD_CUSTOMER_SPEC_VRS_PVT.Insert_Row(l_customer_spec_vrs, l_customer_spec_vrs_out)
526: THEN

Line 528: RAISE FND_API.G_EXC_ERROR;

524:
525: IF NOT GMD_CUSTOMER_SPEC_VRS_PVT.Insert_Row(l_customer_spec_vrs, l_customer_spec_vrs_out)
526: THEN
527: -- Diagnostic message is already on the stack
528: RAISE FND_API.G_EXC_ERROR;
529: END IF;
530:
531: -- Update Return Parameter Tbl
532: -- ===========================

Line 539: IF FND_API.to_boolean(p_commit)

535: END LOOP;
536:
537: -- Standard Check of p_commit.
538: -- ==========================
539: IF FND_API.to_boolean(p_commit)
540: THEN
541: COMMIT WORK;
542: END IF;
543:

Line 548: WHEN FND_API.G_EXC_ERROR THEN

544: x_return_status := l_return_status;
545: x_customer_spec_vrs_tbl := l_customer_spec_vrs_tbl;
546:
547: EXCEPTION
548: WHEN FND_API.G_EXC_ERROR THEN
549: ROLLBACK TO Create_Customer_Spec_VRS;
550: x_return_status := FND_API.G_RET_STS_ERROR;
551: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
552: , p_count => x_msg_count

Line 550: x_return_status := FND_API.G_RET_STS_ERROR;

546:
547: EXCEPTION
548: WHEN FND_API.G_EXC_ERROR THEN
549: ROLLBACK TO Create_Customer_Spec_VRS;
550: x_return_status := FND_API.G_RET_STS_ERROR;
551: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
552: , p_count => x_msg_count
553: , p_data => x_msg_data
554: );

Line 551: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

547: EXCEPTION
548: WHEN FND_API.G_EXC_ERROR THEN
549: ROLLBACK TO Create_Customer_Spec_VRS;
550: x_return_status := FND_API.G_RET_STS_ERROR;
551: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
552: , p_count => x_msg_count
553: , p_data => x_msg_data
554: );
555:

Line 556: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

552: , p_count => x_msg_count
553: , p_data => x_msg_data
554: );
555:
556: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
557: ROLLBACK TO Create_Customer_Spec_VRS;
558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
559: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
560: , p_count => x_msg_count

Line 558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

554: );
555:
556: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
557: ROLLBACK TO Create_Customer_Spec_VRS;
558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
559: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
560: , p_count => x_msg_count
561: , p_data => x_msg_data
562: );

Line 559: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

555:
556: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
557: ROLLBACK TO Create_Customer_Spec_VRS;
558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
559: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
560: , p_count => x_msg_count
561: , p_data => x_msg_data
562: );
563:

Line 565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

561: , p_data => x_msg_data
562: );
563:
564: WHEN OTHERS THEN
565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
566: ROLLBACK TO Create_Customer_Spec_VRS;
567: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
568: , l_api_name
569: );

Line 571: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

567: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
568: , l_api_name
569: );
570:
571: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
572: , p_count => x_msg_count
573: , p_data => x_msg_data
574: );
575:

Line 616: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;

612: l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_SUPPLIER_SPEC_VRS';
613: l_api_version CONSTANT NUMBER := 1.0;
614: l_msg_count NUMBER :=0;
615: l_msg_data VARCHAR2(2000);
616: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
617: l_supplier_spec_vrs GMD_SUPPLIER_SPEC_VRS%ROWTYPE;
618: l_supplier_spec_vrs_out GMD_SUPPLIER_SPEC_VRS%ROWTYPE;
619: l_supplier_spec_vrs_tbl GMD_SPEC_VRS_PUB.supplier_spec_vrs_tbl;
620: l_user_id NUMBER(15);

Line 630: IF NOT FND_API.Compatible_API_CALL

626: SAVEPOINT Create_Supplier_Spec_VRS;
627:
628: -- Standard call to check for call compatibility
629: -- =============================================
630: IF NOT FND_API.Compatible_API_CALL
631: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
632: THEN
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;

Line 633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

629: -- =============================================
630: IF NOT FND_API.Compatible_API_CALL
631: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
632: THEN
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;
635:
636: -- Initialize message list if p_int_msg_list is set TRUE.
637: -- ======================================================

Line 638: IF FND_API.to_boolean(p_init_msg_list)

634: END IF;
635:
636: -- Initialize message list if p_int_msg_list is set TRUE.
637: -- ======================================================
638: IF FND_API.to_boolean(p_init_msg_list)
639: THEN
640: FND_MSG_PUB.Initialize;
641: END IF;
642:

Line 645: l_return_status := FND_API.G_RET_STS_SUCCESS;

641: END IF;
642:
643: -- Initialize API return Parameters
644: -- ================================
645: l_return_status := FND_API.G_RET_STS_SUCCESS;
646:
647: -- Validate User Name Parameter
648: -- ============================
649: GMD_SPEC_GRP.GET_WHO ( p_user_name => p_user_name

Line 656: RAISE FND_API.G_EXC_ERROR;

652: IF NVL(l_user_id, -1) < 0
653: THEN
654: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
655: 'l_user_name', p_user_name);
656: RAISE FND_API.G_EXC_ERROR;
657: END IF;
658:
659: -- Loop through the Supplier spec validity rules validating and creating
660: -- =====================================================================

Line 692: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

688: p_operation => 'INSERT',
689: x_return_status => l_return_status
690: );
691:
692: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
693: -- Diagnostic message is already on the stack
694: RAISE FND_API.G_EXC_ERROR;
695: END IF;
696:

Line 694: RAISE FND_API.G_EXC_ERROR;

690: );
691:
692: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
693: -- Diagnostic message is already on the stack
694: RAISE FND_API.G_EXC_ERROR;
695: END IF;
696:
697: IF NOT GMD_SUPPLIER_SPEC_VRS_PVT.Insert_Row(l_supplier_spec_vrs, l_supplier_spec_vrs_out)
698: THEN

Line 700: RAISE FND_API.G_EXC_ERROR;

696:
697: IF NOT GMD_SUPPLIER_SPEC_VRS_PVT.Insert_Row(l_supplier_spec_vrs, l_supplier_spec_vrs_out)
698: THEN
699: -- Diagnostic message is already on the stack
700: RAISE FND_API.G_EXC_ERROR;
701: END IF;
702:
703: -- Update Return Parameter Tbl
704: -- ===========================

Line 711: IF FND_API.to_boolean(p_commit)

707: END LOOP;
708:
709: -- Standard Check of p_commit.
710: -- ==========================
711: IF FND_API.to_boolean(p_commit)
712: THEN
713: COMMIT WORK;
714: END IF;
715:

Line 720: WHEN FND_API.G_EXC_ERROR THEN

716: x_return_status := l_return_status;
717: x_supplier_spec_vrs_tbl := l_supplier_spec_vrs_tbl;
718:
719: EXCEPTION
720: WHEN FND_API.G_EXC_ERROR THEN
721: ROLLBACK TO Create_Supplier_Spec_VRS;
722: x_return_status := FND_API.G_RET_STS_ERROR;
723: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
724: , p_count => x_msg_count

Line 722: x_return_status := FND_API.G_RET_STS_ERROR;

718:
719: EXCEPTION
720: WHEN FND_API.G_EXC_ERROR THEN
721: ROLLBACK TO Create_Supplier_Spec_VRS;
722: x_return_status := FND_API.G_RET_STS_ERROR;
723: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
724: , p_count => x_msg_count
725: , p_data => x_msg_data
726: );

Line 723: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

719: EXCEPTION
720: WHEN FND_API.G_EXC_ERROR THEN
721: ROLLBACK TO Create_Supplier_Spec_VRS;
722: x_return_status := FND_API.G_RET_STS_ERROR;
723: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
724: , p_count => x_msg_count
725: , p_data => x_msg_data
726: );
727:

Line 728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

724: , p_count => x_msg_count
725: , p_data => x_msg_data
726: );
727:
728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
729: ROLLBACK TO Create_Supplier_Spec_VRS;
730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
731: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
732: , p_count => x_msg_count

Line 730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

726: );
727:
728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
729: ROLLBACK TO Create_Supplier_Spec_VRS;
730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
731: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
732: , p_count => x_msg_count
733: , p_data => x_msg_data
734: );

Line 731: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

727:
728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
729: ROLLBACK TO Create_Supplier_Spec_VRS;
730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
731: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
732: , p_count => x_msg_count
733: , p_data => x_msg_data
734: );
735:

Line 737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

733: , p_data => x_msg_data
734: );
735:
736: WHEN OTHERS THEN
737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
738: ROLLBACK TO Create_Supplier_Spec_VRS;
739: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
740: , l_api_name
741: );

Line 743: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

739: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
740: , l_api_name
741: );
742:
743: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
744: , p_count => x_msg_count
745: , p_data => x_msg_data
746: );
747:

Line 792: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;

788: l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_MONITORING_SPEC_VRS';
789: l_api_version CONSTANT NUMBER := 1.0;
790: l_msg_count NUMBER :=0;
791: l_msg_data VARCHAR2(2000);
792: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
793: l_monitoring_spec_vrs GMD_MONITORING_SPEC_VRS%ROWTYPE;
794: l_monitoring_spec_vrs_out GMD_MONITORING_SPEC_VRS%ROWTYPE;
795: l_monitoring_spec_vrs_tbl GMD_SPEC_VRS_PUB.monitoring_spec_vrs_tbl;
796: l_user_id NUMBER(15);

Line 807: IF NOT FND_API.Compatible_API_CALL

803: SAVEPOINT Create_monitoring_Spec_VRS;
804:
805: -- Standard call to check for call compatibility
806: -- =============================================
807: IF NOT FND_API.Compatible_API_CALL
808: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
809: THEN
810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
811: END IF;

Line 810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

806: -- =============================================
807: IF NOT FND_API.Compatible_API_CALL
808: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
809: THEN
810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
811: END IF;
812:
813: -- Initialize message list if p_int_msg_list is set TRUE.
814: -- ======================================================

Line 815: IF FND_API.to_boolean(p_init_msg_list)

811: END IF;
812:
813: -- Initialize message list if p_int_msg_list is set TRUE.
814: -- ======================================================
815: IF FND_API.to_boolean(p_init_msg_list)
816: THEN
817: FND_MSG_PUB.Initialize;
818: END IF;
819:

Line 822: l_return_status := FND_API.G_RET_STS_SUCCESS;

818: END IF;
819:
820: -- Initialize API return Parameters
821: -- ================================
822: l_return_status := FND_API.G_RET_STS_SUCCESS;
823:
824: -- Validate User Name Parameter
825: -- ============================
826: GMD_SPEC_GRP.Get_Who ( p_user_name => p_user_name

Line 833: RAISE FND_API.G_EXC_ERROR;

829: IF NVL(l_user_id, -1) < 0
830: THEN
831: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
832: 'l_user_name', p_user_name);
833: RAISE FND_API.G_EXC_ERROR;
834: END IF;
835:
836: -- Loop through the Monitoring spec validity rules validating and creating
837: -- =====================================================================

Line 885: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

881: x_return_status => l_return_status
882: );
883:
884:
885: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
886: -- Diagnostic message is already on the stack
887: RAISE FND_API.G_EXC_ERROR;
888: END IF;
889:

Line 887: RAISE FND_API.G_EXC_ERROR;

883:
884:
885: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
886: -- Diagnostic message is already on the stack
887: RAISE FND_API.G_EXC_ERROR;
888: END IF;
889:
890: IF NOT GMD_MONITORING_SPEC_VRS_PVT.Insert_Row(l_monitoring_spec_vrs, l_monitoring_spec_vrs_out)
891: THEN

Line 893: RAISE FND_API.G_EXC_ERROR;

889:
890: IF NOT GMD_MONITORING_SPEC_VRS_PVT.Insert_Row(l_monitoring_spec_vrs, l_monitoring_spec_vrs_out)
891: THEN
892: -- Diagnostic message is already on the stack
893: RAISE FND_API.G_EXC_ERROR;
894: END IF;
895:
896: -- Update Return Parameter Tbl
897: -- ===========================

Line 904: IF FND_API.to_boolean(p_commit)

900: END LOOP;
901:
902: -- Standard Check of p_commit.
903: -- ==========================
904: IF FND_API.to_boolean(p_commit)
905: THEN
906: COMMIT WORK;
907: END IF;
908:

Line 913: WHEN FND_API.G_EXC_ERROR THEN

909: x_return_status := l_return_status;
910: x_monitoring_spec_vrs_tbl := l_monitoring_spec_vrs_tbl;
911:
912: EXCEPTION
913: WHEN FND_API.G_EXC_ERROR THEN
914: ROLLBACK TO Create_monitoring_Spec_VRS;
915: x_return_status := FND_API.G_RET_STS_ERROR;
916: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
917: , p_count => x_msg_count

Line 915: x_return_status := FND_API.G_RET_STS_ERROR;

911:
912: EXCEPTION
913: WHEN FND_API.G_EXC_ERROR THEN
914: ROLLBACK TO Create_monitoring_Spec_VRS;
915: x_return_status := FND_API.G_RET_STS_ERROR;
916: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
917: , p_count => x_msg_count
918: , p_data => x_msg_data
919: );

Line 916: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

912: EXCEPTION
913: WHEN FND_API.G_EXC_ERROR THEN
914: ROLLBACK TO Create_monitoring_Spec_VRS;
915: x_return_status := FND_API.G_RET_STS_ERROR;
916: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
917: , p_count => x_msg_count
918: , p_data => x_msg_data
919: );
920:

Line 921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

917: , p_count => x_msg_count
918: , p_data => x_msg_data
919: );
920:
921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922: ROLLBACK TO Create_monitoring_Spec_VRS;
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
925: , p_count => x_msg_count

Line 923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

919: );
920:
921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922: ROLLBACK TO Create_monitoring_Spec_VRS;
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
925: , p_count => x_msg_count
926: , p_data => x_msg_data
927: );

Line 924: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

920:
921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922: ROLLBACK TO Create_monitoring_Spec_VRS;
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
925: , p_count => x_msg_count
926: , p_data => x_msg_data
927: );
928:

Line 930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

926: , p_data => x_msg_data
927: );
928:
929: WHEN OTHERS THEN
930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
931: ROLLBACK TO Create_monitoring_Spec_VRS;
932: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
933: , l_api_name
934: );

Line 936: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

932: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
933: , l_api_name
934: );
935:
936: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
937: , p_count => x_msg_count
938: , p_data => x_msg_data
939: );
940:

Line 981: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;

977: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_INVENTORY_SPEC_VRS';
978: l_api_version CONSTANT NUMBER := 1.0;
979: l_msg_count NUMBER :=0;
980: l_msg_data VARCHAR2(2000);
981: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
982: l_spec GMD_SPECIFICATIONS%ROWTYPE;
983: l_inventory_spec_vrs GMD_INVENTORY_SPEC_VRS%ROWTYPE;
984: l_deleted_rows NUMBER :=0;
985:

Line 996: IF NOT FND_API.Compatible_API_CALL

992:
993: -- Standard call to check for call compatibility.
994: -- ==============================================
995:
996: IF NOT FND_API.Compatible_API_CALL
997: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
998: THEN
999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1000: END IF;

Line 999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

995:
996: IF NOT FND_API.Compatible_API_CALL
997: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
998: THEN
999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1000: END IF;
1001:
1002: -- Initialize message list if p_int_msg_list is set TRUE.
1003: -- ======================================================

Line 1004: IF FND_API.to_boolean(p_init_msg_list)

1000: END IF;
1001:
1002: -- Initialize message list if p_int_msg_list is set TRUE.
1003: -- ======================================================
1004: IF FND_API.to_boolean(p_init_msg_list)
1005: THEN
1006: FND_MSG_PUB.Initialize;
1007: END IF;
1008:

Line 1011: x_return_status := FND_API.G_RET_STS_SUCCESS;

1007: END IF;
1008:
1009: -- Initialize API return Parameters
1010: -- ================================
1011: x_return_status := FND_API.G_RET_STS_SUCCESS;
1012:
1013: -- Initialize Local Variables
1014: -- ==========================
1015: l_spec.spec_id := 0;

Line 1026: RAISE FND_API.G_EXC_ERROR;

1022: IF NVL(l_spec.last_updated_by, -1) < 0
1023: THEN
1024: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
1025: 'l_user_name', p_user_name);
1026: RAISE FND_API.G_EXC_ERROR;
1027: END IF;
1028:
1029: -- Process each of the inventory spec validity rules
1030: -- =================================================

Line 1039: RAISE FND_API.G_EXC_ERROR;

1035: IF ( l_inventory_spec_vrs.spec_id IS NULL )
1036: THEN
1037: -- raise validation error
1038: GMD_API_PUB.Log_Message('GMD_SPEC_ID_REQUIRED');
1039: RAISE FND_API.G_EXC_ERROR;
1040: END IF;
1041:
1042: -- Retrieve and validate the owning SPEC if it is not already retrieved/validated
1043: -- ==============================================================================

Line 1052: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1048: GMD_SPEC_GRP.Validate_Before_Delete( p_spec_id => l_inventory_spec_vrs.spec_id
1049: , x_return_status => l_return_status
1050: , x_message_data => l_msg_data
1051: );
1052: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1053: RAISE FND_API.G_EXC_ERROR;
1054: END IF;
1055:
1056: -- Lock the SPEC ahead of manipulating INVENTORY_SPEC_VRS

Line 1053: RAISE FND_API.G_EXC_ERROR;

1049: , x_return_status => l_return_status
1050: , x_message_data => l_msg_data
1051: );
1052: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1053: RAISE FND_API.G_EXC_ERROR;
1054: END IF;
1055:
1056: -- Lock the SPEC ahead of manipulating INVENTORY_SPEC_VRS
1057: -- ======================================================

Line 1066: RAISE FND_API.G_EXC_ERROR;

1062: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1063: 'l_table_name', 'GMD_SPECIFICATIONS',
1064: 'l_column_name', 'SPEC_ID',
1065: 'l_key_value', l_inventory_spec_vrs.spec_id);
1066: RAISE FND_API.G_EXC_ERROR;
1067: END IF;
1068: END IF; -- end of spec validation
1069:
1070: -- Validate to ensure validity_rule exists and is not already delete marked

Line 1078: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1074: , p_spec_vr_id => l_inventory_spec_vrs.spec_vr_id
1075: , x_return_status => l_return_status
1076: , x_message_data => l_msg_data
1077: );
1078: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1079: -- Diagnostic message already on the stack
1080: RAISE FND_API.G_EXC_ERROR;
1081: END IF;
1082:

Line 1080: RAISE FND_API.G_EXC_ERROR;

1076: , x_message_data => l_msg_data
1077: );
1078: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1079: -- Diagnostic message already on the stack
1080: RAISE FND_API.G_EXC_ERROR;
1081: END IF;
1082:
1083:
1084: -- Lock the validity rule ahead of deleting

Line 1094: RAISE FND_API.G_EXC_ERROR;

1090: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1091: 'l_table_name', 'GMD_INVENTORY_SPEC_VRS',
1092: 'l_column_name', 'SPEC_VR_ID',
1093: 'l_key_value', l_inventory_spec_vrs.spec_vr_id);
1094: RAISE FND_API.G_EXC_ERROR;
1095: END IF;
1096:
1097: IF NOT GMD_INVENTORY_SPEC_VRS_PVT.Delete_Row
1098: ( p_spec_vr_id => l_inventory_spec_vrs.spec_vr_id

Line 1108: RAISE FND_API.G_EXC_ERROR;

1104: 'l_table_name', 'GMD_INVENTORY_SPEC_VRS',
1105: 'l_column_name', 'SPEC_VR_ID',
1106: 'l_key_value', l_inventory_spec_vrs.spec_vr_id);
1107: fnd_msg_pub.ADD;
1108: RAISE FND_API.G_EXC_ERROR;
1109: ELSE
1110: x_deleted_rows := i;
1111: END IF;
1112:

Line 1116: IF FND_API.to_boolean(p_commit)

1112:
1113: END LOOP;
1114:
1115: -- Standard Check of p_commit.
1116: IF FND_API.to_boolean(p_commit)
1117: THEN
1118: COMMIT WORK;
1119: END IF;
1120:

Line 1124: WHEN FND_API.G_EXC_ERROR THEN

1120:
1121: x_return_status := l_return_status;
1122:
1123: EXCEPTION
1124: WHEN FND_API.G_EXC_ERROR THEN
1125: ROLLBACK TO Delete_Inventory_Spec_VRS;
1126: x_deleted_rows := 0;
1127: x_return_status := FND_API.G_RET_STS_ERROR;
1128: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

Line 1127: x_return_status := FND_API.G_RET_STS_ERROR;

1123: EXCEPTION
1124: WHEN FND_API.G_EXC_ERROR THEN
1125: ROLLBACK TO Delete_Inventory_Spec_VRS;
1126: x_deleted_rows := 0;
1127: x_return_status := FND_API.G_RET_STS_ERROR;
1128: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1129: , p_count => x_msg_count
1130: , p_data => x_msg_data
1131: );

Line 1128: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

1124: WHEN FND_API.G_EXC_ERROR THEN
1125: ROLLBACK TO Delete_Inventory_Spec_VRS;
1126: x_deleted_rows := 0;
1127: x_return_status := FND_API.G_RET_STS_ERROR;
1128: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1129: , p_count => x_msg_count
1130: , p_data => x_msg_data
1131: );
1132:

Line 1133: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1129: , p_count => x_msg_count
1130: , p_data => x_msg_data
1131: );
1132:
1133: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1134: ROLLBACK TO Delete_Inventory_Spec_VRS;
1135: x_deleted_rows := 0;
1136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1137: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

Line 1136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1132:
1133: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1134: ROLLBACK TO Delete_Inventory_Spec_VRS;
1135: x_deleted_rows := 0;
1136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1137: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1138: , p_count => x_msg_count
1139: , p_data => x_msg_data
1140: );

Line 1137: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

1133: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1134: ROLLBACK TO Delete_Inventory_Spec_VRS;
1135: x_deleted_rows := 0;
1136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1137: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1138: , p_count => x_msg_count
1139: , p_data => x_msg_data
1140: );
1141:

Line 1145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1141:
1142:
1143:
1144: WHEN OTHERS THEN
1145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1146: ROLLBACK TO Delete_Inventory_Spec_VRS;
1147: x_deleted_rows := 0;
1148: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1149: , l_api_name

Line 1152: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

1148: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1149: , l_api_name
1150: );
1151:
1152: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1153: , p_count => x_msg_count
1154: , p_data => x_msg_data
1155: );
1156:

Line 1198: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;

1194: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_WIP_SPEC_VRS';
1195: l_api_version CONSTANT NUMBER := 1.0;
1196: l_msg_count NUMBER :=0;
1197: l_msg_data VARCHAR2(2000);
1198: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1199: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1200: l_wip_spec_vrs GMD_WIP_SPEC_VRS%ROWTYPE;
1201: l_deleted_rows NUMBER :=0;
1202:

Line 1213: IF NOT FND_API.Compatible_API_CALL

1209:
1210: -- Standard call to check for call compatibility.
1211: -- ==============================================
1212:
1213: IF NOT FND_API.Compatible_API_CALL
1214: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1215: THEN
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: END IF;

Line 1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1212:
1213: IF NOT FND_API.Compatible_API_CALL
1214: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1215: THEN
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: END IF;
1218:
1219: -- Initialize message list if p_int_msg_list is set TRUE.
1220: -- ======================================================

Line 1221: IF FND_API.to_boolean(p_init_msg_list)

1217: END IF;
1218:
1219: -- Initialize message list if p_int_msg_list is set TRUE.
1220: -- ======================================================
1221: IF FND_API.to_boolean(p_init_msg_list)
1222: THEN
1223: FND_MSG_PUB.Initialize;
1224: END IF;
1225:

Line 1228: x_return_status := FND_API.G_RET_STS_SUCCESS;

1224: END IF;
1225:
1226: -- Initialize API return Parameters
1227: -- ================================
1228: x_return_status := FND_API.G_RET_STS_SUCCESS;
1229:
1230: -- Initialize Local Variables
1231: -- ==========================
1232: l_spec.spec_id := 0;

Line 1243: RAISE FND_API.G_EXC_ERROR;

1239: IF NVL(l_spec.last_updated_by, -1) < 0
1240: THEN
1241: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
1242: 'l_user_name', p_user_name);
1243: RAISE FND_API.G_EXC_ERROR;
1244: END IF;
1245:
1246: -- Process each of the WIP spec validity rules
1247: -- ===========================================

Line 1256: RAISE FND_API.G_EXC_ERROR;

1252: IF ( l_wip_spec_vrs.spec_id IS NULL )
1253: THEN
1254: -- raise validation error
1255: GMD_API_PUB.Log_Message('GMD_SPEC_ID_REQUIRED');
1256: RAISE FND_API.G_EXC_ERROR;
1257: END IF;
1258:
1259: -- Retrieve and validate the owning SPEC if it is not already retrieved/validated
1260: -- ==============================================================================

Line 1269: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1265: GMD_SPEC_GRP.Validate_Before_Delete( p_spec_id => l_wip_spec_vrs.spec_id
1266: , x_return_status => l_return_status
1267: , x_message_data => l_msg_data
1268: );
1269: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1270: RAISE FND_API.G_EXC_ERROR;
1271: END IF;
1272:
1273: -- Lock the SPEC ahead of manipulating WIP_SPEC_VRS

Line 1270: RAISE FND_API.G_EXC_ERROR;

1266: , x_return_status => l_return_status
1267: , x_message_data => l_msg_data
1268: );
1269: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1270: RAISE FND_API.G_EXC_ERROR;
1271: END IF;
1272:
1273: -- Lock the SPEC ahead of manipulating WIP_SPEC_VRS
1274: -- ======================================================

Line 1283: RAISE FND_API.G_EXC_ERROR;

1279: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1280: 'l_table_name', 'GMD_SPECIFICATIONS',
1281: 'l_column_name', 'SPEC_ID',
1282: 'l_key_value', l_wip_spec_vrs.spec_id);
1283: RAISE FND_API.G_EXC_ERROR;
1284: END IF;
1285: END IF; -- end of spec validation
1286:
1287: -- Validate to ensure validity_rule exists and is not already delete marked

Line 1295: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1291: , p_spec_vr_id => l_wip_spec_vrs.spec_vr_id
1292: , x_return_status => l_return_status
1293: , x_message_data => l_msg_data
1294: );
1295: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1296: RAISE FND_API.G_EXC_ERROR;
1297: END IF;
1298:
1299:

Line 1296: RAISE FND_API.G_EXC_ERROR;

1292: , x_return_status => l_return_status
1293: , x_message_data => l_msg_data
1294: );
1295: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1296: RAISE FND_API.G_EXC_ERROR;
1297: END IF;
1298:
1299:
1300: -- Lock the validity rule ahead of deleting

Line 1310: RAISE FND_API.G_EXC_ERROR;

1306: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1307: 'l_table_name', 'GMD_WIP_SPEC_VRS',
1308: 'l_column_name', 'SPEC_VR_ID',
1309: 'l_key_value', l_wip_spec_vrs.spec_vr_id);
1310: RAISE FND_API.G_EXC_ERROR;
1311: END IF;
1312:
1313: IF NOT GMD_WIP_SPEC_VRS_PVT.Delete_Row ( p_spec_vr_id => l_wip_spec_vrs.spec_vr_id
1314: , p_last_update_date => sysdate

Line 1322: RAISE FND_API.G_EXC_ERROR;

1318: GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
1319: 'l_table_name', 'GMD_WIP_SPEC_VRS',
1320: 'l_column_name', 'SPEC_VR_ID',
1321: 'l_key_value', l_wip_spec_vrs.spec_vr_id);
1322: RAISE FND_API.G_EXC_ERROR;
1323: ELSE
1324: x_deleted_rows := i;
1325: END IF;
1326:

Line 1330: IF FND_API.to_boolean(p_commit)

1326:
1327: END LOOP;
1328:
1329: -- Standard Check of p_commit.
1330: IF FND_API.to_boolean(p_commit)
1331: THEN
1332: COMMIT WORK;
1333: END IF;
1334:

Line 1338: WHEN FND_API.G_EXC_ERROR THEN

1334:
1335: x_return_status := l_return_status;
1336:
1337: EXCEPTION
1338: WHEN FND_API.G_EXC_ERROR THEN
1339: ROLLBACK TO Delete_WIP_Spec_VRS;
1340: x_deleted_rows := 0;
1341: x_return_status := FND_API.G_RET_STS_ERROR;
1342: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

Line 1341: x_return_status := FND_API.G_RET_STS_ERROR;

1337: EXCEPTION
1338: WHEN FND_API.G_EXC_ERROR THEN
1339: ROLLBACK TO Delete_WIP_Spec_VRS;
1340: x_deleted_rows := 0;
1341: x_return_status := FND_API.G_RET_STS_ERROR;
1342: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1343: , p_count => x_msg_count
1344: , p_data => x_msg_data
1345: );

Line 1342: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

1338: WHEN FND_API.G_EXC_ERROR THEN
1339: ROLLBACK TO Delete_WIP_Spec_VRS;
1340: x_deleted_rows := 0;
1341: x_return_status := FND_API.G_RET_STS_ERROR;
1342: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1343: , p_count => x_msg_count
1344: , p_data => x_msg_data
1345: );
1346:

Line 1347: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1343: , p_count => x_msg_count
1344: , p_data => x_msg_data
1345: );
1346:
1347: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1348: ROLLBACK TO Delete_WIP_Spec_VRS;
1349: x_deleted_rows := 0;
1350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1351: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

Line 1350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1346:
1347: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1348: ROLLBACK TO Delete_WIP_Spec_VRS;
1349: x_deleted_rows := 0;
1350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1351: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1352: , p_count => x_msg_count
1353: , p_data => x_msg_data
1354: );

Line 1351: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

1347: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1348: ROLLBACK TO Delete_WIP_Spec_VRS;
1349: x_deleted_rows := 0;
1350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1351: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1352: , p_count => x_msg_count
1353: , p_data => x_msg_data
1354: );
1355:

Line 1359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1355:
1356:
1357:
1358: WHEN OTHERS THEN
1359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1360: ROLLBACK TO Delete_WIP_Spec_VRS;
1361: x_deleted_rows := 0;
1362: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1363: , l_api_name

Line 1366: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

1362: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1363: , l_api_name
1364: );
1365:
1366: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1367: , p_count => x_msg_count
1368: , p_data => x_msg_data
1369: );
1370:

Line 1412: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;

1408: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_CUSTOMER_SPEC_VRS';
1409: l_api_version CONSTANT NUMBER := 1.0;
1410: l_msg_count NUMBER :=0;
1411: l_msg_data VARCHAR2(2000);
1412: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1413: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1414: l_customer_spec_vrs GMD_CUSTOMER_SPEC_VRS%ROWTYPE;
1415: l_deleted_rows NUMBER :=0;
1416:

Line 1427: IF NOT FND_API.Compatible_API_CALL

1423:
1424: -- Standard call to check for call compatibility.
1425: -- ==============================================
1426:
1427: IF NOT FND_API.Compatible_API_CALL
1428: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1429: THEN
1430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1431: END IF;

Line 1430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1426:
1427: IF NOT FND_API.Compatible_API_CALL
1428: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1429: THEN
1430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1431: END IF;
1432:
1433: -- Initialize message list if p_int_msg_list is set TRUE.
1434: -- ======================================================

Line 1435: IF FND_API.to_boolean(p_init_msg_list)

1431: END IF;
1432:
1433: -- Initialize message list if p_int_msg_list is set TRUE.
1434: -- ======================================================
1435: IF FND_API.to_boolean(p_init_msg_list)
1436: THEN
1437: FND_MSG_PUB.Initialize;
1438: END IF;
1439:

Line 1442: x_return_status := FND_API.G_RET_STS_SUCCESS;

1438: END IF;
1439:
1440: -- Initialize API return Parameters
1441: -- ================================
1442: x_return_status := FND_API.G_RET_STS_SUCCESS;
1443:
1444: -- Initialize Local Variables
1445: -- ==========================
1446: l_spec.spec_id := 0;

Line 1457: RAISE FND_API.G_EXC_ERROR;

1453: IF NVL(l_spec.last_updated_by, -1) < 0
1454: THEN
1455: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
1456: 'l_user_name', p_user_name);
1457: RAISE FND_API.G_EXC_ERROR;
1458: END IF;
1459:
1460: -- Process each of the WIP spec validity rules
1461: -- ===========================================

Line 1470: RAISE FND_API.G_EXC_ERROR;

1466: IF ( l_customer_spec_vrs.spec_id IS NULL )
1467: THEN
1468: -- raise validation error
1469: GMD_API_PUB.Log_Message('GMD_SPEC_ID_REQUIRED');
1470: RAISE FND_API.G_EXC_ERROR;
1471: END IF;
1472:
1473: -- Retrieve and validate the owning SPEC if it is not already retrieved/validated
1474: -- ==============================================================================

Line 1483: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1479: GMD_SPEC_GRP.Validate_Before_Delete( p_spec_id => l_customer_spec_vrs.spec_id
1480: , x_return_status => l_return_status
1481: , x_message_data => l_msg_data
1482: );
1483: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1484: RAISE FND_API.G_EXC_ERROR;
1485: END IF;
1486:
1487: -- Lock the SPEC ahead of manipulating CUSTOMER_SPEC_VRS

Line 1484: RAISE FND_API.G_EXC_ERROR;

1480: , x_return_status => l_return_status
1481: , x_message_data => l_msg_data
1482: );
1483: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1484: RAISE FND_API.G_EXC_ERROR;
1485: END IF;
1486:
1487: -- Lock the SPEC ahead of manipulating CUSTOMER_SPEC_VRS
1488: -- ======================================================

Line 1497: RAISE FND_API.G_EXC_ERROR;

1493: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1494: 'l_table_name', 'GMD_SPECIFICATIONS',
1495: 'l_column_name', 'SPEC_ID',
1496: 'l_key_value', l_customer_spec_vrs.spec_id);
1497: RAISE FND_API.G_EXC_ERROR;
1498: END IF;
1499: END IF; -- end of spec validation
1500:
1501: -- Validate to ensure validity_rule exists and is not already delete marked

Line 1509: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1505: , p_spec_vr_id => l_customer_spec_vrs.spec_vr_id
1506: , x_return_status => l_return_status
1507: , x_message_data => l_msg_data
1508: );
1509: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1510: RAISE FND_API.G_EXC_ERROR;
1511: END IF;
1512:
1513:

Line 1510: RAISE FND_API.G_EXC_ERROR;

1506: , x_return_status => l_return_status
1507: , x_message_data => l_msg_data
1508: );
1509: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1510: RAISE FND_API.G_EXC_ERROR;
1511: END IF;
1512:
1513:
1514: -- Lock the validity rule ahead of deleting

Line 1524: RAISE FND_API.G_EXC_ERROR;

1520: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1521: 'l_table_name', 'GMD_CUSTOMER_SPEC_VRS',
1522: 'l_column_name', 'SPEC_VR_ID',
1523: 'l_key_value', l_customer_spec_vrs.spec_vr_id);
1524: RAISE FND_API.G_EXC_ERROR;
1525: END IF;
1526:
1527: IF NOT GMD_CUSTOMER_SPEC_VRS_PVT.Delete_Row
1528: ( p_spec_vr_id => l_customer_spec_vrs.spec_vr_id

Line 1537: RAISE FND_API.G_EXC_ERROR;

1533: GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
1534: 'l_table_name', 'GMD_CUSTOMER_SPEC_VRS',
1535: 'l_column_name', 'SPEC_VR_ID',
1536: 'l_key_value', l_customer_spec_vrs.spec_vr_id);
1537: RAISE FND_API.G_EXC_ERROR;
1538: ELSE
1539: x_deleted_rows := i;
1540: END IF;
1541:

Line 1545: IF FND_API.to_boolean(p_commit)

1541:
1542: END LOOP;
1543:
1544: -- Standard Check of p_commit.
1545: IF FND_API.to_boolean(p_commit)
1546: THEN
1547: COMMIT WORK;
1548: END IF;
1549:

Line 1553: WHEN FND_API.G_EXC_ERROR THEN

1549:
1550: x_return_status := l_return_status;
1551:
1552: EXCEPTION
1553: WHEN FND_API.G_EXC_ERROR THEN
1554: ROLLBACK TO Delete_Customer_Spec_VRS;
1555: x_deleted_rows := 0;
1556: x_return_status := FND_API.G_RET_STS_ERROR;
1557: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

Line 1556: x_return_status := FND_API.G_RET_STS_ERROR;

1552: EXCEPTION
1553: WHEN FND_API.G_EXC_ERROR THEN
1554: ROLLBACK TO Delete_Customer_Spec_VRS;
1555: x_deleted_rows := 0;
1556: x_return_status := FND_API.G_RET_STS_ERROR;
1557: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1558: , p_count => x_msg_count
1559: , p_data => x_msg_data
1560: );

Line 1557: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

1553: WHEN FND_API.G_EXC_ERROR THEN
1554: ROLLBACK TO Delete_Customer_Spec_VRS;
1555: x_deleted_rows := 0;
1556: x_return_status := FND_API.G_RET_STS_ERROR;
1557: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1558: , p_count => x_msg_count
1559: , p_data => x_msg_data
1560: );
1561:

Line 1562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1558: , p_count => x_msg_count
1559: , p_data => x_msg_data
1560: );
1561:
1562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1563: ROLLBACK TO Delete_Customer_Spec_VRS;
1564: x_deleted_rows := 0;
1565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1566: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

Line 1565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1561:
1562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1563: ROLLBACK TO Delete_Customer_Spec_VRS;
1564: x_deleted_rows := 0;
1565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1566: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1567: , p_count => x_msg_count
1568: , p_data => x_msg_data
1569: );

Line 1566: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

1562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1563: ROLLBACK TO Delete_Customer_Spec_VRS;
1564: x_deleted_rows := 0;
1565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1566: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1567: , p_count => x_msg_count
1568: , p_data => x_msg_data
1569: );
1570:

Line 1574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1570:
1571:
1572:
1573: WHEN OTHERS THEN
1574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1575: ROLLBACK TO Delete_Customer_Spec_VRS;
1576: x_deleted_rows := 0;
1577: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1578: , l_api_name

Line 1581: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

1577: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1578: , l_api_name
1579: );
1580:
1581: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1582: , p_count => x_msg_count
1583: , p_data => x_msg_data
1584: );
1585:

Line 1626: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;

1622: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_SUPPLIER_SPEC_VRS';
1623: l_api_version CONSTANT NUMBER := 1.0;
1624: l_msg_count NUMBER :=0;
1625: l_msg_data VARCHAR2(2000);
1626: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1627: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1628: l_supplier_spec_vrs GMD_SUPPLIER_SPEC_VRS%ROWTYPE;
1629: l_deleted_rows NUMBER :=0;
1630:

Line 1641: IF NOT FND_API.Compatible_API_CALL

1637:
1638: -- Standard call to check for call compatibility.
1639: -- ==============================================
1640:
1641: IF NOT FND_API.Compatible_API_CALL
1642: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1643: THEN
1644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1645: END IF;

Line 1644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1640:
1641: IF NOT FND_API.Compatible_API_CALL
1642: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1643: THEN
1644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1645: END IF;
1646:
1647: -- Initialize message list if p_int_msg_list is set TRUE.
1648: -- ======================================================

Line 1649: IF FND_API.to_boolean(p_init_msg_list)

1645: END IF;
1646:
1647: -- Initialize message list if p_int_msg_list is set TRUE.
1648: -- ======================================================
1649: IF FND_API.to_boolean(p_init_msg_list)
1650: THEN
1651: FND_MSG_PUB.Initialize;
1652: END IF;
1653:

Line 1656: x_return_status := FND_API.G_RET_STS_SUCCESS;

1652: END IF;
1653:
1654: -- Initialize API return Parameters
1655: -- ================================
1656: x_return_status := FND_API.G_RET_STS_SUCCESS;
1657:
1658: -- Initialize Local Variables
1659: -- ==========================
1660: l_spec.spec_id := 0;

Line 1671: RAISE FND_API.G_EXC_ERROR;

1667: IF NVL(l_spec.last_updated_by, -1) < 0
1668: THEN
1669: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
1670: 'l_user_name', p_user_name);
1671: RAISE FND_API.G_EXC_ERROR;
1672: END IF;
1673:
1674: -- Process each of the WIP spec validity rules
1675: -- ===========================================

Line 1684: RAISE FND_API.G_EXC_ERROR;

1680: IF ( l_supplier_spec_vrs.spec_id IS NULL )
1681: THEN
1682: -- raise validation error
1683: GMD_API_PUB.Log_Message('GMD_SPEC_ID_REQUIRED');
1684: RAISE FND_API.G_EXC_ERROR;
1685: END IF;
1686:
1687: -- Retrieve and validate the owning SPEC if it is not already retrieved/validated
1688: -- ==============================================================================

Line 1697: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1693: GMD_SPEC_GRP.Validate_Before_Delete( p_spec_id => l_supplier_spec_vrs.spec_id
1694: , x_return_status => l_return_status
1695: , x_message_data => l_msg_data
1696: );
1697: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1698: RAISE FND_API.G_EXC_ERROR;
1699: END IF;
1700:
1701: -- Lock the SPEC ahead of manipulating SUPPLIER_SPEC_VRS

Line 1698: RAISE FND_API.G_EXC_ERROR;

1694: , x_return_status => l_return_status
1695: , x_message_data => l_msg_data
1696: );
1697: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1698: RAISE FND_API.G_EXC_ERROR;
1699: END IF;
1700:
1701: -- Lock the SPEC ahead of manipulating SUPPLIER_SPEC_VRS
1702: -- ======================================================

Line 1711: RAISE FND_API.G_EXC_ERROR;

1707: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1708: 'l_table_name', 'GMD_SPECIFICATIONS',
1709: 'l_column_name', 'SPEC_ID',
1710: 'l_key_value', l_supplier_spec_vrs.spec_id);
1711: RAISE FND_API.G_EXC_ERROR;
1712: END IF;
1713: END IF; -- end of spec validation
1714:
1715: -- Validate to ensure validity_rule exists and is not already delete marked

Line 1723: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1719: , p_spec_vr_id => l_supplier_spec_vrs.spec_vr_id
1720: , x_return_status => l_return_status
1721: , x_message_data => l_msg_data
1722: );
1723: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1724: RAISE FND_API.G_EXC_ERROR;
1725: END IF;
1726:
1727:

Line 1724: RAISE FND_API.G_EXC_ERROR;

1720: , x_return_status => l_return_status
1721: , x_message_data => l_msg_data
1722: );
1723: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1724: RAISE FND_API.G_EXC_ERROR;
1725: END IF;
1726:
1727:
1728: -- Lock the validity rule ahead of deleting

Line 1738: RAISE FND_API.G_EXC_ERROR;

1734: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1735: 'l_table_name', 'GMD_SUPPLIER_SPEC_VRS',
1736: 'l_column_name', 'SPEC_VR_ID',
1737: 'l_key_value', l_supplier_spec_vrs.spec_vr_id);
1738: RAISE FND_API.G_EXC_ERROR;
1739: END IF;
1740:
1741: IF NOT GMD_SUPPLIER_SPEC_VRS_PVT.Delete_Row
1742: ( p_spec_vr_id => l_supplier_spec_vrs.spec_vr_id

Line 1751: RAISE FND_API.G_EXC_ERROR;

1747: GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
1748: 'l_table_name', 'GMD_SUPPLIER_SPEC_VRS',
1749: 'l_column_name', 'SPEC_VR_ID',
1750: 'l_key_value', l_supplier_spec_vrs.spec_vr_id);
1751: RAISE FND_API.G_EXC_ERROR;
1752: ELSE
1753: x_deleted_rows := i;
1754: END IF;
1755:

Line 1759: IF FND_API.to_boolean(p_commit)

1755:
1756: END LOOP;
1757:
1758: -- Standard Check of p_commit.
1759: IF FND_API.to_boolean(p_commit)
1760: THEN
1761: COMMIT WORK;
1762: END IF;
1763:

Line 1767: WHEN FND_API.G_EXC_ERROR THEN

1763:
1764: x_return_status := l_return_status;
1765:
1766: EXCEPTION
1767: WHEN FND_API.G_EXC_ERROR THEN
1768: ROLLBACK TO Delete_Supplier_Spec_VRS;
1769: x_deleted_rows := 0;
1770: x_return_status := FND_API.G_RET_STS_ERROR;
1771: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

Line 1770: x_return_status := FND_API.G_RET_STS_ERROR;

1766: EXCEPTION
1767: WHEN FND_API.G_EXC_ERROR THEN
1768: ROLLBACK TO Delete_Supplier_Spec_VRS;
1769: x_deleted_rows := 0;
1770: x_return_status := FND_API.G_RET_STS_ERROR;
1771: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1772: , p_count => x_msg_count
1773: , p_data => x_msg_data
1774: );

Line 1771: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

1767: WHEN FND_API.G_EXC_ERROR THEN
1768: ROLLBACK TO Delete_Supplier_Spec_VRS;
1769: x_deleted_rows := 0;
1770: x_return_status := FND_API.G_RET_STS_ERROR;
1771: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1772: , p_count => x_msg_count
1773: , p_data => x_msg_data
1774: );
1775:

Line 1776: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1772: , p_count => x_msg_count
1773: , p_data => x_msg_data
1774: );
1775:
1776: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1777: ROLLBACK TO Delete_Supplier_Spec_VRS;
1778: x_deleted_rows := 0;
1779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1780: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

Line 1779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1775:
1776: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1777: ROLLBACK TO Delete_Supplier_Spec_VRS;
1778: x_deleted_rows := 0;
1779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1780: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1781: , p_count => x_msg_count
1782: , p_data => x_msg_data
1783: );

Line 1780: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

1776: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1777: ROLLBACK TO Delete_Supplier_Spec_VRS;
1778: x_deleted_rows := 0;
1779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1780: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1781: , p_count => x_msg_count
1782: , p_data => x_msg_data
1783: );
1784:

Line 1788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1784:
1785:
1786:
1787: WHEN OTHERS THEN
1788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1789: ROLLBACK TO Delete_Supplier_Spec_VRS;
1790: x_deleted_rows := 0;
1791: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1792: , l_api_name

Line 1795: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

1791: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1792: , l_api_name
1793: );
1794:
1795: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1796: , p_count => x_msg_count
1797: , p_data => x_msg_data
1798: );
1799:

Line 1842: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;

1838: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_MONITORING_SPEC_VRS';
1839: l_api_version CONSTANT NUMBER := 1.0;
1840: l_msg_count NUMBER :=0;
1841: l_msg_data VARCHAR2(2000);
1842: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1843: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1844: l_monitoring_spec_vrs GMD_MONITORING_SPEC_VRS%ROWTYPE;
1845: l_deleted_rows NUMBER :=0;
1846:

Line 1857: IF NOT FND_API.Compatible_API_CALL

1853:
1854: -- Standard call to check for call compatibility.
1855: -- ==============================================
1856:
1857: IF NOT FND_API.Compatible_API_CALL
1858: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1859: THEN
1860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1861: END IF;

Line 1860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1856:
1857: IF NOT FND_API.Compatible_API_CALL
1858: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1859: THEN
1860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1861: END IF;
1862:
1863: -- Initialize message list if p_int_msg_list is set TRUE.
1864: -- ======================================================

Line 1865: IF FND_API.to_boolean(p_init_msg_list)

1861: END IF;
1862:
1863: -- Initialize message list if p_int_msg_list is set TRUE.
1864: -- ======================================================
1865: IF FND_API.to_boolean(p_init_msg_list)
1866: THEN
1867: FND_MSG_PUB.Initialize;
1868: END IF;
1869:

Line 1872: x_return_status := FND_API.G_RET_STS_SUCCESS;

1868: END IF;
1869:
1870: -- Initialize API return Parameters
1871: -- ================================
1872: x_return_status := FND_API.G_RET_STS_SUCCESS;
1873:
1874: -- Initialize Local Variables
1875: -- ==========================
1876: l_spec.spec_id := 0;

Line 1887: RAISE FND_API.G_EXC_ERROR;

1883: IF NVL(l_spec.last_updated_by, -1) < 0
1884: THEN
1885: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
1886: 'l_user_name', p_user_name);
1887: RAISE FND_API.G_EXC_ERROR;
1888: END IF;
1889:
1890: -- Process each of the WIP spec validity rules
1891: -- ===========================================

Line 1900: RAISE FND_API.G_EXC_ERROR;

1896: IF ( l_monitoring_spec_vrs.spec_id IS NULL )
1897: THEN
1898: -- raise validation error
1899: GMD_API_PUB.Log_Message('GMD_SPEC_ID_REQUIRED');
1900: RAISE FND_API.G_EXC_ERROR;
1901: END IF;
1902:
1903: -- Retrieve and validate the owning SPEC if it is not already retrieved/validated
1904: -- ==============================================================================

Line 1913: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1909: GMD_SPEC_GRP.Validate_Before_Delete( p_spec_id => l_monitoring_spec_vrs.spec_id
1910: , x_return_status => l_return_status
1911: , x_message_data => l_msg_data
1912: );
1913: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1914: RAISE FND_API.G_EXC_ERROR;
1915: END IF;
1916:
1917: -- Lock the SPEC ahead of manipulating MONITORING_SPEC_VRS

Line 1914: RAISE FND_API.G_EXC_ERROR;

1910: , x_return_status => l_return_status
1911: , x_message_data => l_msg_data
1912: );
1913: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1914: RAISE FND_API.G_EXC_ERROR;
1915: END IF;
1916:
1917: -- Lock the SPEC ahead of manipulating MONITORING_SPEC_VRS
1918: -- ======================================================

Line 1927: RAISE FND_API.G_EXC_ERROR;

1923: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1924: 'l_table_name', 'GMD_SPECIFICATIONS',
1925: 'l_column_name', 'SPEC_ID',
1926: 'l_key_value', l_monitoring_spec_vrs.spec_id);
1927: RAISE FND_API.G_EXC_ERROR;
1928: END IF;
1929: END IF; -- end of spec validation
1930:
1931: -- Validate to ensure validity_rule exists and is not already delete marked

Line 1940: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1936: , p_spec_vr_id => l_monitoring_spec_vrs.spec_vr_id
1937: , x_return_status => l_return_status
1938: , x_message_data => l_msg_data
1939: );
1940: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1941: RAISE FND_API.G_EXC_ERROR;
1942: END IF;*/
1943:
1944:

Line 1941: RAISE FND_API.G_EXC_ERROR;

1937: , x_return_status => l_return_status
1938: , x_message_data => l_msg_data
1939: );
1940: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1941: RAISE FND_API.G_EXC_ERROR;
1942: END IF;*/
1943:
1944:
1945: -- Lock the validity rule ahead of deleting

Line 1955: RAISE FND_API.G_EXC_ERROR;

1951: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1952: 'l_table_name', 'GMD_monitoring_SPEC_VRS',
1953: 'l_column_name', 'SPEC_VR_ID',
1954: 'l_key_value', l_monitoring_spec_vrs.spec_vr_id);
1955: RAISE FND_API.G_EXC_ERROR;
1956: END IF;
1957:
1958: IF NOT GMD_MONITORING_SPEC_VRS_PVT.Delete_Row
1959: ( p_spec_vr_id => l_monitoring_spec_vrs.spec_vr_id

Line 1968: RAISE FND_API.G_EXC_ERROR;

1964: GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
1965: 'l_table_name', 'GMD_MONITORING_SPEC_VRS',
1966: 'l_column_name', 'SPEC_VR_ID',
1967: 'l_key_value', l_monitoring_spec_vrs.spec_vr_id);
1968: RAISE FND_API.G_EXC_ERROR;
1969: ELSE
1970: x_deleted_rows := i;
1971: END IF;
1972:

Line 1976: IF FND_API.to_boolean(p_commit)

1972:
1973: END LOOP;
1974:
1975: -- Standard Check of p_commit.
1976: IF FND_API.to_boolean(p_commit)
1977: THEN
1978: COMMIT WORK;
1979: END IF;
1980:

Line 1984: WHEN FND_API.G_EXC_ERROR THEN

1980:
1981: x_return_status := l_return_status;
1982:
1983: EXCEPTION
1984: WHEN FND_API.G_EXC_ERROR THEN
1985: ROLLBACK TO Delete_monitoring_Spec_VRS;
1986: x_deleted_rows := 0;
1987: x_return_status := FND_API.G_RET_STS_ERROR;
1988: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

Line 1987: x_return_status := FND_API.G_RET_STS_ERROR;

1983: EXCEPTION
1984: WHEN FND_API.G_EXC_ERROR THEN
1985: ROLLBACK TO Delete_monitoring_Spec_VRS;
1986: x_deleted_rows := 0;
1987: x_return_status := FND_API.G_RET_STS_ERROR;
1988: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1989: , p_count => x_msg_count
1990: , p_data => x_msg_data
1991: );

Line 1988: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

1984: WHEN FND_API.G_EXC_ERROR THEN
1985: ROLLBACK TO Delete_monitoring_Spec_VRS;
1986: x_deleted_rows := 0;
1987: x_return_status := FND_API.G_RET_STS_ERROR;
1988: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1989: , p_count => x_msg_count
1990: , p_data => x_msg_data
1991: );
1992:

Line 1993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1989: , p_count => x_msg_count
1990: , p_data => x_msg_data
1991: );
1992:
1993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1994: ROLLBACK TO Delete_monitoring_Spec_VRS;
1995: x_deleted_rows := 0;
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1997: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

Line 1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1992:
1993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1994: ROLLBACK TO Delete_monitoring_Spec_VRS;
1995: x_deleted_rows := 0;
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1997: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1998: , p_count => x_msg_count
1999: , p_data => x_msg_data
2000: );

Line 1997: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

1993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1994: ROLLBACK TO Delete_monitoring_Spec_VRS;
1995: x_deleted_rows := 0;
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1997: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1998: , p_count => x_msg_count
1999: , p_data => x_msg_data
2000: );
2001:

Line 2005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2001:
2002:
2003:
2004: WHEN OTHERS THEN
2005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2006: ROLLBACK TO Delete_monitoring_Spec_VRS;
2007: x_deleted_rows := 0;
2008: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
2009: , l_api_name

Line 2012: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

2008: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
2009: , l_api_name
2010: );
2011:
2012: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
2013: , p_count => x_msg_count
2014: , p_data => x_msg_data
2015: );
2016: