APPS.BOM_DEPARTMENTS_PKG dependencies on BOM_DEPARTMENTS

Line 1: PACKAGE BODY BOM_DEPARTMENTS_PKG as

1: PACKAGE BODY BOM_DEPARTMENTS_PKG as
2: /* $Header: bompodpb.pls 115.9 2002/11/19 03:15:13 lnarveka ship $ */
3:
4:
5: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,

Line 39: CURSOR C IS SELECT rowid FROM BOM_DEPARTMENTS

35: X_Scrap_Account NUMBER DEFAULT NULL,
36: X_Est_Absorption_Account NUMBER DEFAULT NULL,
37: X_Maint_Cost_Category VARCHAR2 DEFAULT NULL
38: ) IS
39: CURSOR C IS SELECT rowid FROM BOM_DEPARTMENTS
40: WHERE department_id = X_Department_Id;
41: CURSOR C2 IS SELECT bom_departments_s.nextval FROM sys.dual;
42: BEGIN
43: if (X_Department_Id is NULL) then

Line 41: CURSOR C2 IS SELECT bom_departments_s.nextval FROM sys.dual;

37: X_Maint_Cost_Category VARCHAR2 DEFAULT NULL
38: ) IS
39: CURSOR C IS SELECT rowid FROM BOM_DEPARTMENTS
40: WHERE department_id = X_Department_Id;
41: CURSOR C2 IS SELECT bom_departments_s.nextval FROM sys.dual;
42: BEGIN
43: if (X_Department_Id is NULL) then
44: OPEN C2;
45: FETCH C2 INTO X_Department_Id;

Line 48: INSERT INTO BOM_DEPARTMENTS(

44: OPEN C2;
45: FETCH C2 INTO X_Department_Id;
46: CLOSE C2;
47: end if;
48: INSERT INTO BOM_DEPARTMENTS(
49: department_id,
50: department_code,
51: organization_id,
52: last_update_date,

Line 155: CURSOR C IS SELECT * FROM BOM_DEPARTMENTS

151: X_Scrap_Account NUMBER DEFAULT NULL,
152: X_Est_Absorption_Account NUMBER DEFAULT NULL,
153: X_Maint_Cost_Category VARCHAR2 DEFAULT NULL
154: ) IS
155: CURSOR C IS SELECT * FROM BOM_DEPARTMENTS
156: WHERE rowid = X_Rowid FOR UPDATE of Department_Id NOWAIT;
157: Recinfo C%ROWTYPE;
158: BEGIN
159: OPEN C;

Line 287: UPDATE BOM_DEPARTMENTS

283: X_Maint_Cost_Category VARCHAR2 DEFAULT NULL
284:
285: ) IS
286: BEGIN
287: UPDATE BOM_DEPARTMENTS
288: SET
289: department_id = X_Department_Id,
290: department_code = X_Department_Code,
291: organization_id = X_Organization_Id,

Line 329: DELETE FROM BOM_DEPARTMENTS

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

Line 345: (SELECT 1 FROM BOM_DEPARTMENTS

341: X_Department_Code VARCHAR2) IS
342: dummy NUMBER;
343: BEGIN
344: SELECT 1 INTO dummy FROM DUAL WHERE NOT EXISTS
345: (SELECT 1 FROM BOM_DEPARTMENTS
346: WHERE Organization_Id = X_Organization_Id
347: AND Department_Code = X_Department_Code
348: AND ((X_Rowid IS NULL) OR (ROWID <> X_Rowid))
349: );

Line 376: /* GRANT EXECUTE ON BOM_DEPARTMENTS_PKG TO MFG; */

372: RETURN(resources_exist);
373: END Resources_OSP_POReceipt;
374:
375:
376: /* GRANT EXECUTE ON BOM_DEPARTMENTS_PKG TO MFG; */
377:
378:
379:
380: END BOM_DEPARTMENTS_PKG;

Line 380: END BOM_DEPARTMENTS_PKG;

376: /* GRANT EXECUTE ON BOM_DEPARTMENTS_PKG TO MFG; */
377:
378:
379:
380: END BOM_DEPARTMENTS_PKG;