[Home] [Help]
1: PACKAGE BODY INV_LABEL_PVT5 AS
2: /* $Header: INVLAP5B.pls 120.36.12020000.10 2013/02/28 08:14:16 srsomasu ship $ */
3:
4: -- Bug 2795525 : This mask is used to mask all date fields.
5: G_DATE_FORMAT_MASK VARCHAR2(100) := INV_LABEL.G_DATE_FORMAT_MASK;
1: PACKAGE BODY INV_LABEL_PVT5 AS
2: /* $Header: INVLAP5B.pls 120.36.12020000.10 2013/02/28 08:14:16 srsomasu ship $ */
3:
4: -- Bug 2795525 : This mask is used to mask all date fields.
5: G_DATE_FORMAT_MASK VARCHAR2(100) := INV_LABEL.G_DATE_FORMAT_MASK;
6:
7: LABEL_B CONSTANT VARCHAR2(50) := '
9: VARIABLE_B CONSTANT VARCHAR2(50) := '
11: TAG_E CONSTANT VARCHAR2(50) := '>'||fnd_global.local_chr(10);
12: l_debug number := inv_label.l_debug;--Conf Label ER
13:
14: g_get_hash_for_insert NUMBER := 1;
15: g_get_hash_for_retrieve NUMBER := 0;
16: g_count_custom_sql NUMBER := 0; -- Added for Bug#4179391
37:
38: PROCEDURE trace(p_message IN VARCHAR2) iS
39: BEGIN
40: IF l_debug = 1 THEN--Conf Label ER
41: inv_label.trace(p_message, 'LABEL_LPN_SUM');
42: END IF;
43: END trace;
44:
45:
161: /****************************************************************************
162: * p_transaction_identifier :
163: ****************************************************************************/
164: PROCEDURE get_variable_data(
165: x_variable_content OUT NOCOPY INV_LABEL.label_tbl_type
166: , x_msg_count OUT NOCOPY NUMBER
167: , x_msg_data OUT NOCOPY VARCHAR2
168: , x_return_status OUT NOCOPY VARCHAR2
169: , p_label_type_info IN INV_LABEL.label_type_rec
165: x_variable_content OUT NOCOPY INV_LABEL.label_tbl_type
166: , x_msg_count OUT NOCOPY NUMBER
167: , x_msg_data OUT NOCOPY VARCHAR2
168: , x_return_status OUT NOCOPY VARCHAR2
169: , p_label_type_info IN INV_LABEL.label_type_rec
170: , p_transaction_id IN NUMBER
171: , p_input_param IN MTL_MATERIAL_TRANSACTIONS_TEMP%ROWTYPE
172: , p_lpn_id IN NUMBER
173: , p_transaction_identifier IN NUMBER
1328: l_purchase_order PO_HEADERS_ALL.SEGMENT1%TYPE;
1329:
1330: l_content_item_data LONG;
1331:
1332: l_selected_fields INV_LABEL.label_field_variable_tbl_type;
1333: l_selected_fields_count NUMBER;
1334:
1335: l_content_rec_index NUMBER := 0;
1336:
1384: ------------------------End of this change for Custom Labels project code--------------------
1385:
1386: l_organization_id NUMBER;
1387:
1388: l_lpn_table inv_label.lpn_table_type;
1389: l_lpn_table_index NUMBER;
1390: l_lpn_info lpn_data_type_rec; --lpn_data_tbl_type;
1391: l_item_info item_data_type_rec; --item_data_tbl_type;
1392:
1472: l_cust_source_line_id NUMBER; -- may be MO line id or PO line id or SO line id
1473: l_cust_label_type CONSTANT NUMBER:=5;
1474: l_cust_label_format_id NUMBER;
1475: l_cust_entity_type CONSTANT VARCHAR2(100):= 'LPN';
1476: l_cust_entity_table inv_label.l_cust_entity_table_type;
1477: l_cust_entity_table_copy inv_label.l_cust_entity_table_type;
1478: l_cust_parentchild_table inv_label.l_cust_entity_table_type;
1479: l_se_lpn_id NUMBER;
1480: l_no_cust_label BOOLEAN;
1473: l_cust_label_type CONSTANT NUMBER:=5;
1474: l_cust_label_format_id NUMBER;
1475: l_cust_entity_type CONSTANT VARCHAR2(100):= 'LPN';
1476: l_cust_entity_table inv_label.l_cust_entity_table_type;
1477: l_cust_entity_table_copy inv_label.l_cust_entity_table_type;
1478: l_cust_parentchild_table inv_label.l_cust_entity_table_type;
1479: l_se_lpn_id NUMBER;
1480: l_no_cust_label BOOLEAN;
1481: l_rcv_lpn_tmp_table rcv_label_tbl_type;
1474: l_cust_label_format_id NUMBER;
1475: l_cust_entity_type CONSTANT VARCHAR2(100):= 'LPN';
1476: l_cust_entity_table inv_label.l_cust_entity_table_type;
1477: l_cust_entity_table_copy inv_label.l_cust_entity_table_type;
1478: l_cust_parentchild_table inv_label.l_cust_entity_table_type;
1479: l_se_lpn_id NUMBER;
1480: l_no_cust_label BOOLEAN;
1481: l_rcv_lpn_tmp_table rcv_label_tbl_type;
1482: cust_index NUMBER;
1483: core_index NUMBER;
1484: cust_copy_ix NUMBER;
1485: l_count NUMBER;
1486: new_valid_lpn_exists BOOLEAN;
1487: l_lpn_table_copy inv_label.lpn_table_type;
1488: l_rcv_lpn_table_copy rcv_label_tbl_type;
1489:
1490: CURSOR nested_parent_lpn_cursor (p_parent_lpn_id NUMBER) IS
1491: SELECT lpn_id
1506: CONNECT BY parent_lpn_id = PRIOR lpn_id;
1507: --END Conf Label ER
1508:
1509: BEGIN
1510: l_debug := INV_LABEL.l_debug;
1511: IF (l_debug = 1) THEN
1512: trace('**In PVT5: LPN Summary label**');
1513: trace(' Business_flow='||p_label_type_info.business_flow_code ||
1514: ', Transaction ID='||p_transaction_id ||
1542: -- txn driven
1543: i := 1;
1544: IF p_label_type_info.business_flow_code in (1,2,3,4) THEN
1545: -- Receipt, Inspection, Delivery, Putaway
1546: IF ( p_transaction_identifier = INV_LABEL.TRX_ID_RT) OR l_patch_level = 1 THEN
1547: trace('is J patchset ');
1548: -- New Architecture : Get LPN from RT :J-DEV
1549: -- Applicable with DM.J and IProc.J
1550: FOR v_rt_lpn IN c_rt_lpn LOOP
1618: END IF; -- 10042570 addtion
1619: END IF ; -- 10042570
1620: --l_rlpn_ndx := l_rlpn_ndx+1;
1621: END LOOP;
1622: l_cust_transaction_identifier := INV_LABEL.TRX_ID_C_RT; -- Conf Label ER
1623: ELSE
1624: -- Old Architecture
1625: IF p_label_type_info.business_flow_code = 2 THEN
1626: -- Inspection
1665: l_note_to_receiver := v_rti_lpn.note_to_receiver;
1666: i := i+1;
1667: END LOOP;
1668: END IF; -- p_label_type_info.business_flow_code = 2
1669: END IF; -- p_transaction_identifier = INV_LABEL.TRX_ID_RT
1670: ELSIF p_label_type_info.business_flow_code in (6) THEN
1671: -- Cross-Dock, Pick Load and Pick Drop
1672: -- The delivery_detail_id of the line in WDD which has the LPN_ID
1673: -- is passed , get lpn_id from WDD lines
1684: l_lpn_table(1) := l_lpn_id;
1685: END IF;
1686: END IF;
1687: --START Conf Label ER
1688: l_cust_transaction_identifier := INV_LABEL.TRX_ID_C_WDD;
1689: l_cust_org_id := p_organization_id;
1690: l_cust_sub_code := l_subinventory_code;
1691: l_cust_locator_id := l_locator_id;
1692: --END Conf Label ER
1696: FOR v_wnd_lpn IN c_wnd_lpn LOOP
1697: l_lpn_table(i) := v_wnd_lpn.lpn_id;
1698: i := i+1;
1699: END LOOP;
1700: l_cust_transaction_identifier := INV_LABEL.TRX_ID_C_WND; --Conf Label ER
1701: ELSIF p_label_type_info.business_flow_code in (22) THEN
1702: -- Cartonization: the lpn_id is in cartonization_id
1703: -- Set flag to so that packaging history will be checked for items.
1704: cartonization_flag := 1;
1723: l_lpn_id := p_transaction_id;
1724: l_lpn_table(1) := l_lpn_id;
1725: /* Bug# 3423817*/
1726: l_pack_level := l_pack_level + 1;
1727: l_cust_transaction_identifier := INV_LABEL.TRX_ID_C_LPN;--Conf Label ER
1728:
1729: ELSIF p_label_type_info.business_flow_code = INV_LABEL.WMS_BF_IMPORT_ASN THEN
1730: IF ( p_transaction_identifier = INV_LABEL.TRX_ID_RSH) THEN
1731: -- New Architecture for ASN : Get LPN details from RSH :J-DEV
1725: /* Bug# 3423817*/
1726: l_pack_level := l_pack_level + 1;
1727: l_cust_transaction_identifier := INV_LABEL.TRX_ID_C_LPN;--Conf Label ER
1728:
1729: ELSIF p_label_type_info.business_flow_code = INV_LABEL.WMS_BF_IMPORT_ASN THEN
1730: IF ( p_transaction_identifier = INV_LABEL.TRX_ID_RSH) THEN
1731: -- New Architecture for ASN : Get LPN details from RSH :J-DEV
1732: -- Applicable with DM.J and IProc.J
1733: -- First retrieve the header level info
1726: l_pack_level := l_pack_level + 1;
1727: l_cust_transaction_identifier := INV_LABEL.TRX_ID_C_LPN;--Conf Label ER
1728:
1729: ELSIF p_label_type_info.business_flow_code = INV_LABEL.WMS_BF_IMPORT_ASN THEN
1730: IF ( p_transaction_identifier = INV_LABEL.TRX_ID_RSH) THEN
1731: -- New Architecture for ASN : Get LPN details from RSH :J-DEV
1732: -- Applicable with DM.J and IProc.J
1733: -- First retrieve the header level info
1734: SELECT shipment_num asn_num, shipped_date shipment_date,
1790:
1791: -- Fields queried from RSH
1792: l_rcv_lpn_table(l_rlpn_ndx).receipt_num := l_rcv_isp_header.receipt_num;
1793: END LOOP;
1794: l_cust_transaction_identifier := INV_LABEL.TRX_ID_C_RSH; --Conf Label ER
1795: ELSE
1796: -- Old Architecture
1797: l_lpn_table(1) := p_input_param.lpn_id;
1798: END IF;
1832: l_cust_sub_code := l_subinventory_code;
1833: l_cust_locator_id := l_locator_id;
1834: l_cust_rev := p_revision;
1835: l_cust_lot := p_lot_number;
1836: l_cust_transaction_identifier := INV_LABEL.TRX_ID_C_MMTT;
1837: --END Conf Label ER
1838: END IF;
1839: ELSIF p_label_type_info.business_flow_code in (27) THEN
1840: -- Putaway pregeneration
1845: l_locator_id := v_pregen_lpn.locator_id;
1846: p_qty := v_pregen_lpn.quantity; --bug8775458
1847:
1848: --START Conf Label ER
1849: l_cust_transaction_identifier := INV_LABEL.TRX_ID_C_MMTT;
1850: l_cust_org_id := v_pregen_lpn.ORGANIZATION_ID;
1851: l_cust_item_id := v_pregen_lpn.inventory_item_id;
1852: l_cust_rev := v_pregen_lpn.revision;
1853: l_cust_sub_code := l_subinventory_code;
1907: RETURN;
1908: ELSE
1909: CLOSE c_mmtt_lpn;
1910:
1911: l_cust_transaction_identifier := INV_LABEL.TRX_ID_C_MMTT; -- Conf Label ER
1912:
1913: --Bug 4891916. For cycle count, opened the cursor to fetch
1914: --values for cycle count header name and counter
1915: IF p_label_type_info.business_flow_code = 8 THEN
2035: l_lpn_table(1) := l_lpn_id;
2036: END IF;
2037: CLOSE mcce_lpn_cur ;
2038: --START Conf Label ER
2039: l_cust_transaction_identifier := INV_LABEL.TRX_ID_C_MCCE;
2040: l_cust_org_id := l_organization_id;
2041: l_cust_item_id := l_inventory_item_id;
2042: l_cust_rev := l_revision;
2043: l_cust_sub_code := l_subinventory_code;
2071: IF l_lpn_id IS NOT NULL THEN
2072: l_lpn_table(1) := l_lpn_id;
2073: END IF;
2074: --START Conf Label ER
2075: l_cust_transaction_identifier := INV_LABEL.TRX_ID_C_MMTT;
2076: l_cust_org_id := p_organization_id;
2077: l_cust_item_id := p_inventory_item_id;
2078: l_cust_sub_code := l_printer_sub;--this is from subinventory code
2079: l_cust_locator_id := l_locator_id;
2093: FOR v_flow_mti_lpn IN c_flow_lpn_mti LOOP
2094: l_lpn_table(i) :=v_flow_mti_lpn.lpn_id;
2095: i := i+1;
2096: --START Conf Label ER
2097: l_cust_transaction_identifier := INV_LABEL.TRX_ID_C_MTI;
2098: l_cust_org_id := v_flow_mti_lpn.ORGANIZATION_ID;
2099: l_cust_item_id := v_flow_mti_lpn.inventory_item_id;
2100: l_cust_rev := v_flow_mti_lpn.revision;
2101: l_cust_sub_code := v_flow_mti_lpn.SUBINVENTORY_CODE;
2111: FOR v_flow_mol_lpn IN c_flow_lpn_mol LOOP --Conf Label ER - changed cursor name from c_flow_lpn_mti to c_flow_lpn_mol
2112: l_lpn_table(i) :=v_flow_mol_lpn.lpn_id;
2113: i := i+1;
2114: --START Conf Label ER
2115: l_cust_transaction_identifier := INV_LABEL.TRX_ID_C_MTRL;
2116: l_cust_org_id := v_flow_mol_lpn.ORGANIZATION_ID;
2117: l_cust_item_id := v_flow_mol_lpn.inventory_item_id;
2118: l_cust_rev := v_flow_mol_lpn.revision;
2119: l_cust_sub_code := v_flow_mol_lpn.TO_SUBINVENTORY_CODE;
2143: trace(' l_cur_item_id : '|| l_cur_item_id);
2144: trace(' p_inventory_item_id : '|| p_inventory_item_id);
2145:
2146: l_lpn_table(1) := nvl(p_lpn_id,p_input_param.lpn_id);
2147: l_cust_transaction_identifier := INV_LABEL.TRX_ID_C_NULL;--Conf Label ER
2148: END IF;
2149: END IF;
2150:
2151: --START Conf Label ER
2393:
2394: IF (l_debug = 1) THEN
2395: trace(' Getting selected fields ');
2396: END IF;
2397: INV_LABEL.GET_VARIABLES_FOR_FORMAT(
2398: x_variables => l_selected_fields
2399: , x_variables_count => l_selected_fields_count
2400: , x_is_variable_exist => l_is_epc_exist
2401: , p_format_id => p_label_type_info.default_format_id
2704: l_item_info.lot_number_status := NULL;
2705: IF (l_debug = 1) THEN
2706: trace('going to get_txn_lpn_status');
2707: END IF;
2708: l_material_status_code := INV_LABEL.get_txn_lpn_status(p_lpn_id=>l_lpn_id,
2709: p_transaction_id => p_transaction_id,
2710: p_organization_id =>v_lpn_content.organization_id ,
2711: p_business_flow =>p_label_type_info.business_flow_code);
2712: END IF;
2730: l_label_format_id := null;
2731: l_label_format := null;
2732: END IF;
2733: /* Bug 3229533 */
2734: INV_LABEL.GET_FORMAT_WITH_RULE
2735: ( p_document_id =>p_label_type_info.label_type_id,
2736: p_label_format_id =>p_label_type_info.manual_format_id,
2737: p_organization_id =>v_lpn_content.organization_id,
2738: p_inventory_item_id =>v_lpn_content.inventory_item_id,
2823:
2824: IF (l_debug = 1) THEN
2825: trace(' Getting selected fields for label_format_id :'||l_label_format_id);
2826: END IF;
2827: INV_LABEL.get_variables_for_format
2828: (
2829: x_variables => l_selected_fields
2830: , x_variables_count => l_selected_fields_count
2831: , x_is_variable_exist => l_is_epc_exist
2898:
2899: WMS_EPC_PVT.generate_epc
2900: (p_org_id => v_lpn_content.organization_id,
2901: p_label_type_id => p_label_type_info.label_type_id, -- 5
2902: p_group_id => inv_label.epc_group_id,
2903: p_label_format_id => l_label_format_id,
2904: p_label_request_id => l_label_request_id,
2905: p_business_flow_code => p_label_type_info.business_flow_code,
2906: x_epc => l_epc,
2909: );
2910:
2911: IF (l_debug = 1) THEN
2912: trace('Called generate_epc with ');
2913: trace('p_label_type_id='||p_label_type_info.label_type_id||',p_group_id='||inv_label.epc_group_id);
2914: trace('l_label_request_id='||l_label_request_id||',p_user_id='||fnd_global.user_id);
2915: trace('l_label_format_id='||l_label_format_id||',p_org_id='||v_lpn_content.organization_id);
2916: trace('x_epc='||l_epc);
2917: trace('x_return_status='||l_epc_ret_status);
2966: END IF; -- IF l_content_rec_index = 1
2967:
2968:
2969: -- Added for UCC 128 J Bug #3067059
2970: INV_LABEL.is_item_gtin_enabled
2971: (
2972: x_return_status => l_return_status
2973: , x_gtin_enabled => l_gtin_enabled
2974: , x_gtin => l_gtin
2986: IF (l_debug = 1) THEN
2987: trace('Inside New Label');
2988: END IF;
2989:
2990: l_label_status := INV_LABEL.G_SUCCESS;
2991: l_label_err_msg := NULL;
2992:
2993: row_index_per_label := 1;
2994: l_content_item_data := l_content_item_data || LABEL_B;
3007: -- Only do this if it is not the first label
3008: /* Bug 3229533
3009: IF l_content_rec_index <> 1 THEN
3010:
3011: INV_LABEL.GET_FORMAT_WITH_RULE
3012: ( p_document_id =>p_label_type_info.label_type_id,
3013: p_label_format_id =>p_label_type_info.manual_format_id,
3014: p_organization_id =>v_lpn_content.organization_id,
3015: p_inventory_item_id =>v_lpn_content.inventory_item_id,
3084: END LOOP;
3085:
3086: IF (c_sql_stmt%rowcount=1 AND l_sql_stmt_result IS NULL) THEN
3087: x_return_status := FND_API.G_RET_STS_SUCCESS;
3088: l_custom_sql_ret_status := INV_LABEL.G_WARNING;
3089: fnd_message.set_name('WMS','WMS_CS_NULL_VALUE_RETURNED');
3090: fnd_msg_pub.ADD;
3091: -- Fix for bug: 4179593 Start
3092: --fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => l_custom_sql_ret_msg);
3105: trace('Custom Labels Trace [INVLAP5B.pls]: At Breadcrumb 3');
3106: trace('Custom Labels Trace [INVLAP5B.pls]: WARNING: No row returned by the Custom SQL query');
3107: END IF;
3108: x_return_status := FND_API.G_RET_STS_SUCCESS;
3109: l_custom_sql_ret_status := INV_LABEL.G_WARNING;
3110: fnd_message.set_name('WMS','WMS_CS_NO_DATA_FOUND');
3111: fnd_msg_pub.ADD;
3112: -- Fix for bug: 4179593 Start
3113: --fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => l_custom_sql_ret_msg);
3175:
3176: l_variable_name := get_variable_name('current_date', row_index_per_label-1, l_label_format_id);
3177: IF l_variable_name IS NOT NULL THEN
3178: l_content_item_data := l_content_item_data || VARIABLE_B ||
3179: l_variable_name || '">' || INV_LABEL.G_DATE || VARIABLE_E;
3180: END IF;
3181: l_variable_name := get_variable_name('current_time', row_index_per_label-1, l_label_format_id);
3182: IF l_variable_name IS NOT NULL THEN
3183: l_content_item_data := l_content_item_data || VARIABLE_B ||
3180: END IF;
3181: l_variable_name := get_variable_name('current_time', row_index_per_label-1, l_label_format_id);
3182: IF l_variable_name IS NOT NULL THEN
3183: l_content_item_data := l_content_item_data || VARIABLE_B ||
3184: l_variable_name || '">' || INV_LABEL.G_TIME || VARIABLE_E;
3185: END IF;
3186: l_variable_name := get_variable_name('request_user', row_index_per_label-1, l_label_format_id);
3187: IF l_variable_name IS NOT NULL THEN
3188: l_content_item_data := l_content_item_data || VARIABLE_B ||
3185: END IF;
3186: l_variable_name := get_variable_name('request_user', row_index_per_label-1, l_label_format_id);
3187: IF l_variable_name IS NOT NULL THEN
3188: l_content_item_data := l_content_item_data || VARIABLE_B ||
3189: l_variable_name || '">' || INV_LABEL.G_USER || VARIABLE_E;
3190: END IF;
3191: l_variable_name := get_variable_name('lpn', row_index_per_label-1, l_label_format_id);
3192: IF l_variable_name IS NOT NULL THEN
3193: l_content_item_data := l_content_item_data || VARIABLE_B ||
4154: l_content_item_data := l_content_item_data || variable_b ||
4155: l_variable_name || '">' || l_epc || variable_e;
4156: l_label_err_msg := l_epc_ret_msg;
4157: IF l_epc_ret_status = 'U' THEN
4158: l_label_status := INV_LABEL.G_ERROR;
4159: ELSIF l_epc_ret_status = 'E' THEN
4160: l_label_status := INV_LABEL.G_WARNING;
4161: END IF;
4162:
4156: l_label_err_msg := l_epc_ret_msg;
4157: IF l_epc_ret_status = 'U' THEN
4158: l_label_status := INV_LABEL.G_ERROR;
4159: ELSIF l_epc_ret_status = 'E' THEN
4160: l_label_status := INV_LABEL.G_WARNING;
4161: END IF;
4162:
4163: END IF;
4164:
4182: ------------------------Start of changes for Custom Labels project code------------------
4183:
4184: -- Fix for bug: 4179593 Start
4185: IF (l_CustSqlWarnFlagSet) THEN
4186: l_custom_sql_ret_status := INV_LABEL.G_WARNING;
4187: l_custom_sql_ret_msg := l_CustSqlWarnMsg;
4188: END IF;
4189:
4190: IF (l_CustSqlErrFlagSet) THEN
4413:
4414: ------------------------Start of changes for Custom Labels project code------------------
4415: -- Fix for bug: 4179593 Start
4416: IF (l_CustSqlWarnFlagSet) THEN
4417: l_custom_sql_ret_status := INV_LABEL.G_WARNING;
4418: l_custom_sql_ret_msg := l_CustSqlWarnMsg;
4419: END IF;
4420:
4421: IF (l_CustSqlErrFlagSet) THEN
4494: ------------------------Start of changes for Custom Labels project code------------------
4495:
4496: -- Fix for bug: 4179593 Start
4497: IF (l_CustSqlWarnFlagSet) THEN
4498: l_custom_sql_ret_status := INV_LABEL.G_WARNING;
4499: l_custom_sql_ret_msg := l_CustSqlWarnMsg;
4500: END IF;
4501:
4502: IF (l_CustSqlErrFlagSet) THEN
4585: x_variable_content OUT NOCOPY LONG
4586: , x_msg_count OUT NOCOPY NUMBER
4587: , x_msg_data OUT NOCOPY VARCHAR2
4588: , x_return_status OUT NOCOPY VARCHAR2
4589: , p_label_type_info IN INV_LABEL.label_type_rec
4590: , p_transaction_id IN NUMBER
4591: , p_input_param IN MTL_MATERIAL_TRANSACTIONS_TEMP%ROWTYPE
4592: , p_lpn_id IN NUMBER
4593: , p_transaction_identifier IN NUMBER
4591: , p_input_param IN MTL_MATERIAL_TRANSACTIONS_TEMP%ROWTYPE
4592: , p_lpn_id IN NUMBER
4593: , p_transaction_identifier IN NUMBER
4594: ) IS
4595: l_variable_data_tbl INV_LABEL.label_tbl_type;
4596: BEGIN
4597: get_variable_data(
4598: x_variable_content => l_variable_data_tbl
4599: , x_msg_count => x_msg_count
4613: END LOOP;
4614:
4615: END get_variable_data;
4616:
4617: END INV_LABEL_PVT5;