The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row (
X_ROWID IN OUT NOCOPY VARCHAR2,
X_LANDLORD_SERVICE_ID IN OUT NOCOPY NUMBER,
X_LEASE_ID IN NUMBER,
X_LEASE_CHANGE_ID IN NUMBER,
X_SERVICE_TYPE_LOOKUP_CODE IN VARCHAR2,
X_START_DATE IN DATE,
X_END_DATE IN DATE,
X_STATUS 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_OBLIGATION_NUM IN OUT NOCOPY VARCHAR2,
X_RESPONSIBILITY_CODE IN VARCHAR2,
X_COMMON_AREA_RESP IN VARCHAR2,
X_FINANCIAL_RESP_PARTY_CODE IN VARCHAR2,
X_FINANCIAL_PCT_RESP IN VARCHAR2,
X_RESPONSIBILITY_MAINT IN VARCHAR2,
X_COMPANY_ID IN NUMBER,
X_OBLIGATION_REFERENCE IN VARCHAR2,
X_OBLIGATION_COMMENTS IN VARCHAR2,
x_org_id IN NUMBER
)
IS
CURSOR c IS
SELECT ROWID
FROM pn_landlord_services_all
WHERE landlord_service_id = x_landlord_service_id;
SELECT org_id
FROM pn_leases_all
WHERE lease_id = x_lease_id;
pnp_debug_pkg.debug ('PN_LANDLORD_SERVICES_PKG.Insert_Row (+)');
SELECT NVL(MAX(TO_NUMBER(pls.obligation_num)), 0)+1
INTO x_obligation_num
FROM pn_landlord_services_all pls
WHERE pls.lease_id = x_lease_id;
SELECT pn_landlord_services_s.NEXTVAL
INTO x_landlord_service_id
FROM DUAL;
INSERT INTO pn_landlord_services_all
(
LANDLORD_SERVICE_ID,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LEASE_ID,
LEASE_CHANGE_ID,
SERVICE_TYPE_LOOKUP_CODE,
START_DATE,
END_DATE,
STATUS,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
OBLIGATION_NUM,
RESPONSIBILITY_CODE,
COMMON_AREA_RESP,
FINANCIAL_RESP_PARTY_CODE,
FINANCIAL_PCT_RESP,
RESPONSIBILITY_MAINT,
COMPANY_ID,
OBLIGATION_REFERENCE,
OBLIGATION_COMMENTS,
org_id
)
VALUES
(
X_LANDLORD_SERVICE_ID,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_LOGIN,
X_LEASE_ID,
X_LEASE_CHANGE_ID,
X_SERVICE_TYPE_LOOKUP_CODE,
X_START_DATE,
X_END_DATE,
X_STATUS,
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,
X_OBLIGATION_NUM,
X_RESPONSIBILITY_CODE,
X_COMMON_AREA_RESP,
X_FINANCIAL_RESP_PARTY_CODE,
X_FINANCIAL_PCT_RESP,
X_RESPONSIBILITY_MAINT,
X_COMPANY_ID,
X_OBLIGATION_REFERENCE,
X_OBLIGATION_COMMENTS,
l_org_id
);
pnp_debug_pkg.debug ('PN_LANDLORD_SERVICES_PKG.Insert_Row (-)');
END Insert_Row;
SELECT *
FROM pn_landlord_services_all
WHERE landlord_service_id = x_landlord_service_id
FOR UPDATE OF landlord_service_id NOWAIT;
PROCEDURE Update_Row
(
X_LANDLORD_SERVICE_ID IN NUMBER,
X_LEASE_ID IN NUMBER,
X_LEASE_CHANGE_ID IN NUMBER,
X_SERVICE_TYPE_LOOKUP_CODE IN VARCHAR2,
X_START_DATE IN DATE,
X_END_DATE IN DATE,
X_STATUS 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,
X_OBLIGATION_NUM IN VARCHAR2,
X_RESPONSIBILITY_CODE IN VARCHAR2,
X_COMMON_AREA_RESP IN VARCHAR2,
X_FINANCIAL_RESP_PARTY_CODE IN VARCHAR2,
X_FINANCIAL_PCT_RESP IN VARCHAR2,
X_RESPONSIBILITY_MAINT IN VARCHAR2,
X_COMPANY_ID IN NUMBER,
X_OBLIGATION_REFERENCE IN VARCHAR2,
X_OBLIGATION_COMMENTS IN VARCHAR2
)
IS
CURSOR c2 IS
SELECT *
FROM pn_landlord_services_all
WHERE landlord_service_id = x_landlord_service_id;
pnp_debug_pkg.debug ('PN_LANDLORD_SERVICES_PKG.Update_Row (+)');
SELECT PN_LANDLORD_SERVICE_HISTORY_S.NEXTVAL
INTO l_llserviceHistoryId
FROM DUAL;
INSERT INTO PN_LANDLORD_SERVICE_HISTORY
(
LANDLORD_SERVICE_HISTORY_ID,
LANDLORD_SERVICE_ID,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LEASE_ID,
LEASE_CHANGE_ID,
NEW_LEASE_CHANGE_ID,
SERVICE_TYPE_LOOKUP_CODE,
START_DATE,
END_DATE,
STATUS,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
OBLIGATION_NUM,
RESPONSIBILITY_CODE,
COMMON_AREA_RESP,
FINANCIAL_RESP_PARTY_CODE,
FINANCIAL_PCT_RESP,
RESPONSIBILITY_MAINT,
COMPANY_ID,
OBLIGATION_REFERENCE,
OBLIGATION_COMMENTS
)
VALUES
(
l_llserviceHistoryId,
recInfoForHist.LANDLORD_SERVICE_ID,
recInfoForHist.LAST_UPDATE_DATE,
recInfoForHist.LAST_UPDATED_BY,
recInfoForHist.CREATION_DATE,
recInfoForHist.CREATED_BY,
recInfoForHist.LAST_UPDATE_LOGIN,
recInfoForHist.LEASE_ID,
recInfoForHist.LEASE_CHANGE_ID,
X_LEASE_CHANGE_ID,
recInfoForHist.SERVICE_TYPE_LOOKUP_CODE,
recInfoForHist.START_DATE,
recInfoForHist.END_DATE,
recInfoForHist.STATUS,
recInfoForHist.ATTRIBUTE_CATEGORY,
recInfoForHist.ATTRIBUTE1,
recInfoForHist.ATTRIBUTE2,
recInfoForHist.ATTRIBUTE3,
recInfoForHist.ATTRIBUTE4,
recInfoForHist.ATTRIBUTE5,
recInfoForHist.ATTRIBUTE6,
recInfoForHist.ATTRIBUTE7,
recInfoForHist.ATTRIBUTE8,
recInfoForHist.ATTRIBUTE9,
recInfoForHist.ATTRIBUTE10,
recInfoForHist.ATTRIBUTE11,
recInfoForHist.ATTRIBUTE12,
recInfoForHist.ATTRIBUTE13,
recInfoForHist.ATTRIBUTE14,
recInfoForHist.ATTRIBUTE15,
recInfoForHist.OBLIGATION_NUM,
recInfoForHist.RESPONSIBILITY_CODE,
recInfoForHist.COMMON_AREA_RESP,
recInfoForHist.FINANCIAL_RESP_PARTY_CODE,
recInfoForHist.FINANCIAL_PCT_RESP,
recInfoForHist.RESPONSIBILITY_MAINT,
recInfoForHist.COMPANY_ID,
recInfoForHist.OBLIGATION_REFERENCE,
recInfoForHist.OBLIGATION_COMMENTS
);
UPDATE PN_LANDLORD_SERVICES_ALL
SET LEASE_ID = X_LEASE_ID,
LEASE_CHANGE_ID = X_LEASE_CHANGE_ID,
SERVICE_TYPE_LOOKUP_CODE = X_SERVICE_TYPE_LOOKUP_CODE,
START_DATE = X_START_DATE,
END_DATE = X_END_DATE,
STATUS = X_STATUS,
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,
LANDLORD_SERVICE_ID = X_LANDLORD_SERVICE_ID,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
OBLIGATION_NUM = X_OBLIGATION_NUM,
RESPONSIBILITY_CODE = X_RESPONSIBILITY_CODE,
COMMON_AREA_RESP = X_COMMON_AREA_RESP,
FINANCIAL_RESP_PARTY_CODE = X_FINANCIAL_RESP_PARTY_CODE,
FINANCIAL_PCT_RESP = X_FINANCIAL_PCT_RESP,
RESPONSIBILITY_MAINT = X_RESPONSIBILITY_MAINT,
COMPANY_ID = X_COMPANY_ID,
OBLIGATION_REFERENCE = X_OBLIGATION_REFERENCE,
OBLIGATION_COMMENTS = X_OBLIGATION_COMMENTS
WHERE LANDLORD_SERVICE_ID = X_LANDLORD_SERVICE_ID;
pnp_debug_pkg.debug ('PN_LANDLORD_SERVICES_PKG.Update_Row (-)');
END Update_Row;
PROCEDURE Delete_Row
(
X_LANDLORD_SERVICE_ID IN NUMBER
)
IS
BEGIN
pnp_debug_pkg.debug ('PN_LANDLORD_SERVICES_PKG.Delete_Row (+)');
DELETE FROM pn_landlord_services_all
WHERE landlord_service_id = x_landlord_service_id;
pnp_debug_pkg.debug ('PN_LANDLORD_SERVICES_PKG.Delete_Row (-)');
END Delete_Row;