The following lines contain the word 'select', 'insert', 'update' or 'delete':
* FUNCTION autonomous_update_ini_complete
* ----------------------------------------------------
* Autonomously update the status to XFER_INI_GL in
* the recipient's system.
*
* Returns the new status.
* ---------------------------------------------------
FUNCTION autonomous_update_ini_complete (
p_trx_id IN number) RETURN varchar2
IS
PRAGMA AUTONOMOUS_TRANSACTION;
SELECT status INTO l_status
FROM fun_trx_headers
WHERE trx_id = p_trx_id
FOR UPDATE;
l_status := fun_gl_transfer.update_status(p_trx_id, l_status);
END autonomous_update_ini_complete;
SELECT rec.party_name
INTO l_recipient_name
FROM fun_trx_headers,
hz_parties rec
WHERE trx_id = l_trx_id
AND recipient_id = rec.party_id;
select ltrim(to_char(decode(nvl(h.reci_amount_cr,0),
0,h.reci_amount_dr,
h.reci_amount_cr),'999999999D99'))||' '||b.currency_code
into l_trx_amount
from fun_trx_headers h, fun_trx_batches b
where b.batch_id = l_batch_id
and h.trx_id = l_trx_id;
SELECT initiator_id INTO l_init_id
FROM fun_trx_batches
WHERE batch_id = l_batch_id;
UPDATE fun_trx_headers
SET init_wf_key = itemkey
WHERE trx_id = l_trx_id;
UPDATE fun_trx_headers
SET reci_wf_key = itemkey
WHERE trx_id = l_trx_id;
SELECT currency_code, from_ledger_id, gl_date, batch_date,
exchange_rate_type
INTO l_trx_currency, l_ledger_id, l_gl_date, l_conv_date,
l_conv_type
FROM fun_trx_batches
WHERE batch_id = l_batch_id;
SELECT to_ledger_id INTO l_ledger_id
FROM fun_trx_headers
WHERE trx_id = l_trx_id;
SELECT currency_code INTO l_gl_currency
FROM gl_ledgers
WHERE ledger_id = l_ledger_id;
SELECT b.from_ledger_id, b.gl_date, b.currency_code,
b.exchange_rate_type, b.batch_date, b.description
INTO l_ledger_id, l_gl_date, l_trx_currency,
l_conv_type, l_conv_date, l_desc
FROM fun_trx_batches b
WHERE b.batch_id = l_batch_id;
SELECT to_ledger_id, description INTO l_ledger_id, l_desc
FROM fun_trx_headers
WHERE trx_id = l_trx_id;
SELECT status INTO l_status
FROM fun_trx_headers
WHERE trx_id = l_trx_id;
SELECT status INTO l_status
FROM fun_trx_headers
WHERE trx_id = l_trx_id;
SELECT status INTO l_status
FROM fun_trx_headers
WHERE trx_id = l_trx_id;
l_params.delete();
* PROCEDURE update_ini_complete
* ----------------------------------------------------
* Update the status to XFER_INI_GL.
* ---------------------------------------------------*/
PROCEDURE update_ini_complete (
itemtype IN varchar2,
itemkey IN varchar2,
actid IN number,
funcmode IN varchar2,
resultout IN OUT NOCOPY varchar2)
IS
l_party_type varchar2(1);
SELECT status INTO l_status
FROM fun_trx_headers
WHERE trx_id = l_trx_id
FOR UPDATE;
l_status := fun_gl_transfer.update_status(l_trx_id, l_status, l_party_type);
wf_core.context('FUN_GLINT_WF', 'UPDATE_INI_COMPLETE',
itemtype, itemkey, TO_CHAR(actid), funcmode);
END update_ini_complete;