APPS.CSD_DC_DOMAINS_PKG dependencies on CSD_DC_DOMAINS

Line 1: PACKAGE BODY CSD_DC_DOMAINS_PKG as

1: PACKAGE BODY CSD_DC_DOMAINS_PKG as
2: /* $Header: csdtdcdb.pls 115.4 2003/11/05 00:14:16 gilam noship $ */
3: -- Start of Comments
4: -- Package name : CSD_DC_DOMAINS_PKG
5: -- Purpose : To insert, update, delete and lock dc domains

Line 4: -- Package name : CSD_DC_DOMAINS_PKG

1: PACKAGE BODY CSD_DC_DOMAINS_PKG as
2: /* $Header: csdtdcdb.pls 115.4 2003/11/05 00:14:16 gilam noship $ */
3: -- Start of Comments
4: -- Package name : CSD_DC_DOMAINS_PKG
5: -- Purpose : To insert, update, delete and lock dc domains
6: -- History : 25-Aug-2003 Gilam created
7: -- NOTE :
8: -- End of Comments

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

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

Line 45: CURSOR C2 IS SELECT CSD_DC_DOMAINS_S1.nextval FROM sys.dual;

41: ,p_ATTRIBUTE14 VARCHAR2
42: ,p_ATTRIBUTE15 VARCHAR2)
43:
44: IS
45: CURSOR C2 IS SELECT CSD_DC_DOMAINS_S1.nextval FROM sys.dual;
46: BEGIN
47: If (px_DC_DOMAIN_ID IS NULL) OR (px_DC_DOMAIN_ID = FND_API.G_MISS_NUM) then
48: OPEN C2;
49: FETCH C2 INTO px_DC_DOMAIN_ID;

Line 52: INSERT INTO CSD_DC_DOMAINS(

48: OPEN C2;
49: FETCH C2 INTO px_DC_DOMAIN_ID;
50: CLOSE C2;
51: End If;
52: INSERT INTO CSD_DC_DOMAINS(
53: DC_DOMAIN_ID
54: ,OBJECT_VERSION_NUMBER
55: ,DIAGNOSTIC_CODE_ID
56: ,CREATED_BY

Line 144: Update CSD_DC_DOMAINS

140: ,p_ATTRIBUTE15 VARCHAR2)
141:
142: IS
143: BEGIN
144: Update CSD_DC_DOMAINS
145: SET
146: OBJECT_VERSION_NUMBER = decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, NULL, OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER)
147: ,DIAGNOSTIC_CODE_ID = decode( p_DIAGNOSTIC_CODE_ID, FND_API.G_MISS_NUM, NULL, NULL, DIAGNOSTIC_CODE_ID, p_DIAGNOSTIC_CODE_ID)
148: ,CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, NULL, CREATED_BY, p_CREATED_BY)

Line 184: DELETE FROM CSD_DC_DOMAINS

180: PROCEDURE Delete_Row(
181: p_DC_DOMAIN_ID NUMBER)
182: IS
183: BEGIN
184: DELETE FROM CSD_DC_DOMAINS
185: WHERE DC_DOMAIN_ID = p_DC_DOMAIN_ID;
186: If (SQL%NOTFOUND) then
187: RAISE NO_DATA_FOUND;
188: End If;

Line 230: FROM CSD_DC_DOMAINS

226:
227: IS
228: CURSOR C IS
229: SELECT *
230: FROM CSD_DC_DOMAINS
231: WHERE DC_DOMAIN_ID = p_DC_DOMAIN_ID
232: FOR UPDATE of DC_DOMAIN_ID NOWAIT;
233: Recinfo C%ROWTYPE;
234: BEGIN

Line 339: End CSD_DC_DOMAINS_PKG;

335: APP_EXCEPTION.RAISE_EXCEPTION;
336: End If;
337: END Lock_Row;
338:
339: End CSD_DC_DOMAINS_PKG;