[Home] [Help]
1: PACKAGE BODY AP_WEB_SIGNING_LIMITS_PKG as
2: /* $Header: apiwsltb.pls 120.3 2005/12/08 13:17:19 srinvenk ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Document_Type VARCHAR2,
12: X_Creation_Date DATE,
13: X_Created_By NUMBER,
14: X_Org_Id NUMBER
15: ) IS
16: CURSOR C IS SELECT rowid FROM ap_web_signing_limits
17: WHERE X_Document_Type = Document_Type
18: AND X_Employee_Id = Employee_Id
19: AND X_Cost_Center = Cost_Center;
20:
20:
21: BEGIN
22:
23: CHECK_UNIQUE(X_rowid, X_document_type, X_employee_id, X_cost_center,
24: 'AP_WEB_SIGNING_LIMITS_PKG.Insert_Row');
25:
26: INSERT INTO ap_web_signing_limits_all(
27: document_type,
28: employee_id,
22:
23: CHECK_UNIQUE(X_rowid, X_document_type, X_employee_id, X_cost_center,
24: 'AP_WEB_SIGNING_LIMITS_PKG.Insert_Row');
25:
26: INSERT INTO ap_web_signing_limits_all(
27: document_type,
28: employee_id,
29: cost_center,
30: signing_limit,
86: X_Org_Id NUMBER
87: ) IS
88: CURSOR C IS
89: SELECT *
90: FROM ap_web_signing_limits
91: WHERE rowid = X_Rowid
92: FOR UPDATE of employee_id NOWAIT;
93: Recinfo C%ROWTYPE;
94:
144: X_Org_Id NUMBER
145:
146: ) IS
147: BEGIN
148: UPDATE ap_web_signing_limits
149: SET
150: document_type = X_Document_Type,
151: employee_id = X_Employee_Id,
152: cost_center = X_Cost_Center,
181: END Update_Row;
182:
183: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
184: BEGIN
185: DELETE FROM ap_web_signing_limits
186: WHERE rowid = X_Rowid;
187:
188: if (SQL%NOTFOUND) then
189: Raise NO_DATA_FOUND;
219: debug_info := 'Count for same document_type, employee_id, and cost_center';
220:
221: select count(1)
222: into dummy_a
223: from AP_WEB_SIGNING_LIMITS
224: where document_type = X_document_type
225: and employee_id = X_employee_id
226: and cost_center = X_cost_center
227: and ((X_rowid is null) or (rowid <> X_rowid));
247: app_exception.raise_exception;
248:
249: end CHECK_UNIQUE;
250:
251: END AP_WEB_SIGNING_LIMITS_PKG;