[Home] [Help]
PACKAGE BODY: APPS.IGS_PR_S_PRG_CAL_PKG
Source
1 package body IGS_PR_S_PRG_CAL_PKG as
2 /* $Header: IGSQI25B.pls 115.4 2002/11/29 03:20:32 nsidana ship $ */
3
4 l_rowid VARCHAR2(25);
5 old_references IGS_PR_S_PRG_CAL%RowType;
6 new_references IGS_PR_S_PRG_CAL%RowType;
7
8 PROCEDURE Set_Column_Values (
9 p_action IN VARCHAR2,
10 x_rowid IN VARCHAR2 DEFAULT NULL,
11 x_s_control_num IN NUMBER DEFAULT NULL,
12 x_prg_cal_type IN VARCHAR2 DEFAULT NULL,
13 x_stream_num IN NUMBER DEFAULT NULL,
14 x_show_cause_length IN NUMBER DEFAULT NULL,
15 x_appeal_length IN NUMBER DEFAULT NULL,
16 x_creation_date IN DATE DEFAULT NULL,
17 x_created_by IN NUMBER DEFAULT NULL,
18 x_last_update_date IN DATE DEFAULT NULL,
19 x_last_updated_by IN NUMBER DEFAULT NULL,
20 x_last_update_login IN NUMBER DEFAULT NULL
21 ) AS
22
23 CURSOR cur_old_ref_values IS
24 SELECT *
25 FROM IGS_PR_S_PRG_CAL
26 WHERE rowid = x_rowid;
27
28 BEGIN
29
30 l_rowid := x_rowid;
31
32 -- Code for setting the Old and New Reference Values.
33 -- Populate Old Values.
34 Open cur_old_ref_values;
35 Fetch cur_old_ref_values INTO old_references;
36 IF (cur_old_ref_values%NOTFOUND) AND (p_action not in ('INSERT','VALIDATE_INSERT')) THEN
37 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
38 IGS_GE_MSG_STACK.ADD;
39 Close cur_old_ref_values;
40 App_Exception.Raise_Exception;
41
42 Return;
43 END IF;
44 Close cur_old_ref_values;
45
46 -- Populate New Values.
47 new_references.s_control_num := x_s_control_num;
48 new_references.prg_cal_type := x_prg_cal_type;
49 new_references.stream_num := x_stream_num;
50 new_references.show_cause_length := x_show_cause_length;
51 new_references.appeal_length := x_appeal_length;
52 IF (p_action = 'UPDATE') THEN
53 new_references.creation_date := old_references.creation_date;
54 new_references.created_by := old_references.created_by;
55 ELSE
56 new_references.creation_date := x_creation_date;
57 new_references.created_by := x_created_by;
58 END IF;
59 new_references.last_update_date := x_last_update_date;
60 new_references.last_updated_by := x_last_updated_by;
61 new_references.last_update_login := x_last_update_login;
62
63 END Set_Column_Values;
64
65 -- Trigger description :-
66 -- "OSS_TST".trg_spca_br_iu
67 -- BEFORE INSERT OR UPDATE
68 -- ON IGS_PR_S_PRG_CAL
69 -- FOR EACH ROW
70
71 PROCEDURE BeforeRowInsertUpdate1(
72 p_inserting IN BOOLEAN DEFAULT FALSE,
73 p_updating IN BOOLEAN DEFAULT FALSE,
74 p_deleting IN BOOLEAN DEFAULT FALSE
75 ) AS
76 v_message_name varchar2(30);
77 BEGIN
78 -- Validate the progression calendar type
79 IF p_inserting THEN
80 IF igs_pr_val_scpca.prgp_val_cfg_cat (
81 new_references.prg_cal_type,
82 v_message_name) = FALSE THEN
83 Fnd_Message.Set_Name('IGS',v_message_name);
84 IGS_GE_MSG_STACK.ADD;
85 App_Exception.Raise_Exception;
86 END IF;
87 END IF;
88 -- Validate the show cause length
89 IF p_inserting OR (p_updating AND
90 new_references.show_cause_length <> old_references.show_cause_length) THEN
91 IF IGS_PR_VAL_SPCA.prgp_val_spca_cause (
92 new_references.show_cause_length,
93 v_message_name) = FALSE THEN
94 Fnd_Message.Set_Name('IGS',v_message_name);
95 IGS_GE_MSG_STACK.ADD;
96 App_Exception.Raise_Exception;
97 END IF;
98 END IF;
99 -- Validate the appeal length
100 IF p_inserting OR (p_updating AND
101 new_references.appeal_length <> old_references.appeal_length) THEN
102 IF IGS_PR_VAL_SPCA.prgp_val_spca_appeal (
103 new_references.appeal_length,
104 v_message_name) = FALSE THEN
105 Fnd_Message.Set_Name('IGS',v_message_name);
106 IGS_GE_MSG_STACK.ADD;
107 App_Exception.Raise_Exception;
108 END IF;
109 END IF;
110
111
112 END BeforeRowInsertUpdate1;
113
114
115 PROCEDURE Check_Parent_Existance AS
116 BEGIN
117
118 IF (((old_references.prg_cal_type = new_references.prg_cal_type)) OR
119 ((new_references.prg_cal_type IS NULL))) THEN
120 NULL;
121 ELSE
122 IF NOT IGS_CA_TYPE_PKG.Get_PK_For_Validation (
123 new_references.prg_cal_type
124 ) THEN
125 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
126 IGS_GE_MSG_STACK.ADD;
127 App_Exception.Raise_Exception;
128 END IF;
129 END IF;
130
131 IF (((old_references.s_control_num = new_references.s_control_num)) OR
132 ((new_references.s_control_num IS NULL))) THEN
133 NULL;
134 ELSE
135 IF NOT IGS_PR_S_PRG_CONF_PKG.Get_PK_For_Validation (
136 new_references.s_control_num
137 ) THEN
138 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
139 IGS_GE_MSG_STACK.ADD;
140 App_Exception.Raise_Exception;
141 END IF;
142 END IF;
143
144 END Check_Parent_Existance;
145
146 FUNCTION Get_PK_For_Validation (
147 x_s_control_num IN NUMBER,
148 x_prg_cal_type IN VARCHAR2
149 ) RETURN BOOLEAN AS
150
151 CURSOR cur_rowid IS
152 SELECT rowid
153 FROM IGS_PR_S_PRG_CAL
154 WHERE s_control_num = x_s_control_num
155 AND prg_cal_type = x_prg_cal_type
156 FOR UPDATE NOWAIT;
157
158 lv_rowid cur_rowid%RowType;
159
160 BEGIN
161
162 Open cur_rowid;
163 Fetch cur_rowid INTO lv_rowid;
164 IF (cur_rowid%FOUND) THEN
165 Close Cur_rowid;
166 Return(TRUE);
167 ELSE
168 Close cur_rowid;
169 Return(FALSE);
170 END IF;
171
172 END Get_PK_For_Validation;
173
174 PROCEDURE GET_FK_IGS_CA_TYPE (
175 x_cal_type IN VARCHAR2
176 ) AS
177
178 CURSOR cur_rowid IS
179 SELECT rowid
180 FROM IGS_PR_S_PRG_CAL
181 WHERE prg_cal_type = x_cal_type ;
182
183 lv_rowid cur_rowid%RowType;
184
185 BEGIN
186
187 Open cur_rowid;
188 Fetch cur_rowid INTO lv_rowid;
189 IF (cur_rowid%FOUND) THEN
190 Fnd_Message.Set_Name ('IGS', 'IGS_PR_SPCA_CAT_FK');
191 IGS_GE_MSG_STACK.ADD;
192 Close cur_rowid;
193 App_Exception.Raise_Exception;
194
195 Return;
196 END IF;
197 Close cur_rowid;
198
199 END GET_FK_IGS_CA_TYPE;
200
201 PROCEDURE GET_FK_IGS_PR_S_PRG_CONF (
202 x_s_control_num IN NUMBER
203 ) AS
204
205 CURSOR cur_rowid IS
206 SELECT rowid
207 FROM IGS_PR_S_PRG_CAL
208 WHERE s_control_num = x_s_control_num ;
209
210 lv_rowid cur_rowid%RowType;
211
212 BEGIN
213
214 Open cur_rowid;
215 Fetch cur_rowid INTO lv_rowid;
216 IF (cur_rowid%FOUND) THEN
217 Fnd_Message.Set_Name ('IGS', 'IGS_PR_SPCA_SPGCC_FK');
218 IGS_GE_MSG_STACK.ADD;
219 Close cur_rowid;
220 App_Exception.Raise_Exception;
221
222 Return;
223 END IF;
224 Close cur_rowid;
225
226 END GET_FK_IGS_PR_S_PRG_CONF;
227
228 PROCEDURE Before_DML (
229 p_action IN VARCHAR2,
230 x_rowid IN VARCHAR2 DEFAULT NULL,
231 x_s_control_num IN NUMBER DEFAULT NULL,
232 x_prg_cal_type IN VARCHAR2 DEFAULT NULL,
233 x_stream_num IN NUMBER DEFAULT NULL,
234 x_show_cause_length IN NUMBER DEFAULT NULL,
235 x_appeal_length IN NUMBER DEFAULT NULL,
236 x_creation_date IN DATE DEFAULT NULL,
237 x_created_by IN NUMBER DEFAULT NULL,
238 x_last_update_date IN DATE DEFAULT NULL,
239 x_last_updated_by IN NUMBER DEFAULT NULL,
240 x_last_update_login IN NUMBER DEFAULT NULL
241 ) AS
242 BEGIN
243
244 Set_Column_Values (
245 p_action,
246 x_rowid,
247 x_s_control_num,
248 x_prg_cal_type,
249 x_stream_num,
250 x_show_cause_length,
251 x_appeal_length,
252 x_creation_date,
253 x_created_by,
254 x_last_update_date,
255 x_last_updated_by,
256 x_last_update_login
257 );
258
259 IF (p_action = 'INSERT') THEN
260 -- Call all the procedures related to Before Insert.
261 BeforeRowInsertUpdate1 ( p_inserting => TRUE );
262 IF Get_PK_For_Validation (
263 new_references.s_control_num,
264 new_references.prg_cal_type
265 ) THEN
266 Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
267 IGS_GE_MSG_STACK.ADD;
268 App_Exception.Raise_Exception;
269 END IF;
270 Check_Constraints;
271 Check_Parent_Existance;
272 ELSIF (p_action = 'UPDATE') THEN
273 -- Call all the procedures related to Before Update.
274 BeforeRowInsertUpdate1 ( p_updating => TRUE );
275 Check_Constraints;
276 Check_Parent_Existance;
277 ELSIF (p_action = 'VALIDATE_INSERT') THEN
278 -- Call all the procedures related to Before Insert.
279 IF Get_PK_For_Validation (
280 new_references.s_control_num ,
281 new_references.prg_cal_type
282 ) THEN
283 Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
284 IGS_GE_MSG_STACK.ADD;
285 App_Exception.Raise_Exception;
286 END IF;
287 Check_Constraints;
288 ELSIF (p_action = 'VALIDATE_UPDATE') THEN
289 -- Call all the procedures related to Before Update.
290 Check_Constraints;
291 END IF;
292
293 END Before_DML;
294
295
296 procedure INSERT_ROW (
297 X_ROWID in out NOCOPY VARCHAR2,
298 X_S_CONTROL_NUM in out NOCOPY NUMBER,
299 X_PRG_CAL_TYPE in VARCHAR2,
300 X_STREAM_NUM in NUMBER,
301 X_SHOW_CAUSE_LENGTH in NUMBER,
302 X_APPEAL_LENGTH in NUMBER,
303 X_MODE in VARCHAR2 default 'R'
304 ) as
305 cursor C is select ROWID from IGS_PR_S_PRG_CAL
306 where S_CONTROL_NUM = NEW_REFERENCES.S_CONTROL_NUM
307 and PRG_CAL_TYPE = X_PRG_CAL_TYPE;
308 X_LAST_UPDATE_DATE DATE;
309 X_LAST_UPDATED_BY NUMBER;
310 X_LAST_UPDATE_LOGIN NUMBER;
311 begin
312 X_LAST_UPDATE_DATE := SYSDATE;
313 if(X_MODE = 'I') then
314 X_LAST_UPDATED_BY := 1;
315 X_LAST_UPDATE_LOGIN := 0;
316 elsif (X_MODE = 'R') then
317 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
318 if X_LAST_UPDATED_BY is NULL then
319 X_LAST_UPDATED_BY := -1;
320 end if;
321 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
322 if X_LAST_UPDATE_LOGIN is NULL then
323 X_LAST_UPDATE_LOGIN := -1;
324 end if;
325 else
326 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
327 IGS_GE_MSG_STACK.ADD;
328 app_exception.raise_exception;
329 end if;
330
331 Before_DML(
332 p_action=>'INSERT',
333 x_rowid=>X_ROWID,
334 x_appeal_length=>X_APPEAL_LENGTH,
335 x_prg_cal_type=>X_PRG_CAL_TYPE,
336 x_s_control_num=> nvl( X_S_CONTROL_NUM, 1),
337 x_show_cause_length=>X_SHOW_CAUSE_LENGTH,
338 x_stream_num=>X_STREAM_NUM,
339 x_creation_date=>X_LAST_UPDATE_DATE,
340 x_created_by=>X_LAST_UPDATED_BY,
341 x_last_update_date=>X_LAST_UPDATE_DATE,
342 x_last_updated_by=>X_LAST_UPDATED_BY,
343 x_last_update_login=>X_LAST_UPDATE_LOGIN
344 );
345
346 insert into IGS_PR_S_PRG_CAL (
347 S_CONTROL_NUM,
348 PRG_CAL_TYPE,
349 STREAM_NUM,
350 SHOW_CAUSE_LENGTH,
351 APPEAL_LENGTH,
352 CREATION_DATE,
353 CREATED_BY,
354 LAST_UPDATE_DATE,
355 LAST_UPDATED_BY,
356 LAST_UPDATE_LOGIN
357 ) values (
358 NEW_REFERENCES.S_CONTROL_NUM,
359 NEW_REFERENCES.PRG_CAL_TYPE,
360 NEW_REFERENCES.STREAM_NUM,
361 NEW_REFERENCES.SHOW_CAUSE_LENGTH,
362 NEW_REFERENCES.APPEAL_LENGTH,
363 X_LAST_UPDATE_DATE,
364 X_LAST_UPDATED_BY,
365 X_LAST_UPDATE_DATE,
366 X_LAST_UPDATED_BY,
367 X_LAST_UPDATE_LOGIN
368 );
369
370 open c;
371 fetch c into X_ROWID;
372 if (c%notfound) then
373 close c;
374 raise no_data_found;
375 end if;
376 close c;
377
378 end INSERT_ROW;
379
380 procedure LOCK_ROW (
381 X_ROWID in VARCHAR2,
382 X_S_CONTROL_NUM in NUMBER,
383 X_PRG_CAL_TYPE in VARCHAR2,
384 X_STREAM_NUM in NUMBER,
385 X_SHOW_CAUSE_LENGTH in NUMBER,
386 X_APPEAL_LENGTH in NUMBER
387 ) as
388 cursor c1 is select
389 STREAM_NUM,
390 SHOW_CAUSE_LENGTH,
391 APPEAL_LENGTH
392 from IGS_PR_S_PRG_CAL
393 where ROWID = X_ROWID
394 for update nowait;
395 tlinfo c1%rowtype;
396
397 begin
398 open c1;
399 fetch c1 into tlinfo;
400 if (c1%notfound) then
401 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
402 IGS_GE_MSG_STACK.ADD;
403 close c1;
404 app_exception.raise_exception;
405
406 return;
407 end if;
408 close c1;
409
410 if ( (tlinfo.STREAM_NUM = X_STREAM_NUM)
411 AND ((tlinfo.SHOW_CAUSE_LENGTH = X_SHOW_CAUSE_LENGTH)
412 OR ((tlinfo.SHOW_CAUSE_LENGTH is null)
413 AND (X_SHOW_CAUSE_LENGTH is null)))
414 AND ((tlinfo.APPEAL_LENGTH = X_APPEAL_LENGTH)
415 OR ((tlinfo.APPEAL_LENGTH is null)
416 AND (X_APPEAL_LENGTH is null)))
417 ) then
418 null;
419 else
420 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
421 IGS_GE_MSG_STACK.ADD;
422 app_exception.raise_exception;
423 end if;
424 return;
425 end LOCK_ROW;
426
427 procedure UPDATE_ROW (
428 X_ROWID in VARCHAR2,
429 X_S_CONTROL_NUM in NUMBER,
430 X_PRG_CAL_TYPE in VARCHAR2,
431 X_STREAM_NUM in NUMBER,
432 X_SHOW_CAUSE_LENGTH in NUMBER,
433 X_APPEAL_LENGTH in NUMBER,
434 X_MODE in VARCHAR2 default 'R'
435 ) as
436 X_LAST_UPDATE_DATE DATE;
437 X_LAST_UPDATED_BY NUMBER;
438 X_LAST_UPDATE_LOGIN NUMBER;
439 begin
440 X_LAST_UPDATE_DATE := SYSDATE;
441 if(X_MODE = 'I') then
442 X_LAST_UPDATED_BY := 1;
443 X_LAST_UPDATE_LOGIN := 0;
444 elsif (X_MODE = 'R') then
445 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
446 if X_LAST_UPDATED_BY is NULL then
447 X_LAST_UPDATED_BY := -1;
448 end if;
449 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
450 if X_LAST_UPDATE_LOGIN is NULL then
451 X_LAST_UPDATE_LOGIN := -1;
452 end if;
453 else
454 FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
455 IGS_GE_MSG_STACK.ADD;
456 app_exception.raise_exception;
457 end if;
458
459 Before_DML(
460 p_action=>'UPDATE',
461 x_rowid=>X_ROWID,
462 x_appeal_length=>X_APPEAL_LENGTH,
463 x_prg_cal_type=>X_PRG_CAL_TYPE,
464 x_s_control_num=>X_S_CONTROL_NUM,
465 x_show_cause_length=>X_SHOW_CAUSE_LENGTH,
466 x_stream_num=>X_STREAM_NUM,
467 x_creation_date=>X_LAST_UPDATE_DATE,
468 x_created_by=>X_LAST_UPDATED_BY,
469 x_last_update_date=>X_LAST_UPDATE_DATE,
470 x_last_updated_by=>X_LAST_UPDATED_BY,
471 x_last_update_login=>X_LAST_UPDATE_LOGIN
472 );
473
474 update IGS_PR_S_PRG_CAL set
475 STREAM_NUM = NEW_REFERENCES.STREAM_NUM,
476 SHOW_CAUSE_LENGTH = NEW_REFERENCES.SHOW_CAUSE_LENGTH,
477 APPEAL_LENGTH = NEW_REFERENCES.APPEAL_LENGTH,
478 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
479 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
480 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
481 where ROWID = X_ROWID
482 ;
483 if (sql%notfound) then
484 raise no_data_found;
485 end if;
486
487 end UPDATE_ROW;
488
489 procedure ADD_ROW (
490 X_ROWID in out NOCOPY VARCHAR2,
491 X_S_CONTROL_NUM in out NOCOPY NUMBER,
492 X_PRG_CAL_TYPE in VARCHAR2,
493 X_STREAM_NUM in NUMBER,
494 X_SHOW_CAUSE_LENGTH in NUMBER,
495 X_APPEAL_LENGTH in NUMBER,
496 X_MODE in VARCHAR2 default 'R'
497 ) as
498 cursor c1 is select rowid from IGS_PR_S_PRG_CAL
499 where S_CONTROL_NUM = NVL(S_CONTROL_NUM,1)
500 and PRG_CAL_TYPE = X_PRG_CAL_TYPE
501 ;
502 begin
503 open c1;
504 fetch c1 into X_ROWID;
505 if (c1%notfound) then
506 close c1;
507 INSERT_ROW (
508 X_ROWID,
509 X_S_CONTROL_NUM,
510 X_PRG_CAL_TYPE,
511 X_STREAM_NUM,
512 X_SHOW_CAUSE_LENGTH,
513 X_APPEAL_LENGTH,
514 X_MODE);
515 return;
516 end if;
517 close c1;
518 UPDATE_ROW (
519 X_ROWID,
520 X_S_CONTROL_NUM,
521 X_PRG_CAL_TYPE,
522 X_STREAM_NUM,
523 X_SHOW_CAUSE_LENGTH,
524 X_APPEAL_LENGTH,
525 X_MODE);
526 end ADD_ROW;
527
528 procedure DELETE_ROW (
529 X_ROWID in VARCHAR2
530 ) as
531 begin
532
533 Before_DML(
534 p_action => 'DELETE',
535 x_rowid => X_ROWID
536 );
537
538
539 delete from IGS_PR_S_PRG_CAL
540 where ROWID = X_ROWID;
541
542 if (sql%notfound) then
543 raise no_data_found;
544 end if;
545
546 end DELETE_ROW;
547
548 PROCEDURE Check_Constraints (
549 Column_Name IN VARCHAR2 DEFAULT NULL,
550 Column_Value IN VARCHAR2 DEFAULT NULL
551 ) AS
552 BEGIN
553
554 IF Column_Name is null THEN
555 NULL;
556 ELSIF upper(Column_name) = 'S_CONTROL_NUM' THEN
557 new_references.S_CONTROL_NUM:= IGS_GE_NUMBER.to_num(COLUMN_VALUE) ;
558
559 ELSIF upper(Column_name) = 'STREAM_NUM' THEN
560 new_references.STREAM_NUM:= IGS_GE_NUMBER.to_num(COLUMN_VALUE) ;
561
562 ELSIF upper(Column_name) = 'SHOW_CAUSE_LENGTH' THEN
563 new_references.SHOW_CAUSE_LENGTH:= IGS_GE_NUMBER.to_num(COLUMN_VALUE) ;
564
565 ELSIF upper(Column_name) = 'APPEAL_LENGTH' THEN
566 new_references.APPEAL_LENGTH:= IGS_GE_NUMBER.to_num(COLUMN_VALUE) ;
567
568 ELSIF upper(Column_name) = 'PRG_CAL_TYPE' THEN
569 new_references.PRG_CAL_TYPE:= COLUMN_VALUE ;
570
571 END IF ;
572
573 IF upper(Column_name) = 'S_CONTROL_NUM' OR COLUMN_NAME IS NULL THEN
574 IF new_references.S_CONTROL_NUM < 1 or new_references.S_CONTROL_NUM > 1 then
575 Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
576 IGS_GE_MSG_STACK.ADD;
577 App_Exception.Raise_Exception ;
578 END IF;
579
580 END IF ;
581
582 IF upper(Column_name) = 'STREAM_NUM' OR COLUMN_NAME IS NULL THEN
583 IF new_references.STREAM_NUM < 0 or new_references.STREAM_NUM > 99 then
584 Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
585 IGS_GE_MSG_STACK.ADD;
586 App_Exception.Raise_Exception ;
587 END IF;
588
589 END IF ;
590
591 IF upper(Column_name) = 'SHOW_CAUSE_LENGTH' OR COLUMN_NAME IS NULL THEN
592 IF new_references.SHOW_CAUSE_LENGTH < 0 or new_references.SHOW_CAUSE_LENGTH > 999 then
593 Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
594 IGS_GE_MSG_STACK.ADD;
595 App_Exception.Raise_Exception ;
596 END IF;
597
598 END IF ;
599
600 IF upper(Column_name) = 'APPEAL_LENGTH' OR COLUMN_NAME IS NULL THEN
601 IF new_references.APPEAL_LENGTH < 0 or new_references.APPEAL_LENGTH > 999 then
602 Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
603 IGS_GE_MSG_STACK.ADD;
604 App_Exception.Raise_Exception ;
605 END IF;
606
607 END IF ;
608
609 IF upper(Column_name) = 'PRG_CAL_TYPE' OR COLUMN_NAME IS NULL THEN
610 IF new_references.PRG_CAL_TYPE<> upper(new_references.PRG_CAL_TYPE) then
611 Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
612 IGS_GE_MSG_STACK.ADD;
613 App_Exception.Raise_Exception ;
614 END IF;
615
616 END IF ;
617
618 END Check_Constraints;
619
620 end IGS_PR_S_PRG_CAL_PKG;