3554: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3555:
3556: Cursor c_header_pmts IS
3557: Select payment_number
3558: From oe_payments
3559: Where header_id = p_header_id
3560: and line_id is null
3561: FOR UPDATE NOWAIT;
3562:
3567:
3568: FETCH c_header_pmts into l_payment_number;
3569: EXIT WHEN c_header_pmts%NOTFOUND or c_header_pmts%NOTFOUND is NULL;
3570:
3571: Delete from oe_payments
3572: Where header_id = p_header_id
3573: and nvl(payment_number,0) = nvl(l_payment_number,0);
3574:
3575: END LOOP;
3604: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3605:
3606: cursor c_lock_pmts is
3607: select payment_number
3608: from oe_payments
3609: where line_id = p_line_id
3610: and header_id = p_header_id
3611: FOR UPDATE NOWAIT;
3612:
3617:
3618: FETCH c_lock_pmts into l_payment_number;
3619: EXIT WHEN c_lock_pmts%NOTFOUND or c_lock_pmts%NOTFOUND is NULL;
3620:
3621: Delete from oe_payments
3622: Where line_id = p_line_id
3623: and nvl(payment_number,0) = nvl(l_payment_number,0);
3624:
3625: END LOOP;