eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.CN_SEAS_SCHEDULES_PKG

Source


1 PACKAGE BODY CN_SEAS_SCHEDULES_pkg AS
2 /*$Header: cntsschb.pls 115.3 2002/01/28 20:06:22 pkm ship      $*/
3 
4 PROCEDURE insert_row
5   (P_SEAS_SCHEDULE_ID  IN cn_seas_schedules.SEAS_SCHEDULE_ID%TYPE,
6    P_NAME              IN cn_seas_schedules.NAME%TYPE,
7    P_DESCRIPTION       IN cn_seas_schedules.DESCRIPTION%TYPE := NULL,
8    P_PERIOD_YEAR       IN cn_seas_schedules.PERIOD_YEAR%TYPE,
9    P_START_DATE        IN cn_seas_schedules.START_DATE%TYPE,
10    P_END_DATE          IN cn_seas_schedules.END_DATE%TYPE,
11    P_VALIDATION_STATUS IN cn_seas_schedules.VALIDATION_STATUS%TYPE,
12    p_attribute_category IN cn_seas_schedules.attribute_category%TYPE := NULL,
13    p_attribute1 IN cn_seas_schedules.attribute1%TYPE := NULL,
14    p_attribute2 IN cn_seas_schedules.attribute2%TYPE := NULL,
15    p_attribute3 IN cn_seas_schedules.attribute3%TYPE := NULL,
16    p_attribute4 IN cn_seas_schedules.attribute4%TYPE := NULL,
17    p_attribute5 IN cn_seas_schedules.attribute5%TYPE := NULL,
18    p_attribute6 IN cn_seas_schedules.attribute6%TYPE := NULL,
19    p_attribute7 IN cn_seas_schedules.attribute7%TYPE := NULL,
20    p_attribute8 IN cn_seas_schedules.attribute8%TYPE := NULL,
21    p_attribute9 IN cn_seas_schedules.attribute9%TYPE := NULL,
22    p_attribute10 IN cn_seas_schedules.attribute10%TYPE := NULL,
23    p_attribute11 IN cn_seas_schedules.attribute11%TYPE := NULL,
24    p_attribute12 IN cn_seas_schedules.attribute12%TYPE := NULL,
25    p_attribute13 IN cn_seas_schedules.attribute13%TYPE := NULL,
26    p_attribute14 IN cn_seas_schedules.attribute14%TYPE := NULL,
27    p_attribute15 IN cn_seas_schedules.attribute15%TYPE := NULL,
28    p_created_by IN  cn_seas_schedules.created_by%TYPE := NULL,
29    p_creation_date IN cn_seas_schedules.creation_date%TYPE := NULL,
30    p_last_update_login IN cn_seas_schedules.last_update_login%TYPE := NULL,
31    p_last_update_date IN cn_seas_schedules.last_update_date%TYPE := NULL,
32    p_last_updated_by IN cn_seas_schedules.last_updated_by%TYPE := NULL,
33    p_OBJECT_VERSION_NUMBER IN cn_seas_schedules.OBJECT_VERSION_NUMBER%TYPE := NULL)
34    IS
35    MN NUMBER        := FND_API.G_MISS_NUM;
36    MC VARCHAR2(150) := FND_API.G_MISS_CHAR;
37    MD DATE          := FND_API.G_MISS_DATE;
38 
39 BEGIN
40    INSERT INTO cn_seas_schedules(
41      SEAS_SCHEDULE_ID,
42      NAME,
43      DESCRIPTION,
44      PERIOD_YEAR,
45      START_DATE,
46      END_DATE,
47      VALIDATION_STATUS,
48      attribute_category,
49      attribute1,
50      attribute2,
51      attribute3,
52      attribute4,
53      attribute5,
54      attribute6,
55      attribute7,
56      attribute8,
57      attribute9,
58      attribute10,
59      attribute11,
60      attribute12,
61      attribute13,
62      attribute14,
63      attribute15,
64      CREATED_BY,
65      CREATION_DATE,
66      LAST_UPDATE_LOGIN,
67      LAST_UPDATE_DATE,
68      LAST_UPDATED_BY,
69      object_version_number
70    )
71    SELECT
72      cn_seas_schedules_s.nextval,
73      P_NAME,
74      decode(P_DESCRIPTION,mc,null,P_DESCRIPTION),
75      decode(P_PERIOD_YEAR,mn,null,P_PERIOD_YEAR),
76      decode(P_START_DATE,md,null,P_START_DATE),
77      decode(P_END_DATE,md,null,P_END_DATE),
78      decode(P_VALIDATION_STATUS,mc,null,P_VALIDATION_STATUS),
79      decode(p_attribute_category, mc, null, p_attribute_category),
80      decode(p_attribute1, mc, null, p_attribute1),
81      decode(p_attribute2, mc, null, p_attribute2),
82      decode(p_attribute3, mc, null, p_attribute3),
83      decode(p_attribute4, mc, null, p_attribute4),
84      decode(p_attribute5, mc, null, p_attribute5),
85      decode(p_attribute6, mc, null, p_attribute6),
86      decode(p_attribute7, mc, null, p_attribute7),
87      decode(p_attribute8, mc, null, p_attribute8),
88      decode(p_attribute9, mc, null, p_attribute9),
89      decode(p_attribute10, mc, null, p_attribute10),
90      decode(p_attribute11, mc, null, p_attribute11),
91      decode(p_attribute12, mc, null, p_attribute12),
92      decode(p_attribute13, mc, null, p_attribute13),
93      decode(p_attribute14, mc, null, p_attribute14),
94      decode(p_attribute15, mc, null, p_attribute15),
95      fnd_global.user_id,
96      sysdate,
97      fnd_global.login_id,
98      sysdate,
99      fnd_global.user_id,
100      1
101     FROM dual;
102 END insert_row;
103 
104 
105 PROCEDURE update_row
106   (P_SEAS_SCHEDULE_ID  IN cn_seas_schedules.SEAS_SCHEDULE_ID%TYPE,
107    P_NAME              IN cn_seas_schedules.NAME%TYPE,
108    P_DESCRIPTION       IN cn_seas_schedules.DESCRIPTION%TYPE := NULL,
109    P_PERIOD_YEAR       IN cn_seas_schedules.PERIOD_YEAR%TYPE,
110    P_START_DATE        IN cn_seas_schedules.START_DATE%TYPE,
111    P_END_DATE          IN cn_seas_schedules.END_DATE%TYPE,
112    P_VALIDATION_STATUS IN cn_seas_schedules.VALIDATION_STATUS%TYPE,
113    p_attribute_category IN cn_seas_schedules.attribute_category%TYPE := NULL,
114    p_attribute1 IN cn_seas_schedules.attribute1%TYPE := NULL,
115    p_attribute2 IN cn_seas_schedules.attribute2%TYPE := NULL,
116    p_attribute3 IN cn_seas_schedules.attribute3%TYPE := NULL,
117    p_attribute4 IN cn_seas_schedules.attribute4%TYPE := NULL,
118    p_attribute5 IN cn_seas_schedules.attribute5%TYPE := NULL,
119    p_attribute6 IN cn_seas_schedules.attribute6%TYPE := NULL,
120    p_attribute7 IN cn_seas_schedules.attribute7%TYPE := NULL,
121    p_attribute8 IN cn_seas_schedules.attribute8%TYPE := NULL,
122    p_attribute9 IN cn_seas_schedules.attribute9%TYPE := NULL,
123    p_attribute10 IN cn_seas_schedules.attribute10%TYPE := NULL,
124    p_attribute11 IN cn_seas_schedules.attribute11%TYPE := NULL,
125    p_attribute12 IN cn_seas_schedules.attribute12%TYPE := NULL,
126    p_attribute13 IN cn_seas_schedules.attribute13%TYPE := NULL,
127    p_attribute14 IN cn_seas_schedules.attribute14%TYPE := NULL,
128    p_attribute15 IN cn_seas_schedules.attribute15%TYPE := NULL,
129    p_last_update_login IN cn_seas_schedules.last_update_login%TYPE := NULL,
130    p_last_update_date IN cn_seas_schedules.last_update_date%TYPE := NULL,
131    p_last_updated_by IN cn_seas_schedules.last_updated_by%TYPE := NULL,
132    p_object_version_number IN cn_seas_schedules.object_version_number%TYPE)   IS
133    CURSOR l_old_csr IS
134       SELECT *
135 	FROM cn_seas_schedules
136        WHERE SEAS_SCHEDULE_ID = P_SEAS_SCHEDULE_ID;
137 
138    l_old_rec   l_old_csr%ROWTYPE;
139 
140    MN NUMBER        := FND_API.G_MISS_NUM;
141    MC VARCHAR2(150) := FND_API.G_MISS_CHAR;
142    MD DATE          := FND_API.G_MISS_DATE;
143 
144    l_object_version_number  NUMBER;
145 
146 BEGIN
147    OPEN l_old_csr;
148    FETCH l_old_csr INTO l_old_rec;
149    CLOSE l_old_csr;
150 
151    SELECT decode(p_object_version_number, mn,
152                  l_old_rec.object_version_number, p_object_version_number)
153    INTO l_object_version_number
154    FROM dual;
155 
156    -- check object version number
157    IF l_object_version_number <> l_old_rec.object_version_number THEN
158      fnd_message.set_name('CN', 'CN_RECORD_CHANGED');
159      fnd_msg_pub.add;
160      raise fnd_api.g_exc_error;
161    END IF;
162 
163    UPDATE cn_seas_schedules SET
164     (name,
165      description,
166      start_date,
167      end_date,
168      validation_status,
169      attribute_category,
170      attribute1,
171      attribute2,
172      attribute3,
173      attribute4,
174      attribute5,
175      attribute6,
176      attribute7,
177      attribute8,
178      attribute9,
179      attribute10,
180      attribute11,
181      attribute12,
182      attribute13,
183      attribute14,
184      attribute15,
185      object_version_number,
186      LAST_UPDATE_DATE,
187      LAST_UPDATED_BY,
188      LAST_UPDATE_LOGIN
189    ) =
190      (
191       SELECT
192         decode(p_name, mc, l_old_rec.name, p_name),
193         decode(p_description, mc, l_old_rec.description, p_description),
194         decode(p_start_date, md, l_old_rec.start_date, p_start_date),
195         decode(p_end_date, md, l_old_rec.end_date, p_end_date),
196         decode(p_validation_status, mc, l_old_rec.validation_status, p_validation_status),
197         decode(p_attribute_category, mc, l_old_rec.attribute_category,p_attribute_category),
198         decode(p_attribute1, mc, l_old_rec.attribute1, p_attribute1),
199         decode(p_attribute2, mc, l_old_rec.attribute2, p_attribute2),
200         decode(p_attribute3, mc, l_old_rec.attribute3, p_attribute3),
201         decode(p_attribute4, mc, l_old_rec.attribute4, p_attribute4),
202         decode(p_attribute5, mc, l_old_rec.attribute5, p_attribute5),
203         decode(p_attribute6, mc, l_old_rec.attribute6, p_attribute6),
204         decode(p_attribute7, mc, l_old_rec.attribute7, p_attribute7),
205         decode(p_attribute8, mc, l_old_rec.attribute8, p_attribute8),
206         decode(p_attribute9, mc, l_old_rec.attribute9, p_attribute9),
207         decode(p_attribute10, mc, l_old_rec.attribute10, p_attribute10),
208         decode(p_attribute11, mc, l_old_rec.attribute11, p_attribute11),
209         decode(p_attribute12, mc, l_old_rec.attribute12, p_attribute12),
210         decode(p_attribute13, mc, l_old_rec.attribute13, p_attribute13),
211         decode(p_attribute14, mc, l_old_rec.attribute14, p_attribute14),
212         decode(p_attribute15, mc, l_old_rec.attribute15, p_attribute15),
213         decode(p_object_version_number, mn,l_old_rec.object_version_number, p_object_version_number+1),
214         sysdate,
215         fnd_global.user_id,
216         fnd_global.login_id
217        FROM dual)
218        WHERE seas_schedule_id = p_seas_schedule_id;
219 END update_row;
220 
221 
222 PROCEDURE delete_row
223   (P_SEAS_SCHEDULE_ID  IN cn_seas_schedules.SEAS_SCHEDULE_ID%TYPE) IS
224 BEGIN
225    DELETE FROM cn_seas_schedules
226      WHERE SEAS_SCHEDULE_ID = P_SEAS_SCHEDULE_ID;
227 
228 END delete_row;
229 
230 END CN_SEAS_SCHEDULES_pkg;