1: PACKAGE BODY WMS_CAROUSEL_INTEGRATION_PVT AS
2: /* $Header: WMSCSPVB.pls 120.22 2005/12/06 07:06:53 simran noship $ */
3:
4: --
5: -- Private Procedure to slow down the application if the hardware is not able to keep pace
1335: BEGIN
1336: inv_log_util.trace('MHP:Device='
1337: || p_device_id
1338: || ':'
1339: || p_data, 'WMS_CAROUSEL_INTEGRATION_PVT', 9);
1340: /*
1341: Commented out for Bug# 4624894
1342:
1343: INSERT INTO wms_carousel_log
1826: l_param_delimiter :=
1827: fnd_global.local_chr (l_template_record.parameter_delimiter);
1828: --Convert the ascii csv to a string representation
1829: l_start_delimiter :=
1830: wms_carousel_integration_pvt.ascii_csv_to_string
1831: (l_template_record.start_message_delimiter);
1832: l_end_delimiter :=
1833: wms_carousel_integration_pvt.ascii_csv_to_string
1834: (l_template_record.end_message_delimiter);
1829: l_start_delimiter :=
1830: wms_carousel_integration_pvt.ascii_csv_to_string
1831: (l_template_record.start_message_delimiter);
1832: l_end_delimiter :=
1833: wms_carousel_integration_pvt.ascii_csv_to_string
1834: (l_template_record.end_message_delimiter);
1835:
1836: --l_start_delimiter := l_template_record.start_message_delimiter;
1837: --l_end_delimiter := l_template_record.end_message_delimiter;
1859: (p_device_id, 'Message after stripping start and end delimiters is '
1860: || l_msg
1861: );
1862: END IF;
1863: IF l_msg_type = wms_carousel_integration_pvt.v_xml_msg
1864: THEN
1865: FOR l_comp_record IN msg_component_records (l_template_id)
1866: LOOP
1867: --l_no_of_msg_comps := l_no_of_msg_comps + 1;
1912: --
1913: --
1914: DECLARE
1915: BEGIN
1916: wms_carousel_integration_pvt.get_component_details
1917: (p_device_id => l_device_id,
1918: p_template_id => l_template_id,
1919: p_component_no => l_no_of_msg_comps,
1920: x_component_code => output_table
1951: --
1952: --
1953: output_table (l_no_of_msg_comps).component_value :=
1954: l_attribute_value;
1955: wms_carousel_integration_pvt.populate_response_record
1956: (
1957: p_device_id => p_device_id,
1958: p_component_code => output_table (l_no_of_msg_comps).component_no,
1959: p_msg_component => l_attribute_value,
1972: END IF;
1973: END LOOP;
1974: xmlparser.freeparser (l_parser);
1975: xmldom.freedocument (l_doc);
1976: ELSIF l_msg_type = wms_carousel_integration_pvt.v_msg_with_delimiter
1977: THEN
1978: --This is the start of parsing logic for message of type 2
1979: --Message with delimiter
1980: WHILE l_instr_output <> 0
1995: INTO l_msg_component
1996: FROM DUAL;
1997: DECLARE
1998: BEGIN
1999: wms_carousel_integration_pvt.get_component_details
2000: (p_device_id => l_device_id,
2001: p_template_id => l_template_id,
2002: p_component_no => l_no_of_msg_comps,
2003: x_component_code => output_table (l_no_of_msg_comps).component_no,
2013: RAISE msg_component_exception;
2014: END IF;
2015: output_table (l_no_of_msg_comps).component_value :=
2016: l_msg_component;
2017: wms_carousel_integration_pvt.populate_response_record
2018: (
2019: p_device_id => p_device_id,
2020: p_component_code => output_table (l_no_of_msg_comps).component_no,
2021: p_msg_component => l_msg_component,
2043: || l_msg_component
2044: );
2045: END IF;
2046: END LOOP;
2047: ELSIF l_msg_type = wms_carousel_integration_pvt.v_msg_without_delimiter
2048: THEN
2049: FOR l_comp_record IN msg_component_records (l_template_id)
2050: LOOP
2051: l_no_of_msg_comps := l_no_of_msg_comps + 1;
2076: fnd_global.local_chr (l_comp_record.padding_character)
2077: );
2078: END IF;
2079: BEGIN
2080: wms_carousel_integration_pvt.get_component_details
2081: (p_device_id => l_device_id,
2082: p_template_id => l_template_id,
2083: p_component_no => l_no_of_msg_comps,
2084: x_component_code => output_table (l_no_of_msg_comps).component_no,
2094: RAISE msg_component_exception;
2095: END IF;
2096: output_table (l_no_of_msg_comps).component_value :=
2097: l_msg_component;
2098: wms_carousel_integration_pvt.populate_response_record
2099: (
2100: p_device_id => p_device_id,
2101: p_component_code => output_table (l_no_of_msg_comps).component_no,
2102: p_msg_component => l_msg_component,
2119: --
2120: --
2121: l_start_position := l_start_position + l_comp_record.component_length;
2122: END LOOP;
2123: ELSIF l_msg_type = wms_carousel_integration_pvt.v_vocollect_msg
2124: THEN
2125: WHILE l_instr_output <> 0
2126: LOOP
2127: l_no_of_msg_comps := l_no_of_msg_comps + 1;
2151: INTO l_msg_component
2152: FROM DUAL;
2153: --LOG('p_device_id, l_msg_component: '||l_msg_component);
2154: BEGIN
2155: wms_carousel_integration_pvt.get_component_details
2156: (p_device_id => l_device_id,
2157: p_template_id => l_template_id,
2158: p_component_no => l_no_of_msg_comps,
2159: x_component_code => output_table (l_no_of_msg_comps).component_no,
2185: );
2186: END IF;
2187: output_table (l_no_of_msg_comps).component_value :=
2188: l_msg_component;
2189: wms_carousel_integration_pvt.populate_response_record
2190: (
2191: p_device_id => p_device_id,
2192: p_component_code => output_table (l_no_of_msg_comps).component_no,
2193: p_msg_component => l_msg_component,
2257: || l_debug
2258: );
2259: END IF;
2260:
2261: wms_carousel_integration_pvt.log_response_record
2262: (
2263: p_device_id => p_device_id,
2264: p_response_record => l_response_record
2265: );
2610: LOG(p_device_id, 'Exception in pause_directive:'||SQLERRM);
2611: END IF;
2612: END pause_directive;
2613:
2614: END wms_carousel_integration_pvt;