56: FND_MESSAGE.SET_TOKEN('CONSTANT_NAME','BOM:HOUR_UOM_CODE');
57: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
58: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_vbatch_task_pvt.get_resource_txn_end_date', FALSE);
59: end if;
60: FND_MSG_PUB.ADD;
61: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
62:
63: WHEN uom_conversion_err THEN
64: x_return_status:= fnd_api.g_ret_sts_error;
57: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
58: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_vbatch_task_pvt.get_resource_txn_end_date', FALSE);
59: end if;
60: FND_MSG_PUB.ADD;
61: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
62:
63: WHEN uom_conversion_err THEN
64: x_return_status:= fnd_api.g_ret_sts_error;
65: FND_MESSAGE.SET_NAME('GME','GME_RSRC_USG_NT_CNV_SYUOM');
67: FND_MESSAGE.SET_TOKEN('RSRC_USG_UOM',p_trans_um);
68: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
69: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_vbatch_task_pvt.get_resource_txn_end_date', FALSE);
70: end if;
71: FND_MSG_PUB.ADD;
72: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
73: WHEN OTHERS THEN
74: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
75: FND_MESSAGE.SET_NAME('GMO','GMO_VBATCH_UNEXPECTED_DB_ERR');
68: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
69: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_vbatch_task_pvt.get_resource_txn_end_date', FALSE);
70: end if;
71: FND_MSG_PUB.ADD;
72: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
73: WHEN OTHERS THEN
74: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
75: FND_MESSAGE.SET_NAME('GMO','GMO_VBATCH_UNEXPECTED_DB_ERR');
76: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
77: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
78: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
79: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.get_resource_txn_end_date', FALSE);
80: end if;
81: FND_MSG_PUB.ADD;
82: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
83: END get_resource_txn_end_date;
84:
85: procedure get_resource_txn_usage(
78: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
79: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.get_resource_txn_end_date', FALSE);
80: end if;
81: FND_MSG_PUB.ADD;
82: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
83: END get_resource_txn_end_date;
84:
85: procedure get_resource_txn_usage(
86: p_start_date IN DATE
129: FND_MESSAGE.SET_TOKEN('CONSTANT_NAME','BOM:HOUR_UOM_CODE');
130: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
131: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_vbatch_task_pvt.get_resource_txn_usage', FALSE);
132: end if;
133: FND_MSG_PUB.ADD;
134: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
135:
136: WHEN uom_conversion_err THEN
137: x_return_status:= fnd_api.g_ret_sts_error;
130: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
131: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_vbatch_task_pvt.get_resource_txn_usage', FALSE);
132: end if;
133: FND_MSG_PUB.ADD;
134: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
135:
136: WHEN uom_conversion_err THEN
137: x_return_status:= fnd_api.g_ret_sts_error;
138: FND_MESSAGE.SET_NAME('GME','GME_RSRC_USG_NT_CNV_SYUOM');
140: FND_MESSAGE.SET_TOKEN('RSRC_USG_UOM',p_trans_um);
141: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
142: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_vbatch_task_pvt.get_resource_txn_usage', FALSE);
143: end if;
144: FND_MSG_PUB.ADD;
145: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
146: WHEN OTHERS THEN
147: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
148: FND_MESSAGE.SET_NAME('GMO','GMO_VBATCH_UNEXPECTED_DB_ERR');
141: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
142: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_vbatch_task_pvt.get_resource_txn_usage', FALSE);
143: end if;
144: FND_MSG_PUB.ADD;
145: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
146: WHEN OTHERS THEN
147: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
148: FND_MESSAGE.SET_NAME('GMO','GMO_VBATCH_UNEXPECTED_DB_ERR');
149: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
150: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
151: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
152: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.get_resource_txn_usage', FALSE);
153: end if;
154: FND_MSG_PUB.ADD;
155: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
156: END get_resource_txn_usage;
157:
158: procedure get_resource_transaction_arr
151: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
152: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.get_resource_txn_usage', FALSE);
153: end if;
154: FND_MSG_PUB.ADD;
155: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
156: END get_resource_txn_usage;
157:
158: procedure get_resource_transaction_arr
159: (
371:
372: IF (x_return_status = fnd_api.g_ret_sts_success) then
373: get_resource_transaction_arr(l_resource_transaction_rec_out, x_resource_transaction_rec);
374: end if;
375: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
376: END create_resource_transaction;
377:
378: procedure update_resource_transaction (
379: p_resource_transaction_rec IN fnd_table_of_varchar2_255
392: */
393: gme_api_grp.update_resource_txn (
394: p_rsrc_txn_gtmp_rec => l_resource_transaction_rec_in,
395: x_return_status => x_return_status);
396: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
397: END update_resource_transaction;
398:
399: procedure delete_resource_transaction (
400: p_resource_transaction_rec IN fnd_table_of_varchar2_255
414: gme_api_grp.delete_resource_txn (
415: p_rsrc_txn_gtmp_rec => l_resource_transaction_rec_in,
416: x_return_status => x_return_status);
417:
418: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
419: END delete_resource_transaction;
420:
421: procedure setup_resource_transaction(
422: p_org_id NUMBER,
436: x_return_status := 'E';
437: end if;
438: select * into l_batch_record from gme_batch_header where batch_id = p_batch_id;
439: gme_trans_engine_util.load_rsrc_trans (p_batch_row =>l_batch_record, x_rsc_row_count => l_rsrc_row_count, x_return_status => x_return_status);
440: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
441: END setup_resource_transaction;
442:
443: procedure update_process_parameter
444: (
627: x_process_param_rec.extend;
628: x_process_param_rec(49) := l_process_param_rec_out.DEVICE_ID ;
629:
630:
631: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
632:
633: END update_process_parameter;
634:
635: procedure save_batch (
645: p_commit => fnd_api.g_false,
646: x_return_status => x_return_status,
647: p_clear_qty_cache =>FND_API.g_true
648: );
649: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
650: end save_batch;
651:
652:
653: procedure get_material_transactions(
693: ,p_batch_id => p_batch_id
694: ,x_txns_cur => x_mmt_cur
695: ,x_return_status => x_return_status
696: );
697: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
698:
699: end get_material_transactions;
700:
701: procedure get_lot_transactions(
712: p_transaction_id => p_transaction_id
713: ,x_lot_txns_cur => x_lt_cur
714: ,x_return_status => x_return_status
715: );
716: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
717: end get_lot_transactions;
718:
719: procedure get_material_reservations(
720: p_organization_id IN NUMBER
755: ,x_resvns_cur => x_res_cur
756: ,x_return_status => x_return_status
757: );
758:
759: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
760:
761: end get_material_reservations;
762:
763: procedure get_material_pplots(
777: ,x_pplot_cur => x_pplot_cur
778: ,x_return_status => x_return_status
779: );
780:
781: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
782: end get_material_pplots;
783:
784:
785: procedure convert_um (
812: RAISE uom_conversion_err;
813: END IF;
814:
815: x_return_status := fnd_api.g_ret_sts_success;
816: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
817: exception
818: WHEN uom_conversion_err THEN
819: x_return_status:= fnd_api.g_ret_sts_error;
820: FND_MESSAGE.SET_NAME('GMO','GMO_UM_CONVERT_ERR');
822: FND_MESSAGE.SET_TOKEN('TO_UOM',p_to_um);
823: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
824: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_vbatch_task_pvt.convert_um', FALSE);
825: end if;
826: FND_MSG_PUB.ADD;
827: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
828: WHEN OTHERS THEN
829: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
830: FND_MESSAGE.SET_NAME('GMO','GMO_VBATCH_UNEXPECTED_DB_ERR');
823: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
824: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_vbatch_task_pvt.convert_um', FALSE);
825: end if;
826: FND_MSG_PUB.ADD;
827: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
828: WHEN OTHERS THEN
829: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
830: FND_MESSAGE.SET_NAME('GMO','GMO_VBATCH_UNEXPECTED_DB_ERR');
831: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
832: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
833: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
834: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.convert_um', FALSE);
835: end if;
836: FND_MSG_PUB.ADD;
837: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
838:
839: end convert_um;
840:
833: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
834: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.convert_um', FALSE);
835: end if;
836: FND_MSG_PUB.ADD;
837: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
838:
839: end convert_um;
840:
841: procedure qty_within_deviation (
879: THEN
880:
881: x_return_status := FND_API.G_RET_STS_ERROR;
882:
883: FND_MSG_PUB.Get(
884: p_msg_index => 1,
885: p_data => x_message_data,
886: p_encoded => FND_API.G_FALSE,
887: p_msg_index_out => l_msg_index_out);
890: EXCEPTION
891: WHEN INVALID_ITEM THEN
892: x_return_status:= fnd_api.g_ret_sts_error;
893: FND_MESSAGE.SET_NAME('INV','INV_INVALID_ITEM');
894: FND_MSG_PUB.ADD;
895: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
896: WHEN INCORRECT_FIXED_VALUE THEN
897: x_return_status:= fnd_api.g_ret_sts_error;
898: FND_MESSAGE.SET_NAME('INV','INV_INCORRECT_FIXED_VALUE');
891: WHEN INVALID_ITEM THEN
892: x_return_status:= fnd_api.g_ret_sts_error;
893: FND_MESSAGE.SET_NAME('INV','INV_INVALID_ITEM');
894: FND_MSG_PUB.ADD;
895: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
896: WHEN INCORRECT_FIXED_VALUE THEN
897: x_return_status:= fnd_api.g_ret_sts_error;
898: FND_MESSAGE.SET_NAME('INV','INV_INCORRECT_FIXED_VALUE');
899: FND_MSG_PUB.ADD;
895: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
896: WHEN INCORRECT_FIXED_VALUE THEN
897: x_return_status:= fnd_api.g_ret_sts_error;
898: FND_MESSAGE.SET_NAME('INV','INV_INCORRECT_FIXED_VALUE');
899: FND_MSG_PUB.ADD;
900: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
901: WHEN INVALID_UOM_CONV THEN
902: x_return_status:= fnd_api.g_ret_sts_error;
903: FND_MESSAGE.SET_NAME('INV','INV_INVALID_UOM_CONV');
896: WHEN INCORRECT_FIXED_VALUE THEN
897: x_return_status:= fnd_api.g_ret_sts_error;
898: FND_MESSAGE.SET_NAME('INV','INV_INCORRECT_FIXED_VALUE');
899: FND_MSG_PUB.ADD;
900: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
901: WHEN INVALID_UOM_CONV THEN
902: x_return_status:= fnd_api.g_ret_sts_error;
903: FND_MESSAGE.SET_NAME('INV','INV_INVALID_UOM_CONV');
904: FND_MESSAGE.SET_TOKEN ('VALUE1',p_um);
902: x_return_status:= fnd_api.g_ret_sts_error;
903: FND_MESSAGE.SET_NAME('INV','INV_INVALID_UOM_CONV');
904: FND_MESSAGE.SET_TOKEN ('VALUE1',p_um);
905: FND_MESSAGE.SET_TOKEN ('VALUE2',p_sec_um);
906: FND_MSG_PUB.ADD;
907: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
908: WHEN DEV_LOW_ERROR THEN
909: x_return_status:= fnd_api.g_ret_sts_error;
910: FND_MESSAGE.SET_NAME('INV','INV_DEVIATION_LO_ERR');
903: FND_MESSAGE.SET_NAME('INV','INV_INVALID_UOM_CONV');
904: FND_MESSAGE.SET_TOKEN ('VALUE1',p_um);
905: FND_MESSAGE.SET_TOKEN ('VALUE2',p_sec_um);
906: FND_MSG_PUB.ADD;
907: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
908: WHEN DEV_LOW_ERROR THEN
909: x_return_status:= fnd_api.g_ret_sts_error;
910: FND_MESSAGE.SET_NAME('INV','INV_DEVIATION_LO_ERR');
911: FND_MSG_PUB.ADD;
907: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
908: WHEN DEV_LOW_ERROR THEN
909: x_return_status:= fnd_api.g_ret_sts_error;
910: FND_MESSAGE.SET_NAME('INV','INV_DEVIATION_LO_ERR');
911: FND_MSG_PUB.ADD;
912: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
913: WHEN DEV_HIGH_ERROR THEN
914: x_return_status:= fnd_api.g_ret_sts_error;
915: FND_MESSAGE.SET_NAME('INV','INV_DEVIATION_HI_ERR');
908: WHEN DEV_LOW_ERROR THEN
909: x_return_status:= fnd_api.g_ret_sts_error;
910: FND_MESSAGE.SET_NAME('INV','INV_DEVIATION_LO_ERR');
911: FND_MSG_PUB.ADD;
912: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
913: WHEN DEV_HIGH_ERROR THEN
914: x_return_status:= fnd_api.g_ret_sts_error;
915: FND_MESSAGE.SET_NAME('INV','INV_DEVIATION_HI_ERR');
916: FND_MSG_PUB.ADD;
912: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
913: WHEN DEV_HIGH_ERROR THEN
914: x_return_status:= fnd_api.g_ret_sts_error;
915: FND_MESSAGE.SET_NAME('INV','INV_DEVIATION_HI_ERR');
916: FND_MSG_PUB.ADD;
917: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
918: WHEN OTHERS THEN
919: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
920: FND_MESSAGE.SET_NAME('GMO','GMO_VBATCH_UNEXPECTED_DB_ERR');
913: WHEN DEV_HIGH_ERROR THEN
914: x_return_status:= fnd_api.g_ret_sts_error;
915: FND_MESSAGE.SET_NAME('INV','INV_DEVIATION_HI_ERR');
916: FND_MSG_PUB.ADD;
917: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
918: WHEN OTHERS THEN
919: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
920: FND_MESSAGE.SET_NAME('GMO','GMO_VBATCH_UNEXPECTED_DB_ERR');
921: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
922: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
923: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
924: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.qty_within_deviation', FALSE);
925: end if;
926: FND_MSG_PUB.ADD;
927: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
928: END qty_within_deviation;
929:
930: procedure get_dispense_um(
923: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
924: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.qty_within_deviation', FALSE);
925: end if;
926: FND_MSG_PUB.ADD;
927: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
928: END qty_within_deviation;
929:
930: procedure get_dispense_um(
931: p_material_detail_id IN NUMBER
948: RAISE DISP_NOT_REQ_EXCEPTION;
949: end if;
950: x_dispense_um := l_dispense_config_row.dispense_uom;
951: x_return_status := fnd_api.g_ret_sts_success;
952: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
953: exception
954: when DISP_NOT_REQ_EXCEPTION then
955: x_return_status:= fnd_api.g_ret_sts_error;
956: FND_MESSAGE.SET_NAME('GMO','GMO_DISP_DISPENSE_NOT_REQ_ERR');
956: FND_MESSAGE.SET_NAME('GMO','GMO_DISP_DISPENSE_NOT_REQ_ERR');
957: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
958: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_vbatch_task_pvt.get_dispense_um', FALSE);
959: end if;
960: FND_MSG_PUB.ADD;
961: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
962: WHEN OTHERS THEN
963: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
964: FND_MESSAGE.SET_NAME('GMO','GMO_VBATCH_UNEXPECTED_DB_ERR');
957: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
958: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_vbatch_task_pvt.get_dispense_um', FALSE);
959: end if;
960: FND_MSG_PUB.ADD;
961: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
962: WHEN OTHERS THEN
963: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
964: FND_MESSAGE.SET_NAME('GMO','GMO_VBATCH_UNEXPECTED_DB_ERR');
965: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
966: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
967: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
968: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.get_dispense_um', FALSE);
969: end if;
970: FND_MSG_PUB.ADD;
971: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
972:
973: end get_dispense_um;
974:
967: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
968: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.get_dispense_um', FALSE);
969: end if;
970: FND_MSG_PUB.ADD;
971: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
972:
973: end get_dispense_um;
974:
975: procedure relieve_reservation(
988: ,p_prim_relieve_qty => p_prim_relieve_quantity
989: ,x_return_status => x_return_status
990: );
991:
992: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
993:
994: EXCEPTION
995: WHEN OTHERS THEN
996: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
999: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
1000: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1001: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.get_resource_txn_end_date', FALSE);
1002: end if;
1003: FND_MSG_PUB.ADD;
1004: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1005: END relieve_reservation;
1006:
1007: procedure relieve_pending_lot(
1000: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1001: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.get_resource_txn_end_date', FALSE);
1002: end if;
1003: FND_MSG_PUB.ADD;
1004: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1005: END relieve_reservation;
1006:
1007: procedure relieve_pending_lot(
1008: p_pending_lot_id IN NUMBER
1021: ,p_secondary_quantity => p_secondary_quantity
1022: ,x_return_status => x_return_status
1023: );
1024:
1025: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1026:
1027: EXCEPTION
1028: WHEN OTHERS THEN
1029: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
1032: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
1033: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1034: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.relieve_pending_lot', FALSE);
1035: end if;
1036: FND_MSG_PUB.ADD;
1037: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1038: END relieve_pending_lot;
1039:
1040:
1033: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1034: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.relieve_pending_lot', FALSE);
1035: end if;
1036: FND_MSG_PUB.ADD;
1037: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1038: END relieve_pending_lot;
1039:
1040:
1041: procedure create_material_transaction(
1086: p_mmli_tbl => l_mtl_lot_tbl,
1087: x_return_status => x_return_status
1088: );
1089:
1090: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1091:
1092: EXCEPTION
1093: WHEN OTHERS THEN
1094: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
1097: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
1098: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1099: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.create_material_transaction', FALSE);
1100: end if;
1101: FND_MSG_PUB.ADD;
1102: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1103: END create_material_transaction;
1104:
1105:
1098: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1099: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.create_material_transaction', FALSE);
1100: end if;
1101: FND_MSG_PUB.ADD;
1102: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1103: END create_material_transaction;
1104:
1105:
1106:
1154: p_mmli_tbl => l_mtl_lot_tbl,
1155: x_return_status => x_return_status
1156: );
1157:
1158: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1159:
1160:
1161: EXCEPTION
1162: WHEN OTHERS THEN
1166: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
1167: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1168: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.update_material_transaction', FALSE);
1169: end if;
1170: FND_MSG_PUB.ADD;
1171: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1172: END update_material_transaction;
1173:
1174:
1167: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1168: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.update_material_transaction', FALSE);
1169: end if;
1170: FND_MSG_PUB.ADD;
1171: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1172: END update_material_transaction;
1173:
1174:
1175: procedure delete_material_transaction(
1220: p_transaction_id => l_mtl_txn_rec.TRANSACTION_INTERFACE_ID,
1221: x_return_status => x_return_status
1222: );
1223:
1224: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1225:
1226: EXCEPTION
1227: WHEN OTHERS THEN
1228: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
1231: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
1232: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1233: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.delete_material_transaction', FALSE);
1234: end if;
1235: FND_MSG_PUB.ADD;
1236: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1237: END delete_material_transaction;
1238:
1239: procedure create_lot(
1232: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1233: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.delete_material_transaction', FALSE);
1234: end if;
1235: FND_MSG_PUB.ADD;
1236: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1237: END delete_material_transaction;
1238:
1239: procedure create_lot(
1240: p_lot_rec IN fnd_table_of_varchar2_255
1311: , p_supplier_lot_number => NULL
1312: , p_vendor_name => NULL
1313: , p_source => NULL
1314: ) ;
1315: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1316: EXCEPTION
1317: WHEN OTHERS THEN
1318: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
1319: FND_MESSAGE.SET_NAME('GMO','GMO_VBATCH_UNEXPECTED_DB_ERR');
1321: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
1322: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1323: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.create_lot', FALSE);
1324: end if;
1325: FND_MSG_PUB.ADD;
1326: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1327: END create_lot;
1328:
1329: procedure generate_lot(
1322: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1323: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.create_lot', FALSE);
1324: end if;
1325: FND_MSG_PUB.ADD;
1326: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1327: END create_lot;
1328:
1329: procedure generate_lot(
1330: p_organization_id IN NUMBER
1362: x_msg_count => x_message_count,
1363: x_msg_data => x_message_data
1364: );
1365:
1366: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1367: EXCEPTION
1368: WHEN OTHERS THEN
1369: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
1370: FND_MESSAGE.SET_NAME('GMO','GMO_VBATCH_UNEXPECTED_DB_ERR');
1372: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
1373: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1374: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.generate_lot', FALSE);
1375: end if;
1376: FND_MSG_PUB.ADD;
1377: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1378: END generate_lot;
1379:
1380: procedure get_lot_event_key (
1373: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1374: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_vbatch_task_pvt.generate_lot', FALSE);
1375: end if;
1376: FND_MSG_PUB.ADD;
1377: FND_MSG_PUB.Count_And_Get (p_count => x_message_count, p_data => x_message_data);
1378: END generate_lot;
1379:
1380: procedure get_lot_event_key (
1381: p_organization_id IN NUMBER