APPS.BOM_RESOURCES_PKG dependencies on BOM_RESOURCES

Line 1: PACKAGE BODY BOM_RESOURCES_PKG as

1: PACKAGE BODY BOM_RESOURCES_PKG as
2: /* $Header: bomporsb.pls 120.1.12020000.2 2012/07/05 09:43:01 ntungare ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Resource_Id IN OUT NOCOPY NUMBER,

Line 170: CURSOR C IS SELECT rowid FROM BOM_RESOURCES

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

Line 172: CURSOR C2 IS SELECT bom_resources_s.nextval FROM sys.dual;

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;

Line 180: INSERT INTO BOM_RESOURCES(

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,

Line 461: FROM BOM_RESOURCES

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:

Line 794: UPDATE BOM_RESOURCES

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,

Line 866: (SELECT 1 FROM BOM_RESOURCES

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: );

Line 904: END BOM_RESOURCES_PKG;

900: AND NVL(DISABLE_DATE, SYSDATE+1) > SYSDATE;
901: RETURN(uom_value);
902: END Check_Valid_UOM;
903:
904: END BOM_RESOURCES_PKG;