[Home] [Help]
1: PACKAGE BODY CSD_MRO_SERIAL_NUMBERS_PKG as
2: /* $Header: csdtsrlb.pls 115.7 2002/11/14 02:03:30 swai noship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSD_MRO_SERIAL_NUMBERS_PKG';
1: PACKAGE BODY CSD_MRO_SERIAL_NUMBERS_PKG as
2: /* $Header: csdtsrlb.pls 115.7 2002/11/14 02:03:30 swai noship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSD_MRO_SERIAL_NUMBERS_PKG';
6: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdtsrlb.pls';
7: l_debug NUMBER := csd_gen_utility_pvt.g_debug_level;
8:
9: PROCEDURE Insert_Row(
36: ,p_CUSTOMER_PRODUCT_ID NUMBER
37: ,p_REFERENCE_NUMBER VARCHAR2)
38:
39: IS
40: CURSOR C2 IS SELECT CSD_MRO_SERIAL_NUMBERS_S1.nextval FROM sys.dual;
41: BEGIN
42: If (px_MRO_SERIAL_NUMBER_ID IS NULL) OR (px_MRO_SERIAL_NUMBER_ID = FND_API.G_MISS_NUM) then
43: OPEN C2;
44: FETCH C2 INTO px_MRO_SERIAL_NUMBER_ID;
43: OPEN C2;
44: FETCH C2 INTO px_MRO_SERIAL_NUMBER_ID;
45: CLOSE C2;
46: End If;
47: INSERT INTO CSD_MRO_SERIAL_NUMBERS(
48: MRO_SERIAL_NUMBER_ID
49: ,REPAIR_GROUP_ID
50: ,SERIAL_NUMBER
51: ,validate_level
135: ,p_REFERENCE_NUMBER VARCHAR2)
136:
137: IS
138: BEGIN
139: Update CSD_MRO_SERIAL_NUMBERS
140: SET
141: REPAIR_GROUP_ID = decode( p_REPAIR_GROUP_ID, FND_API.G_MISS_NUM, NULL, NULL, REPAIR_GROUP_ID, p_REPAIR_GROUP_ID)
142: ,SERIAL_NUMBER = decode( p_SERIAL_NUMBER, FND_API.G_MISS_CHAR, NULL, NULL, SERIAL_NUMBER, p_SERIAL_NUMBER)
143: ,validate_level = decode( p_VALIDATE_LEVEL, FND_API.G_MISS_CHAR, NULL, NULL, validate_level, p_VALIDATE_LEVEL)
175: PROCEDURE Delete_Row(
176: p_MRO_SERIAL_NUMBER_ID NUMBER)
177: IS
178: BEGIN
179: DELETE FROM CSD_MRO_SERIAL_NUMBERS
180: WHERE MRO_SERIAL_NUMBER_ID = p_MRO_SERIAL_NUMBER_ID;
181: If (SQL%NOTFOUND) then
182: RAISE NO_DATA_FOUND;
183: End If;
189:
190: IS
191: CURSOR C IS
192: SELECT *
193: FROM CSD_MRO_SERIAL_NUMBERS
194: WHERE MRO_SERIAL_NUMBER_ID = p_MRO_SERIAL_NUMBER_ID
195: FOR UPDATE of MRO_SERIAL_NUMBER_ID NOWAIT;
196: Recinfo C%ROWTYPE;
197: BEGIN
213:
214:
215: END Lock_Row;
216:
217: End CSD_MRO_SERIAL_NUMBERS_PKG;