[Home] [Help]
1: PACKAGE BODY CSP_PACKLIST_BOXES_PKG as
2: /* $Header: csptpbxb.pls 115.4 2002/11/26 07:08:24 hhaugeru ship $ */
3: -- Start of Comments
4: -- Package name : CSP_PACKLIST_BOXES_PKG
5: -- Purpose :
1: PACKAGE BODY CSP_PACKLIST_BOXES_PKG as
2: /* $Header: csptpbxb.pls 115.4 2002/11/26 07:08:24 hhaugeru ship $ */
3: -- Start of Comments
4: -- Package name : CSP_PACKLIST_BOXES_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_PACKLIST_BOXES_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csptpbxb.pls';
13:
14: PROCEDURE Insert_Row(
15: px_BOX_ID IN OUT NOCOPY NUMBER,
39: p_ATTRIBUTE14 VARCHAR2,
40: p_ATTRIBUTE15 VARCHAR2)
41:
42: IS
43: CURSOR C2 IS SELECT CSP_PACKLIST_BOXES_S1.nextval FROM sys.dual;
44: BEGIN
45: If (px_BOX_ID IS NULL) OR (px_BOX_ID = FND_API.G_MISS_NUM) then
46: OPEN C2;
47: FETCH C2 INTO px_BOX_ID;
46: OPEN C2;
47: FETCH C2 INTO px_BOX_ID;
48: CLOSE C2;
49: End If;
50: INSERT INTO CSP_PACKLIST_BOXES(
51: BOX_ID,
52: CREATED_BY,
53: CREATION_DATE,
54: LAST_UPDATED_BY,
132: p_ATTRIBUTE15 VARCHAR2)
133:
134: IS
135: BEGIN
136: Update CSP_PACKLIST_BOXES
137: SET
138: CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),
139: CREATION_DATE = decode(p_creation_date,fnd_api.g_miss_date,creation_date,p_creation_date),
140: LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
170: PROCEDURE Delete_Row(
171: p_BOX_ID NUMBER)
172: IS
173: BEGIN
174: DELETE FROM CSP_PACKLIST_BOXES
175: WHERE BOX_ID = p_BOX_ID;
176: If (SQL%NOTFOUND) then
177: RAISE NO_DATA_FOUND;
178: End If;
208:
209: IS
210: CURSOR C IS
211: SELECT *
212: FROM CSP_PACKLIST_BOXES
213: WHERE BOX_ID = p_BOX_ID
214: FOR UPDATE of BOX_ID NOWAIT;
215: Recinfo C%ROWTYPE;
216: BEGIN
306: APP_EXCEPTION.RAISE_EXCEPTION;
307: End If;
308: END Lock_Row;
309:
310: End CSP_PACKLIST_BOXES_PKG;