DBA Data[Home] [Help]

APPS.BOM_DEPT_RES_INSTANCES_PKG dependencies on BOM_DEPT_RES_INSTANCES

Line 1: PACKAGE BODY BOM_DEPT_RES_INSTANCES_PKG as

1: PACKAGE BODY BOM_DEPT_RES_INSTANCES_PKG as
2: /* $Header: bompdrib.pls 115.2 2002/11/19 03:13:43 lnarveka ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Instance_Id NUMBER,

Line 31: CURSOR C IS SELECT rowid FROM BOM_DEPT_RES_INSTANCES

27: X_Attribute13 VARCHAR2 DEFAULT NULL,
28: X_Attribute14 VARCHAR2 DEFAULT NULL,
29: X_Attribute15 VARCHAR2 DEFAULT NULL
30: ) IS
31: CURSOR C IS SELECT rowid FROM BOM_DEPT_RES_INSTANCES
32: WHERE instance_id = X_Instance_Id
33: And department_id = X_Department_Id
34: And resource_id = X_Resource_Id
35: And nvl(serial_number,'x') = nvl(X_Serial_Number,'x');

Line 38: INSERT INTO BOM_DEPT_RES_INSTANCES(

34: And resource_id = X_Resource_Id
35: And nvl(serial_number,'x') = nvl(X_Serial_Number,'x');
36:
37: BEGIN
38: INSERT INTO BOM_DEPT_RES_INSTANCES(
39: instance_id,
40: department_id,
41: resource_id,
42: serial_number,

Line 122: CURSOR C IS SELECT * FROM BOM_DEPT_RES_INSTANCES

118: X_Attribute13 VARCHAR2 DEFAULT NULL,
119: X_Attribute14 VARCHAR2 DEFAULT NULL,
120: X_Attribute15 VARCHAR2 DEFAULT NULL
121: ) IS
122: CURSOR C IS SELECT * FROM BOM_DEPT_RES_INSTANCES
123: WHERE rowid = X_Rowid FOR UPDATE of Instance_Id NOWAIT;
124: Recinfo C%ROWTYPE;
125: BEGIN
126: OPEN C;

Line 223: UPDATE BOM_DEPT_RES_INSTANCES

219: X_Attribute14 VARCHAR2 DEFAULT NULL,
220: X_Attribute15 VARCHAR2 DEFAULT NULL
221: ) IS
222: BEGIN
223: UPDATE BOM_DEPT_RES_INSTANCES
224: SET
225: instance_id = X_Instance_Id,
226: department_id = X_Department_Id,
227: resource_id = X_Resource_Id,

Line 258: DELETE FROM BOM_DEPT_RES_INSTANCES

254:
255:
256: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
257: BEGIN
258: DELETE FROM BOM_DEPT_RES_INSTANCES
259: WHERE rowid = X_Rowid;
260:
261: if (SQL%NOTFOUND) then
262: Raise NO_DATA_FOUND;

Line 276: (SELECT 1 FROM BOM_DEPT_RES_INSTANCES

272: X_Serial_Number VARCHAR2) IS
273: dummy NUMBER;
274: BEGIN
275: SELECT 1 INTO dummy FROM DUAL WHERE NOT EXISTS
276: (SELECT 1 FROM BOM_DEPT_RES_INSTANCES
277: WHERE instance_id = X_Instance_Id
278: And department_id = X_Department_Id
279: And resource_id = X_Resource_Id
280: And nvl(serial_number,'x') = nvl(X_Serial_Number,'x')

Line 290: /* GRANT EXECUTE ON BOM_DEPT_RES_INSTANCES_PKG TO MFG; */

286: APP_EXCEPTION.RAISE_EXCEPTION;
287: END Check_Unique;
288:
289:
290: /* GRANT EXECUTE ON BOM_DEPT_RES_INSTANCES_PKG TO MFG; */
291:
292:
293: END BOM_DEPT_RES_INSTANCES_PKG;

Line 293: END BOM_DEPT_RES_INSTANCES_PKG;

289:
290: /* GRANT EXECUTE ON BOM_DEPT_RES_INSTANCES_PKG TO MFG; */
291:
292:
293: END BOM_DEPT_RES_INSTANCES_PKG;