[Home] [Help]
1: PACKAGE BODY ENG_CHANGE_TYPE_PROCESSES_PKG as
2: /* $Header: engpectb.pls 120.0 2005/05/26 18:40:44 appldev noship $ */
3:
4: PROCEDURE Check_Unique(X_Rowid varchar2,
5: X_change_order_type_id number,
9: BEGIN
10: select count(1)
11: into dummy
12: from eng_change_order_types ecot,
13: eng_change_type_processes ectp,
14: eng_change_priorities ecp
15: where ecot.change_order_type_id = X_change_order_type_id
16: and ecot.change_order_type_id = ectp.change_order_type_id
17: and ectp.organization_id = X_Organization_Id
53: X_Attribute13 VARCHAR2,
54: X_Attribute14 VARCHAR2,
55: X_Attribute15 VARCHAR2
56: ) IS
57: CURSOR C IS SELECT rowid FROM ENG_CHANGE_TYPE_PROCESSES
58: WHERE change_order_type_id = X_Change_Order_Type_Id
59: AND ( (eng_change_priority_code = X_Eng_Change_Priority_Code)
60: or (eng_change_priority_code is NULL and X_Eng_Change_Priority_Code is NULL))
61: AND ( (organization_id = X_Organization_Id)
63:
64: BEGIN
65:
66:
67: INSERT INTO ENG_CHANGE_TYPE_PROCESSES(
68: change_order_type_id,
69: eng_change_priority_code,
70: organization_id,
71: process_name,
151: X_Attribute15 VARCHAR2
152: ) IS
153: CURSOR C IS
154: SELECT *
155: FROM ENG_CHANGE_TYPE_PROCESSES
156: WHERE rowid = X_Rowid
157: FOR UPDATE of Change_Order_Type_Id NOWAIT;
158: Recinfo C%ROWTYPE;
159:
263: X_Attribute15 VARCHAR2
264:
265: ) IS
266: BEGIN
267: UPDATE ENG_CHANGE_TYPE_PROCESSES
268: SET
269: change_order_type_id = X_Change_Order_Type_Id,
270: eng_change_priority_code = X_Eng_Change_Priority_Code,
271: organization_id = X_Organization_Id,
297: END Update_Row;
298:
299: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
300: BEGIN
301: DELETE FROM ENG_CHANGE_TYPE_PROCESSES
302: WHERE rowid = X_Rowid;
303:
304: if (SQL%NOTFOUND) then
305: Raise NO_DATA_FOUND;
306: end if;
307: END Delete_Row;
308:
309:
310: END ENG_CHANGE_TYPE_PROCESSES_PKG;