[Home] [Help]
55:
56: --Cursors to fetch the user name from the interface record.
57: CURSOR c_qty_user_name(p_qty_if_id VARCHAR2) IS
58: SELECT user_name, item_number
59: FROM gmi_quantity_xml_interface
60: WHERE quantity_interface_id = TO_NUMBER(p_qty_if_id);
61:
62: CURSOR c_item_user_name(p_item_if_id VARCHAR2) IS
63: SELECT user_name, item_number
386: funcmode IN VARCHAR2,
387: resultout IN OUT NOCOPY VARCHAR2 )
388: IS
389:
390: l_interface_rec gmi_quantity_xml_interface%ROWTYPE;
391: l_trans_rec Gmigapi.qty_rec_typ;
392:
393: l_ic_jrnl_mst_row ic_jrnl_mst%ROWTYPE;
394: l_ic_adjs_jnl_row1 ic_adjs_jnl%ROWTYPE;
403: l_record_count NUMBER :=0;
404:
405: CURSOR c_if_rec(p_interface_id NUMBER, p_ext_txn_id NUMBER) IS
406: SELECT *
407: FROM gmi_quantity_xml_interface
408: WHERE quantity_interface_id = p_interface_id
409: AND ext_transaction_id = p_ext_txn_id;
410:
411: l_qty_iface_id NUMBER(15);
596: l_confirm_statuslvl,
597: l_icn,
598: l_event_key);
599:
600: DELETE FROM gmi_quantity_xml_interface
601: WHERE quantity_interface_id = l_qty_iface_id
602: AND ext_transaction_id = l_ext_txn_id;
603:
604: resultout := 'COMPLETE:Y';
1692: PRAGMA AUTONOMOUS_TRANSACTION;
1693:
1694: BEGIN
1695: IF p_proc_name = 'process_transaction' THEN
1696: UPDATE gmi_quantity_xml_interface
1697: SET error_text = SUBSTRB(error_text || p_err_msg, 1, 2000),
1698: processed_ind = 3
1699: WHERE quantity_interface_id = p_if_id;
1700: ELSIF p_proc_name = 'create_item' THEN