APPS.BOM_RESOURCE_CHANGES_PKG dependencies on BOM_RESOURCE_CHANGES

Line 1: PACKAGE BODY BOM_RESOURCE_CHANGES_PKG as

1: PACKAGE BODY BOM_RESOURCE_CHANGES_PKG as
2: /* $Header: bompbrcb.pls 115.6 2002/11/19 03:06:01 lnarveka ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Department_Id NUMBER,

Line 40: CURSOR C IS SELECT rowid FROM BOM_RESOURCE_CHANGES BRC

36: X_Reason_Code VARCHAR2 DEFAULT NULL
37: ) IS
38: v_to_date DATE := to_date('31/12/1950','DD/MM/YYYY');
39:
40: CURSOR C IS SELECT rowid FROM BOM_RESOURCE_CHANGES BRC
41: WHERE department_id = X_Department_Id
42: AND resource_id = X_Resource_Id
43: AND shift_num = X_Shift_Num
44: AND Simulation_Set = X_Simulation_Set

Line 52: INSERT INTO BOM_RESOURCE_CHANGES(

48: AND nvl(To_Time,'90000') = nvl(X_To_Time,'90000')
49: AND Action_Type = X_Action_Type;
50:
51: BEGIN
52: INSERT INTO BOM_RESOURCE_CHANGES(
53: department_id,
54: resource_id,
55: shift_num,
56: last_update_date,

Line 161: CURSOR C IS SELECT * FROM BOM_RESOURCE_CHANGES

157: X_Attribute15 VARCHAR2 DEFAULT NULL,
158: X_Action_Type NUMBER,
159: X_Reason_Code VARCHAR2 DEFAULT NULL
160: ) IS
161: CURSOR C IS SELECT * FROM BOM_RESOURCE_CHANGES
162: WHERE rowid = X_Rowid
163: FOR UPDATE of Department_Id NOWAIT;
164: Recinfo C%ROWTYPE;
165: BEGIN

Line 287: UPDATE BOM_RESOURCE_CHANGES

283: X_Action_Type NUMBER,
284: X_Reason_Code VARCHAR2 DEFAULT NULL
285: ) IS
286: BEGIN
287: UPDATE BOM_RESOURCE_CHANGES
288: SET
289: department_id = X_Department_Id,
290: resource_id = X_Resource_Id,
291: shift_num = X_Shift_Num,

Line 329: DELETE FROM BOM_RESOURCE_CHANGES

325:
326:
327: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
328: BEGIN
329: DELETE FROM BOM_RESOURCE_CHANGES
330: WHERE rowid = X_Rowid;
331: if (SQL%NOTFOUND) then
332: Raise NO_DATA_FOUND;
333: end if;

Line 351: (SELECT 1 FROM BOM_RESOURCE_CHANGES BRC

347: v_to_date Date := to_date('31/12/1950','DD/MM/YYYY');
348: DUMMY NUMBER;
349: BEGIN
350: SELECT 1 INTO DUMMY FROM DUAL WHERE NOT EXISTS
351: (SELECT 1 FROM BOM_RESOURCE_CHANGES BRC
352: WHERE ACTION_TYPE = X_ACTION_TYPE
353: AND FROM_DATE = X_FROM_DATE
354: AND NVL(BRC.TO_DATE,v_to_date) = NVL(X_TO_DATE,v_to_date)
355: AND NVL(FROM_TIME,'90000')=NVL(X_FROM_TIME,'90000')

Line 374: END BOM_RESOURCE_CHANGES_PKG;

370: /* GRANT EXECUTE ON BOM_RESOURCE_SHIFTS_PKG TO MFG; */
371:
372:
373:
374: END BOM_RESOURCE_CHANGES_PKG;