[Home] [Help]
1: PACKAGE BODY inv_label_pvt13 AS
2: /* $Header: INVLA13B.pls 120.5 2006/05/09 21:52:10 rahugupt noship $ */
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
28: -- l_lpn_id NUMBER;
29: l_transaction_id NUMBER;
30: l_content_lpn_id NUMBER;
31: l_content_item_data LONG;
32: l_selected_fields inv_label.label_field_variable_tbl_type;
33: l_selected_fields_count NUMBER;
34: l_content_rec_index NUMBER := 0;
35: l_label_format_id NUMBER := 0;
36: l_label_format VARCHAR2(100);
127: -- Fix for bug: 4179593 End
128:
129: ------------------------End of this change for Custom Labels project code--------------------
130:
131: l_batch_table_type inv_label_pvt13.batch_table_type;
132:
133: /* main driving cursor */
134:
135: /* dispense pallet QUERY */
309:
310: BEGIN
311: -- Initialize return status as success
312: x_return_status := fnd_api.g_ret_sts_success;
313: l_debug := inv_label.l_debug;
314: l_label_status := INV_LABEL.G_SUCCESS;
315:
316: IF (l_debug = 1) THEN
317: TRACE('**In PVT13: (GMO Label)**');
310: BEGIN
311: -- Initialize return status as success
312: x_return_status := fnd_api.g_ret_sts_success;
313: l_debug := inv_label.l_debug;
314: l_label_status := INV_LABEL.G_SUCCESS;
315:
316: IF (l_debug = 1) THEN
317: TRACE('**In PVT13: (GMO Label)**');
318: TRACE(
324: || p_transaction_identifier
325: );
326: END IF;
327:
328: inv_label.get_variables_for_format(
329: x_variables => l_selected_fields
330: , x_variables_count => l_selected_fields_count
331: , p_format_id => p_label_type_info.default_format_id
332: );
443: ELSIF (p_label_type_info.business_flow_code = 39 and
444: p_label_type_info.label_type_id = 14) -- Process Product
445: THEN
446:
447: if p_transaction_identifier = INV_LABEL.TRX_ID_MMTT then -- process product for transaction lot
448: /* Fetch data for Process Product label types */
449: FOR v_batch_details IN c_process_products(p_transaction_id)
450: LOOP
451: l_batch_table_type(j).organization := v_batch_details.organization;
631:
632: -- insert a record into wms_label_requests entity to
633: -- call the label rules engine to get appropriate label
634:
635: inv_label.get_format_with_rule(
636: p_document_id => p_label_type_info.label_type_id
637: , p_label_format_id => p_label_type_info.manual_format_id
638: , p_organization_id => l_batch_table_type(k).org_id
639: , p_inventory_item_id => l_batch_table_type(k).item_id
659: fnd_message.set_name('WMS', 'WMS_LABL_RULE_ENGINE_FAILED');
660: fnd_msg_pub.ADD;
661: l_label_format := p_label_type_info.default_format_id;
662: l_label_format_id := p_label_type_info.default_format_name;
663: l_label_status := INV_LABEL.G_ERROR;
664: END IF;
665:
666: IF (l_label_format_id IS NOT NULL) THEN
667: -- Derive the fields for the format either passed in or derived via the rules engine.
669: IF (l_debug = 1) THEN
670: TRACE(' Getting variables for new format '|| l_label_format);
671: END IF;
672:
673: inv_label.get_variables_for_format(
674: x_variables => l_selected_fields
675: , x_variables_count => l_selected_fields_count
676: , p_format_id => l_label_format_id
677: );
784: END LOOP;
785:
786: IF (c_sql_stmt%rowcount=1 AND l_sql_stmt_result IS NULL) THEN
787: x_return_status := FND_API.G_RET_STS_SUCCESS;
788: l_custom_sql_ret_status := INV_LABEL.G_WARNING;
789: fnd_message.set_name('WMS','WMS_CS_NULL_VALUE_RETURNED');
790: fnd_msg_pub.ADD;
791: -- Fix for bug: 4179593 Start
792: --fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => l_custom_sql_ret_msg);
805: trace('Custom Labels Trace [INVLA13B.pls]: At Breadcrumb 3');
806: trace('Custom Labels Trace [INVLA13B.pls]: WARNING: No row returned by the Custom SQL query');
807: END IF;
808: x_return_status := FND_API.G_RET_STS_SUCCESS;
809: l_custom_sql_ret_status := INV_LABEL.G_WARNING;
810: fnd_message.set_name('WMS','WMS_CS_NO_DATA_FOUND');
811: fnd_msg_pub.ADD;
812: -- Fix for bug: 4179593 Start
813: --fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => l_custom_sql_ret_msg);
1163: ------------------------Start of changes for Custom Labels project code------------------
1164:
1165: -- Fix for bug: 4179593 Start
1166: IF (l_CustSqlWarnFlagSet) THEN
1167: l_custom_sql_ret_status := INV_LABEL.G_WARNING;
1168: l_custom_sql_ret_msg := l_CustSqlWarnMsg;
1169: END IF;
1170:
1171: IF (l_CustSqlErrFlagSet) THEN
1206: x_variable_content OUT NOCOPY LONG
1207: , x_msg_count OUT NOCOPY NUMBER
1208: , x_msg_data OUT NOCOPY VARCHAR2
1209: , x_return_status OUT NOCOPY VARCHAR2
1210: , p_label_type_info IN inv_label.label_type_rec
1211: , p_transaction_id IN NUMBER
1212: , p_input_param IN mtl_material_transactions_temp%ROWTYPE
1213: , p_transaction_identifier IN NUMBER
1214: ) IS
1211: , p_transaction_id IN NUMBER
1212: , p_input_param IN mtl_material_transactions_temp%ROWTYPE
1213: , p_transaction_identifier IN NUMBER
1214: ) IS
1215: l_variable_data_tbl inv_label.label_tbl_type;
1216: BEGIN
1217: get_variable_data(
1218: x_variable_content => l_variable_data_tbl
1219: , x_msg_count => x_msg_count
1231: x_variable_content || l_variable_data_tbl(i).label_content;
1232: END LOOP;
1233:
1234: END get_variable_data;
1235: END inv_label_pvt13;