[Home] [Help]
1: PACKAGE BODY MTL_CYCLE_COUNT_ENTRIES_PKG as
2: /* $Header: INVATCEB.pls 120.1.12000000.2 2007/07/18 10:29:20 abaid ship $ */
3: --Added NOCOPY hint to X_Rowid IN OUT parameter to comply with
4: --GSCC File.Sql.39 standard Bug:4410902
5: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
90: X_Secondary_System_Qty_Prior NUMBER DEFAULT NULL,
91: X_Secondary_Adjustment_Qty NUMBER DEFAULT NULL
92: -- END INVCONV
93: ) IS
94: CURSOR C IS SELECT rowid FROM mtl_cycle_count_entries
95: WHERE ( (cycle_count_header_id = X_Cycle_Count_Header_Id)
96: or (cycle_count_header_id is NULL and X_Cycle_Count_Header_Id is NULL));
97:
98: BEGIN
95: WHERE ( (cycle_count_header_id = X_Cycle_Count_Header_Id)
96: or (cycle_count_header_id is NULL and X_Cycle_Count_Header_Id is NULL));
97:
98: BEGIN
99: INSERT INTO mtl_cycle_count_entries(
100: cycle_count_entry_id,
101: last_update_date,
102: last_updated_by,
103: creation_date,
370: -- END INVCONV
371: ) IS
372: CURSOR C IS
373: SELECT *
374: FROM mtl_cycle_count_entries
375: WHERE rowid = X_Rowid
376: FOR UPDATE of Cycle_Count_Header_Id NOWAIT;
377: Recinfo C%ROWTYPE;
378: RECORD_CHANGED EXCEPTION;
760:
761: END IF ;
762:
763: /* Bug 6012343 */
764: UPDATE mtl_cycle_count_entries
765: SET
766: cycle_count_entry_id = X_Cycle_Count_Entry_Id,
767: last_update_date = X_Last_Update_Date,
768: last_updated_by = X_Last_Updated_By,
856: end if;
857: END Update_Row;
858: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
859: BEGIN
860: DELETE FROM mtl_cycle_count_entries
861: WHERE rowid = X_Rowid;
862:
863: if (SQL%NOTFOUND) then
864: Raise NO_DATA_FOUND;
865: end if;
866: END Delete_Row;
867:
868:
869: END MTL_CYCLE_COUNT_ENTRIES_PKG;