The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'x'
FROM pn_payment_schedules_all
WHERE lease_id = x_lease_id
AND payment_status_lookup_code <> 'DRAFT'
AND schedule_date > x_schedule_date
AND to_char(schedule_date,'DD') = to_char(x_schedule_date,'DD');
SELECT 'x'
FROM pn_payment_schedules_all
WHERE lease_id = x_lease_id
AND payment_status_lookup_code = 'DRAFT'
AND schedule_date < x_schedule_date;
SELECT 1
INTO dummy
FROM DUAL
WHERE NOT EXISTS (SELECT 1
FROM pn_payment_schedules_all
WHERE lease_id = x_lease_id
AND TO_CHAR(schedule_date,'YYYY-MON-DD') = TO_CHAR(x_schedule_date,'YYYY-MON-DD')
AND (( x_rowid IS NULL ) or (rowid <> x_rowid))
);
SELECT 'x'
FROM pn_payment_items_all
WHERE payment_item_type_lookup_code = 'CASH'
AND payment_schedule_id = x_payment_schedule_id
AND NVL(actual_amount,0) = 0;
SELECT payment_schedule_id
FROM pn_payment_schedules_all
WHERE lease_id = x_lease_id
AND schedule_date > x_schedule_date
AND payment_status_lookup_code = 'DRAFT'
ORDER BY schedule_date;
UPDATE pn_payment_items_all
SET export_to_ap_flag = x_export_flag
WHERE payment_schedule_id = x_payment_schedule_id
AND payment_item_type_lookup_code = 'CASH';
UPDATE pn_payment_items_all
SET export_to_ar_flag = x_export_flag
WHERE payment_schedule_id = x_payment_schedule_id
AND payment_item_type_lookup_code = 'CASH';
SELECT 'A'
FROM DUAL
WHERE EXISTS (SELECT NULL
FROM pn_payment_schedules_all
WHERE lease_id = x_lease_id
AND schedule_date < x_schedule_date
AND on_hold = 'Y');
SELECT actual_amount, currency_code, rate, due_date
FROM pn_payment_items_all
WHERE payment_schedule_id = p_payment_schedule_id
AND payment_item_type_lookup_code = 'CASH';
SELECT 'Y'
FROM dual
WHERE EXISTS (SELECT null
FROM pn_payment_items_all
WHERE payment_schedule_id = p_payment_schedule_id
AND payment_item_type_lookup_code = 'CASH'
AND currency_code <> p_functional_currency);
SELECT org_id
FROM pn_payment_schedules_all
WHERE payment_schedule_id = p_payment_schedule_id;
PROCEDURE Insert_Row (
X_CONTEXT IN VARCHAR2,
X_ROWID IN OUT NOCOPY VARCHAR2,
X_PAYMENT_SCHEDULE_ID IN OUT NOCOPY NUMBER,
X_SCHEDULE_DATE IN DATE,
X_LEASE_CHANGE_ID IN NUMBER,
X_LEASE_ID IN NUMBER,
X_APPROVED_BY_USER_ID IN NUMBER,
X_TRANSFERRED_BY_USER_ID IN NUMBER,
X_PAYMENT_STATUS_LOOKUP_CODE IN VARCHAR2,
X_APPROVAL_DATE IN DATE,
X_TRANSFER_DATE IN DATE,
X_PERIOD_NAME IN VARCHAR2,
X_ATTRIBUTE_CATEGORY IN VARCHAR2,
X_ATTRIBUTE1 IN VARCHAR2,
X_ATTRIBUTE2 IN VARCHAR2,
X_ATTRIBUTE3 IN VARCHAR2,
X_ATTRIBUTE4 IN VARCHAR2,
X_ATTRIBUTE5 IN VARCHAR2,
X_ATTRIBUTE6 IN VARCHAR2,
X_ATTRIBUTE7 IN VARCHAR2,
X_ATTRIBUTE8 IN VARCHAR2,
X_ATTRIBUTE9 IN VARCHAR2,
X_ATTRIBUTE10 IN VARCHAR2,
X_ATTRIBUTE11 IN VARCHAR2,
X_ATTRIBUTE12 IN VARCHAR2,
X_ATTRIBUTE13 IN VARCHAR2,
X_ATTRIBUTE14 IN VARCHAR2,
X_ATTRIBUTE15 IN VARCHAR2,
X_CREATION_DATE IN DATE,
X_CREATED_BY IN NUMBER,
X_LAST_UPDATE_DATE IN DATE,
X_LAST_UPDATED_BY IN NUMBER,
X_LAST_UPDATE_LOGIN IN NUMBER,
x_org_id IN NUMBER
) IS
CURSOR c IS
SELECT ROWID
FROM pn_payment_schedules_all
WHERE payment_schedule_id = x_payment_schedule_id;
SELECT org_id FROM pn_leases_all WHERE lease_id = x_lease_id;
SELECT pn_payment_schedules_s.NEXTVAL
INTO x_payment_schedule_id
FROM DUAL;
INSERT INTO pn_payment_schedules_all
(
PAYMENT_SCHEDULE_ID,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
SCHEDULE_DATE,
LEASE_CHANGE_ID,
LEASE_ID,
APPROVED_BY_USER_ID,
TRANSFERRED_BY_USER_ID,
PAYMENT_STATUS_LOOKUP_CODE,
APPROVAL_DATE,
TRANSFER_DATE,
PERIOD_NAME,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
ON_HOLD,
org_id)
VALUES (
X_PAYMENT_SCHEDULE_ID,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_LOGIN,
X_SCHEDULE_DATE,
X_LEASE_CHANGE_ID,
X_LEASE_ID,
X_APPROVED_BY_USER_ID,
X_TRANSFERRED_BY_USER_ID,
X_PAYMENT_STATUS_LOOKUP_CODE,
X_APPROVAL_DATE,
X_TRANSFER_DATE,
X_PERIOD_NAME,
X_ATTRIBUTE_CATEGORY,
X_ATTRIBUTE1,
X_ATTRIBUTE2,
X_ATTRIBUTE3,
X_ATTRIBUTE4,
X_ATTRIBUTE5,
X_ATTRIBUTE6,
X_ATTRIBUTE7,
X_ATTRIBUTE8,
X_ATTRIBUTE9,
X_ATTRIBUTE10,
X_ATTRIBUTE11,
X_ATTRIBUTE12,
X_ATTRIBUTE13,
X_ATTRIBUTE14,
X_ATTRIBUTE15,
NULL,
l_org_id
);
END Insert_Row;
SELECT *
FROM pn_payment_schedules_all
WHERE payment_schedule_id = x_payment_schedule_id
FOR UPDATE OF payment_schedule_id NOWAIT;
PROCEDURE Update_Row (
X_CONTEXT IN VARCHAR2,
X_PAYMENT_SCHEDULE_ID IN NUMBER,
X_SCHEDULE_DATE IN DATE,
X_APPROVED_BY_USER_ID IN NUMBER,
X_TRANSFERRED_BY_USER_ID IN NUMBER,
X_PAYMENT_STATUS_LOOKUP_CODE IN VARCHAR2,
X_LEASE_FUNCTIONAL_CURRENCY IN VARCHAR2,
X_APPROVAL_DATE IN DATE,
X_TRANSFER_DATE IN DATE,
X_PERIOD_NAME IN VARCHAR2,
X_ATTRIBUTE_CATEGORY IN VARCHAR2,
X_ATTRIBUTE1 IN VARCHAR2,
X_ATTRIBUTE2 IN VARCHAR2,
X_ATTRIBUTE3 IN VARCHAR2,
X_ATTRIBUTE4 IN VARCHAR2,
X_ATTRIBUTE5 IN VARCHAR2,
X_ATTRIBUTE6 IN VARCHAR2,
X_ATTRIBUTE7 IN VARCHAR2,
X_ATTRIBUTE8 IN VARCHAR2,
X_ATTRIBUTE9 IN VARCHAR2,
X_ATTRIBUTE10 IN VARCHAR2,
X_ATTRIBUTE11 IN VARCHAR2,
X_ATTRIBUTE12 IN VARCHAR2,
X_ATTRIBUTE13 IN VARCHAR2,
X_ATTRIBUTE14 IN VARCHAR2,
X_ATTRIBUTE15 IN VARCHAR2,
X_LAST_UPDATE_DATE IN DATE,
X_LAST_UPDATED_BY IN NUMBER,
X_LAST_UPDATE_LOGIN IN NUMBER
)
IS
BEGIN
update_rate(p_pnt_sched_id => x_payment_schedule_id,
p_payment_status_lookup_code => x_payment_status_lookup_code,
p_lease_functional_currency => x_lease_functional_currency,
p_last_updated_by => x_last_updated_by,
p_last_update_date => x_last_update_date,
p_last_update_login => x_last_update_login);
update_accounted_amount (X_PAYMENT_SCHEDULE_ID,
X_PAYMENT_STATUS_LOOKUP_CODE,
X_LEASE_FUNCTIONAL_CURRENCY,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATE_LOGIN );
UPDATE PN_PAYMENT_SCHEDULES_ALL
SET SCHEDULE_DATE = X_SCHEDULE_DATE,
APPROVED_BY_USER_ID = X_APPROVED_BY_USER_ID,
TRANSFERRED_BY_USER_ID = X_TRANSFERRED_BY_USER_ID,
PAYMENT_STATUS_LOOKUP_CODE = X_PAYMENT_STATUS_LOOKUP_CODE,
APPROVAL_DATE = X_APPROVAL_DATE,
TRANSFER_DATE = X_TRANSFER_DATE,
PERIOD_NAME = X_PERIOD_NAME,
ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
ATTRIBUTE1 = X_ATTRIBUTE1,
ATTRIBUTE2 = X_ATTRIBUTE2,
ATTRIBUTE3 = X_ATTRIBUTE3,
ATTRIBUTE4 = X_ATTRIBUTE4,
ATTRIBUTE5 = X_ATTRIBUTE5,
ATTRIBUTE6 = X_ATTRIBUTE6,
ATTRIBUTE7 = X_ATTRIBUTE7,
ATTRIBUTE8 = X_ATTRIBUTE8,
ATTRIBUTE9 = X_ATTRIBUTE9,
ATTRIBUTE10 = X_ATTRIBUTE10,
ATTRIBUTE11 = X_ATTRIBUTE11,
ATTRIBUTE12 = X_ATTRIBUTE12,
ATTRIBUTE13 = X_ATTRIBUTE13,
ATTRIBUTE14 = X_ATTRIBUTE14,
ATTRIBUTE15 = X_ATTRIBUTE15,
ON_HOLD = NULL,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
WHERE PAYMENT_SCHEDULE_ID = X_PAYMENT_SCHEDULE_ID;
END Update_Row;
PROCEDURE Delete_Row ( X_PAYMENT_SCHEDULE_ID IN NUMBER) IS
BEGIN
DELETE FROM pn_payment_schedules_all
WHERE payment_schedule_id = x_payment_schedule_id;
END Delete_Row;
PROCEDURE update_accounted_amount (
p_pnt_sched_id IN NUMBER,
p_payment_status_lookup_code IN VARCHAR2,
p_lease_functional_currency IN VARCHAR2,
p_last_updated_by IN NUMBER,
p_last_update_date IN DATE,
p_last_update_login IN NUMBER
)
IS
l_temp NUMBER;
SELECT payment_item_id
, accounted_amount
, actual_amount
, currency_code
, due_date
, rate
, payment_term_id
FROM pn_payment_items_all
WHERE payment_schedule_id = p_pnt_sched_id
AND payment_item_type_lookup_code = 'CASH';
SELECT pi.payment_item_id
, pi.accounted_amount
, pi.actual_amount
FROM pn_payment_items_all pi,
pn_payment_items_all pi1
WHERE pi.payment_schedule_id = p_pnt_sched_id
AND pi.payment_TERM_id = l_term_id
AND pi.payment_item_type_lookup_code = 'NORMALIZED'
AND pi1.payment_schedule_id = pi.payment_schedule_id
AND pi1.payment_term_id = pi.payment_term_id
AND pi1.payment_item_type_lookup_code = 'CASH'
AND pi1.payment_item_id = l_item_id ;
SELECT org_id
FROM pn_payment_schedules_all
WHERE payment_schedule_id = p_pnt_sched_id;
UPDATE pn_payment_items_all
SET accounted_amount = l_temp1,
accounted_date = l_date,
RATE = payment_item_rec.RATE,
CURRENCY_CODE = payment_item_rec.currency_code,
last_updated_by = p_last_updated_by,
last_update_date = p_last_update_date,
last_update_login = p_last_update_login
WHERE payment_item_id = v_PAYMENT_item_id;
UPDATE pn_payment_items_all
SET accounted_amount = l_temp,
accounted_date = l_date,
last_updated_by = p_last_updated_by,
last_update_date = p_last_update_date,
last_update_login = p_last_update_login
WHERE payment_item_id = payment_item_rec.payment_item_id;
END update_accounted_amount;
PROCEDURE update_rate (
p_pnt_sched_id IN NUMBER,
p_payment_status_lookup_code IN VARCHAR2,
p_lease_functional_currency IN VARCHAR2,
p_last_updated_by IN NUMBER,
p_last_update_date IN DATE,
p_last_update_login IN NUMBER
)
IS
l_rate NUMBER;
SELECT payment_item_id, currency_code, due_date, rate
FROM pn_payment_items_all
WHERE payment_schedule_id = p_pnt_sched_id
AND payment_item_type_lookup_code = 'CASH';
SELECT org_id
FROM pn_payment_schedules_all
WHERE payment_schedule_id = p_pnt_sched_id;
UPDATE pn_payment_items_all
SET rate = l_rate,
last_updated_by = p_last_updated_by,
last_update_date = p_last_update_date,
last_update_login = p_last_update_login
WHERE payment_item_id = payment_item_rec.payment_item_id;
END update_rate;