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.IGS_OR_UNIT_HIST_PKG

Source


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