[Home] [Help]
1: PACKAGE BODY CSP_MOVEORDER_LINES_PKG AS
2: /* $Header: cspttmlb.pls 115.10 2002/11/26 07:23:06 hhaugeru ship $ */
3: -- Start of Comments
4: -- Package name : CSP_MOVEORDER_LINES_PKG
5: -- Purpose :
1: PACKAGE BODY CSP_MOVEORDER_LINES_PKG AS
2: /* $Header: cspttmlb.pls 115.10 2002/11/26 07:23:06 hhaugeru ship $ */
3: -- Start of Comments
4: -- Package name : CSP_MOVEORDER_LINES_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_LINES_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'cspttmlb.pls';
13:
14: PROCEDURE Insert_Row(
15: p_LINE_ID NUMBER, -- change p_LINE_ID from IN/OUT parameters to an IN paramter only. 12/06/99 VL.
43:
44: IS
45:
46: -- commented out by VL 12/06/99
47: -- CURSOR C2 IS SELECT CSP_MOVEORDER_LINES_S.nextval FROM sys.dual;
48:
49: BEGIN
50:
51: /* If (px_LINE_ID IS NULL) OR (px_LINE_ID = FND_API.G_MISS_NUM) then
54: CLOSE C2;
55: End If;
56: */
57:
58: INSERT INTO CSP_MOVEORDER_LINES(
59: LINE_ID,
60: CREATED_BY,
61: CREATION_DATE,
62: LAST_UPDATED_BY,
146: p_ATTRIBUTE15 VARCHAR2)
147:
148: IS
149: BEGIN
150: Update CSP_MOVEORDER_LINES
151: SET
152: CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),
153: CREATION_DATE = p_CREATION_DATE,
154: LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
186: PROCEDURE Delete_Row(
187: p_LINE_ID NUMBER)
188: IS
189: BEGIN
190: DELETE FROM CSP_MOVEORDER_LINES
191: WHERE LINE_ID = p_LINE_ID;
192: If (SQL%NOTFOUND) then
193: RAISE NO_DATA_FOUND;
194: End If;
226:
227: IS
228: CURSOR C IS
229: SELECT *
230: FROM CSP_MOVEORDER_LINES
231: WHERE LINE_ID = p_LINE_ID
232: FOR UPDATE of LINE_ID NOWAIT;
233: Recinfo C%ROWTYPE;
234: BEGIN
331: APP_EXCEPTION.RAISE_EXCEPTION;
332: End If;
333: END Lock_Row;
334:
335: End CSP_MOVEORDER_LINES_PKG;