The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row
(
X_ROWID IN OUT NOCOPY VARCHAR2,
X_LEASE_ID IN OUT NOCOPY NUMBER,
X_LEASE_CHANGE_ID IN OUT NOCOPY NUMBER,
X_LEASE_DETAIL_ID IN OUT NOCOPY NUMBER,
X_NAME IN VARCHAR2,
X_LEASE_NUM IN OUT NOCOPY VARCHAR2,
X_PARENT_LEASE_ID IN NUMBER,
X_LEASE_TYPE_CODE IN VARCHAR2,
X_LEASE_CLASS_CODE IN VARCHAR2,
X_PAYMENT_TERM_PRORATION_RULE IN NUMBER,
X_ABSTRACTED_BY_USER IN NUMBER,
X_STATUS IN VARCHAR2,
X_LEASE_STATUS 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_RESPONSIBLE_USER IN NUMBER,
X_EXPENSE_ACCOUNT_ID IN NUMBER,
X_ACCRUAL_ACCOUNT_ID IN NUMBER,
X_RECEIVABLE_ACCOUNT_ID IN NUMBER,
X_TERM_TEMPLATE_ID IN NUMBER ,
X_LEASE_COMMENCEMENT_DATE IN DATE,
X_LEASE_TERMINATION_DATE IN DATE,
X_LEASE_EXECUTION_DATE IN DATE,
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_org_id IN NUMBER,
x_location_id IN NUMBER,
x_customer_id IN NUMBER,
x_grouping_rule_id IN NUMBER,
x_calendar_year_start_date IN VARCHAR2
)
IS
CURSOR c IS
SELECT ROWID
FROM pn_leases_all
WHERE lease_id = x_lease_id;
pnp_debug_pkg.debug ('PN_LEASES_PKG.Insert_Row (+)');
INSERT INTO pn_leases_all
(
LEASE_ID,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
NAME,
LEASE_NUM,
PARENT_LEASE_ID,
LEASE_TYPE_CODE,
LEASE_CLASS_CODE,
PAYMENT_TERM_PRORATION_RULE,
ABSTRACTED_BY_USER,
STATUS,
LEASE_STATUS,
org_id,
location_id,
customer_id,
cal_start
)
VALUES
(
NVL(X_LEASE_ID,pn_leases_s.NEXTVAL),
sysdate,
X_LAST_UPDATED_BY,
sysdate,
X_CREATED_BY,
X_LAST_UPDATE_LOGIN,
X_NAME,
NVL(X_LEASE_NUM,pn_leases_s.CURRVAL),
X_PARENT_LEASE_ID,
X_LEASE_TYPE_CODE,
X_LEASE_CLASS_CODE,
X_PAYMENT_TERM_PRORATION_RULE,
X_ABSTRACTED_BY_USER,
X_STATUS,
X_LEASE_STATUS,
x_org_id,
x_location_id,
x_customer_id,
x_calendar_year_start_date
)
RETURNING lease_id, lease_num INTO x_lease_id, x_lease_num;
pn_lease_changes_pkg.Insert_Row
(
X_ROWID => l_rowId
,X_LEASE_CHANGE_ID => X_LEASE_CHANGE_ID
,X_LEASE_ID => X_LEASE_ID
,X_LEASE_CHANGE_NUMBER => l_leaseChangeNumber
,X_LEASE_CHANGE_NAME => NULL
,X_RESPONSIBLE_USER => NULL
,X_CHANGE_COMMENCEMENT_DATE => NULL
,X_CHANGE_TERMINATION_DATE => NULL
,X_CHANGE_TYPE_LOOKUP_CODE => 'ABSTRACT'
,X_CHANGE_EXECUTION_DATE => NULL
,X_ATTRIBUTE_CATEGORY => NULL
,X_ATTRIBUTE1 => NULL
,X_ATTRIBUTE2 => NULL
,X_ATTRIBUTE3 => NULL
,X_ATTRIBUTE4 => NULL
,X_ATTRIBUTE5 => NULL
,X_ATTRIBUTE6 => NULL
,X_ATTRIBUTE7 => NULL
,X_ATTRIBUTE8 => NULL
,X_ATTRIBUTE9 => NULL
,X_ATTRIBUTE10 => NULL
,X_ATTRIBUTE11 => NULL
,X_ATTRIBUTE12 => NULL
,X_ATTRIBUTE13 => NULL
,X_ATTRIBUTE14 => NULL
,X_ATTRIBUTE15 => NULL
,X_ABSTRACTED_BY_USER => NULL
,X_CREATION_DATE => sysdate
,X_CREATED_BY => X_CREATED_BY
,X_LAST_UPDATE_DATE => sysdate
,X_LAST_UPDATED_BY => X_LAST_UPDATED_BY
,X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
,x_org_id => x_org_id
);
pn_lease_details_pkg.Insert_Row
(
X_ROWID => l_rowId
,X_LEASE_DETAIL_ID => X_LEASE_DETAIL_ID
,X_LEASE_CHANGE_ID => X_LEASE_CHANGE_ID
,X_LEASE_ID => X_LEASE_ID
,X_RESPONSIBLE_USER => X_RESPONSIBLE_USER
,X_EXPENSE_ACCOUNT_ID => X_EXPENSE_ACCOUNT_ID
,X_LEASE_COMMENCEMENT_DATE => X_LEASE_COMMENCEMENT_DATE
,X_LEASE_TERMINATION_DATE => X_LEASE_TERMINATION_DATE
,X_LEASE_EXECUTION_DATE => X_LEASE_EXECUTION_DATE
,X_CREATION_DATE => sysdate
,X_CREATED_BY => X_CREATED_BY
,X_LAST_UPDATE_DATE => sysdate
,X_LAST_UPDATED_BY => X_LAST_UPDATED_BY
,X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
,X_ACCRUAL_ACCOUNT_ID => X_ACCRUAL_ACCOUNT_ID
,X_RECEIVABLE_ACCOUNT_ID => X_RECEIVABLE_ACCOUNT_ID
,X_TERM_TEMPLATE_ID => X_TERM_TEMPLATE_ID
,X_GROUPING_RULE_ID => X_GROUPING_RULE_ID
,X_ATTRIBUTE_CATEGORY => X_ATTRIBUTE_CATEGORY
,x_ATTRIBUTE1 => x_ATTRIBUTE1
,x_ATTRIBUTE2 => x_ATTRIBUTE2
,x_ATTRIBUTE3 => x_ATTRIBUTE3
,x_ATTRIBUTE4 => x_ATTRIBUTE4
,x_ATTRIBUTE5 => x_ATTRIBUTE5
,x_ATTRIBUTE6 => x_ATTRIBUTE6
,x_ATTRIBUTE7 => x_ATTRIBUTE7
,x_ATTRIBUTE8 => x_ATTRIBUTE8
,x_ATTRIBUTE9 => x_ATTRIBUTE9
,x_ATTRIBUTE10 => x_ATTRIBUTE10
,x_ATTRIBUTE11 => x_ATTRIBUTE11
,x_ATTRIBUTE12 => x_ATTRIBUTE12
,x_ATTRIBUTE13 => x_ATTRIBUTE13
,x_ATTRIBUTE14 => x_ATTRIBUTE14
,x_ATTRIBUTE15 => x_ATTRIBUTE15
,x_org_id => x_org_id
);
pnp_debug_pkg.debug ('PN_LEASES_PKG.Insert_Row (-)');
END Insert_Row;
SELECT *
FROM pn_leases_all --sdm_MOAC
WHERE lease_id = x_lease_id
FOR UPDATE OF lease_id NOWAIT;
PROCEDURE Update_Row
(
X_LEASE_ID IN NUMBER,
X_LEASE_DETAIL_ID IN NUMBER,
X_LEASE_CHANGE_ID IN NUMBER,
X_NAME IN VARCHAR2,
X_LEASE_NUM IN VARCHAR2,
X_PARENT_LEASE_ID IN NUMBER,
X_LEASE_TYPE_CODE IN VARCHAR2,
X_LEASE_CLASS_CODE IN VARCHAR2,
X_PAYMENT_TERM_PRORATION_RULE IN NUMBER,
X_ABSTRACTED_BY_USER IN NUMBER,
X_STATUS IN VARCHAR2,
X_LEASE_STATUS IN VARCHAR2,
X_LAST_UPDATE_DATE IN DATE,
X_LAST_UPDATED_BY IN NUMBER,
X_LAST_UPDATE_LOGIN IN NUMBER,
X_RESPONSIBLE_USER IN NUMBER,
X_EXPENSE_ACCOUNT_ID IN NUMBER,
X_ACCRUAL_ACCOUNT_ID IN NUMBER,
X_RECEIVABLE_ACCOUNT_ID IN NUMBER,
X_TERM_TEMPLATE_ID IN NUMBER,
X_LEASE_COMMENCEMENT_DATE IN DATE,
X_LEASE_TERMINATION_DATE IN DATE,
X_LEASE_EXECUTION_DATE IN DATE,
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_location_id IN NUMBER,
x_customer_id IN NUMBER,
x_grouping_rule_id IN NUMBER,
x_lease_extension_end_date IN DATE,
x_calendar_year_start_date IN VARCHAR2
)
IS
l_return_status VARCHAR2(30) := NULL;
SELECT org_id FROM pn_leases_all WHERE lease_id = x_lease_id;
pnp_debug_pkg.debug ('PN_LEASES_PKG.Update_Row (+)');
pn_lease_details_pkg.Update_Row
(
X_LEASE_DETAIL_ID => X_LEASE_DETAIL_ID
,X_LEASE_CHANGE_ID => X_LEASE_CHANGE_ID
,X_LEASE_ID => X_LEASE_ID
,X_RESPONSIBLE_USER => X_RESPONSIBLE_USER
,X_EXPENSE_ACCOUNT_ID => X_EXPENSE_ACCOUNT_ID
,X_LEASE_COMMENCEMENT_DATE => X_LEASE_COMMENCEMENT_DATE
,X_LEASE_TERMINATION_DATE => X_LEASE_TERMINATION_DATE
,X_LEASE_EXECUTION_DATE => X_LEASE_EXECUTION_DATE
,X_LAST_UPDATE_DATE => sysdate
,X_LAST_UPDATED_BY => X_LAST_UPDATED_BY
,X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
,X_ACCRUAL_ACCOUNT_ID => X_ACCRUAL_ACCOUNT_ID
,X_RECEIVABLE_ACCOUNT_ID => X_RECEIVABLE_ACCOUNT_ID
,X_TERM_TEMPLATE_ID => X_TERM_TEMPLATE_ID
,X_GROUPING_RULE_ID => X_GROUPING_RULE_ID
,X_ATTRIBUTE_CATEGORY => X_ATTRIBUTE_CATEGORY
,X_ATTRIBUTE1 => X_ATTRIBUTE1
,X_ATTRIBUTE2 => X_ATTRIBUTE2
,X_ATTRIBUTE3 => X_ATTRIBUTE3
,X_ATTRIBUTE4 => X_ATTRIBUTE4
,X_ATTRIBUTE5 => X_ATTRIBUTE5
,X_ATTRIBUTE6 => X_ATTRIBUTE6
,X_ATTRIBUTE7 => X_ATTRIBUTE7
,X_ATTRIBUTE8 => X_ATTRIBUTE8
,X_ATTRIBUTE9 => X_ATTRIBUTE9
,X_ATTRIBUTE10 => X_ATTRIBUTE10
,X_ATTRIBUTE11 => X_ATTRIBUTE11
,X_ATTRIBUTE12 => X_ATTRIBUTE12
,X_ATTRIBUTE13 => X_ATTRIBUTE13
,X_ATTRIBUTE14 => X_ATTRIBUTE14
,X_ATTRIBUTE15 => X_ATTRIBUTE15
,x_lease_extension_end_date => x_lease_extension_end_date
);
UPDATE pn_leases_all
SET NAME = X_NAME,
LEASE_NUM = X_LEASE_NUM,
PARENT_LEASE_ID = X_PARENT_LEASE_ID,
LEASE_TYPE_CODE = X_LEASE_TYPE_CODE,
LEASE_CLASS_CODE = X_LEASE_CLASS_CODE,
PAYMENT_TERM_PRORATION_RULE = X_PAYMENT_TERM_PRORATION_RULE,
ABSTRACTED_BY_USER = X_ABSTRACTED_BY_USER,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
STATUS = X_STATUS,
LEASE_STATUS = X_LEASE_STATUS,
location_id = x_location_id,
customer_id = x_customer_id,
cal_start = x_calendar_year_start_date
WHERE LEASE_ID = X_LEASE_ID;
pnp_debug_pkg.debug ('PN_LEASES_PKG.Update_Row (-)');
END Update_Row;
PROCEDURE Delete_Row
(
X_LEASE_ID in NUMBER
)
IS
l_leaseDetailId NUMBER := NULL;
pnp_debug_pkg.debug ('PN_LEASES_PKG.Delete_Row (+)');
SELECT pd.lease_detail_id,
pt.lease_transaction_id,
pc.lease_change_id
INTO l_leaseDetailId,l_leaseTransactionId,l_leaseChangeId
FROM pn_lease_details_all pd
,pn_lease_transactions_all pt
,pn_lease_changes_all pc
WHERE pd.lease_id = x_lease_id
AND pc.lease_change_id = pd.lease_change_id
AND pt.lease_transaction_id = pc.lease_transaction_id
FOR UPDATE OF lease_detail_id NOWAIT;
pn_lease_details_pkg.Delete_Row (X_LEASE_DETAIL_ID =>l_leaseDetailId);
pn_lease_changes_pkg.Delete_Row_transactions (X_LEASE_TRANSACTION_ID =>l_leaseTransactionId);
pn_lease_changes_pkg.Delete_Row (X_LEASE_CHANGE_ID =>l_leaseChangeId);
DELETE FROM pn_leases_all
WHERE lease_id = x_lease_id;
pnp_debug_pkg.debug ('PN_LEASES_PKG.Delete_Row (-)');
END Delete_Row;
SELECT 1
INTO l_dummy
FROM DUAL
WHERE NOT EXISTS (SELECT 1
FROM pn_leases pnl
WHERE pnl.lease_num = x_lease_number
AND ((x_lease_id IS NULL) OR (pnl.lease_id <> x_lease_id))
);
SELECT 1
INTO l_dummy
FROM DUAL
WHERE NOT EXISTS (SELECT 1
FROM pn_leases_all pnl
WHERE pnl.lease_num = x_lease_number
AND ((x_lease_id IS NULL) OR (pnl.lease_id <> x_lease_id))
AND org_id = x_org_id
);