[Home] [Help]
PACKAGE BODY: APPS.IGS_AS_SU_SETATMPT_H_PKG
Source
1 package body IGS_AS_SU_SETATMPT_H_PKG AS
2 /* $Header: IGSDI28B.pls 115.7 2002/11/28 23:17:56 nsidana ship $ */
3
4
5 l_rowid VARCHAR2(25);
6 old_references IGS_AS_SU_SETATMPT_H_ALL%RowType;
7 new_references IGS_AS_SU_SETATMPT_H_ALL%RowType;
8 PROCEDURE Set_Column_Values (
9 p_action IN VARCHAR2,
10 x_rowid IN VARCHAR2 DEFAULT NULL,
11 x_org_id IN NUMBER DEFAULT NULL,
12 x_person_id IN NUMBER DEFAULT NULL,
13 x_course_cd IN VARCHAR2 DEFAULT NULL,
14 x_unit_set_cd IN VARCHAR2 DEFAULT NULL,
15 x_sequence_number IN NUMBER DEFAULT NULL,
16 x_hist_start_dt IN DATE DEFAULT NULL,
17 x_hist_end_dt IN DATE DEFAULT NULL,
18 x_hist_who IN NUMBER DEFAULT NULL,
19 x_us_version_number IN NUMBER DEFAULT NULL,
20 x_selection_dt IN DATE DEFAULT NULL,
21 x_student_confirmed_ind IN VARCHAR2 DEFAULT NULL,
22 x_end_dt IN DATE DEFAULT NULL,
23 x_parent_unit_set_cd IN VARCHAR2 DEFAULT NULL,
24 x_parent_sequence_number IN NUMBER DEFAULT NULL,
25 x_primary_set_ind IN VARCHAR2 DEFAULT NULL,
26 x_voluntary_end_ind IN VARCHAR2 DEFAULT NULL,
27 x_authorised_person_id IN NUMBER DEFAULT NULL,
28 x_authorised_on IN DATE DEFAULT NULL,
29 x_override_title IN VARCHAR2 DEFAULT NULL,
30 x_rqrmnts_complete_ind IN VARCHAR2 DEFAULT NULL,
31 x_rqrmnts_complete_dt IN DATE DEFAULT NULL,
32 x_s_completed_source_type IN VARCHAR2 DEFAULT NULL,
33 X_CATALOG_CAL_TYPE in VARCHAR2 DEFAULT NULL,
34 X_CATALOG_SEQ_NUM in NUMBER DEFAULT NULL,
35 x_creation_date IN DATE DEFAULT NULL,
36 x_created_by IN NUMBER DEFAULT NULL,
37 x_last_update_date IN DATE DEFAULT NULL,
38 x_last_updated_by IN NUMBER DEFAULT NULL,
39 x_last_update_login IN NUMBER DEFAULT NULL
40 ) AS
41 CURSOR cur_old_ref_values IS
42 SELECT *
43 FROM IGS_AS_SU_SETATMPT_H_ALL
44 WHERE rowid = x_rowid;
45 BEGIN
46 l_rowid := x_rowid;
47 -- Code for setting the Old and New Reference Values.
48 -- Populate Old Values.
49 Open cur_old_ref_values;
50 Fetch cur_old_ref_values INTO old_references;
51 IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
52 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
53 IGS_GE_MSG_STACK.ADD;
54 Close cur_old_ref_values;
55 APP_EXCEPTION.RAISE_EXCEPTION;
56
57 Return;
58 END IF;
59 Close cur_old_ref_values;
60 -- Populate New Values.
61 new_references.org_id := x_org_id;
62 new_references.person_id := x_person_id;
63 new_references.course_cd := x_course_cd;
64 new_references.unit_set_cd := x_unit_set_cd;
65 new_references.sequence_number := x_sequence_number;
66 new_references.hist_start_dt := x_hist_start_dt;
67 new_references.hist_end_dt := x_hist_end_dt;
68 new_references.hist_who := x_hist_who;
69 new_references.us_version_number := x_us_version_number;
70 new_references.selection_dt := x_selection_dt;
71 new_references.student_confirmed_ind := x_student_confirmed_ind;
72 new_references.end_dt := x_end_dt;
73 new_references.parent_unit_set_cd := x_parent_unit_set_cd;
74 new_references.parent_sequence_number := x_parent_sequence_number;
75 new_references.primary_set_ind := x_primary_set_ind;
76 new_references.voluntary_end_ind := x_voluntary_end_ind;
77 new_references.authorised_person_id := x_authorised_person_id;
78 new_references.authorised_on := x_authorised_on;
79 new_references.override_title := x_override_title;
80 new_references.rqrmnts_complete_ind := x_rqrmnts_complete_ind;
81 new_references.rqrmnts_complete_dt := x_rqrmnts_complete_dt;
82 new_references.s_completed_source_type := x_s_completed_source_type;
83 new_references.CATALOG_CAL_TYPE := X_CATALOG_CAL_TYPE;
84 new_references.CATALOG_SEQ_NUM := X_CATALOG_SEQ_NUM;
85 IF (p_action = 'UPDATE') THEN
86 new_references.creation_date := old_references.creation_date;
87 new_references.created_by := old_references.created_by;
88 ELSE
89 new_references.creation_date := x_creation_date;
90 new_references.created_by := x_created_by;
91 END IF;
92 new_references.last_update_date := x_last_update_date;
93 new_references.last_updated_by := x_last_updated_by;
94 new_references.last_update_login := x_last_update_login;
95 END Set_Column_Values;
96 FUNCTION Get_PK_For_Validation (
97 x_person_id IN NUMBER,
98 x_course_cd IN VARCHAR2,
99 x_unit_set_cd IN VARCHAR2,
100 x_sequence_number IN NUMBER,
101 x_hist_start_dt IN DATE
102 ) RETURN BOOLEAN AS
103 CURSOR cur_rowid IS
104 SELECT rowid
105 FROM IGS_AS_SU_SETATMPT_H_ALL
106 WHERE person_id = x_person_id
107 AND course_cd = x_course_cd
108 AND unit_set_cd = x_unit_set_cd
109 AND sequence_number = x_sequence_number
110 AND hist_start_dt = x_hist_start_dt
111 FOR UPDATE NOWAIT;
112 lv_rowid cur_rowid%RowType;
113 BEGIN
114 Open cur_rowid;
115 Fetch cur_rowid INTO lv_rowid;
116 IF (cur_rowid%FOUND) THEN
117 Close cur_rowid;
118 Return (TRUE);
119 ELSE
120 Close cur_rowid;
121 Return (FALSE);
122 END IF;
123 END Get_PK_For_Validation;
124 PROCEDURE Before_DML (
125 p_action IN VARCHAR2,
126 x_rowid IN VARCHAR2 DEFAULT NULL,
127 x_org_id IN NUMBER DEFAULT NULL,
128 x_person_id IN NUMBER DEFAULT NULL,
129 x_course_cd IN VARCHAR2 DEFAULT NULL,
130 x_unit_set_cd IN VARCHAR2 DEFAULT NULL,
131 x_sequence_number IN NUMBER DEFAULT NULL,
132 x_hist_start_dt IN DATE DEFAULT NULL,
133 x_hist_end_dt IN DATE DEFAULT NULL,
134 x_hist_who IN NUMBER DEFAULT NULL,
135 x_us_version_number IN NUMBER DEFAULT NULL,
136 x_selection_dt IN DATE DEFAULT NULL,
137 x_student_confirmed_ind IN VARCHAR2 DEFAULT NULL,
138 x_end_dt IN DATE DEFAULT NULL,
139 x_parent_unit_set_cd IN VARCHAR2 DEFAULT NULL,
140 x_parent_sequence_number IN NUMBER DEFAULT NULL,
141 x_primary_set_ind IN VARCHAR2 DEFAULT NULL,
142 x_voluntary_end_ind IN VARCHAR2 DEFAULT NULL,
143 x_authorised_person_id IN NUMBER DEFAULT NULL,
144 x_authorised_on IN DATE DEFAULT NULL,
145 x_override_title IN VARCHAR2 DEFAULT NULL,
146 x_rqrmnts_complete_ind IN VARCHAR2 DEFAULT NULL,
147 x_rqrmnts_complete_dt IN DATE DEFAULT NULL,
148 x_s_completed_source_type IN VARCHAR2 DEFAULT NULL,
149 X_CATALOG_CAL_TYPE in VARCHAR2 DEFAULT NULL,
150 X_CATALOG_SEQ_NUM in NUMBER DEFAULT NULL,
151 x_creation_date IN DATE DEFAULT NULL,
152 x_created_by IN NUMBER DEFAULT NULL,
153 x_last_update_date IN DATE DEFAULT NULL,
154 x_last_updated_by IN NUMBER DEFAULT NULL,
155 x_last_update_login IN NUMBER DEFAULT NULL
156 ) AS
157 BEGIN
158 Set_Column_Values (
159 p_action,
160 x_rowid,
161 x_org_id,
162 x_person_id,
163 x_course_cd,
164 x_unit_set_cd,
165 x_sequence_number,
166 x_hist_start_dt,
167 x_hist_end_dt,
168 x_hist_who,
169 x_us_version_number,
170 x_selection_dt,
171 x_student_confirmed_ind,
172 x_end_dt,
173 x_parent_unit_set_cd,
174 x_parent_sequence_number,
175 x_primary_set_ind,
176 x_voluntary_end_ind,
177 x_authorised_person_id,
178 x_authorised_on,
179 x_override_title,
180 x_rqrmnts_complete_ind,
181 x_rqrmnts_complete_dt,
182 x_s_completed_source_type,
183 X_CATALOG_CAL_TYPE ,
184 X_CATALOG_SEQ_NUM ,
185 x_creation_date,
186 x_created_by,
187 x_last_update_date,
188 x_last_updated_by,
189 x_last_update_login
190 );
191 IF (p_action = 'INSERT') THEN
192 -- Call all the procedures related to Before Insert.
193
194 IF Get_PK_For_Validation (
195 NEW_REFERENCES.person_id ,
196 NEW_REFERENCES.course_cd ,
197 NEW_REFERENCES.unit_set_cd,
198 NEW_REFERENCES.sequence_number,
199 NEW_REFERENCES.hist_start_dt
200 ) THEN
201 Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
202 IGS_GE_MSG_STACK.ADD;
203 APP_EXCEPTION.RAISE_EXCEPTION;
204 END IF;
205 Check_Constraints;
206 ELSIF (p_action = 'UPDATE') THEN
207 -- Call all the procedures related to Before Update.
208
209 Check_Constraints;
210
211 ELSIF (p_action = 'VALIDATE_INSERT') THEN
212 IF Get_PK_For_Validation ( NEW_REFERENCES.person_id ,
213 NEW_REFERENCES.course_cd ,
214 NEW_REFERENCES.unit_set_cd,
215 NEW_REFERENCES.sequence_number,
216 NEW_REFERENCES.hist_start_dt ) THEN
217 Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
218 IGS_GE_MSG_STACK.ADD;
219 APP_EXCEPTION.RAISE_EXCEPTION;
220 END IF;
221 Check_Constraints;
222 ELSIF (p_action = 'VALIDATE_UPDATE') THEN
223 Check_Constraints;
224
225 END IF;
226 END Before_DML;
227
228 --
229 procedure INSERT_ROW (
230 X_ROWID in out NOCOPY VARCHAR2,
231 X_ORG_ID in NUMBER,
232 X_PERSON_ID in NUMBER,
233 X_COURSE_CD in VARCHAR2,
234 X_UNIT_SET_CD in VARCHAR2,
235 X_SEQUENCE_NUMBER in NUMBER,
236 X_HIST_START_DT in DATE,
237 X_HIST_END_DT in DATE,
238 X_HIST_WHO in NUMBER,
239 X_US_VERSION_NUMBER in NUMBER,
240 X_SELECTION_DT in DATE,
241 X_STUDENT_CONFIRMED_IND in VARCHAR2,
242 X_END_DT in DATE,
243 X_PARENT_UNIT_SET_CD in VARCHAR2,
244 X_PARENT_SEQUENCE_NUMBER in NUMBER,
245 X_PRIMARY_SET_IND in VARCHAR2,
246 X_VOLUNTARY_END_IND in VARCHAR2,
247 X_AUTHORISED_PERSON_ID in NUMBER,
248 X_AUTHORISED_ON in DATE,
249 X_OVERRIDE_TITLE in VARCHAR2,
250 X_RQRMNTS_COMPLETE_IND in VARCHAR2,
251 X_RQRMNTS_COMPLETE_DT in DATE,
252 X_S_COMPLETED_SOURCE_TYPE in VARCHAR2,
253 X_CATALOG_CAL_TYPE in VARCHAR2 DEFAULT NULL,
254 X_CATALOG_SEQ_NUM in NUMBER DEFAULT NULL,
255 X_MODE in VARCHAR2 default 'R'
256 ) AS
257 cursor C is select ROWID from IGS_AS_SU_SETATMPT_H_ALL
258 where PERSON_ID = X_PERSON_ID
259 and COURSE_CD = X_COURSE_CD
260 and UNIT_SET_CD = X_UNIT_SET_CD
261 and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER
262 and HIST_START_DT = X_HIST_START_DT;
263 X_LAST_UPDATE_DATE DATE;
264 X_LAST_UPDATED_BY NUMBER;
265 X_LAST_UPDATE_LOGIN NUMBER;
266 begin
267 X_LAST_UPDATE_DATE := SYSDATE;
268 if(X_MODE = 'I') then
269 X_LAST_UPDATED_BY := 1;
270 X_LAST_UPDATE_LOGIN := 0;
271 elsif (X_MODE = 'R') then
272 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
273 if X_LAST_UPDATED_BY is NULL then
274 X_LAST_UPDATED_BY := -1;
275 end if;
276 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
277 if X_LAST_UPDATE_LOGIN is NULL then
278 X_LAST_UPDATE_LOGIN := -1;
279 end if;
280 else
281 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
282 IGS_GE_MSG_STACK.ADD;
283 APP_EXCEPTION.RAISE_EXCEPTION;
284 end if;
285 --
286 Before_DML(
287 p_action=>'INSERT',
288 x_rowid=>X_ROWID,
289 x_org_id=> igs_ge_gen_003.get_org_id,
290 x_authorised_on=>X_AUTHORISED_ON,
291 x_authorised_person_id=>X_AUTHORISED_PERSON_ID,
292 x_course_cd=>X_COURSE_CD,
293 x_end_dt=>X_END_DT,
294 x_hist_end_dt=>X_HIST_END_DT,
295 x_hist_start_dt=>X_HIST_START_DT,
296 x_hist_who=>X_HIST_WHO,
297 x_override_title=>X_OVERRIDE_TITLE,
298 x_parent_sequence_number=>X_PARENT_SEQUENCE_NUMBER,
299 x_parent_unit_set_cd=>X_PARENT_UNIT_SET_CD,
300 x_person_id=>X_PERSON_ID,
301 x_primary_set_ind=>X_PRIMARY_SET_IND,
302 x_rqrmnts_complete_dt=>X_RQRMNTS_COMPLETE_DT,
303 x_rqrmnts_complete_ind=>X_RQRMNTS_COMPLETE_IND,
304 x_s_completed_source_type=>X_S_COMPLETED_SOURCE_TYPE,
305 X_CATALOG_CAL_TYPE => X_CATALOG_CAL_TYPE,
306 X_CATALOG_SEQ_NUM => X_CATALOG_SEQ_NUM,
307 x_selection_dt=>X_SELECTION_DT,
308 x_sequence_number=>X_SEQUENCE_NUMBER,
309 x_student_confirmed_ind=>X_STUDENT_CONFIRMED_IND,
310 x_unit_set_cd=>X_UNIT_SET_CD,
311 x_us_version_number=>X_US_VERSION_NUMBER,
312 x_voluntary_end_ind=>X_VOLUNTARY_END_IND,
313 x_creation_date=>X_LAST_UPDATE_DATE,
314 x_created_by=>X_LAST_UPDATED_BY,
315 x_last_update_date=>X_LAST_UPDATE_DATE,
316 x_last_updated_by=>X_LAST_UPDATED_BY,
317 x_last_update_login=>X_LAST_UPDATE_LOGIN
318 );
319 --
320 insert into IGS_AS_SU_SETATMPT_H_ALL (
321 ORG_ID,
322 PERSON_ID,
323 COURSE_CD,
324 UNIT_SET_CD,
325 SEQUENCE_NUMBER,
326 HIST_START_DT,
327 HIST_END_DT,
328 HIST_WHO,
329 US_VERSION_NUMBER,
330 SELECTION_DT,
331 STUDENT_CONFIRMED_IND,
332 END_DT,
333 PARENT_UNIT_SET_CD,
334 PARENT_SEQUENCE_NUMBER,
335 PRIMARY_SET_IND,
336 VOLUNTARY_END_IND,
337 AUTHORISED_PERSON_ID,
338 AUTHORISED_ON,
339 OVERRIDE_TITLE,
340 RQRMNTS_COMPLETE_IND,
341 RQRMNTS_COMPLETE_DT,
342 S_COMPLETED_SOURCE_TYPE,
343 CATALOG_CAL_TYPE,
344 CATALOG_SEQ_NUM,
345 CREATION_DATE,
346 CREATED_BY,
347 LAST_UPDATE_DATE,
348 LAST_UPDATED_BY,
349 LAST_UPDATE_LOGIN
350 ) values (
351 NEW_REFERENCES.ORG_ID,
352 NEW_REFERENCES.PERSON_ID,
353 NEW_REFERENCES.COURSE_CD,
354 NEW_REFERENCES.UNIT_SET_CD,
355 NEW_REFERENCES.SEQUENCE_NUMBER,
356 NEW_REFERENCES.HIST_START_DT,
357 NEW_REFERENCES.HIST_END_DT,
358 NEW_REFERENCES.HIST_WHO,
359 NEW_REFERENCES.US_VERSION_NUMBER,
360 NEW_REFERENCES.SELECTION_DT,
361 NEW_REFERENCES.STUDENT_CONFIRMED_IND,
362 NEW_REFERENCES.END_DT,
363 NEW_REFERENCES.PARENT_UNIT_SET_CD,
364 NEW_REFERENCES.PARENT_SEQUENCE_NUMBER,
365 NEW_REFERENCES.PRIMARY_SET_IND,
366 NEW_REFERENCES.VOLUNTARY_END_IND,
367 NEW_REFERENCES.AUTHORISED_PERSON_ID,
368 NEW_REFERENCES.AUTHORISED_ON,
369 NEW_REFERENCES.OVERRIDE_TITLE,
370 NEW_REFERENCES.RQRMNTS_COMPLETE_IND,
371 NEW_REFERENCES.RQRMNTS_COMPLETE_DT,
372 NEW_REFERENCES.S_COMPLETED_SOURCE_TYPE,
373 NEW_REFERENCES.CATALOG_CAL_TYPE,
374 NEW_REFERENCES.CATALOG_SEQ_NUM,
375 X_LAST_UPDATE_DATE,
376 X_LAST_UPDATED_BY,
377 X_LAST_UPDATE_DATE,
378 X_LAST_UPDATED_BY,
379 X_LAST_UPDATE_LOGIN
380 );
381 open c;
382 fetch c into X_ROWID;
383 if (c%notfound) then
384 close c;
385 raise no_data_found;
386 end if;
387 close c;
388
389 end INSERT_ROW;
390 procedure LOCK_ROW (
391 X_ROWID in VARCHAR2,
392 X_PERSON_ID in NUMBER,
393 X_COURSE_CD in VARCHAR2,
394 X_UNIT_SET_CD in VARCHAR2,
398 X_HIST_WHO in NUMBER,
395 X_SEQUENCE_NUMBER in NUMBER,
396 X_HIST_START_DT in DATE,
397 X_HIST_END_DT in DATE,
399 X_US_VERSION_NUMBER in NUMBER,
400 X_SELECTION_DT in DATE,
401 X_STUDENT_CONFIRMED_IND in VARCHAR2,
402 X_END_DT in DATE,
403 X_PARENT_UNIT_SET_CD in VARCHAR2,
404 X_PARENT_SEQUENCE_NUMBER in NUMBER,
405 X_PRIMARY_SET_IND in VARCHAR2,
406 X_VOLUNTARY_END_IND in VARCHAR2,
407 X_AUTHORISED_PERSON_ID in NUMBER,
408 X_AUTHORISED_ON in DATE,
409 X_OVERRIDE_TITLE in VARCHAR2,
410 X_RQRMNTS_COMPLETE_IND in VARCHAR2,
411 X_RQRMNTS_COMPLETE_DT in DATE,
412 X_S_COMPLETED_SOURCE_TYPE in VARCHAR2,
413 X_CATALOG_CAL_TYPE in VARCHAR2 DEFAULT NULL,
414 X_CATALOG_SEQ_NUM in NUMBER DEFAULT NULL
415 ) AS
416 cursor c1 is select
417 HIST_END_DT,
418 HIST_WHO,
419 US_VERSION_NUMBER,
420 SELECTION_DT,
421 STUDENT_CONFIRMED_IND,
422 END_DT,
423 PARENT_UNIT_SET_CD,
424 PARENT_SEQUENCE_NUMBER,
425 PRIMARY_SET_IND,
426 VOLUNTARY_END_IND,
427 AUTHORISED_PERSON_ID,
428 AUTHORISED_ON,
429 OVERRIDE_TITLE,
430 RQRMNTS_COMPLETE_IND,
431 RQRMNTS_COMPLETE_DT,
432 S_COMPLETED_SOURCE_TYPE,
433 CATALOG_CAL_TYPE ,
434 CATALOG_SEQ_NUM
435 from IGS_AS_SU_SETATMPT_H_ALL
436 where ROWID = X_ROWID for update nowait;
437 tlinfo c1%rowtype;
438 begin
439 open c1;
440 fetch c1 into tlinfo;
441 if (c1%notfound) then
442 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
443 IGS_GE_MSG_STACK.ADD;
444 APP_EXCEPTION.RAISE_EXCEPTION;
445 close c1;
446 return;
447 end if;
448 close c1;
449 if ( (tlinfo.HIST_END_DT = X_HIST_END_DT)
450 AND (tlinfo.HIST_WHO = X_HIST_WHO)
451 AND ((tlinfo.US_VERSION_NUMBER = X_US_VERSION_NUMBER)
452 OR ((tlinfo.US_VERSION_NUMBER is null)
453 AND (X_US_VERSION_NUMBER is null)))
454 AND ((tlinfo.SELECTION_DT = X_SELECTION_DT)
455 OR ((tlinfo.SELECTION_DT is null)
456 AND (X_SELECTION_DT is null)))
457 AND ((tlinfo.STUDENT_CONFIRMED_IND = X_STUDENT_CONFIRMED_IND)
458 OR ((tlinfo.STUDENT_CONFIRMED_IND is null)
459 AND (X_STUDENT_CONFIRMED_IND is null)))
460 AND ((tlinfo.END_DT = X_END_DT)
461 OR ((tlinfo.END_DT is null)
462 AND (X_END_DT is null)))
463 AND ((tlinfo.PARENT_UNIT_SET_CD = X_PARENT_UNIT_SET_CD)
464 OR ((tlinfo.PARENT_UNIT_SET_CD is null)
465 AND (X_PARENT_UNIT_SET_CD is null)))
466 AND ((tlinfo.PARENT_SEQUENCE_NUMBER = X_PARENT_SEQUENCE_NUMBER)
467 OR ((tlinfo.PARENT_SEQUENCE_NUMBER is null)
468 AND (X_PARENT_SEQUENCE_NUMBER is null)))
469 AND ((tlinfo.PRIMARY_SET_IND = X_PRIMARY_SET_IND)
470 OR ((tlinfo.PRIMARY_SET_IND is null)
471 AND (X_PRIMARY_SET_IND is null)))
472 AND ((tlinfo.VOLUNTARY_END_IND = X_VOLUNTARY_END_IND)
473 OR ((tlinfo.VOLUNTARY_END_IND is null)
474 AND (X_VOLUNTARY_END_IND is null)))
475 AND ((tlinfo.AUTHORISED_PERSON_ID = X_AUTHORISED_PERSON_ID)
476 OR ((tlinfo.AUTHORISED_PERSON_ID is null)
477 AND (X_AUTHORISED_PERSON_ID is null)))
478 AND ((tlinfo.AUTHORISED_ON = X_AUTHORISED_ON)
479 OR ((tlinfo.AUTHORISED_ON is null)
480 AND (X_AUTHORISED_ON is null)))
481 AND ((tlinfo.OVERRIDE_TITLE = X_OVERRIDE_TITLE)
482 OR ((tlinfo.OVERRIDE_TITLE is null)
483 AND (X_OVERRIDE_TITLE is null)))
484 AND ((tlinfo.RQRMNTS_COMPLETE_IND = X_RQRMNTS_COMPLETE_IND)
485 OR ((tlinfo.RQRMNTS_COMPLETE_IND is null)
486 AND (X_RQRMNTS_COMPLETE_IND is null)))
487 AND ((tlinfo.RQRMNTS_COMPLETE_DT = X_RQRMNTS_COMPLETE_DT)
488 OR ((tlinfo.RQRMNTS_COMPLETE_DT is null)
489 AND (X_RQRMNTS_COMPLETE_DT is null)))
490 AND ((tlinfo.S_COMPLETED_SOURCE_TYPE = X_S_COMPLETED_SOURCE_TYPE)
491 OR ((tlinfo.S_COMPLETED_SOURCE_TYPE is null)
492 AND (X_S_COMPLETED_SOURCE_TYPE is null)))
493 AND ((tlinfo.CATALOG_CAL_TYPE = X_CATALOG_CAL_TYPE)
494 OR ((tlinfo.CATALOG_CAL_TYPE is null)
495 AND (X_CATALOG_CAL_TYPE is null)))
496 AND ((tlinfo.CATALOG_SEQ_NUM = X_CATALOG_SEQ_NUM)
497 OR ((tlinfo.CATALOG_SEQ_NUM is null)
498 AND (X_CATALOG_SEQ_NUM is null)))
499 ) then
500 null;
501 else
502 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
503 IGS_GE_MSG_STACK.ADD;
504 APP_EXCEPTION.RAISE_EXCEPTION;
505 end if;
506 return;
507 end LOCK_ROW;
508 procedure UPDATE_ROW (
509 X_ROWID in VARCHAR2,
510 X_PERSON_ID in NUMBER,
511 X_COURSE_CD in VARCHAR2,
512 X_UNIT_SET_CD in VARCHAR2,
513 X_SEQUENCE_NUMBER in NUMBER,
514 X_HIST_START_DT in DATE,
515 X_HIST_END_DT in DATE,
516 X_HIST_WHO in NUMBER,
517 X_US_VERSION_NUMBER in NUMBER,
518 X_SELECTION_DT in DATE,
519 X_STUDENT_CONFIRMED_IND in VARCHAR2,
520 X_END_DT in DATE,
521 X_PARENT_UNIT_SET_CD in VARCHAR2,
522 X_PARENT_SEQUENCE_NUMBER in NUMBER,
523 X_PRIMARY_SET_IND in VARCHAR2,
527 X_OVERRIDE_TITLE in VARCHAR2,
524 X_VOLUNTARY_END_IND in VARCHAR2,
525 X_AUTHORISED_PERSON_ID in NUMBER,
526 X_AUTHORISED_ON in DATE,
528 X_RQRMNTS_COMPLETE_IND in VARCHAR2,
529 X_RQRMNTS_COMPLETE_DT in DATE,
530 X_S_COMPLETED_SOURCE_TYPE in VARCHAR2,
531 X_CATALOG_CAL_TYPE in VARCHAR2 DEFAULT NULL,
532 X_CATALOG_SEQ_NUM in NUMBER DEFAULT NULL,
533 X_MODE in VARCHAR2 default 'R'
534 ) AS
535 X_LAST_UPDATE_DATE DATE;
536 X_LAST_UPDATED_BY NUMBER;
537 X_LAST_UPDATE_LOGIN NUMBER;
538 begin
539 X_LAST_UPDATE_DATE := SYSDATE;
540 if(X_MODE = 'I') then
541 X_LAST_UPDATED_BY := 1;
542 X_LAST_UPDATE_LOGIN := 0;
543 elsif (X_MODE = 'R') then
544 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
545 if X_LAST_UPDATED_BY is NULL then
546 X_LAST_UPDATED_BY := -1;
547 end if;
548 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
549 if X_LAST_UPDATE_LOGIN is NULL then
550 X_LAST_UPDATE_LOGIN := -1;
551 end if;
552 else
553 FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
554 IGS_GE_MSG_STACK.ADD;
555 APP_EXCEPTION.RAISE_EXCEPTION;
556 end if;
557 --
558 Before_DML(
559 p_action=>'UPDATE',
560 x_rowid=>X_ROWID,
561 x_authorised_on=>X_AUTHORISED_ON,
562 x_authorised_person_id=>X_AUTHORISED_PERSON_ID,
563 x_course_cd=>X_COURSE_CD,
564 x_end_dt=>X_END_DT,
565 x_hist_end_dt=>X_HIST_END_DT,
566 x_hist_start_dt=>X_HIST_START_DT,
567 x_hist_who=>X_HIST_WHO,
568 x_override_title=>X_OVERRIDE_TITLE,
569 x_parent_sequence_number=>X_PARENT_SEQUENCE_NUMBER,
570 x_parent_unit_set_cd=>X_PARENT_UNIT_SET_CD,
571 x_person_id=>X_PERSON_ID,
572 x_primary_set_ind=>X_PRIMARY_SET_IND,
573 x_rqrmnts_complete_dt=>X_RQRMNTS_COMPLETE_DT,
574 x_rqrmnts_complete_ind=>X_RQRMNTS_COMPLETE_IND,
575 x_s_completed_source_type=>X_S_COMPLETED_SOURCE_TYPE,
576 X_CATALOG_CAL_TYPE =>X_CATALOG_CAL_TYPE,
577 X_CATALOG_SEQ_NUM =>X_CATALOG_SEQ_NUM,
578 x_selection_dt=>X_SELECTION_DT,
579 x_sequence_number=>X_SEQUENCE_NUMBER,
580 x_student_confirmed_ind=>X_STUDENT_CONFIRMED_IND,
581 x_unit_set_cd=>X_UNIT_SET_CD,
582 x_us_version_number=>X_US_VERSION_NUMBER,
583 x_voluntary_end_ind=>X_VOLUNTARY_END_IND,
584 x_creation_date=>X_LAST_UPDATE_DATE,
585 x_created_by=>X_LAST_UPDATED_BY,
586 x_last_update_date=>X_LAST_UPDATE_DATE,
587 x_last_updated_by=>X_LAST_UPDATED_BY,
588 x_last_update_login=>X_LAST_UPDATE_LOGIN
589 );
590 --
591 update IGS_AS_SU_SETATMPT_H_ALL set
592 HIST_END_DT = NEW_REFERENCES.HIST_END_DT,
593 HIST_WHO = NEW_REFERENCES.HIST_WHO,
594 US_VERSION_NUMBER = NEW_REFERENCES.US_VERSION_NUMBER,
595 SELECTION_DT = NEW_REFERENCES.SELECTION_DT,
596 STUDENT_CONFIRMED_IND = NEW_REFERENCES.STUDENT_CONFIRMED_IND,
597 END_DT = NEW_REFERENCES.END_DT,
598 PARENT_UNIT_SET_CD = NEW_REFERENCES.PARENT_UNIT_SET_CD,
599 PARENT_SEQUENCE_NUMBER = NEW_REFERENCES.PARENT_SEQUENCE_NUMBER,
600 PRIMARY_SET_IND = NEW_REFERENCES.PRIMARY_SET_IND,
601 VOLUNTARY_END_IND = NEW_REFERENCES.VOLUNTARY_END_IND,
602 AUTHORISED_PERSON_ID = NEW_REFERENCES.AUTHORISED_PERSON_ID,
603 AUTHORISED_ON = NEW_REFERENCES.AUTHORISED_ON,
604 OVERRIDE_TITLE = NEW_REFERENCES.OVERRIDE_TITLE,
605 RQRMNTS_COMPLETE_IND = NEW_REFERENCES.RQRMNTS_COMPLETE_IND,
606 RQRMNTS_COMPLETE_DT = NEW_REFERENCES.RQRMNTS_COMPLETE_DT,
607 S_COMPLETED_SOURCE_TYPE = NEW_REFERENCES.S_COMPLETED_SOURCE_TYPE,
608 CATALOG_CAL_TYPE =NEW_REFERENCES.CATALOG_CAL_TYPE,
609 CATALOG_SEQ_NUM =NEW_REFERENCES.CATALOG_SEQ_NUM,
610 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
611 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
612 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
613 where ROWID = X_ROWID;
614 if (sql%notfound) then
615 raise no_data_found;
616 end if;
617
618 end UPDATE_ROW;
619 procedure ADD_ROW (
620 X_ROWID in out NOCOPY VARCHAR2,
621 X_ORG_ID in NUMBER,
622 X_PERSON_ID in NUMBER,
623 X_COURSE_CD in VARCHAR2,
624 X_UNIT_SET_CD in VARCHAR2,
625 X_SEQUENCE_NUMBER in NUMBER,
626 X_HIST_START_DT in DATE,
627 X_HIST_END_DT in DATE,
628 X_HIST_WHO in NUMBER,
629 X_US_VERSION_NUMBER in NUMBER,
630 X_SELECTION_DT in DATE,
631 X_STUDENT_CONFIRMED_IND in VARCHAR2,
632 X_END_DT in DATE,
633 X_PARENT_UNIT_SET_CD in VARCHAR2,
634 X_PARENT_SEQUENCE_NUMBER in NUMBER,
635 X_PRIMARY_SET_IND in VARCHAR2,
636 X_VOLUNTARY_END_IND in VARCHAR2,
637 X_AUTHORISED_PERSON_ID in NUMBER,
638 X_AUTHORISED_ON in DATE,
639 X_OVERRIDE_TITLE in VARCHAR2,
640 X_RQRMNTS_COMPLETE_IND in VARCHAR2,
641 X_RQRMNTS_COMPLETE_DT in DATE,
642 X_S_COMPLETED_SOURCE_TYPE in VARCHAR2,
643 X_CATALOG_CAL_TYPE in VARCHAR2 DEFAULT NULL,
644 X_CATALOG_SEQ_NUM in NUMBER DEFAULT NULL,
645 X_MODE in VARCHAR2 default 'R'
646 ) AS
647 cursor c1 is select rowid from IGS_AS_SU_SETATMPT_H_ALL
648 where PERSON_ID = X_PERSON_ID
649 and COURSE_CD = X_COURSE_CD
650 and UNIT_SET_CD = X_UNIT_SET_CD
651 and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER
652 and HIST_START_DT = X_HIST_START_DT
653 ;
654 begin
655 open c1;
656 fetch c1 into X_ROWID;
660 X_ROWID,
657 if (c1%notfound) then
658 close c1;
659 INSERT_ROW (
661 X_ORG_ID,
662 X_PERSON_ID,
663 X_COURSE_CD,
664 X_UNIT_SET_CD,
665 X_SEQUENCE_NUMBER,
666 X_HIST_START_DT,
667 X_HIST_END_DT,
668 X_HIST_WHO,
669 X_US_VERSION_NUMBER,
670 X_SELECTION_DT,
671 X_STUDENT_CONFIRMED_IND,
672 X_END_DT,
673 X_PARENT_UNIT_SET_CD,
674 X_PARENT_SEQUENCE_NUMBER,
675 X_PRIMARY_SET_IND,
676 X_VOLUNTARY_END_IND,
677 X_AUTHORISED_PERSON_ID,
678 X_AUTHORISED_ON,
679 X_OVERRIDE_TITLE,
680 X_RQRMNTS_COMPLETE_IND,
681 X_RQRMNTS_COMPLETE_DT,
682 X_S_COMPLETED_SOURCE_TYPE,
683 X_CATALOG_CAL_TYPE ,
684 X_CATALOG_SEQ_NUM ,
685 X_MODE);
686 return;
687 end if;
688 close c1;
689 UPDATE_ROW (
690 X_ROWID,
691 X_PERSON_ID,
692 X_COURSE_CD,
693 X_UNIT_SET_CD,
694 X_SEQUENCE_NUMBER,
695 X_HIST_START_DT,
696 X_HIST_END_DT,
697 X_HIST_WHO,
698 X_US_VERSION_NUMBER,
699 X_SELECTION_DT,
700 X_STUDENT_CONFIRMED_IND,
701 X_END_DT,
702 X_PARENT_UNIT_SET_CD,
703 X_PARENT_SEQUENCE_NUMBER,
704 X_PRIMARY_SET_IND,
705 X_VOLUNTARY_END_IND,
706 X_AUTHORISED_PERSON_ID,
707 X_AUTHORISED_ON,
708 X_OVERRIDE_TITLE,
709 X_RQRMNTS_COMPLETE_IND,
710 X_RQRMNTS_COMPLETE_DT,
711 X_S_COMPLETED_SOURCE_TYPE,
712 X_CATALOG_CAL_TYPE ,
713 X_CATALOG_SEQ_NUM ,
714 X_MODE);
715 end ADD_ROW;
716 procedure DELETE_ROW (
717 X_ROWID in VARCHAR2) AS
718 begin
719 --
720 Before_DML(
721 p_action => 'DELETE',
722 x_rowid => X_ROWID
723 );
724 --
725 delete from IGS_AS_SU_SETATMPT_H_ALL
726 where ROWID = X_ROWID;
727 if (sql%notfound) theN
728 raise no_data_found;
729 end if;
730
731 end DELETE_ROW;
732 PROCEDURE Check_Constraints (
733 Column_Name IN VARCHAR2 DEFAULT NULL,
734 Column_Value IN VARCHAR2 DEFAULT NULL
735 )
736 AS
737 BEGIN
738 IF column_name is null then
739 NULL;
740 ELSIF upper(Column_name) = 'SEQUENCE_NUMBER' then
741 new_references.SEQUENCE_NUMBER := igs_ge_number.to_num(column_value);
742 ELSIF upper(Column_name) = 'STUDENT_CONFIRMED_IND' then
743 new_references.STUDENT_CONFIRMED_IND := column_value;
744 ELSIF upper(Column_name) = 'PARENT_SEQUENCE_NUMBER' then
745 new_references.PARENT_SEQUENCE_NUMBER := igs_ge_number.to_num(column_value);
746 ELSIF upper(Column_name) = 'PRIMARY_SET_IND' then
747 new_references.PRIMARY_SET_IND := column_value;
748 ELSIF upper(Column_name) = 'OVERRIDE_TITLE' then
749 new_references.OVERRIDE_TITLE := column_value;
750 ELSIF upper(Column_name) = 'PARENT_UNIT_SET_CD' then
751 new_references.PARENT_UNIT_SET_CD := column_value;
752 ELSIF upper(Column_name) = 'PRIMARY_SET_IND' then
753 new_references.PRIMARY_SET_IND := column_value;
754 ELSIF upper(Column_name) = 'RQRMNTS_COMPLETE_IND' then
755 new_references.RQRMNTS_COMPLETE_IND := column_value;
756 ELSIF upper(Column_name) = 'STUDENT_CONFIRMED_IND' then
757 new_references.STUDENT_CONFIRMED_IND := column_value;
758 ELSIF upper(Column_name) = 'COURSE_CD' then
759 new_references.COURSE_CD:= column_value;
760 ELSIF upper(Column_name) = 'UNIT_SET_CD' then
761 new_references.UNIT_SET_CD := column_value;
762 ELSIF upper(Column_name) = 'S_COMPLETED_SOURCE_TYPE' then
763 new_references.S_COMPLETED_SOURCE_TYPE := column_value;
764 ELSIF upper(Column_name) = 'VOLUNTARY_END_IND' then
765 new_references.VOLUNTARY_END_IND := column_value;
766 ELSIF upper(Column_name) = 'VOLUNTARY_END_IND' then
767 new_references.VOLUNTARY_END_IND := column_value;
768 ELSIF upper(Column_name) = 'AUTHORISED_PERSON_ID' then
769 new_references.AUTHORISED_PERSON_ID := igs_ge_number.to_num(column_value);
770 ELSIF upper(Column_name) = 'RQRMNTS_COMPLETE_IND' then
771 new_references.RQRMNTS_COMPLETE_IND := column_value;
772 ELSIF upper(Column_name) = 'S_COMPLETED_SOURCE_TYPE' then
773 new_references.S_COMPLETED_SOURCE_TYPE := column_value;
774 ELSIF upper(Column_name) = 'CATALOG_CAL_TYPE' then
775 new_references.CATALOG_CAL_TYPE:= column_value;
776 ELSIF upper(Column_name) = 'CATALOG_SEQ_NUM' then
777 new_references.CATALOG_SEQ_NUM := column_value;
778 END IF;
779 IF upper(column_name) = 'SEQUENCE_NUMBER' OR
780 column_name is null Then
781 IF new_references.SEQUENCE_NUMBER < 1 OR new_references.SEQUENCE_NUMBER > 999999 Then
782 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
783 IGS_GE_MSG_STACK.ADD;
784 APP_EXCEPTION.RAISE_EXCEPTION;
785 END IF;
786 END IF;
787 IF upper(column_name) = 'STUDENT_CONFIRMED_IND' OR
788 column_name is null Then
789 IF new_references.STUDENT_CONFIRMED_IND NOT IN ('Y','N') Then
790 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
791 IGS_GE_MSG_STACK.ADD;
792 APP_EXCEPTION.RAISE_EXCEPTION;
793 END IF;
794 END IF;
795 IF upper(column_name) = 'PARENT_SEQUENCE_NUMBER' OR
796 column_name is null Then
800 APP_EXCEPTION.RAISE_EXCEPTION;
797 IF new_references.PARENT_SEQUENCE_NUMBER < 1 OR new_references.PARENT_SEQUENCE_NUMBER > 999999 Then
798 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
799 IGS_GE_MSG_STACK.ADD;
801 END IF;
802 END IF;
803 IF upper(column_name) = 'PRIMARY_SET_IND' OR
804 column_name is null Then
805 IF new_references.PRIMARY_SET_IND NOT IN ('Y','N') Then
806 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
807 IGS_GE_MSG_STACK.ADD;
808 APP_EXCEPTION.RAISE_EXCEPTION;
809 END IF;
810 END IF;
811 IF upper(column_name) = 'OVERRIDE_TITLE' OR
812 column_name is null Then
813 IF new_references.OVERRIDE_TITLE <> UPPER(new_references.OVERRIDE_TITLE) Then
814 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
815 IGS_GE_MSG_STACK.ADD;
816 APP_EXCEPTION.RAISE_EXCEPTION;
817 END IF;
818 END IF;
819 IF upper(column_name) = 'PARENT_UNIT_SET_CD' OR
820 column_name is null Then
821 IF new_references.PARENT_UNIT_SET_CD <> UPPER(new_references.PARENT_UNIT_SET_CD) Then
822 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
823 IGS_GE_MSG_STACK.ADD;
824 APP_EXCEPTION.RAISE_EXCEPTION;
825 END IF;
826 END IF;
827 IF upper(column_name) = 'PRIMARY_SET_IND' OR
828 column_name is null Then
829 IF new_references.PRIMARY_SET_IND<> UPPER(new_references.PRIMARY_SET_IND) Then
830 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
831 IGS_GE_MSG_STACK.ADD;
832 APP_EXCEPTION.RAISE_EXCEPTION;
833 END IF;
834 END IF;
835 IF upper(column_name) = 'RQRMNTS_COMPLETE_IND' OR
836 column_name is null Then
837 IF new_references.RQRMNTS_COMPLETE_IND <> UPPER(new_references.RQRMNTS_COMPLETE_IND) Then
838 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
839 IGS_GE_MSG_STACK.ADD;
840 APP_EXCEPTION.RAISE_EXCEPTION;
841 END IF;
842 END IF;
843 IF upper(column_name) = 'STUDENT_CONFIRMED_IND' OR
844 column_name is null Then
845 IF new_references.STUDENT_CONFIRMED_IND <> UPPER(new_references.STUDENT_CONFIRMED_IND) Then
846 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
847 IGS_GE_MSG_STACK.ADD;
848 APP_EXCEPTION.RAISE_EXCEPTION;
849 END IF;
850 END IF;
851 IF upper(column_name) = 'COURSE_CD' OR
852 column_name is null Then
853 IF new_references.COURSE_CD <> UPPER(new_references.COURSE_CD) Then
854 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
855 IGS_GE_MSG_STACK.ADD;
856 APP_EXCEPTION.RAISE_EXCEPTION;
857 END IF;
858 END IF;
859 IF upper(column_name) = 'UNIT_SET_CD' OR
860 column_name is null Then
861 IF new_references.UNIT_SET_CD <> UPPER(new_references.UNIT_SET_CD) Then
862 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
863 IGS_GE_MSG_STACK.ADD;
864 APP_EXCEPTION.RAISE_EXCEPTION;
865 END IF;
866 END IF;
867 IF upper(column_name) = 'S_COMPLETED_SOURCE_TYPE' OR
868 column_name is null Then
869 IF new_references.S_COMPLETED_SOURCE_TYPE <> UPPER(new_references.S_COMPLETED_SOURCE_TYPE) Then
870 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
871 IGS_GE_MSG_STACK.ADD;
872 APP_EXCEPTION.RAISE_EXCEPTION;
873 END IF;
874 END IF;
875
876 IF upper(column_name) = 'VOLUNTARY_END_IND' OR
877 column_name is null Then
878 IF new_references.VOLUNTARY_END_IND <> UPPER(new_references.VOLUNTARY_END_IND) Then
879 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
880 IGS_GE_MSG_STACK.ADD;
881 APP_EXCEPTION.RAISE_EXCEPTION;
882 END IF;
883 END IF;
884 IF upper(column_name) = 'VOLUNTARY_END_IND' OR
885 column_name is null Then
886 IF new_references.VOLUNTARY_END_IND NOT IN ('Y','N') Then
887 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
888 IGS_GE_MSG_STACK.ADD;
889 APP_EXCEPTION.RAISE_EXCEPTION;
890
891 END IF;
892 END IF;
893 IF upper(column_name) = 'AUTHORISED_PERSON_ID' OR
894 column_name is null Then
895 IF new_references.AUTHORISED_PERSON_ID < 0 OR new_references.AUTHORISED_PERSON_ID > 9999999999 Then
896 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
897 IGS_GE_MSG_STACK.ADD;
898 APP_EXCEPTION.RAISE_EXCEPTION;
899 END IF;
900 END IF;
901 IF upper(column_name) = 'RQRMNTS_COMPLETE_IND' OR
902 column_name is null Then
903 IF new_references.RQRMNTS_COMPLETE_IND NOT IN ('Y','N') Then
904 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
905 IGS_GE_MSG_STACK.ADD;
906 APP_EXCEPTION.RAISE_EXCEPTION;
907 END IF;
908 END IF;
909 IF upper(column_name) = 'S_COMPLETED_SOURCE_TYPE' OR
910 column_name is null Then
911 IF new_references.S_COMPLETED_SOURCE_TYPE NOT IN ('SYSTEM','MANUAL') Then
912 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
913 IGS_GE_MSG_STACK.ADD;
914 APP_EXCEPTION.RAISE_EXCEPTION;
915 END IF;
916 END IF;
917 END Check_Constraints;
918 end IGS_AS_SU_SETATMPT_H_PKG;