[Home] [Help]
PACKAGE BODY: APPS.AMS_SCHEDULER_B_PKG
Source
1 PACKAGE BODY AMS_SCHEDULER_B_PKG as
2 /* $Header: amstrptb.pls 120.0 2005/07/01 03:51:43 appldev noship $ */
3
4 -- ===============================================================
5 -- Start of Comments
6 -- Package name
7 -- AMS_SCHEDULER_B_PKG
8 --
9 -- Purpose
10 -- Private api created to Update/insert/Delete the repeating schedule details.
11 --
12 -- History
13 -- 05-may-2005 anchaudh Created.
14 --
15 --
16 -- NOTE
17 --
18 -- End of Comments
19 -- ===============================================================
20
21
22 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_SCHEDULER_B_PKG';
23 G_FILE_NAME CONSTANT VARCHAR2(12) := 'amstrptb.pls';
24
25
26
27 -- ========================================================
28 --
29 -- NAME
30 -- Insert_Row
31 --
32 -- HISTORY
33 -- 05-may-2005 anchaudh Created.
34 -- ========================================================
35 PROCEDURE Insert_Row(
36 px_scheduler_id IN OUT NOCOPY NUMBER,
37 p_created_by NUMBER,
38 p_creation_date DATE,
39 p_last_updated_by NUMBER,
40 p_last_update_date DATE,
41 p_last_update_login NUMBER,
42 px_object_version_number IN OUT NOCOPY NUMBER,
43 p_object_type VARCHAR2,
44 p_object_id NUMBER,
45 p_frequency NUMBER,
46 p_frequency_type VARCHAR2)
47
48 IS
49
50 l_last_update_date DATE;
51
52
53 BEGIN
54
55
56 px_object_version_number := 1;
57 AMS_UTILITY_PVT.debug_message('ANIRBAN table handler '||p_last_update_date);
58
59 l_last_update_date := p_last_update_date;
60 IF p_last_update_date IS NULL
61 THEN l_last_update_date := sysdate;
62 END IF;
63
64 AMS_UTILITY_PVT.debug_message('ANIRBAN table handler '||l_last_update_date);
65
66 INSERT INTO AMS_SCHEDULER(
67 scheduler_id,
68 created_by,
69 creation_date,
70 last_updated_by,
71 last_update_date,
72 last_update_login,
73 object_version_number,
74 object_type,
75 object_id,
76 frequency,
77 frequency_type
78 ) VALUES (
79 DECODE( px_scheduler_id, FND_API.g_miss_num, NULL, px_scheduler_id)
80 , DECODE( p_created_by, FND_API.g_miss_num, 1, p_created_by)
81 , DECODE( p_creation_date, FND_API.g_miss_date, sysdate, p_creation_date)
82 , DECODE( p_last_updated_by, FND_API.g_miss_num, 1, p_last_updated_by)
83 , DECODE( p_last_update_date, FND_API.g_miss_date, sysdate, l_last_update_date)
84 , DECODE( p_last_update_login, FND_API.g_miss_num, 1, p_last_update_login)
85 , DECODE( px_object_version_number, FND_API.g_miss_num, NULL, px_object_version_number)
86 , DECODE( p_object_type, FND_API.g_miss_char, NULL, p_object_type)
87 , DECODE( p_object_id, FND_API.g_miss_num, NULL, p_object_id)
88 , DECODE( p_frequency, FND_API.g_miss_num, NULL, p_frequency)
89 , DECODE( p_frequency_type, FND_API.g_miss_char, NULL, p_frequency_type)
90 );
91
92
93
94 END Insert_Row;
95
96
97 -- ========================================================
98 --
99 -- NAME
100 -- Update_Row
101 --
102 -- HISTORY
103 -- 05-may-2005 anchaudh Created.
104 -- ========================================================
105
106
107 PROCEDURE Update_Row(
108 p_scheduler_id NUMBER,
109 p_created_by NUMBER,
110 p_creation_date DATE,
111 p_last_updated_by NUMBER,
112 p_last_update_date DATE,
113 p_last_update_login NUMBER,
114 p_object_version_number NUMBER,
115 p_object_type VARCHAR2,
116 p_object_id NUMBER,
117 p_frequency NUMBER,
118 p_frequency_type VARCHAR2)
119 IS
120 BEGIN
121 Update AMS_SCHEDULER
122 SET
123 scheduler_id = DECODE( p_scheduler_id, FND_API.g_miss_num, scheduler_id, p_scheduler_id),
124 created_by = DECODE( p_created_by, FND_API.g_miss_num, created_by, p_created_by),
125 creation_date = DECODE( p_creation_date, FND_API.g_miss_date, creation_date, p_creation_date),
126 last_updated_by = DECODE( p_last_updated_by, FND_API.g_miss_num, last_updated_by, p_last_updated_by),
127 last_update_date = DECODE( p_last_update_date, FND_API.g_miss_date, last_update_date, p_last_update_date),
128 last_update_login = DECODE( p_last_update_login, FND_API.g_miss_num, last_update_login, p_last_update_login),
129 object_version_number = DECODE( p_object_version_number, FND_API.g_miss_num, object_version_number, p_object_version_number),
130 object_type = DECODE( p_object_type, FND_API.g_miss_char, object_type, p_object_type),
131 object_id = DECODE( p_object_id, FND_API.g_miss_num, object_id, p_object_id),
132 frequency = DECODE( p_frequency, FND_API.g_miss_num, frequency, p_frequency),
133 frequency_type = DECODE( p_frequency_type, FND_API.g_miss_char, frequency_type, p_frequency_type)
134 WHERE scheduler_id = p_scheduler_id
135 AND object_version_number = p_object_version_number;
136
137
138
139 END Update_Row;
140
141
142 -- ========================================================
143 --
144 -- NAME
145 -- Delete_Row
146 --
147 -- HISTORY
148 -- 05-may-2005 anchaudh Created.
149 -- ========================================================
150
151
152 PROCEDURE Delete_Row(
153 p_scheduler_id NUMBER)
154
155 IS
156 BEGIN
157 DELETE FROM AMS_SCHEDULER
158 WHERE SCHEDULER_ID = p_scheduler_id;
159 If (SQL%NOTFOUND) then
160 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
161 END IF;
162
163 END Delete_Row ;
164
165
166
167 -- ========================================================
168 --
169 -- NAME
170 -- Lock_Row
171 --
172 -- HISTORY
173 -- 05-may-2005 anchaudh Created.
174 -- ========================================================
175
176
177 PROCEDURE Lock_Row(
178 p_scheduler_id NUMBER)
179
180 IS
181 CURSOR C IS
182 SELECT *
183 FROM AMS_SCHEDULER
184 WHERE SCHEDULER_ID = p_scheduler_id
185 FOR UPDATE of SCHEDULER_ID NOWAIT;
186 Recinfo C%ROWTYPE;
187 BEGIN
188 OPEN c;
189 FETCH c INTO Recinfo;
190 If (c%NOTFOUND) then
191 CLOSE c;
192 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
193 APP_EXCEPTION.RAISE_EXCEPTION;
194 END IF;
195 CLOSE C;
196
197 END Lock_Row;
198
199
200 END AMS_SCHEDULER_B_PKG;