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 82: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;

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

Line 98: IF NOT FND_API.Compatible_API_CALL

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

Line 101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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

Line 106: IF FND_API.to_boolean(p_init_msg_list)

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

Line 113: l_return_status := FND_API.G_RET_STS_SUCCESS;

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

Line 124: RAISE FND_API.G_EXC_ERROR;

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

Line 160: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

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

Line 162: RAISE FND_API.G_EXC_ERROR;

158: );
159:
160: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
161: -- Diagnostic message is already on the stack
162: RAISE FND_API.G_EXC_ERROR;
163: END IF;
164:
165: l_inventory_spec_vrs := l_inventory_spec_vrs_out;
166:

Line 170: RAISE FND_API.G_EXC_ERROR;

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

Line 181: IF FND_API.to_boolean(p_commit)

177: END LOOP;
178:
179: -- Standard Check of p_commit.
180: -- ==========================
181: IF FND_API.to_boolean(p_commit)
182: THEN
183: COMMIT WORK;
184: END IF;
185:

Line 190: WHEN FND_API.G_EXC_ERROR THEN

186: x_return_status := l_return_status;
187: x_inventory_spec_vrs_tbl := l_inventory_spec_vrs_tbl;
188:
189: EXCEPTION
190: WHEN FND_API.G_EXC_ERROR THEN
191: ROLLBACK TO Create_Inventory_Spec_VRS;
192: x_return_status := FND_API.G_RET_STS_ERROR;
193: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
194: , p_count => x_msg_count

Line 192: x_return_status := FND_API.G_RET_STS_ERROR;

188:
189: EXCEPTION
190: WHEN FND_API.G_EXC_ERROR THEN
191: ROLLBACK TO Create_Inventory_Spec_VRS;
192: x_return_status := FND_API.G_RET_STS_ERROR;
193: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
194: , p_count => x_msg_count
195: , p_data => x_msg_data
196: );

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

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

Line 198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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

Line 200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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

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

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

Line 209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

205:
206:
207:
208: WHEN OTHERS THEN
209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
210: ROLLBACK TO Create_Inventory_Spec_VRS;
211: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
212: , l_api_name
213: );

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

211: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
212: , l_api_name
213: );
214:
215: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
216: , p_count => x_msg_count
217: , p_data => x_msg_data
218: );
219:

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

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

Line 277: IF NOT FND_API.Compatible_API_CALL

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

Line 280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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

Line 285: IF FND_API.to_boolean(p_init_msg_list)

281: END IF;
282:
283: -- Initialize message list if p_int_msg_list is set TRUE.
284: -- ======================================================
285: IF FND_API.to_boolean(p_init_msg_list)
286: THEN
287: FND_MSG_PUB.Initialize;
288: END IF;
289:

Line 292: l_return_status := FND_API.G_RET_STS_SUCCESS;

288: END IF;
289:
290: -- Initialize API return Parameters
291: -- ================================
292: l_return_status := FND_API.G_RET_STS_SUCCESS;
293:
294: -- Validate User Name Parameter
295: -- ============================
296: GMD_SPEC_GRP.GET_WHO ( p_user_name => p_user_name

Line 303: RAISE FND_API.G_EXC_ERROR;

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

Line 339: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

335: x_wip_vr => l_wip_spec_vrs_out,
336: x_return_status => l_return_status
337: );
338:
339: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
340: -- Diagnostic message is already on the stack
341: RAISE FND_API.G_EXC_ERROR;
342: END IF;
343:

Line 341: RAISE FND_API.G_EXC_ERROR;

337: );
338:
339: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
340: -- Diagnostic message is already on the stack
341: RAISE FND_API.G_EXC_ERROR;
342: END IF;
343:
344: l_wip_spec_vrs := l_wip_spec_vrs_out;
345:

Line 349: RAISE FND_API.G_EXC_ERROR;

345:
346: IF NOT GMD_WIP_SPEC_VRS_PVT.Insert_Row(l_wip_spec_vrs, l_wip_spec_vrs_out)
347: THEN
348: -- Diagnostic message is already on the stack
349: RAISE FND_API.G_EXC_ERROR;
350: END IF;
351:
352: -- Update Return Parameter Tbl
353: -- ===========================

Line 360: IF FND_API.to_boolean(p_commit)

356: END LOOP;
357:
358: -- Standard Check of p_commit.
359: -- ==========================
360: IF FND_API.to_boolean(p_commit)
361: THEN
362: COMMIT WORK;
363: END IF;
364:

Line 369: WHEN FND_API.G_EXC_ERROR THEN

365: x_return_status := l_return_status;
366: x_wip_spec_vrs_tbl := l_wip_spec_vrs_tbl;
367:
368: EXCEPTION
369: WHEN FND_API.G_EXC_ERROR THEN
370: ROLLBACK TO Create_WIP_Spec_VRS;
371: x_return_status := FND_API.G_RET_STS_ERROR;
372: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
373: , p_count => x_msg_count

Line 371: x_return_status := FND_API.G_RET_STS_ERROR;

367:
368: EXCEPTION
369: WHEN FND_API.G_EXC_ERROR THEN
370: ROLLBACK TO Create_WIP_Spec_VRS;
371: x_return_status := FND_API.G_RET_STS_ERROR;
372: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
373: , p_count => x_msg_count
374: , p_data => x_msg_data
375: );

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

368: EXCEPTION
369: WHEN FND_API.G_EXC_ERROR THEN
370: ROLLBACK TO Create_WIP_Spec_VRS;
371: x_return_status := FND_API.G_RET_STS_ERROR;
372: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
373: , p_count => x_msg_count
374: , p_data => x_msg_data
375: );
376:

Line 377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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

Line 379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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

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

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

Line 386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

382: , p_data => x_msg_data
383: );
384:
385: WHEN OTHERS THEN
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: ROLLBACK TO Create_WIP_Spec_VRS;
388: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
389: , l_api_name
390: );

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

388: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
389: , l_api_name
390: );
391:
392: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
393: , p_count => x_msg_count
394: , p_data => x_msg_data
395: );
396:

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

433: l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_CUSTOMER_SPEC_VRS';
434: l_api_version CONSTANT NUMBER := 1.0;
435: l_msg_count NUMBER :=0;
436: l_msg_data VARCHAR2(2000);
437: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
438: l_customer_spec_vrs GMD_CUSTOMER_SPEC_VRS%ROWTYPE;
439: l_customer_spec_vrs_out GMD_CUSTOMER_SPEC_VRS%ROWTYPE;
440: l_customer_spec_vrs_tbl GMD_SPEC_VRS_PUB.customer_spec_vrs_tbl;
441: l_user_id NUMBER(15);

Line 452: IF NOT FND_API.Compatible_API_CALL

448: SAVEPOINT Create_Customer_Spec_VRS;
449:
450: -- Standard call to check for call compatibility
451: -- =============================================
452: IF NOT FND_API.Compatible_API_CALL
453: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
454: THEN
455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
456: END IF;

Line 455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

451: -- =============================================
452: IF NOT FND_API.Compatible_API_CALL
453: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
454: THEN
455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
456: END IF;
457:
458: -- Initialize message list if p_int_msg_list is set TRUE.
459: -- ======================================================

Line 460: IF FND_API.to_boolean(p_init_msg_list)

456: END IF;
457:
458: -- Initialize message list if p_int_msg_list is set TRUE.
459: -- ======================================================
460: IF FND_API.to_boolean(p_init_msg_list)
461: THEN
462: FND_MSG_PUB.Initialize;
463: END IF;
464:

Line 467: l_return_status := FND_API.G_RET_STS_SUCCESS;

463: END IF;
464:
465: -- Initialize API return Parameters
466: -- ================================
467: l_return_status := FND_API.G_RET_STS_SUCCESS;
468:
469: -- Validate User Name Parameter
470: -- ============================
471: GMD_SPEC_GRP.GET_WHO ( p_user_name => p_user_name

Line 478: RAISE FND_API.G_EXC_ERROR;

474: IF NVL(l_user_id, -1) < 0
475: THEN
476: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
477: 'l_user_name', p_user_name);
478: RAISE FND_API.G_EXC_ERROR;
479: END IF;
480:
481: -- Loop through the Customer spec validity rules validating and creating
482: -- =====================================================================

Line 512: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

508: p_operation => 'INSERT',
509: x_return_status => l_return_status
510: );
511:
512: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
513: -- Diagnostic message is already on the stack
514: RAISE FND_API.G_EXC_ERROR;
515: END IF;
516:

Line 514: RAISE FND_API.G_EXC_ERROR;

510: );
511:
512: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
513: -- Diagnostic message is already on the stack
514: RAISE FND_API.G_EXC_ERROR;
515: END IF;
516:
517: IF NOT GMD_CUSTOMER_SPEC_VRS_PVT.Insert_Row(l_customer_spec_vrs, l_customer_spec_vrs_out)
518: THEN

Line 520: RAISE FND_API.G_EXC_ERROR;

516:
517: IF NOT GMD_CUSTOMER_SPEC_VRS_PVT.Insert_Row(l_customer_spec_vrs, l_customer_spec_vrs_out)
518: THEN
519: -- Diagnostic message is already on the stack
520: RAISE FND_API.G_EXC_ERROR;
521: END IF;
522:
523: -- Update Return Parameter Tbl
524: -- ===========================

Line 531: IF FND_API.to_boolean(p_commit)

527: END LOOP;
528:
529: -- Standard Check of p_commit.
530: -- ==========================
531: IF FND_API.to_boolean(p_commit)
532: THEN
533: COMMIT WORK;
534: END IF;
535:

Line 540: WHEN FND_API.G_EXC_ERROR THEN

536: x_return_status := l_return_status;
537: x_customer_spec_vrs_tbl := l_customer_spec_vrs_tbl;
538:
539: EXCEPTION
540: WHEN FND_API.G_EXC_ERROR THEN
541: ROLLBACK TO Create_Customer_Spec_VRS;
542: x_return_status := FND_API.G_RET_STS_ERROR;
543: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
544: , p_count => x_msg_count

Line 542: x_return_status := FND_API.G_RET_STS_ERROR;

538:
539: EXCEPTION
540: WHEN FND_API.G_EXC_ERROR THEN
541: ROLLBACK TO Create_Customer_Spec_VRS;
542: x_return_status := FND_API.G_RET_STS_ERROR;
543: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
544: , p_count => x_msg_count
545: , p_data => x_msg_data
546: );

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

539: EXCEPTION
540: WHEN FND_API.G_EXC_ERROR THEN
541: ROLLBACK TO Create_Customer_Spec_VRS;
542: x_return_status := FND_API.G_RET_STS_ERROR;
543: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
544: , p_count => x_msg_count
545: , p_data => x_msg_data
546: );
547:

Line 548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

544: , p_count => x_msg_count
545: , p_data => x_msg_data
546: );
547:
548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
549: ROLLBACK TO Create_Customer_Spec_VRS;
550: x_return_status := FND_API.G_RET_STS_UNEXP_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_UNEXP_ERROR;

546: );
547:
548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
549: ROLLBACK TO Create_Customer_Spec_VRS;
550: x_return_status := FND_API.G_RET_STS_UNEXP_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:
548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
549: ROLLBACK TO Create_Customer_Spec_VRS;
550: x_return_status := FND_API.G_RET_STS_UNEXP_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 557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

553: , p_data => x_msg_data
554: );
555:
556: WHEN OTHERS THEN
557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
558: ROLLBACK TO Create_Customer_Spec_VRS;
559: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
560: , l_api_name
561: );

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

559: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
560: , l_api_name
561: );
562:
563: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
564: , p_count => x_msg_count
565: , p_data => x_msg_data
566: );
567:

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

604: l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_SUPPLIER_SPEC_VRS';
605: l_api_version CONSTANT NUMBER := 1.0;
606: l_msg_count NUMBER :=0;
607: l_msg_data VARCHAR2(2000);
608: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
609: l_supplier_spec_vrs GMD_SUPPLIER_SPEC_VRS%ROWTYPE;
610: l_supplier_spec_vrs_out GMD_SUPPLIER_SPEC_VRS%ROWTYPE;
611: l_supplier_spec_vrs_tbl GMD_SPEC_VRS_PUB.supplier_spec_vrs_tbl;
612: l_user_id NUMBER(15);

Line 622: IF NOT FND_API.Compatible_API_CALL

618: SAVEPOINT Create_Supplier_Spec_VRS;
619:
620: -- Standard call to check for call compatibility
621: -- =============================================
622: IF NOT FND_API.Compatible_API_CALL
623: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
624: THEN
625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
626: END IF;

Line 625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

621: -- =============================================
622: IF NOT FND_API.Compatible_API_CALL
623: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
624: THEN
625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
626: END IF;
627:
628: -- Initialize message list if p_int_msg_list is set TRUE.
629: -- ======================================================

Line 630: IF FND_API.to_boolean(p_init_msg_list)

626: END IF;
627:
628: -- Initialize message list if p_int_msg_list is set TRUE.
629: -- ======================================================
630: IF FND_API.to_boolean(p_init_msg_list)
631: THEN
632: FND_MSG_PUB.Initialize;
633: END IF;
634:

Line 637: l_return_status := FND_API.G_RET_STS_SUCCESS;

633: END IF;
634:
635: -- Initialize API return Parameters
636: -- ================================
637: l_return_status := FND_API.G_RET_STS_SUCCESS;
638:
639: -- Validate User Name Parameter
640: -- ============================
641: GMD_SPEC_GRP.GET_WHO ( p_user_name => p_user_name

Line 648: RAISE FND_API.G_EXC_ERROR;

644: IF NVL(l_user_id, -1) < 0
645: THEN
646: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
647: 'l_user_name', p_user_name);
648: RAISE FND_API.G_EXC_ERROR;
649: END IF;
650:
651: -- Loop through the Supplier spec validity rules validating and creating
652: -- =====================================================================

Line 682: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

678: p_operation => 'INSERT',
679: x_return_status => l_return_status
680: );
681:
682: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
683: -- Diagnostic message is already on the stack
684: RAISE FND_API.G_EXC_ERROR;
685: END IF;
686:

Line 684: RAISE FND_API.G_EXC_ERROR;

680: );
681:
682: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
683: -- Diagnostic message is already on the stack
684: RAISE FND_API.G_EXC_ERROR;
685: END IF;
686:
687: IF NOT GMD_SUPPLIER_SPEC_VRS_PVT.Insert_Row(l_supplier_spec_vrs, l_supplier_spec_vrs_out)
688: THEN

Line 690: RAISE FND_API.G_EXC_ERROR;

686:
687: IF NOT GMD_SUPPLIER_SPEC_VRS_PVT.Insert_Row(l_supplier_spec_vrs, l_supplier_spec_vrs_out)
688: THEN
689: -- Diagnostic message is already on the stack
690: RAISE FND_API.G_EXC_ERROR;
691: END IF;
692:
693: -- Update Return Parameter Tbl
694: -- ===========================

Line 701: IF FND_API.to_boolean(p_commit)

697: END LOOP;
698:
699: -- Standard Check of p_commit.
700: -- ==========================
701: IF FND_API.to_boolean(p_commit)
702: THEN
703: COMMIT WORK;
704: END IF;
705:

Line 710: WHEN FND_API.G_EXC_ERROR THEN

706: x_return_status := l_return_status;
707: x_supplier_spec_vrs_tbl := l_supplier_spec_vrs_tbl;
708:
709: EXCEPTION
710: WHEN FND_API.G_EXC_ERROR THEN
711: ROLLBACK TO Create_Supplier_Spec_VRS;
712: x_return_status := FND_API.G_RET_STS_ERROR;
713: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
714: , p_count => x_msg_count

Line 712: x_return_status := FND_API.G_RET_STS_ERROR;

708:
709: EXCEPTION
710: WHEN FND_API.G_EXC_ERROR THEN
711: ROLLBACK TO Create_Supplier_Spec_VRS;
712: x_return_status := FND_API.G_RET_STS_ERROR;
713: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
714: , p_count => x_msg_count
715: , p_data => x_msg_data
716: );

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

709: EXCEPTION
710: WHEN FND_API.G_EXC_ERROR THEN
711: ROLLBACK TO Create_Supplier_Spec_VRS;
712: x_return_status := FND_API.G_RET_STS_ERROR;
713: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
714: , p_count => x_msg_count
715: , p_data => x_msg_data
716: );
717:

Line 718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

714: , p_count => x_msg_count
715: , p_data => x_msg_data
716: );
717:
718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
719: ROLLBACK TO Create_Supplier_Spec_VRS;
720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
721: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
722: , p_count => x_msg_count

Line 720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

716: );
717:
718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
719: ROLLBACK TO Create_Supplier_Spec_VRS;
720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
721: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
722: , p_count => x_msg_count
723: , p_data => x_msg_data
724: );

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

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

Line 727: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

723: , p_data => x_msg_data
724: );
725:
726: WHEN OTHERS THEN
727: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
728: ROLLBACK TO Create_Supplier_Spec_VRS;
729: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
730: , l_api_name
731: );

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

729: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
730: , l_api_name
731: );
732:
733: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
734: , p_count => x_msg_count
735: , p_data => x_msg_data
736: );
737:

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

778: l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_MONITORING_SPEC_VRS';
779: l_api_version CONSTANT NUMBER := 1.0;
780: l_msg_count NUMBER :=0;
781: l_msg_data VARCHAR2(2000);
782: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
783: l_monitoring_spec_vrs GMD_MONITORING_SPEC_VRS%ROWTYPE;
784: l_monitoring_spec_vrs_out GMD_MONITORING_SPEC_VRS%ROWTYPE;
785: l_monitoring_spec_vrs_tbl GMD_SPEC_VRS_PUB.monitoring_spec_vrs_tbl;
786: l_user_id NUMBER(15);

Line 797: IF NOT FND_API.Compatible_API_CALL

793: SAVEPOINT Create_monitoring_Spec_VRS;
794:
795: -- Standard call to check for call compatibility
796: -- =============================================
797: IF NOT FND_API.Compatible_API_CALL
798: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
799: THEN
800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
801: END IF;

Line 800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

796: -- =============================================
797: IF NOT FND_API.Compatible_API_CALL
798: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
799: THEN
800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
801: END IF;
802:
803: -- Initialize message list if p_int_msg_list is set TRUE.
804: -- ======================================================

Line 805: IF FND_API.to_boolean(p_init_msg_list)

801: END IF;
802:
803: -- Initialize message list if p_int_msg_list is set TRUE.
804: -- ======================================================
805: IF FND_API.to_boolean(p_init_msg_list)
806: THEN
807: FND_MSG_PUB.Initialize;
808: END IF;
809:

Line 812: l_return_status := FND_API.G_RET_STS_SUCCESS;

808: END IF;
809:
810: -- Initialize API return Parameters
811: -- ================================
812: l_return_status := FND_API.G_RET_STS_SUCCESS;
813:
814: -- Validate User Name Parameter
815: -- ============================
816: GMD_SPEC_GRP.Get_Who ( p_user_name => p_user_name

Line 823: RAISE FND_API.G_EXC_ERROR;

819: IF NVL(l_user_id, -1) < 0
820: THEN
821: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
822: 'l_user_name', p_user_name);
823: RAISE FND_API.G_EXC_ERROR;
824: END IF;
825:
826: -- Loop through the Monitoring spec validity rules validating and creating
827: -- =====================================================================

Line 873: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

869: x_return_status => l_return_status
870: );
871:
872:
873: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
874: -- Diagnostic message is already on the stack
875: RAISE FND_API.G_EXC_ERROR;
876: END IF;
877:

Line 875: RAISE FND_API.G_EXC_ERROR;

871:
872:
873: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
874: -- Diagnostic message is already on the stack
875: RAISE FND_API.G_EXC_ERROR;
876: END IF;
877:
878: IF NOT GMD_MONITORING_SPEC_VRS_PVT.Insert_Row(l_monitoring_spec_vrs, l_monitoring_spec_vrs_out)
879: THEN

Line 881: RAISE FND_API.G_EXC_ERROR;

877:
878: IF NOT GMD_MONITORING_SPEC_VRS_PVT.Insert_Row(l_monitoring_spec_vrs, l_monitoring_spec_vrs_out)
879: THEN
880: -- Diagnostic message is already on the stack
881: RAISE FND_API.G_EXC_ERROR;
882: END IF;
883:
884: -- Update Return Parameter Tbl
885: -- ===========================

Line 892: IF FND_API.to_boolean(p_commit)

888: END LOOP;
889:
890: -- Standard Check of p_commit.
891: -- ==========================
892: IF FND_API.to_boolean(p_commit)
893: THEN
894: COMMIT WORK;
895: END IF;
896:

Line 901: WHEN FND_API.G_EXC_ERROR THEN

897: x_return_status := l_return_status;
898: x_monitoring_spec_vrs_tbl := l_monitoring_spec_vrs_tbl;
899:
900: EXCEPTION
901: WHEN FND_API.G_EXC_ERROR THEN
902: ROLLBACK TO Create_monitoring_Spec_VRS;
903: x_return_status := FND_API.G_RET_STS_ERROR;
904: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
905: , p_count => x_msg_count

Line 903: x_return_status := FND_API.G_RET_STS_ERROR;

899:
900: EXCEPTION
901: WHEN FND_API.G_EXC_ERROR THEN
902: ROLLBACK TO Create_monitoring_Spec_VRS;
903: x_return_status := FND_API.G_RET_STS_ERROR;
904: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
905: , p_count => x_msg_count
906: , p_data => x_msg_data
907: );

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

900: EXCEPTION
901: WHEN FND_API.G_EXC_ERROR THEN
902: ROLLBACK TO Create_monitoring_Spec_VRS;
903: x_return_status := FND_API.G_RET_STS_ERROR;
904: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
905: , p_count => x_msg_count
906: , p_data => x_msg_data
907: );
908:

Line 909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

905: , p_count => x_msg_count
906: , p_data => x_msg_data
907: );
908:
909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
910: ROLLBACK TO Create_monitoring_Spec_VRS;
911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
912: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
913: , p_count => x_msg_count

Line 911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

907: );
908:
909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
910: ROLLBACK TO Create_monitoring_Spec_VRS;
911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
912: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
913: , p_count => x_msg_count
914: , p_data => x_msg_data
915: );

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

908:
909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
910: ROLLBACK TO Create_monitoring_Spec_VRS;
911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
912: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
913: , p_count => x_msg_count
914: , p_data => x_msg_data
915: );
916:

Line 918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

914: , p_data => x_msg_data
915: );
916:
917: WHEN OTHERS THEN
918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
919: ROLLBACK TO Create_monitoring_Spec_VRS;
920: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
921: , l_api_name
922: );

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

920: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
921: , l_api_name
922: );
923:
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 969: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;

965: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_INVENTORY_SPEC_VRS';
966: l_api_version CONSTANT NUMBER := 1.0;
967: l_msg_count NUMBER :=0;
968: l_msg_data VARCHAR2(2000);
969: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
970: l_spec GMD_SPECIFICATIONS%ROWTYPE;
971: l_inventory_spec_vrs GMD_INVENTORY_SPEC_VRS%ROWTYPE;
972: l_deleted_rows NUMBER :=0;
973:

Line 984: IF NOT FND_API.Compatible_API_CALL

980:
981: -- Standard call to check for call compatibility.
982: -- ==============================================
983:
984: IF NOT FND_API.Compatible_API_CALL
985: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
986: THEN
987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
988: END IF;

Line 987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

983:
984: IF NOT FND_API.Compatible_API_CALL
985: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
986: THEN
987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
988: END IF;
989:
990: -- Initialize message list if p_int_msg_list is set TRUE.
991: -- ======================================================

Line 992: IF FND_API.to_boolean(p_init_msg_list)

988: END IF;
989:
990: -- Initialize message list if p_int_msg_list is set TRUE.
991: -- ======================================================
992: IF FND_API.to_boolean(p_init_msg_list)
993: THEN
994: FND_MSG_PUB.Initialize;
995: END IF;
996:

Line 999: x_return_status := FND_API.G_RET_STS_SUCCESS;

995: END IF;
996:
997: -- Initialize API return Parameters
998: -- ================================
999: x_return_status := FND_API.G_RET_STS_SUCCESS;
1000:
1001: -- Initialize Local Variables
1002: -- ==========================
1003: l_spec.spec_id := 0;

Line 1014: RAISE FND_API.G_EXC_ERROR;

1010: IF NVL(l_spec.last_updated_by, -1) < 0
1011: THEN
1012: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
1013: 'l_user_name', p_user_name);
1014: RAISE FND_API.G_EXC_ERROR;
1015: END IF;
1016:
1017: -- Process each of the inventory spec validity rules
1018: -- =================================================

Line 1027: RAISE FND_API.G_EXC_ERROR;

1023: IF ( l_inventory_spec_vrs.spec_id IS NULL )
1024: THEN
1025: -- raise validation error
1026: GMD_API_PUB.Log_Message('GMD_SPEC_ID_REQUIRED');
1027: RAISE FND_API.G_EXC_ERROR;
1028: END IF;
1029:
1030: -- Retrieve and validate the owning SPEC if it is not already retrieved/validated
1031: -- ==============================================================================

Line 1040: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1036: GMD_SPEC_GRP.Validate_Before_Delete( p_spec_id => l_inventory_spec_vrs.spec_id
1037: , x_return_status => l_return_status
1038: , x_message_data => l_msg_data
1039: );
1040: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1041: RAISE FND_API.G_EXC_ERROR;
1042: END IF;
1043:
1044: -- Lock the SPEC ahead of manipulating INVENTORY_SPEC_VRS

Line 1041: RAISE FND_API.G_EXC_ERROR;

1037: , x_return_status => l_return_status
1038: , x_message_data => l_msg_data
1039: );
1040: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1041: RAISE FND_API.G_EXC_ERROR;
1042: END IF;
1043:
1044: -- Lock the SPEC ahead of manipulating INVENTORY_SPEC_VRS
1045: -- ======================================================

Line 1054: RAISE FND_API.G_EXC_ERROR;

1050: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1051: 'l_table_name', 'GMD_SPECIFICATIONS',
1052: 'l_column_name', 'SPEC_ID',
1053: 'l_key_value', l_inventory_spec_vrs.spec_id);
1054: RAISE FND_API.G_EXC_ERROR;
1055: END IF;
1056: END IF; -- end of spec validation
1057:
1058: -- Validate to ensure validity_rule exists and is not already delete marked

Line 1066: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1062: , p_spec_vr_id => l_inventory_spec_vrs.spec_vr_id
1063: , x_return_status => l_return_status
1064: , x_message_data => l_msg_data
1065: );
1066: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1067: -- Diagnostic message already on the stack
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070:

Line 1068: RAISE FND_API.G_EXC_ERROR;

1064: , x_message_data => l_msg_data
1065: );
1066: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1067: -- Diagnostic message already on the stack
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070:
1071:
1072: -- Lock the validity rule ahead of deleting

Line 1082: RAISE FND_API.G_EXC_ERROR;

1078: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1079: 'l_table_name', 'GMD_INVENTORY_SPEC_VRS',
1080: 'l_column_name', 'SPEC_VR_ID',
1081: 'l_key_value', l_inventory_spec_vrs.spec_vr_id);
1082: RAISE FND_API.G_EXC_ERROR;
1083: END IF;
1084:
1085: IF NOT GMD_INVENTORY_SPEC_VRS_PVT.Delete_Row
1086: ( p_spec_vr_id => l_inventory_spec_vrs.spec_vr_id

Line 1096: RAISE FND_API.G_EXC_ERROR;

1092: 'l_table_name', 'GMD_INVENTORY_SPEC_VRS',
1093: 'l_column_name', 'SPEC_VR_ID',
1094: 'l_key_value', l_inventory_spec_vrs.spec_vr_id);
1095: fnd_msg_pub.ADD;
1096: RAISE FND_API.G_EXC_ERROR;
1097: ELSE
1098: x_deleted_rows := i;
1099: END IF;
1100:

Line 1104: IF FND_API.to_boolean(p_commit)

1100:
1101: END LOOP;
1102:
1103: -- Standard Check of p_commit.
1104: IF FND_API.to_boolean(p_commit)
1105: THEN
1106: COMMIT WORK;
1107: END IF;
1108:

Line 1112: WHEN FND_API.G_EXC_ERROR THEN

1108:
1109: x_return_status := l_return_status;
1110:
1111: EXCEPTION
1112: WHEN FND_API.G_EXC_ERROR THEN
1113: ROLLBACK TO Delete_Inventory_Spec_VRS;
1114: x_deleted_rows := 0;
1115: x_return_status := FND_API.G_RET_STS_ERROR;
1116: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

Line 1115: x_return_status := FND_API.G_RET_STS_ERROR;

1111: EXCEPTION
1112: WHEN FND_API.G_EXC_ERROR THEN
1113: ROLLBACK TO Delete_Inventory_Spec_VRS;
1114: x_deleted_rows := 0;
1115: x_return_status := FND_API.G_RET_STS_ERROR;
1116: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1117: , p_count => x_msg_count
1118: , p_data => x_msg_data
1119: );

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

1112: WHEN FND_API.G_EXC_ERROR THEN
1113: ROLLBACK TO Delete_Inventory_Spec_VRS;
1114: x_deleted_rows := 0;
1115: x_return_status := FND_API.G_RET_STS_ERROR;
1116: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1117: , p_count => x_msg_count
1118: , p_data => x_msg_data
1119: );
1120:

Line 1121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1117: , p_count => x_msg_count
1118: , p_data => x_msg_data
1119: );
1120:
1121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1122: ROLLBACK TO Delete_Inventory_Spec_VRS;
1123: x_deleted_rows := 0;
1124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1125: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

Line 1124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1120:
1121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1122: ROLLBACK TO Delete_Inventory_Spec_VRS;
1123: x_deleted_rows := 0;
1124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1125: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1126: , p_count => x_msg_count
1127: , p_data => x_msg_data
1128: );

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

1121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1122: ROLLBACK TO Delete_Inventory_Spec_VRS;
1123: x_deleted_rows := 0;
1124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1125: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1126: , p_count => x_msg_count
1127: , p_data => x_msg_data
1128: );
1129:

Line 1133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1129:
1130:
1131:
1132: WHEN OTHERS THEN
1133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1134: ROLLBACK TO Delete_Inventory_Spec_VRS;
1135: x_deleted_rows := 0;
1136: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1137: , l_api_name

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

1136: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1137: , l_api_name
1138: );
1139:
1140: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1141: , p_count => x_msg_count
1142: , p_data => x_msg_data
1143: );
1144:

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

1182: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_WIP_SPEC_VRS';
1183: l_api_version CONSTANT NUMBER := 1.0;
1184: l_msg_count NUMBER :=0;
1185: l_msg_data VARCHAR2(2000);
1186: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1187: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1188: l_wip_spec_vrs GMD_WIP_SPEC_VRS%ROWTYPE;
1189: l_deleted_rows NUMBER :=0;
1190:

Line 1201: IF NOT FND_API.Compatible_API_CALL

1197:
1198: -- Standard call to check for call compatibility.
1199: -- ==============================================
1200:
1201: IF NOT FND_API.Compatible_API_CALL
1202: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1203: THEN
1204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1205: END IF;

Line 1204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1200:
1201: IF NOT FND_API.Compatible_API_CALL
1202: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1203: THEN
1204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1205: END IF;
1206:
1207: -- Initialize message list if p_int_msg_list is set TRUE.
1208: -- ======================================================

Line 1209: IF FND_API.to_boolean(p_init_msg_list)

1205: END IF;
1206:
1207: -- Initialize message list if p_int_msg_list is set TRUE.
1208: -- ======================================================
1209: IF FND_API.to_boolean(p_init_msg_list)
1210: THEN
1211: FND_MSG_PUB.Initialize;
1212: END IF;
1213:

Line 1216: x_return_status := FND_API.G_RET_STS_SUCCESS;

1212: END IF;
1213:
1214: -- Initialize API return Parameters
1215: -- ================================
1216: x_return_status := FND_API.G_RET_STS_SUCCESS;
1217:
1218: -- Initialize Local Variables
1219: -- ==========================
1220: l_spec.spec_id := 0;

Line 1231: RAISE FND_API.G_EXC_ERROR;

1227: IF NVL(l_spec.last_updated_by, -1) < 0
1228: THEN
1229: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
1230: 'l_user_name', p_user_name);
1231: RAISE FND_API.G_EXC_ERROR;
1232: END IF;
1233:
1234: -- Process each of the WIP spec validity rules
1235: -- ===========================================

Line 1244: RAISE FND_API.G_EXC_ERROR;

1240: IF ( l_wip_spec_vrs.spec_id IS NULL )
1241: THEN
1242: -- raise validation error
1243: GMD_API_PUB.Log_Message('GMD_SPEC_ID_REQUIRED');
1244: RAISE FND_API.G_EXC_ERROR;
1245: END IF;
1246:
1247: -- Retrieve and validate the owning SPEC if it is not already retrieved/validated
1248: -- ==============================================================================

Line 1257: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1253: GMD_SPEC_GRP.Validate_Before_Delete( p_spec_id => l_wip_spec_vrs.spec_id
1254: , x_return_status => l_return_status
1255: , x_message_data => l_msg_data
1256: );
1257: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1258: RAISE FND_API.G_EXC_ERROR;
1259: END IF;
1260:
1261: -- Lock the SPEC ahead of manipulating WIP_SPEC_VRS

Line 1258: RAISE FND_API.G_EXC_ERROR;

1254: , x_return_status => l_return_status
1255: , x_message_data => l_msg_data
1256: );
1257: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1258: RAISE FND_API.G_EXC_ERROR;
1259: END IF;
1260:
1261: -- Lock the SPEC ahead of manipulating WIP_SPEC_VRS
1262: -- ======================================================

Line 1271: RAISE FND_API.G_EXC_ERROR;

1267: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1268: 'l_table_name', 'GMD_SPECIFICATIONS',
1269: 'l_column_name', 'SPEC_ID',
1270: 'l_key_value', l_wip_spec_vrs.spec_id);
1271: RAISE FND_API.G_EXC_ERROR;
1272: END IF;
1273: END IF; -- end of spec validation
1274:
1275: -- Validate to ensure validity_rule exists and is not already delete marked

Line 1283: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1279: , p_spec_vr_id => l_wip_spec_vrs.spec_vr_id
1280: , x_return_status => l_return_status
1281: , x_message_data => l_msg_data
1282: );
1283: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1284: RAISE FND_API.G_EXC_ERROR;
1285: END IF;
1286:
1287:

Line 1284: RAISE FND_API.G_EXC_ERROR;

1280: , x_return_status => l_return_status
1281: , x_message_data => l_msg_data
1282: );
1283: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1284: RAISE FND_API.G_EXC_ERROR;
1285: END IF;
1286:
1287:
1288: -- Lock the validity rule ahead of deleting

Line 1298: RAISE FND_API.G_EXC_ERROR;

1294: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1295: 'l_table_name', 'GMD_WIP_SPEC_VRS',
1296: 'l_column_name', 'SPEC_VR_ID',
1297: 'l_key_value', l_wip_spec_vrs.spec_vr_id);
1298: RAISE FND_API.G_EXC_ERROR;
1299: END IF;
1300:
1301: IF NOT GMD_WIP_SPEC_VRS_PVT.Delete_Row ( p_spec_vr_id => l_wip_spec_vrs.spec_vr_id
1302: , p_last_update_date => sysdate

Line 1310: RAISE FND_API.G_EXC_ERROR;

1306: GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
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: ELSE
1312: x_deleted_rows := i;
1313: END IF;
1314:

Line 1318: IF FND_API.to_boolean(p_commit)

1314:
1315: END LOOP;
1316:
1317: -- Standard Check of p_commit.
1318: IF FND_API.to_boolean(p_commit)
1319: THEN
1320: COMMIT WORK;
1321: END IF;
1322:

Line 1326: WHEN FND_API.G_EXC_ERROR THEN

1322:
1323: x_return_status := l_return_status;
1324:
1325: EXCEPTION
1326: WHEN FND_API.G_EXC_ERROR THEN
1327: ROLLBACK TO Delete_WIP_Spec_VRS;
1328: x_deleted_rows := 0;
1329: x_return_status := FND_API.G_RET_STS_ERROR;
1330: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

Line 1329: x_return_status := FND_API.G_RET_STS_ERROR;

1325: EXCEPTION
1326: WHEN FND_API.G_EXC_ERROR THEN
1327: ROLLBACK TO Delete_WIP_Spec_VRS;
1328: x_deleted_rows := 0;
1329: x_return_status := FND_API.G_RET_STS_ERROR;
1330: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1331: , p_count => x_msg_count
1332: , p_data => x_msg_data
1333: );

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

1326: WHEN FND_API.G_EXC_ERROR THEN
1327: ROLLBACK TO Delete_WIP_Spec_VRS;
1328: x_deleted_rows := 0;
1329: x_return_status := FND_API.G_RET_STS_ERROR;
1330: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1331: , p_count => x_msg_count
1332: , p_data => x_msg_data
1333: );
1334:

Line 1335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1331: , p_count => x_msg_count
1332: , p_data => x_msg_data
1333: );
1334:
1335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1336: ROLLBACK TO Delete_WIP_Spec_VRS;
1337: x_deleted_rows := 0;
1338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1339: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

Line 1338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1334:
1335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1336: ROLLBACK TO Delete_WIP_Spec_VRS;
1337: x_deleted_rows := 0;
1338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1339: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1340: , p_count => x_msg_count
1341: , p_data => x_msg_data
1342: );

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

1335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1336: ROLLBACK TO Delete_WIP_Spec_VRS;
1337: x_deleted_rows := 0;
1338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1339: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1340: , p_count => x_msg_count
1341: , p_data => x_msg_data
1342: );
1343:

Line 1347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1343:
1344:
1345:
1346: WHEN OTHERS THEN
1347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1348: ROLLBACK TO Delete_WIP_Spec_VRS;
1349: x_deleted_rows := 0;
1350: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1351: , l_api_name

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

1350: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1351: , l_api_name
1352: );
1353:
1354: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1355: , p_count => x_msg_count
1356: , p_data => x_msg_data
1357: );
1358:

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

1396: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_CUSTOMER_SPEC_VRS';
1397: l_api_version CONSTANT NUMBER := 1.0;
1398: l_msg_count NUMBER :=0;
1399: l_msg_data VARCHAR2(2000);
1400: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1401: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1402: l_customer_spec_vrs GMD_CUSTOMER_SPEC_VRS%ROWTYPE;
1403: l_deleted_rows NUMBER :=0;
1404:

Line 1415: IF NOT FND_API.Compatible_API_CALL

1411:
1412: -- Standard call to check for call compatibility.
1413: -- ==============================================
1414:
1415: IF NOT FND_API.Compatible_API_CALL
1416: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1417: THEN
1418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1419: END IF;

Line 1418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1414:
1415: IF NOT FND_API.Compatible_API_CALL
1416: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1417: THEN
1418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1419: END IF;
1420:
1421: -- Initialize message list if p_int_msg_list is set TRUE.
1422: -- ======================================================

Line 1423: IF FND_API.to_boolean(p_init_msg_list)

1419: END IF;
1420:
1421: -- Initialize message list if p_int_msg_list is set TRUE.
1422: -- ======================================================
1423: IF FND_API.to_boolean(p_init_msg_list)
1424: THEN
1425: FND_MSG_PUB.Initialize;
1426: END IF;
1427:

Line 1430: x_return_status := FND_API.G_RET_STS_SUCCESS;

1426: END IF;
1427:
1428: -- Initialize API return Parameters
1429: -- ================================
1430: x_return_status := FND_API.G_RET_STS_SUCCESS;
1431:
1432: -- Initialize Local Variables
1433: -- ==========================
1434: l_spec.spec_id := 0;

Line 1445: RAISE FND_API.G_EXC_ERROR;

1441: IF NVL(l_spec.last_updated_by, -1) < 0
1442: THEN
1443: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
1444: 'l_user_name', p_user_name);
1445: RAISE FND_API.G_EXC_ERROR;
1446: END IF;
1447:
1448: -- Process each of the WIP spec validity rules
1449: -- ===========================================

Line 1458: RAISE FND_API.G_EXC_ERROR;

1454: IF ( l_customer_spec_vrs.spec_id IS NULL )
1455: THEN
1456: -- raise validation error
1457: GMD_API_PUB.Log_Message('GMD_SPEC_ID_REQUIRED');
1458: RAISE FND_API.G_EXC_ERROR;
1459: END IF;
1460:
1461: -- Retrieve and validate the owning SPEC if it is not already retrieved/validated
1462: -- ==============================================================================

Line 1471: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1467: GMD_SPEC_GRP.Validate_Before_Delete( p_spec_id => l_customer_spec_vrs.spec_id
1468: , x_return_status => l_return_status
1469: , x_message_data => l_msg_data
1470: );
1471: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1472: RAISE FND_API.G_EXC_ERROR;
1473: END IF;
1474:
1475: -- Lock the SPEC ahead of manipulating CUSTOMER_SPEC_VRS

Line 1472: RAISE FND_API.G_EXC_ERROR;

1468: , x_return_status => l_return_status
1469: , x_message_data => l_msg_data
1470: );
1471: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1472: RAISE FND_API.G_EXC_ERROR;
1473: END IF;
1474:
1475: -- Lock the SPEC ahead of manipulating CUSTOMER_SPEC_VRS
1476: -- ======================================================

Line 1485: RAISE FND_API.G_EXC_ERROR;

1481: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1482: 'l_table_name', 'GMD_SPECIFICATIONS',
1483: 'l_column_name', 'SPEC_ID',
1484: 'l_key_value', l_customer_spec_vrs.spec_id);
1485: RAISE FND_API.G_EXC_ERROR;
1486: END IF;
1487: END IF; -- end of spec validation
1488:
1489: -- Validate to ensure validity_rule exists and is not already delete marked

Line 1497: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1493: , p_spec_vr_id => l_customer_spec_vrs.spec_vr_id
1494: , x_return_status => l_return_status
1495: , x_message_data => l_msg_data
1496: );
1497: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1498: RAISE FND_API.G_EXC_ERROR;
1499: END IF;
1500:
1501:

Line 1498: RAISE FND_API.G_EXC_ERROR;

1494: , x_return_status => l_return_status
1495: , x_message_data => l_msg_data
1496: );
1497: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1498: RAISE FND_API.G_EXC_ERROR;
1499: END IF;
1500:
1501:
1502: -- Lock the validity rule ahead of deleting

Line 1512: RAISE FND_API.G_EXC_ERROR;

1508: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1509: 'l_table_name', 'GMD_CUSTOMER_SPEC_VRS',
1510: 'l_column_name', 'SPEC_VR_ID',
1511: 'l_key_value', l_customer_spec_vrs.spec_vr_id);
1512: RAISE FND_API.G_EXC_ERROR;
1513: END IF;
1514:
1515: IF NOT GMD_CUSTOMER_SPEC_VRS_PVT.Delete_Row
1516: ( p_spec_vr_id => l_customer_spec_vrs.spec_vr_id

Line 1525: RAISE FND_API.G_EXC_ERROR;

1521: GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
1522: 'l_table_name', 'GMD_CUSTOMER_SPEC_VRS',
1523: 'l_column_name', 'SPEC_VR_ID',
1524: 'l_key_value', l_customer_spec_vrs.spec_vr_id);
1525: RAISE FND_API.G_EXC_ERROR;
1526: ELSE
1527: x_deleted_rows := i;
1528: END IF;
1529:

Line 1533: IF FND_API.to_boolean(p_commit)

1529:
1530: END LOOP;
1531:
1532: -- Standard Check of p_commit.
1533: IF FND_API.to_boolean(p_commit)
1534: THEN
1535: COMMIT WORK;
1536: END IF;
1537:

Line 1541: WHEN FND_API.G_EXC_ERROR THEN

1537:
1538: x_return_status := l_return_status;
1539:
1540: EXCEPTION
1541: WHEN FND_API.G_EXC_ERROR THEN
1542: ROLLBACK TO Delete_Customer_Spec_VRS;
1543: x_deleted_rows := 0;
1544: x_return_status := FND_API.G_RET_STS_ERROR;
1545: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

Line 1544: x_return_status := FND_API.G_RET_STS_ERROR;

1540: EXCEPTION
1541: WHEN FND_API.G_EXC_ERROR THEN
1542: ROLLBACK TO Delete_Customer_Spec_VRS;
1543: x_deleted_rows := 0;
1544: x_return_status := FND_API.G_RET_STS_ERROR;
1545: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1546: , p_count => x_msg_count
1547: , p_data => x_msg_data
1548: );

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

1541: WHEN FND_API.G_EXC_ERROR THEN
1542: ROLLBACK TO Delete_Customer_Spec_VRS;
1543: x_deleted_rows := 0;
1544: x_return_status := FND_API.G_RET_STS_ERROR;
1545: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1546: , p_count => x_msg_count
1547: , p_data => x_msg_data
1548: );
1549:

Line 1550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1546: , p_count => x_msg_count
1547: , p_data => x_msg_data
1548: );
1549:
1550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1551: ROLLBACK TO Delete_Customer_Spec_VRS;
1552: x_deleted_rows := 0;
1553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1554: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

Line 1553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1549:
1550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1551: ROLLBACK TO Delete_Customer_Spec_VRS;
1552: x_deleted_rows := 0;
1553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1554: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1555: , p_count => x_msg_count
1556: , p_data => x_msg_data
1557: );

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

1550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1551: ROLLBACK TO Delete_Customer_Spec_VRS;
1552: x_deleted_rows := 0;
1553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1554: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1555: , p_count => x_msg_count
1556: , p_data => x_msg_data
1557: );
1558:

Line 1562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1558:
1559:
1560:
1561: WHEN OTHERS THEN
1562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1563: ROLLBACK TO Delete_Customer_Spec_VRS;
1564: x_deleted_rows := 0;
1565: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1566: , l_api_name

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

1565: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1566: , l_api_name
1567: );
1568:
1569: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1570: , p_count => x_msg_count
1571: , p_data => x_msg_data
1572: );
1573:

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

1610: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_SUPPLIER_SPEC_VRS';
1611: l_api_version CONSTANT NUMBER := 1.0;
1612: l_msg_count NUMBER :=0;
1613: l_msg_data VARCHAR2(2000);
1614: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1615: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1616: l_supplier_spec_vrs GMD_SUPPLIER_SPEC_VRS%ROWTYPE;
1617: l_deleted_rows NUMBER :=0;
1618:

Line 1629: IF NOT FND_API.Compatible_API_CALL

1625:
1626: -- Standard call to check for call compatibility.
1627: -- ==============================================
1628:
1629: IF NOT FND_API.Compatible_API_CALL
1630: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1631: THEN
1632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1633: END IF;

Line 1632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1628:
1629: IF NOT FND_API.Compatible_API_CALL
1630: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1631: THEN
1632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1633: END IF;
1634:
1635: -- Initialize message list if p_int_msg_list is set TRUE.
1636: -- ======================================================

Line 1637: IF FND_API.to_boolean(p_init_msg_list)

1633: END IF;
1634:
1635: -- Initialize message list if p_int_msg_list is set TRUE.
1636: -- ======================================================
1637: IF FND_API.to_boolean(p_init_msg_list)
1638: THEN
1639: FND_MSG_PUB.Initialize;
1640: END IF;
1641:

Line 1644: x_return_status := FND_API.G_RET_STS_SUCCESS;

1640: END IF;
1641:
1642: -- Initialize API return Parameters
1643: -- ================================
1644: x_return_status := FND_API.G_RET_STS_SUCCESS;
1645:
1646: -- Initialize Local Variables
1647: -- ==========================
1648: l_spec.spec_id := 0;

Line 1659: RAISE FND_API.G_EXC_ERROR;

1655: IF NVL(l_spec.last_updated_by, -1) < 0
1656: THEN
1657: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
1658: 'l_user_name', p_user_name);
1659: RAISE FND_API.G_EXC_ERROR;
1660: END IF;
1661:
1662: -- Process each of the WIP spec validity rules
1663: -- ===========================================

Line 1672: RAISE FND_API.G_EXC_ERROR;

1668: IF ( l_supplier_spec_vrs.spec_id IS NULL )
1669: THEN
1670: -- raise validation error
1671: GMD_API_PUB.Log_Message('GMD_SPEC_ID_REQUIRED');
1672: RAISE FND_API.G_EXC_ERROR;
1673: END IF;
1674:
1675: -- Retrieve and validate the owning SPEC if it is not already retrieved/validated
1676: -- ==============================================================================

Line 1685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1681: GMD_SPEC_GRP.Validate_Before_Delete( p_spec_id => l_supplier_spec_vrs.spec_id
1682: , x_return_status => l_return_status
1683: , x_message_data => l_msg_data
1684: );
1685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1686: RAISE FND_API.G_EXC_ERROR;
1687: END IF;
1688:
1689: -- Lock the SPEC ahead of manipulating SUPPLIER_SPEC_VRS

Line 1686: RAISE FND_API.G_EXC_ERROR;

1682: , x_return_status => l_return_status
1683: , x_message_data => l_msg_data
1684: );
1685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1686: RAISE FND_API.G_EXC_ERROR;
1687: END IF;
1688:
1689: -- Lock the SPEC ahead of manipulating SUPPLIER_SPEC_VRS
1690: -- ======================================================

Line 1699: RAISE FND_API.G_EXC_ERROR;

1695: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1696: 'l_table_name', 'GMD_SPECIFICATIONS',
1697: 'l_column_name', 'SPEC_ID',
1698: 'l_key_value', l_supplier_spec_vrs.spec_id);
1699: RAISE FND_API.G_EXC_ERROR;
1700: END IF;
1701: END IF; -- end of spec validation
1702:
1703: -- Validate to ensure validity_rule exists and is not already delete marked

Line 1711: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1707: , p_spec_vr_id => l_supplier_spec_vrs.spec_vr_id
1708: , x_return_status => l_return_status
1709: , x_message_data => l_msg_data
1710: );
1711: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1712: RAISE FND_API.G_EXC_ERROR;
1713: END IF;
1714:
1715:

Line 1712: RAISE FND_API.G_EXC_ERROR;

1708: , x_return_status => l_return_status
1709: , x_message_data => l_msg_data
1710: );
1711: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1712: RAISE FND_API.G_EXC_ERROR;
1713: END IF;
1714:
1715:
1716: -- Lock the validity rule ahead of deleting

Line 1726: RAISE FND_API.G_EXC_ERROR;

1722: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1723: 'l_table_name', 'GMD_SUPPLIER_SPEC_VRS',
1724: 'l_column_name', 'SPEC_VR_ID',
1725: 'l_key_value', l_supplier_spec_vrs.spec_vr_id);
1726: RAISE FND_API.G_EXC_ERROR;
1727: END IF;
1728:
1729: IF NOT GMD_SUPPLIER_SPEC_VRS_PVT.Delete_Row
1730: ( p_spec_vr_id => l_supplier_spec_vrs.spec_vr_id

Line 1739: RAISE FND_API.G_EXC_ERROR;

1735: GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
1736: 'l_table_name', 'GMD_SUPPLIER_SPEC_VRS',
1737: 'l_column_name', 'SPEC_VR_ID',
1738: 'l_key_value', l_supplier_spec_vrs.spec_vr_id);
1739: RAISE FND_API.G_EXC_ERROR;
1740: ELSE
1741: x_deleted_rows := i;
1742: END IF;
1743:

Line 1747: IF FND_API.to_boolean(p_commit)

1743:
1744: END LOOP;
1745:
1746: -- Standard Check of p_commit.
1747: IF FND_API.to_boolean(p_commit)
1748: THEN
1749: COMMIT WORK;
1750: END IF;
1751:

Line 1755: WHEN FND_API.G_EXC_ERROR THEN

1751:
1752: x_return_status := l_return_status;
1753:
1754: EXCEPTION
1755: WHEN FND_API.G_EXC_ERROR THEN
1756: ROLLBACK TO Delete_Supplier_Spec_VRS;
1757: x_deleted_rows := 0;
1758: x_return_status := FND_API.G_RET_STS_ERROR;
1759: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

Line 1758: x_return_status := FND_API.G_RET_STS_ERROR;

1754: EXCEPTION
1755: WHEN FND_API.G_EXC_ERROR THEN
1756: ROLLBACK TO Delete_Supplier_Spec_VRS;
1757: x_deleted_rows := 0;
1758: x_return_status := FND_API.G_RET_STS_ERROR;
1759: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1760: , p_count => x_msg_count
1761: , p_data => x_msg_data
1762: );

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

1755: WHEN FND_API.G_EXC_ERROR THEN
1756: ROLLBACK TO Delete_Supplier_Spec_VRS;
1757: x_deleted_rows := 0;
1758: x_return_status := FND_API.G_RET_STS_ERROR;
1759: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1760: , p_count => x_msg_count
1761: , p_data => x_msg_data
1762: );
1763:

Line 1764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1760: , p_count => x_msg_count
1761: , p_data => x_msg_data
1762: );
1763:
1764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1765: ROLLBACK TO Delete_Supplier_Spec_VRS;
1766: x_deleted_rows := 0;
1767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1768: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

Line 1767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1763:
1764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1765: ROLLBACK TO Delete_Supplier_Spec_VRS;
1766: x_deleted_rows := 0;
1767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1768: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1769: , p_count => x_msg_count
1770: , p_data => x_msg_data
1771: );

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

1764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1765: ROLLBACK TO Delete_Supplier_Spec_VRS;
1766: x_deleted_rows := 0;
1767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1768: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1769: , p_count => x_msg_count
1770: , p_data => x_msg_data
1771: );
1772:

Line 1776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1772:
1773:
1774:
1775: WHEN OTHERS THEN
1776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1777: ROLLBACK TO Delete_Supplier_Spec_VRS;
1778: x_deleted_rows := 0;
1779: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1780: , l_api_name

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

1779: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1780: , l_api_name
1781: );
1782:
1783: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1784: , p_count => x_msg_count
1785: , p_data => x_msg_data
1786: );
1787:

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

1826: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_MONITORING_SPEC_VRS';
1827: l_api_version CONSTANT NUMBER := 1.0;
1828: l_msg_count NUMBER :=0;
1829: l_msg_data VARCHAR2(2000);
1830: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1831: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1832: l_monitoring_spec_vrs GMD_MONITORING_SPEC_VRS%ROWTYPE;
1833: l_deleted_rows NUMBER :=0;
1834:

Line 1845: IF NOT FND_API.Compatible_API_CALL

1841:
1842: -- Standard call to check for call compatibility.
1843: -- ==============================================
1844:
1845: IF NOT FND_API.Compatible_API_CALL
1846: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1847: THEN
1848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1849: END IF;

Line 1848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1844:
1845: IF NOT FND_API.Compatible_API_CALL
1846: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1847: THEN
1848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1849: END IF;
1850:
1851: -- Initialize message list if p_int_msg_list is set TRUE.
1852: -- ======================================================

Line 1853: IF FND_API.to_boolean(p_init_msg_list)

1849: END IF;
1850:
1851: -- Initialize message list if p_int_msg_list is set TRUE.
1852: -- ======================================================
1853: IF FND_API.to_boolean(p_init_msg_list)
1854: THEN
1855: FND_MSG_PUB.Initialize;
1856: END IF;
1857:

Line 1860: x_return_status := FND_API.G_RET_STS_SUCCESS;

1856: END IF;
1857:
1858: -- Initialize API return Parameters
1859: -- ================================
1860: x_return_status := FND_API.G_RET_STS_SUCCESS;
1861:
1862: -- Initialize Local Variables
1863: -- ==========================
1864: l_spec.spec_id := 0;

Line 1875: RAISE FND_API.G_EXC_ERROR;

1871: IF NVL(l_spec.last_updated_by, -1) < 0
1872: THEN
1873: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
1874: 'l_user_name', p_user_name);
1875: RAISE FND_API.G_EXC_ERROR;
1876: END IF;
1877:
1878: -- Process each of the WIP spec validity rules
1879: -- ===========================================

Line 1888: RAISE FND_API.G_EXC_ERROR;

1884: IF ( l_monitoring_spec_vrs.spec_id IS NULL )
1885: THEN
1886: -- raise validation error
1887: GMD_API_PUB.Log_Message('GMD_SPEC_ID_REQUIRED');
1888: RAISE FND_API.G_EXC_ERROR;
1889: END IF;
1890:
1891: -- Retrieve and validate the owning SPEC if it is not already retrieved/validated
1892: -- ==============================================================================

Line 1901: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1897: GMD_SPEC_GRP.Validate_Before_Delete( p_spec_id => l_monitoring_spec_vrs.spec_id
1898: , x_return_status => l_return_status
1899: , x_message_data => l_msg_data
1900: );
1901: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1902: RAISE FND_API.G_EXC_ERROR;
1903: END IF;
1904:
1905: -- Lock the SPEC ahead of manipulating MONITORING_SPEC_VRS

Line 1902: RAISE FND_API.G_EXC_ERROR;

1898: , x_return_status => l_return_status
1899: , x_message_data => l_msg_data
1900: );
1901: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1902: RAISE FND_API.G_EXC_ERROR;
1903: END IF;
1904:
1905: -- Lock the SPEC ahead of manipulating MONITORING_SPEC_VRS
1906: -- ======================================================

Line 1915: RAISE FND_API.G_EXC_ERROR;

1911: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1912: 'l_table_name', 'GMD_SPECIFICATIONS',
1913: 'l_column_name', 'SPEC_ID',
1914: 'l_key_value', l_monitoring_spec_vrs.spec_id);
1915: RAISE FND_API.G_EXC_ERROR;
1916: END IF;
1917: END IF; -- end of spec validation
1918:
1919: -- Validate to ensure validity_rule exists and is not already delete marked

Line 1928: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1924: , p_spec_vr_id => l_monitoring_spec_vrs.spec_vr_id
1925: , x_return_status => l_return_status
1926: , x_message_data => l_msg_data
1927: );
1928: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1929: RAISE FND_API.G_EXC_ERROR;
1930: END IF;*/
1931:
1932:

Line 1929: RAISE FND_API.G_EXC_ERROR;

1925: , x_return_status => l_return_status
1926: , x_message_data => l_msg_data
1927: );
1928: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1929: RAISE FND_API.G_EXC_ERROR;
1930: END IF;*/
1931:
1932:
1933: -- Lock the validity rule ahead of deleting

Line 1943: RAISE FND_API.G_EXC_ERROR;

1939: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1940: 'l_table_name', 'GMD_monitoring_SPEC_VRS',
1941: 'l_column_name', 'SPEC_VR_ID',
1942: 'l_key_value', l_monitoring_spec_vrs.spec_vr_id);
1943: RAISE FND_API.G_EXC_ERROR;
1944: END IF;
1945:
1946: IF NOT GMD_MONITORING_SPEC_VRS_PVT.Delete_Row
1947: ( p_spec_vr_id => l_monitoring_spec_vrs.spec_vr_id

Line 1956: RAISE FND_API.G_EXC_ERROR;

1952: GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
1953: 'l_table_name', 'GMD_MONITORING_SPEC_VRS',
1954: 'l_column_name', 'SPEC_VR_ID',
1955: 'l_key_value', l_monitoring_spec_vrs.spec_vr_id);
1956: RAISE FND_API.G_EXC_ERROR;
1957: ELSE
1958: x_deleted_rows := i;
1959: END IF;
1960:

Line 1964: IF FND_API.to_boolean(p_commit)

1960:
1961: END LOOP;
1962:
1963: -- Standard Check of p_commit.
1964: IF FND_API.to_boolean(p_commit)
1965: THEN
1966: COMMIT WORK;
1967: END IF;
1968:

Line 1972: WHEN FND_API.G_EXC_ERROR THEN

1968:
1969: x_return_status := l_return_status;
1970:
1971: EXCEPTION
1972: WHEN FND_API.G_EXC_ERROR THEN
1973: ROLLBACK TO Delete_monitoring_Spec_VRS;
1974: x_deleted_rows := 0;
1975: x_return_status := FND_API.G_RET_STS_ERROR;
1976: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

Line 1975: x_return_status := FND_API.G_RET_STS_ERROR;

1971: EXCEPTION
1972: WHEN FND_API.G_EXC_ERROR THEN
1973: ROLLBACK TO Delete_monitoring_Spec_VRS;
1974: x_deleted_rows := 0;
1975: x_return_status := FND_API.G_RET_STS_ERROR;
1976: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1977: , p_count => x_msg_count
1978: , p_data => x_msg_data
1979: );

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

1972: WHEN FND_API.G_EXC_ERROR THEN
1973: ROLLBACK TO Delete_monitoring_Spec_VRS;
1974: x_deleted_rows := 0;
1975: x_return_status := FND_API.G_RET_STS_ERROR;
1976: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1977: , p_count => x_msg_count
1978: , p_data => x_msg_data
1979: );
1980:

Line 1981: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1977: , p_count => x_msg_count
1978: , p_data => x_msg_data
1979: );
1980:
1981: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1982: ROLLBACK TO Delete_monitoring_Spec_VRS;
1983: x_deleted_rows := 0;
1984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1985: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

Line 1984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1980:
1981: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1982: ROLLBACK TO Delete_monitoring_Spec_VRS;
1983: x_deleted_rows := 0;
1984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1985: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1986: , p_count => x_msg_count
1987: , p_data => x_msg_data
1988: );

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

1981: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1982: ROLLBACK TO Delete_monitoring_Spec_VRS;
1983: x_deleted_rows := 0;
1984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1985: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1986: , p_count => x_msg_count
1987: , p_data => x_msg_data
1988: );
1989:

Line 1993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1989:
1990:
1991:
1992: WHEN OTHERS THEN
1993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1994: ROLLBACK TO Delete_monitoring_Spec_VRS;
1995: x_deleted_rows := 0;
1996: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1997: , l_api_name

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

1996: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1997: , l_api_name
1998: );
1999:
2000: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
2001: , p_count => x_msg_count
2002: , p_data => x_msg_data
2003: );
2004: