APPS.CSD_REPAIR_ESTIMATE_PKG dependencies on CSD_REPAIR_ESTIMATE

Line 1: PACKAGE BODY CSD_REPAIR_ESTIMATE_PKG as

1: PACKAGE BODY CSD_REPAIR_ESTIMATE_PKG as
2: /* $Header: csdtestb.pls 120.1 2006/06/15 18:23:30 mshirkol noship $ */
3: -- Start of Comments
4: -- Package name : CSD_REPAIR_ESTIMATE_PKG
5: -- Purpose :

Line 4: -- Package name : CSD_REPAIR_ESTIMATE_PKG

1: PACKAGE BODY CSD_REPAIR_ESTIMATE_PKG as
2: /* $Header: csdtestb.pls 120.1 2006/06/15 18:23:30 mshirkol noship $ */
3: -- Start of Comments
4: -- Package name : CSD_REPAIR_ESTIMATE_PKG
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments

Line 11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSD_REPAIR_ESTIMATE_PKG';

7: -- NOTE :
8: -- End of Comments
9:
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSD_REPAIR_ESTIMATE_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdtestb.pls';
13: l_debug NUMBER := csd_gen_utility_pvt.g_debug_level;
14:
15: PROCEDURE Insert_Row(

Line 51: CURSOR C2 IS SELECT CSD_REPAIR_ESTIMATE_S1.nextval FROM sys.dual;

47: ,p_ESTIMATE_FREEZE_FLAG VARCHAR2
48: ,p_ESTIMATE_REASON_CODE VARCHAR2)
49:
50: IS
51: CURSOR C2 IS SELECT CSD_REPAIR_ESTIMATE_S1.nextval FROM sys.dual;
52: BEGIN
53: If (px_REPAIR_ESTIMATE_ID IS NULL) OR (px_REPAIR_ESTIMATE_ID = FND_API.G_MISS_NUM) then
54: OPEN C2;
55: FETCH C2 INTO px_REPAIR_ESTIMATE_ID;

Line 58: INSERT INTO CSD_REPAIR_ESTIMATE(

54: OPEN C2;
55: FETCH C2 INTO px_REPAIR_ESTIMATE_ID;
56: CLOSE C2;
57: End If;
58: INSERT INTO CSD_REPAIR_ESTIMATE(
59: REPAIR_ESTIMATE_ID
60: ,REPAIR_LINE_ID
61: ,ESTIMATE_STATUS
62: ,ESTIMATE_DATE

Line 165: Update CSD_REPAIR_ESTIMATE

161: ,p_ESTIMATE_REASON_CODE VARCHAR2)
162:
163: IS
164: BEGIN
165: Update CSD_REPAIR_ESTIMATE
166: SET
167: REPAIR_LINE_ID = decode( p_REPAIR_LINE_ID, FND_API.G_MISS_NUM, REPAIR_LINE_ID, p_REPAIR_LINE_ID)
168: ,ESTIMATE_STATUS = decode( p_ESTIMATE_STATUS, FND_API.G_MISS_CHAR, ESTIMATE_STATUS, p_ESTIMATE_STATUS)
169: ,ESTIMATE_DATE = decode( p_ESTIMATE_DATE, FND_API.G_MISS_DATE, ESTIMATE_DATE, p_ESTIMATE_DATE)

Line 210: DELETE FROM CSD_REPAIR_ESTIMATE

206: PROCEDURE Delete_Row(
207: p_REPAIR_ESTIMATE_ID NUMBER)
208: IS
209: BEGIN
210: DELETE FROM CSD_REPAIR_ESTIMATE
211: WHERE REPAIR_ESTIMATE_ID = p_REPAIR_ESTIMATE_ID;
212: If (SQL%NOTFOUND) then
213: RAISE NO_DATA_FOUND;
214: End If;

Line 224: FROM CSD_REPAIR_ESTIMATE

220:
221: IS
222: CURSOR C IS
223: SELECT *
224: FROM CSD_REPAIR_ESTIMATE
225: WHERE REPAIR_ESTIMATE_ID = p_REPAIR_ESTIMATE_ID
226: FOR UPDATE of REPAIR_ESTIMATE_ID NOWAIT;
227: Recinfo C%ROWTYPE;
228: BEGIN

Line 239: csd_gen_utility_pvt.add('CSD_REPAIR_ESTIMATE_PKG Recinfo.OBJECT_VERSION_NUMBER : '||Recinfo.OBJECT_VERSION_NUMBER);

235: End If;
236: CLOSE C;
237:
238: IF l_debug > 0 THEN
239: csd_gen_utility_pvt.add('CSD_REPAIR_ESTIMATE_PKG Recinfo.OBJECT_VERSION_NUMBER : '||Recinfo.OBJECT_VERSION_NUMBER);
240: csd_gen_utility_pvt.add('CSD_REPAIR_ESTIMATE_PKG p_OBJECT_VERSION_NUMBER : '||p_OBJECT_VERSION_NUMBER);
241: END IF;
242:
243: If ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER) then

Line 240: csd_gen_utility_pvt.add('CSD_REPAIR_ESTIMATE_PKG p_OBJECT_VERSION_NUMBER : '||p_OBJECT_VERSION_NUMBER);

236: CLOSE C;
237:
238: IF l_debug > 0 THEN
239: csd_gen_utility_pvt.add('CSD_REPAIR_ESTIMATE_PKG Recinfo.OBJECT_VERSION_NUMBER : '||Recinfo.OBJECT_VERSION_NUMBER);
240: csd_gen_utility_pvt.add('CSD_REPAIR_ESTIMATE_PKG p_OBJECT_VERSION_NUMBER : '||p_OBJECT_VERSION_NUMBER);
241: END IF;
242:
243: If ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER) then
244: return;

Line 250: End CSD_REPAIR_ESTIMATE_PKG;

246: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
247: APP_EXCEPTION.RAISE_EXCEPTION;
248: End If;
249: END Lock_Row;
250: End CSD_REPAIR_ESTIMATE_PKG;