APPS.BOM_RES_INSTANCE_CHANGES_PKG dependencies on BOM_RES_INSTANCE_CHANGES

Line 1: PACKAGE BODY BOM_RES_INSTANCE_CHANGES_PKG as

1: PACKAGE BODY BOM_RES_INSTANCE_CHANGES_PKG as
2: /* $Header: bompricb.pls 115.5 2002/11/27 01:25:46 chrng ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Department_Id NUMBER,

Line 47: CURSOR C IS SELECT rowid FROM BOM_RES_INSTANCE_CHANGES

43: ) IS
44:
45: v_to_date DATE := to_date('31/12/1950', 'DD/MM/YYYY');
46:
47: CURSOR C IS SELECT rowid FROM BOM_RES_INSTANCE_CHANGES
48: Where Department_Id = X_Department_Id
49: And Resource_Id = X_Resource_Id
50: And Shift_Num = X_Shift_Num
51: And Simulation_Set = X_Simulation_Set

Line 61: INSERT INTO BOM_RES_INSTANCE_CHANGES(

57: And nvl(serial_number,'x') = nvl(X_Serial_Number,'x')
58: And action_type = X_Action_Type;
59:
60: BEGIN
61: INSERT INTO BOM_RES_INSTANCE_CHANGES(
62: department_id,
63: resource_id,
64: shift_num,
65: simulation_set,

Line 189: CURSOR C IS SELECT * FROM BOM_RES_INSTANCE_CHANGES

185: X_Maintenance_Organization_Id NUMBER DEFAULT NULL,
186: X_Wip_Entity_Id NUMBER DEFAULT NULL,
187: X_Operation_Seq_Num NUMBER DEFAULT NULL
188: ) IS
189: CURSOR C IS SELECT * FROM BOM_RES_INSTANCE_CHANGES
190: WHERE rowid = X_Rowid
191: FOR UPDATE of Department_Id NOWAIT;
192: Recinfo C%ROWTYPE;
193: BEGIN

Line 333: UPDATE BOM_RES_INSTANCE_CHANGES

329: X_Wip_Entity_Id NUMBER DEFAULT NULL,
330: X_Operation_Seq_Num NUMBER DEFAULT NULL
331: ) IS
332: BEGIN
333: UPDATE BOM_RES_INSTANCE_CHANGES
334: SET
335: department_id = X_Department_Id,
336: resource_id = X_Resource_Id,
337: shift_num = X_Shift_Num,

Line 381: DELETE FROM BOM_RES_INSTANCE_CHANGES

377:
378:
379: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
380: BEGIN
381: DELETE FROM BOM_RES_INSTANCE_CHANGES
382: WHERE rowid = X_Rowid;
383: if (SQL%NOTFOUND) then
384: Raise NO_DATA_FOUND;
385: end if;

Line 406: (SELECT 1 FROM BOM_RES_INSTANCE_CHANGES ric

402: v_to_date DATE := to_date('31/12/1950', 'DD/MM/YYYY');
403: DUMMY NUMBER;
404: BEGIN
405: SELECT 1 INTO DUMMY FROM DUAL WHERE NOT EXISTS
406: (SELECT 1 FROM BOM_RES_INSTANCE_CHANGES ric
407: Where Department_Id = X_Department_Id
408: And Resource_Id = X_Resource_Id
409: And Shift_Num = X_Shift_Num
410: And Simulation_Set = X_Simulation_Set

Line 427: /* GRANT EXECUTE ON BOM_RES_INSTANCE_CHANGES_PKG TO MFG; */

423: APP_EXCEPTION.RAISE_EXCEPTION;
424: END Check_Unique;
425:
426:
427: /* GRANT EXECUTE ON BOM_RES_INSTANCE_CHANGES_PKG TO MFG; */
428:
429:
430: END BOM_RES_INSTANCE_CHANGES_PKG;

Line 430: END BOM_RES_INSTANCE_CHANGES_PKG;

426:
427: /* GRANT EXECUTE ON BOM_RES_INSTANCE_CHANGES_PKG TO MFG; */
428:
429:
430: END BOM_RES_INSTANCE_CHANGES_PKG;