[Home] [Help]
PACKAGE BODY: APPS.CSP_DEDICATED_SITES_PKG
Source
1 PACKAGE BODY CSP_DEDICATED_SITES_PKG as
2 /* $Header: csptdsib.pls 120.1 2010/12/03 19:58:24 hhaugeru noship $ */
3 -- Start of Comments
4 -- Package name : CSP_DEDICATED_SITES_PKG
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSP_DEDICATED_SITES_PKG';
11 G_FILE_NAME CONSTANT VARCHAR2(12) := 'csptdsib.pls';
12
13 PROCEDURE Insert_Row(
14 px_DEDICATED_SITES_ID NUMBER
15 ,p_PLANNING_PARAMETERS_ID NUMBER
16 ,p_PARTY_SITE_ID NUMBER
17 ,p_CREATED_BY NUMBER
18 ,p_CREATION_DATE DATE
19 ,p_LAST_UPDATED_BY NUMBER
20 ,p_LAST_UPDATE_DATE DATE
21 ,p_LAST_UPDATE_LOGIN NUMBER
22 )
23 IS
24
25 p_DEDICATED_SITES_ID Number;
26 CURSOR C2 IS SELECT csp_dedicated_sites_S1.nextval FROM sys.dual;
27 BEGIN
28
29 If (px_DEDICATED_SITES_ID IS NULL) OR (px_DEDICATED_SITES_ID = FND_API.G_MISS_NUM) then
30 OPEN C2;
31 FETCH C2 INTO p_DEDICATED_SITES_ID;
32 CLOSE C2;
33 End If;
34
35
36 INSERT INTO csp_dedicated_sites(
37 DEDICATED_SITES_ID
38 ,PLANNING_PARAMETERS_ID
39 ,PARTY_SITE_ID
40 ,CREATED_BY
41 ,CREATION_DATE
42 ,LAST_UPDATED_BY
43 ,LAST_UPDATE_DATE
44 ,LAST_UPDATE_LOGIN
45 ) VALUES (
46 nvl(px_DEDICATED_SITES_ID,p_DEDICATED_SITES_ID)
47 ,decode( p_PLANNING_PARAMETERS_ID, FND_API.G_MISS_NUM, NULL, p_PLANNING_PARAMETERS_ID)
48 ,decode( p_PARTY_SITE_ID, FND_API.G_MISS_NUM, NULL, p_PARTY_SITE_ID)
49 ,decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY)
50 ,decode( p_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_CREATION_DATE)
51 ,decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY)
52 ,decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE)
53 ,decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN)
54 );
55 End Insert_Row;
56
57 PROCEDURE Update_Row(
58 p_DEDICATED_SITES_ID NUMBER
59 ,p_PLANNING_PARAMETERS_ID NUMBER
60 ,p_PARTY_SITE_ID NUMBER
61 ,p_CREATED_BY NUMBER
62 ,p_CREATION_DATE DATE
63 ,p_LAST_UPDATED_BY NUMBER
64 ,p_LAST_UPDATE_DATE DATE
65 ,p_LAST_UPDATE_LOGIN NUMBER
66 ) IS
67
68 BEGIN
69 Update csp_dedicated_sites
70 SET
71 DEDICATED_SITES_ID = decode( p_DEDICATED_SITES_ID, FND_API.G_MISS_NUM, DEDICATED_SITES_ID, p_DEDICATED_SITES_ID)
72 ,PLANNING_PARAMETERS_ID = decode( p_PLANNING_PARAMETERS_ID, FND_API.G_MISS_NUM, PLANNING_PARAMETERS_ID, p_PLANNING_PARAMETERS_ID)
73 ,PARTY_SITE_ID = decode( p_PARTY_SITE_ID, FND_API.G_MISS_NUM, PARTY_SITE_ID, p_PARTY_SITE_ID)
74 ,CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY)
75 ,CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, p_CREATION_DATE)
76 ,LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY)
77 ,LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE)
78 ,LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN)
79 where DEDICATED_SITES_ID = p_DEDICATED_SITES_ID
80 AND PLANNING_PARAMETERS_ID = p_PLANNING_PARAMETERS_ID;
81
82 If (SQL%NOTFOUND) then
83 RAISE NO_DATA_FOUND;
84 End If;
85 END Update_Row;
86
87 PROCEDURE Delete_Row(
88 p_DEDICATED_SITES_ID NUMBER
89 ,p_PLANNING_PARAMETERS_ID NUMBER
90 ,p_PARTY_SITE_ID NUMBER
91 )
92 IS
93 BEGIN
94 DELETE FROM csp_dedicated_sites
95 where DEDICATED_SITES_ID = p_DEDICATED_SITES_ID
96 AND PLANNING_PARAMETERS_ID = p_PLANNING_PARAMETERS_ID
97 AND PARTY_SITE_ID = P_PARTY_SITE_ID;
98
99 If (SQL%NOTFOUND) then
100 RAISE NO_DATA_FOUND;
101 End If;
102 END Delete_Row;
103
104 PROCEDURE Lock_Row(
105 p_DEDICATED_SITES_ID NUMBER
106 ,p_PLANNING_PARAMETERS_ID NUMBER
107 ,p_PARTY_SITE_ID NUMBER
108 ,p_CREATED_BY NUMBER
109 ,p_CREATION_DATE DATE
110 ,p_LAST_UPDATED_BY NUMBER
111 ,p_LAST_UPDATE_DATE DATE
112 ,p_LAST_UPDATE_LOGIN NUMBER
113 )
114 IS
115 CURSOR C IS
116 SELECT *
117 FROM csp_dedicated_sites
118 WHERE PARTY_SITE_ID = p_PARTY_SITE_ID
119 FOR UPDATE of PARTY_SITE_ID NOWAIT;
120 Recinfo C%ROWTYPE;
121 BEGIN
122 OPEN C;
123 FETCH C INTO Recinfo;
124 If (C%NOTFOUND) then
125 CLOSE C;
126 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
127 APP_EXCEPTION.RAISE_EXCEPTION;
128 End If;
129 CLOSE C;
130 if (
131 ( Recinfo.DEDICATED_SITES_ID = p_DEDICATED_SITES_ID
132 and Recinfo.PLANNING_PARAMETERS_ID = p_PLANNING_PARAMETERS_ID )
133
134 AND ( ( Recinfo.PARTY_SITE_ID = p_PARTY_SITE_ID)
135 OR ( ( Recinfo.PARTY_SITE_ID IS NULL )
136 AND ( p_PARTY_SITE_ID IS NULL )))
137 AND ( ( Recinfo.CREATED_BY = p_CREATED_BY)
138 OR ( ( Recinfo.CREATED_BY IS NULL )
139 AND ( p_CREATED_BY IS NULL )))
140 AND ( ( Recinfo.CREATION_DATE = p_CREATION_DATE)
141 OR ( ( Recinfo.CREATION_DATE IS NULL )
142 AND ( p_CREATION_DATE IS NULL )))
143 AND ( ( Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
144 OR ( ( Recinfo.LAST_UPDATED_BY IS NULL )
145 AND ( p_LAST_UPDATED_BY IS NULL )))
146 AND ( ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
147 OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
148 AND ( p_LAST_UPDATE_DATE IS NULL )))
149 AND ( ( Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
150 OR ( ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
151 AND ( p_LAST_UPDATE_LOGIN IS NULL )))
152 ) then
153 return;
154 else
155 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
156 APP_EXCEPTION.RAISE_EXCEPTION;
157 End If;
158 END Lock_Row;
159 End CSP_DEDICATED_SITES_PKG;