[Home] [Help]
1: PACKAGE BODY BOM_RESOURCES_PKG as
2: /* $Header: bomporsb.pls 120.0 2005/05/25 03:53:57 appldev noship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Resource_Id IN OUT NOCOPY NUMBER,
166: X_SUPPLY_SUBINVENTORY VARCHAR2,
167: X_SUPPLY_LOCATOR_ID NUMBER :=NULL,
168: X_BATCHING_PENALTY NUMBER :=NULL --APS Enhancement for Routings
169: ) IS
170: CURSOR C IS SELECT rowid FROM BOM_RESOURCES
171: WHERE resource_id = X_Resource_Id;
172: CURSOR C2 IS SELECT bom_resources_s.nextval FROM sys.dual;
173: BEGIN
174: if (X_Resource_Id is NULL) then
168: X_BATCHING_PENALTY NUMBER :=NULL --APS Enhancement for Routings
169: ) IS
170: CURSOR C IS SELECT rowid FROM BOM_RESOURCES
171: WHERE resource_id = X_Resource_Id;
172: CURSOR C2 IS SELECT bom_resources_s.nextval FROM sys.dual;
173: BEGIN
174: if (X_Resource_Id is NULL) then
175: OPEN C2;
176: FETCH C2 INTO X_Resource_Id;
176: FETCH C2 INTO X_Resource_Id;
177: CLOSE C2;
178: end if;
179:
180: INSERT INTO BOM_RESOURCES(
181: resource_id,
182: resource_code,
183: organization_id,
184: last_update_date,
457:
458: ) IS
459: CURSOR C IS
460: SELECT *
461: FROM BOM_RESOURCES
462: WHERE rowid = X_Rowid
463: FOR UPDATE of Resource_Id NOWAIT;
464: Recinfo C%ROWTYPE;
465:
790: X_SUPPLY_LOCATOR_ID NUMBER :=NULL,
791: X_BATCHING_PENALTY NUMBER := NULL --APS Enhancement for Routings
792: ) IS
793: BEGIN
794: UPDATE BOM_RESOURCES
795: SET
796: resource_id = X_Resource_Id,
797: resource_code = X_Resource_Code,
798: organization_id = X_Organization_Id,
862: X_unique_flag IN OUT NOCOPY NUMBER) IS
863: dummy NUMBER;
864: BEGIN
865: SELECT 1 INTO dummy FROM DUAL WHERE NOT EXISTS
866: (SELECT 1 FROM BOM_RESOURCES
867: WHERE Organization_Id = X_Organization_Id
868: AND Resource_Code = X_Resource_Code
869: AND ((X_Rowid IS NULL) OR (ROWID <> X_Rowid))
870: );
900: AND NVL(DISABLE_DATE, SYSDATE+1) > SYSDATE;
901: RETURN(uom_value);
902: END Check_Valid_UOM;
903:
904: END BOM_RESOURCES_PKG;