DBA Data[Home] [Help]

APPS.GME_PENDING_PRODUCT_LOTS_PVT dependencies on GME_PENDING_PRODUCT_LOTS

Line 1: PACKAGE BODY gme_pending_product_lots_pvt AS

1: PACKAGE BODY gme_pending_product_lots_pvt AS
2: /* $Header: GMEVPPLB.pls 120.19.12020000.2 2012/07/26 15:40:03 gmurator ship $ */
3:
4: g_debug VARCHAR2 (5) := fnd_profile.VALUE ('AFLOG_LEVEL');
5: g_pkg_name CONSTANT VARCHAR2 (30) := 'GME_PENDING_PRODUCT_LOTS_PVT';

Line 5: g_pkg_name CONSTANT VARCHAR2 (30) := 'GME_PENDING_PRODUCT_LOTS_PVT';

1: PACKAGE BODY gme_pending_product_lots_pvt AS
2: /* $Header: GMEVPPLB.pls 120.19.12020000.2 2012/07/26 15:40:03 gmurator ship $ */
3:
4: g_debug VARCHAR2 (5) := fnd_profile.VALUE ('AFLOG_LEVEL');
5: g_pkg_name CONSTANT VARCHAR2 (30) := 'GME_PENDING_PRODUCT_LOTS_PVT';
6:
7: /*************************************************************************************************/
8: /* Oracle Process Manufacturing Process Execution APIs */
9: /* */

Line 34: FROM gme_pending_product_lots

30: ,x_pending_product_lot_tbl OUT NOCOPY gme_common_pvt.pending_lots_tab) IS
31:
32: CURSOR cur_get_lots (v_mtl_dtl_id NUMBER) IS
33: SELECT *
34: FROM gme_pending_product_lots
35: WHERE material_detail_id = v_mtl_dtl_id
36: ORDER BY sequence asc, lot_number asc;
37:
38: l_api_name CONSTANT VARCHAR2 (30) := 'GET_PENDING_LOT';

Line 69: FROM gme_pending_product_lots

65: ,x_return_status OUT NOCOPY VARCHAR2) IS
66:
67: CURSOR cur_get_pending_lot_qty (v_pending_lot_id NUMBER) IS
68: SELECT quantity, secondary_quantity
69: FROM gme_pending_product_lots
70: WHERE pending_product_lot_id = v_pending_lot_id;
71:
72: l_qty NUMBER;
73: l_sec_qty NUMBER;

Line 76: l_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;

72: l_qty NUMBER;
73: l_sec_qty NUMBER;
74: l_api_name CONSTANT VARCHAR2 (30) := 'RELIEVE_PENDING_LOT';
75: --Bug#5186388
76: l_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;
77: l_return_status VARCHAR2(1);
78: error_delete_row EXCEPTION;
79: BEGIN
80: IF g_debug <= gme_debug.g_log_procedure THEN

Line 101: /*UPDATE gme_pending_product_lots

97: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
98: RAISE error_delete_row;
99: END IF;
100:
101: /*UPDATE gme_pending_product_lots
102: SET quantity = 0,
103: last_updated_by = gme_common_pvt.g_user_ident,
104: last_update_date = gme_common_pvt.g_timestamp,
105: last_update_login = gme_common_pvt.g_login_id

Line 109: UPDATE gme_pending_product_lots

105: last_update_login = gme_common_pvt.g_login_id
106: WHERE pending_product_lot_id = p_pending_lot_id;
107:
108: IF l_sec_qty IS NOT NULL THEN
109: UPDATE gme_pending_product_lots
110: SET secondary_quantity = 0
111: WHERE pending_product_lot_id = p_pending_lot_id;
112: END IF; -- IF l_sec_qty IS NOT NULL THEN */
113: ELSE

Line 114: UPDATE gme_pending_product_lots

110: SET secondary_quantity = 0
111: WHERE pending_product_lot_id = p_pending_lot_id;
112: END IF; -- IF l_sec_qty IS NOT NULL THEN */
113: ELSE
114: UPDATE gme_pending_product_lots
115: SET quantity = quantity - p_quantity,
116: last_updated_by = gme_common_pvt.g_user_ident,
117: last_update_date = gme_common_pvt.g_timestamp,
118: last_update_login = gme_common_pvt.g_login_id

Line 122: UPDATE gme_pending_product_lots

118: last_update_login = gme_common_pvt.g_login_id
119: WHERE pending_product_lot_id = p_pending_lot_id;
120:
121: IF l_sec_qty IS NOT NULL THEN
122: UPDATE gme_pending_product_lots
123: SET secondary_quantity = secondary_quantity - p_secondary_quantity
124: WHERE pending_product_lot_id = p_pending_lot_id;
125: END IF; -- IF l_sec_qty IS NOT NULL THEN
126: END IF; -- IF p_quantity >= l_qty THEN

Line 394: (p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE

390:
391: END create_product_lot;
392:
393: PROCEDURE create_pending_product_lot
394: (p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
395: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE
396: ,x_return_status OUT NOCOPY VARCHAR2) IS
397:
398: l_pp_lot_rec gme_pending_product_lots%ROWTYPE;

Line 395: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE

391: END create_product_lot;
392:
393: PROCEDURE create_pending_product_lot
394: (p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
395: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE
396: ,x_return_status OUT NOCOPY VARCHAR2) IS
397:
398: l_pp_lot_rec gme_pending_product_lots%ROWTYPE;
399: error_insert_row EXCEPTION;

Line 398: l_pp_lot_rec gme_pending_product_lots%ROWTYPE;

394: (p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
395: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE
396: ,x_return_status OUT NOCOPY VARCHAR2) IS
397:
398: l_pp_lot_rec gme_pending_product_lots%ROWTYPE;
399: error_insert_row EXCEPTION;
400:
401: l_api_name CONSTANT VARCHAR2 (30) := 'create_pending_product_lot';
402:

Line 410: IF NOT gme_pending_product_lots_dbl.insert_row

406: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
407: END IF;
408: x_return_status := FND_API.G_RET_STS_SUCCESS;
409:
410: IF NOT gme_pending_product_lots_dbl.insert_row
411: (p_pending_product_lots_rec => p_pending_product_lots_rec
412: ,x_pending_product_lots_rec => l_pp_lot_rec) THEN
413: RAISE error_insert_row;
414: END IF;

Line 435: (p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE

431: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
432: END create_pending_product_lot;
433:
434: PROCEDURE update_pending_product_lot
435: (p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
436: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE
437: ,x_return_status OUT NOCOPY VARCHAR2) IS
438:
439: error_update_row EXCEPTION;

Line 436: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE

432: END create_pending_product_lot;
433:
434: PROCEDURE update_pending_product_lot
435: (p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
436: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE
437: ,x_return_status OUT NOCOPY VARCHAR2) IS
438:
439: error_update_row EXCEPTION;
440: error_fetch_row EXCEPTION;

Line 450: IF NOT gme_pending_product_lots_dbl.update_row

446: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
447: END IF;
448: x_return_status := FND_API.G_RET_STS_SUCCESS;
449:
450: IF NOT gme_pending_product_lots_dbl.update_row
451: (p_pending_product_lots_rec => p_pending_product_lots_rec) THEN
452: RAISE error_update_row;
453: END IF;
454:

Line 455: IF NOT gme_pending_product_lots_dbl.fetch_row

451: (p_pending_product_lots_rec => p_pending_product_lots_rec) THEN
452: RAISE error_update_row;
453: END IF;
454:
455: IF NOT gme_pending_product_lots_dbl.fetch_row
456: (p_pending_product_lots_rec => p_pending_product_lots_rec
457: ,x_pending_product_lots_rec => x_pending_product_lots_rec) THEN
458: RAISE error_fetch_row;
459: END IF;

Line 478: (p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE

474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
475: END update_pending_product_lot;
476:
477: PROCEDURE delete_pending_product_lot
478: (p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
479: ,x_return_status OUT NOCOPY VARCHAR2) IS
480:
481: error_delete_row EXCEPTION;
482: l_api_name CONSTANT VARCHAR2 (30) := 'delete_pending_product_lot';

Line 491: IF NOT gme_pending_product_lots_dbl.delete_row

487: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
488: END IF;
489: x_return_status := FND_API.G_RET_STS_SUCCESS;
490:
491: IF NOT gme_pending_product_lots_dbl.delete_row
492: (p_pending_product_lots_rec => p_pending_product_lots_rec) THEN
493: RAISE error_delete_row;
494: END IF;
495:

Line 519: FROM gme_pending_product_lots

515: ,x_return_status OUT NOCOPY VARCHAR2)
516: IS
517: CURSOR c_get_pending_lots IS
518: SELECT pending_product_lot_id
519: FROM gme_pending_product_lots
520: WHERE material_detail_id = p_material_detail_id;
521:
522: l_api_name CONSTANT VARCHAR2 (30) := 'delete_pending_product_lot';
523: l_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;

Line 523: l_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;

519: FROM gme_pending_product_lots
520: WHERE material_detail_id = p_material_detail_id;
521:
522: l_api_name CONSTANT VARCHAR2 (30) := 'delete_pending_product_lot';
523: l_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;
524:
525: error_delete_row EXCEPTION;
526: BEGIN
527: IF g_debug <= gme_debug.g_log_procedure THEN

Line 538: IF NOT gme_pending_product_lots_dbl.delete_row

534: LOOP
535: FETCH c_get_pending_lots INTO l_pending_product_lots_rec.pending_product_lot_id;
536: EXIT WHEN c_get_pending_lots%NOTFOUND;
537: --call dbl layer
538: IF NOT gme_pending_product_lots_dbl.delete_row
539: (p_pending_product_lots_rec => l_pending_product_lots_rec) THEN
540: CLOSE c_get_pending_lots;
541: RAISE error_delete_row;
542: END IF;

Line 633: FROM gme_pending_product_lots

629: ,x_return_status OUT NOCOPY VARCHAR2)
630: RETURN NUMBER IS
631: CURSOR cur_get_sequ(v_dtl_id NUMBER) IS
632: SELECT max(sequence)
633: FROM gme_pending_product_lots
634: WHERE material_detail_id = v_dtl_id;
635:
636: l_api_name CONSTANT VARCHAR2 (30) := 'get_last_sequence';
637:

Line 667: ,p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE

663: END get_last_sequence;
664:
665: PROCEDURE validate_record_for_create
666: (p_material_detail_rec IN gme_material_details%ROWTYPE
667: ,p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
668: ,p_create_lot IN VARCHAR2
669: ,p_generate_lot IN VARCHAR2
670: ,p_generate_parent_lot IN VARCHAR2
671: ,p_parent_lot IN mtl_lot_numbers.lot_number%TYPE := NULL

Line 674: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE

670: ,p_generate_parent_lot IN VARCHAR2
671: ,p_parent_lot IN mtl_lot_numbers.lot_number%TYPE := NULL
672: /* nsinghi bug#4486074 Added the p_expiration_Date parameter. */
673: ,p_expiration_date IN mtl_lot_numbers.expiration_date%TYPE := NULL
674: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE
675: ,x_return_status OUT NOCOPY VARCHAR2) IS
676:
677: l_api_name CONSTANT VARCHAR2 (30) := 'validate_record_for_create';
678:

Line 878: ,p_db_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE

874: END validate_material_for_update;
875:
876: PROCEDURE validate_record_for_update
877: (p_material_detail_rec IN gme_material_details%ROWTYPE
878: ,p_db_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
879: ,p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
880: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE
881: ,x_return_status OUT NOCOPY VARCHAR2) IS
882:

Line 879: ,p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE

875:
876: PROCEDURE validate_record_for_update
877: (p_material_detail_rec IN gme_material_details%ROWTYPE
878: ,p_db_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
879: ,p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
880: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE
881: ,x_return_status OUT NOCOPY VARCHAR2) IS
882:
883: l_api_name CONSTANT VARCHAR2 (30) := 'validate_record_for_update';

Line 880: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE

876: PROCEDURE validate_record_for_update
877: (p_material_detail_rec IN gme_material_details%ROWTYPE
878: ,p_db_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
879: ,p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
880: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE
881: ,x_return_status OUT NOCOPY VARCHAR2) IS
882:
883: l_api_name CONSTANT VARCHAR2 (30) := 'validate_record_for_update';
884:

Line 885: l_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;

881: ,x_return_status OUT NOCOPY VARCHAR2) IS
882:
883: l_api_name CONSTANT VARCHAR2 (30) := 'validate_record_for_update';
884:
885: l_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;
886: l_db_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;
887: l_in_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;
888:
889: l_dtl_qty NUMBER;

Line 886: l_db_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;

882:
883: l_api_name CONSTANT VARCHAR2 (30) := 'validate_record_for_update';
884:
885: l_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;
886: l_db_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;
887: l_in_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;
888:
889: l_dtl_qty NUMBER;
890: l_sec_qty NUMBER;

Line 887: l_in_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;

883: l_api_name CONSTANT VARCHAR2 (30) := 'validate_record_for_update';
884:
885: l_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;
886: l_db_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;
887: l_in_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;
888:
889: l_dtl_qty NUMBER;
890: l_sec_qty NUMBER;
891:

Line 918: IF NOT gme_pending_product_lots_dbl.fetch_row

914: l_in_pending_product_lots_rec := p_pending_product_lots_rec;
915: l_in_pending_product_lots_rec.material_detail_id := p_material_detail_rec.material_detail_id;
916: l_in_pending_product_lots_rec.batch_id := p_material_detail_rec.batch_id;
917:
918: IF NOT gme_pending_product_lots_dbl.fetch_row
919: (p_pending_product_lots_rec => l_in_pending_product_lots_rec
920: ,x_pending_product_lots_rec => l_db_pending_product_lots_rec) THEN
921: RAISE error_fetch_row;
922: END IF;

Line 1121: ,p_db_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE

1117: END validate_material_for_delete;
1118:
1119: PROCEDURE validate_record_for_delete
1120: (p_material_detail_rec IN gme_material_details%ROWTYPE
1121: ,p_db_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
1122: ,p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
1123: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE
1124: ,x_return_status OUT NOCOPY VARCHAR2) IS
1125:

Line 1122: ,p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE

1118:
1119: PROCEDURE validate_record_for_delete
1120: (p_material_detail_rec IN gme_material_details%ROWTYPE
1121: ,p_db_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
1122: ,p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
1123: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE
1124: ,x_return_status OUT NOCOPY VARCHAR2) IS
1125:
1126: l_api_name CONSTANT VARCHAR2 (30) := 'validate_record_for_delete';

Line 1123: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE

1119: PROCEDURE validate_record_for_delete
1120: (p_material_detail_rec IN gme_material_details%ROWTYPE
1121: ,p_db_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
1122: ,p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
1123: ,x_pending_product_lots_rec OUT NOCOPY gme_pending_product_lots%ROWTYPE
1124: ,x_return_status OUT NOCOPY VARCHAR2) IS
1125:
1126: l_api_name CONSTANT VARCHAR2 (30) := 'validate_record_for_delete';
1127:

Line 1128: l_in_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;

1124: ,x_return_status OUT NOCOPY VARCHAR2) IS
1125:
1126: l_api_name CONSTANT VARCHAR2 (30) := 'validate_record_for_delete';
1127:
1128: l_in_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;
1129:
1130: error_fetch_row EXCEPTION;
1131:
1132: BEGIN

Line 1146: IF NOT gme_pending_product_lots_dbl.fetch_row

1142: l_in_pending_product_lots_rec := p_pending_product_lots_rec;
1143: l_in_pending_product_lots_rec.material_detail_id := p_material_detail_rec.material_detail_id;
1144: l_in_pending_product_lots_rec.batch_id := p_material_detail_rec.batch_id;
1145:
1146: IF NOT gme_pending_product_lots_dbl.fetch_row
1147: (p_pending_product_lots_rec => l_in_pending_product_lots_rec
1148: ,x_pending_product_lots_rec => x_pending_product_lots_rec) THEN
1149: RAISE error_fetch_row;
1150: END IF;

Line 1390: FROM gme_pending_product_lots

1386: l_api_name CONSTANT VARCHAR2 (30) := 'validate_sequence';
1387:
1388: CURSOR cur_is_sequence (v_matl_dtl_id NUMBER, v_sequ NUMBER) IS
1389: SELECT 1
1390: FROM gme_pending_product_lots
1391: WHERE material_detail_id = v_matl_dtl_id
1392: AND sequence = v_sequ;
1393:
1394: l_return BOOLEAN;

Line 1553: FROM gme_pending_product_lots

1549: l_is_pplot NUMBER;
1550:
1551: CURSOR cur_pp_lot_exist (v_batch_id NUMBER, v_matl_dtl_id NUMBER) IS
1552: SELECT 1
1553: FROM gme_pending_product_lots
1554: WHERE batch_id = v_batch_id
1555: AND material_detail_id = v_matl_dtl_id
1556: AND quantity <> 0
1557: AND rownum = 1;

Line 1639: END gme_pending_product_lots_pvt;

1635: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1636: x_return_status := fnd_api.g_ret_sts_unexp_error;
1637: END get_pnd_prod_lot_qty;
1638:
1639: END gme_pending_product_lots_pvt;