APPS.CSP_PICKLIST_SERIAL_LOTS_PKG dependencies on CSP_PICKLIST_SERIAL_LOTS

Line 1: PACKAGE BODY CSP_PICKLIST_SERIAL_LOTS_PKG AS

1: PACKAGE BODY CSP_PICKLIST_SERIAL_LOTS_PKG AS
2: /* $Header: cspttslb.pls 115.4 2002/11/26 07:11:21 hhaugeru ship $ */
3: -- Start of Comments
4: -- Package name : CSP_PICKLIST_SERIAL_LOTS_PKG
5: -- Purpose :

Line 4: -- Package name : CSP_PICKLIST_SERIAL_LOTS_PKG

1: PACKAGE BODY CSP_PICKLIST_SERIAL_LOTS_PKG AS
2: /* $Header: cspttslb.pls 115.4 2002/11/26 07:11:21 hhaugeru ship $ */
3: -- Start of Comments
4: -- Package name : CSP_PICKLIST_SERIAL_LOTS_PKG
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments

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

7: -- NOTE :
8: -- End of Comments
9:
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSP_PICKLIST_SERIAL_LOTS_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'cspttslb.pls';
13:
14: PROCEDURE Insert_Row(
15: px_PICKLIST_SERIAL_LOT_ID IN OUT NOCOPY NUMBER,

Line 29: CURSOR C2 IS SELECT CSP_PICKLIST_SERIAL_LOTS_S1.nextval FROM sys.dual;

25: p_LOT_NUMBER VARCHAR2,
26: p_SERIAL_NUMBER VARCHAR2)
27:
28: IS
29: CURSOR C2 IS SELECT CSP_PICKLIST_SERIAL_LOTS_S1.nextval FROM sys.dual;
30: BEGIN
31: If (px_PICKLIST_SERIAL_LOT_ID IS NULL) OR (px_PICKLIST_SERIAL_LOT_ID = FND_API.G_MISS_NUM) then
32: OPEN C2;
33: FETCH C2 INTO px_PICKLIST_SERIAL_LOT_ID;

Line 36: INSERT INTO CSP_PICKLIST_SERIAL_LOTS(

32: OPEN C2;
33: FETCH C2 INTO px_PICKLIST_SERIAL_LOT_ID;
34: CLOSE C2;
35: End If;
36: INSERT INTO CSP_PICKLIST_SERIAL_LOTS(
37: PICKLIST_SERIAL_LOT_ID,
38: CREATED_BY,
39: CREATION_DATE,
40: LAST_UPDATED_BY,

Line 80: Update CSP_PICKLIST_SERIAL_LOTS

76: p_SERIAL_NUMBER VARCHAR2)
77:
78: IS
79: BEGIN
80: Update CSP_PICKLIST_SERIAL_LOTS
81: SET
82: CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),
83: CREATION_DATE = decode(p_CREATION_DATE,fnd_api.g_miss_date,creation_date,p_creation_date),
84: LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),

Line 104: DELETE FROM CSP_PICKLIST_SERIAL_LOTS

100: PROCEDURE Delete_Row(
101: p_PICKLIST_SERIAL_LOT_ID NUMBER)
102: IS
103: BEGIN
104: DELETE FROM CSP_PICKLIST_SERIAL_LOTS
105: WHERE PICKLIST_SERIAL_LOT_ID = p_PICKLIST_SERIAL_LOT_ID;
106: If (SQL%NOTFOUND) then
107: RAISE NO_DATA_FOUND;
108: End If;

Line 128: FROM CSP_PICKLIST_SERIAL_LOTS

124:
125: IS
126: CURSOR C IS
127: SELECT *
128: FROM CSP_PICKLIST_SERIAL_LOTS
129: WHERE PICKLIST_SERIAL_LOT_ID = p_PICKLIST_SERIAL_LOT_ID
130: FOR UPDATE of PICKLIST_SERIAL_LOT_ID NOWAIT;
131: Recinfo C%ROWTYPE;
132: BEGIN

Line 184: End CSP_PICKLIST_SERIAL_LOTS_PKG;

180: APP_EXCEPTION.RAISE_EXCEPTION;
181: End If;
182: END Lock_Row;
183:
184: End CSP_PICKLIST_SERIAL_LOTS_PKG;