[Home] [Help]
1: PACKAGE BODY CSP_MOVEORDER_HEADERS_PKG AS
2: /* $Header: cspttmhb.pls 115.17 2002/11/26 07:47:54 hhaugeru ship $ */
3: -- Start of Comments
4: -- Package name : CSP_MOVEORDER_HEADERS_PKG
5: -- Purpose :
1: PACKAGE BODY CSP_MOVEORDER_HEADERS_PKG AS
2: /* $Header: cspttmhb.pls 115.17 2002/11/26 07:47:54 hhaugeru ship $ */
3: -- Start of Comments
4: -- Package name : CSP_MOVEORDER_HEADERS_PKG
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments
7: -- NOTE :
8: -- End of Comments
9:
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSP_MOVEORDER_HEADERS_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'cspttmhb.pls';
13:
14: PROCEDURE Insert_Row(
15: p_HEADER_ID NUMBER, -- change IN-OUT px_HEADER_ID to an IN parameter only. 12/06/99 VL
45: )
46:
47: IS
48: -- Removed by VL, 12/06/99
49: -- CURSOR C2 IS SELECT CSP_MOVEORDER_HEADERS_S.nextval FROM sys.dual;
50:
51: BEGIN
52: /* If (px_HEADER_ID IS NULL) OR (px_HEADER_ID = FND_API.G_MISS_NUM) then
53: OPEN C2;
54: FETCH C2 INTO px_HEADER_ID;
55: CLOSE C2;
56: End If;*/
57:
58: INSERT INTO CSP_MOVEORDER_HEADERS(
59: HEADER_ID,
60: CREATED_BY,
61: CREATION_DATE,
62: LAST_UPDATED_BY,
170: )
171:
172: IS
173: BEGIN
174: Update CSP_MOVEORDER_HEADERS
175: SET
176: CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),
177: CREATION_DATE = decode(p_CREATION_DATE,fnd_api.g_miss_date,creation_date,p_creation_date),
178: LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
221: PROCEDURE Delete_Row(
222: p_HEADER_ID NUMBER)
223: IS
224: BEGIN
225: DELETE FROM CSP_MOVEORDER_HEADERS
226: WHERE HEADER_ID = p_HEADER_ID;
227: If (SQL%NOTFOUND) then
228: RAISE NO_DATA_FOUND;
229: End If;
263:
264: IS
265: CURSOR C IS
266: SELECT *
267: FROM CSP_MOVEORDER_HEADERS
268: WHERE HEADER_ID = p_HEADER_ID
269: FOR UPDATE of HEADER_ID NOWAIT;
270: Recinfo C%ROWTYPE;
271: BEGIN
367: APP_EXCEPTION.RAISE_EXCEPTION;
368: End If;
369: END Lock_Row;
370:
371: End CSP_MOVEORDER_HEADERS_PKG;