[Home] [Help]
1: PACKAGE BODY inv_label_pvt13 AS
2: /* $Header: INVLA13B.pls 120.8 2011/02/01 11:38:16 nimisra ship $ */
3:
4: label_b CONSTANT VARCHAR2(50) := '
9: l_debug NUMBER;
10:
11: PROCEDURE TRACE(p_message VARCHAR2) IS
12: BEGIN
13: inv_label.TRACE(p_message, 'LABEL_INV_13');
14: END TRACE;
15:
16: PROCEDURE get_variable_data(
17: x_variable_content OUT NOCOPY inv_label.label_tbl_type
13: inv_label.TRACE(p_message, 'LABEL_INV_13');
14: END TRACE;
15:
16: PROCEDURE get_variable_data(
17: x_variable_content OUT NOCOPY inv_label.label_tbl_type
18: , x_msg_count OUT NOCOPY NUMBER
19: , x_msg_data OUT NOCOPY VARCHAR2
20: , x_return_status OUT NOCOPY VARCHAR2
21: , p_label_type_info IN inv_label.label_type_rec
17: x_variable_content OUT NOCOPY inv_label.label_tbl_type
18: , x_msg_count OUT NOCOPY NUMBER
19: , x_msg_data OUT NOCOPY VARCHAR2
20: , x_return_status OUT NOCOPY VARCHAR2
21: , p_label_type_info IN inv_label.label_type_rec
22: , p_transaction_id IN NUMBER
23: , p_input_param IN mtl_material_transactions_temp%ROWTYPE
24: , p_transaction_identifier IN NUMBER
25: ) IS
31: l_lpn_id NUMBER := NULL;
32: l_transaction_id NUMBER;
33: l_content_lpn_id NUMBER;
34: l_content_item_data LONG;
35: l_selected_fields inv_label.label_field_variable_tbl_type;
36: l_selected_fields_count NUMBER;
37: l_content_rec_index NUMBER := 0;
38: l_label_format_id NUMBER := 0;
39: l_label_format VARCHAR2(100);
131: -- Fix for bug: 4179593 End
132:
133: ------------------------End of this change for Custom Labels project code--------------------
134:
135: l_batch_table_type inv_label_pvt13.batch_table_type;
136:
137: /* main driving cursor */
138:
139: /* dispense pallet QUERY */
318:
319: BEGIN
320: -- Initialize return status as success
321: x_return_status := fnd_api.g_ret_sts_success;
322: l_debug := inv_label.l_debug;
323: l_label_status := INV_LABEL.G_SUCCESS;
324:
325: IF (l_debug = 1) THEN
326: TRACE('**In PVT13: (GMO Label)**');
319: BEGIN
320: -- Initialize return status as success
321: x_return_status := fnd_api.g_ret_sts_success;
322: l_debug := inv_label.l_debug;
323: l_label_status := INV_LABEL.G_SUCCESS;
324:
325: IF (l_debug = 1) THEN
326: TRACE('**In PVT13: (GMO Label)**');
327: TRACE(
333: || p_transaction_identifier
334: );
335: END IF;
336:
337: inv_label.get_variables_for_format(
338: x_variables => l_selected_fields
339: , x_variables_count => l_selected_fields_count
340: , p_format_id => p_label_type_info.default_format_id
341: );
452: ELSIF (p_label_type_info.business_flow_code = 39 and
453: p_label_type_info.label_type_id = 14) -- Process Product
454: THEN
455:
456: if p_transaction_identifier = INV_LABEL.TRX_ID_MMTT then -- process product for transaction lot
457: /* Fetch data for Process Product label types */
458: FOR v_batch_details IN c_process_products(p_transaction_id)
459: LOOP
460: l_batch_table_type(j).organization := v_batch_details.organization;
649: --
650: -- Bug 9893444
651: -- Passed the LPN id instead of hardcoded NULL
652: --
653: inv_label.get_format_with_rule(
654: p_document_id => p_label_type_info.label_type_id
655: , p_label_format_id => p_label_type_info.manual_format_id
656: , p_organization_id => l_batch_table_type(k).org_id
657: , p_inventory_item_id => l_batch_table_type(k).item_id
677: fnd_message.set_name('WMS', 'WMS_LABL_RULE_ENGINE_FAILED');
678: fnd_msg_pub.ADD;
679: l_label_format := p_label_type_info.default_format_id;
680: l_label_format_id := p_label_type_info.default_format_name;
681: l_label_status := INV_LABEL.G_ERROR;
682: END IF;
683:
684: IF (l_label_format_id IS NOT NULL) THEN
685: -- Derive the fields for the format either passed in or derived via the rules engine.
687: IF (l_debug = 1) THEN
688: TRACE(' Getting variables for new format '|| l_label_format);
689: END IF;
690:
691: inv_label.get_variables_for_format(
692: x_variables => l_selected_fields
693: , x_variables_count => l_selected_fields_count
694: , p_format_id => l_label_format_id
695: );
802: END LOOP;
803:
804: IF (c_sql_stmt%rowcount=1 AND l_sql_stmt_result IS NULL) THEN
805: x_return_status := FND_API.G_RET_STS_SUCCESS;
806: l_custom_sql_ret_status := INV_LABEL.G_WARNING;
807: fnd_message.set_name('WMS','WMS_CS_NULL_VALUE_RETURNED');
808: fnd_msg_pub.ADD;
809: -- Fix for bug: 4179593 Start
810: --fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => l_custom_sql_ret_msg);
823: trace('Custom Labels Trace [INVLA13B.pls]: At Breadcrumb 3');
824: trace('Custom Labels Trace [INVLA13B.pls]: WARNING: No row returned by the Custom SQL query');
825: END IF;
826: x_return_status := FND_API.G_RET_STS_SUCCESS;
827: l_custom_sql_ret_status := INV_LABEL.G_WARNING;
828: fnd_message.set_name('WMS','WMS_CS_NO_DATA_FOUND');
829: fnd_msg_pub.ADD;
830: -- Fix for bug: 4179593 Start
831: --fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => l_custom_sql_ret_msg);
1181: ------------------------Start of changes for Custom Labels project code------------------
1182:
1183: -- Fix for bug: 4179593 Start
1184: IF (l_CustSqlWarnFlagSet) THEN
1185: l_custom_sql_ret_status := INV_LABEL.G_WARNING;
1186: l_custom_sql_ret_msg := l_CustSqlWarnMsg;
1187: END IF;
1188:
1189: IF (l_CustSqlErrFlagSet) THEN
1224: x_variable_content OUT NOCOPY LONG
1225: , x_msg_count OUT NOCOPY NUMBER
1226: , x_msg_data OUT NOCOPY VARCHAR2
1227: , x_return_status OUT NOCOPY VARCHAR2
1228: , p_label_type_info IN inv_label.label_type_rec
1229: , p_transaction_id IN NUMBER
1230: , p_input_param IN mtl_material_transactions_temp%ROWTYPE
1231: , p_transaction_identifier IN NUMBER
1232: ) IS
1229: , p_transaction_id IN NUMBER
1230: , p_input_param IN mtl_material_transactions_temp%ROWTYPE
1231: , p_transaction_identifier IN NUMBER
1232: ) IS
1233: l_variable_data_tbl inv_label.label_tbl_type;
1234: BEGIN
1235: get_variable_data(
1236: x_variable_content => l_variable_data_tbl
1237: , x_msg_count => x_msg_count
1249: x_variable_content || l_variable_data_tbl(i).label_content;
1250: END LOOP;
1251:
1252: END get_variable_data;
1253: END inv_label_pvt13;