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