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_REL_PKG

Source


1 package body IGS_OR_UNIT_REL_PKG AS
2  /* $Header: IGSOI14B.pls 115.9 2003/03/27 06:41:35 kpadiyar ship $ */
3   l_rowid VARCHAR2(25);
4   old_references IGS_OR_UNIT_REL%RowType;
5   new_references IGS_OR_UNIT_REL%RowType;
6 
7   PROCEDURE Set_Column_Values (
8     p_action IN VARCHAR2,
9     x_rowid IN VARCHAR2 DEFAULT NULL,
10     x_parent_org_unit_cd IN VARCHAR2 DEFAULT NULL,
11     x_parent_start_dt IN DATE DEFAULT NULL,
12     x_child_org_unit_cd IN VARCHAR2 DEFAULT NULL,
13     x_child_start_dt IN DATE DEFAULT NULL,
14     x_create_dt IN DATE DEFAULT NULL,
15     x_logical_delete_dt IN DATE 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     CURSOR cur_old_ref_values IS
23       SELECT   *
24       FROM     IGS_OR_UNIT_REL
25       WHERE    rowid = x_rowid;
26   BEGIN
27     l_rowid := x_rowid;
28     -- Code for setting the Old and New Reference Values.
29     -- Populate Old Values.
30     Open cur_old_ref_values;
31     Fetch cur_old_ref_values INTO old_references;
32     IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
33 
34        Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
35       IGS_GE_MSG_STACK.ADD;
36       App_Exception.Raise_Exception;
37       Close cur_old_ref_values;
38       Return;
39     END IF;
40     Close cur_old_ref_values;
41     -- Populate New Values.
42     new_references.parent_org_unit_cd := x_parent_org_unit_cd;
43     new_references.parent_start_dt := x_parent_start_dt;
44     new_references.child_org_unit_cd := x_child_org_unit_cd;
45     new_references.child_start_dt := x_child_start_dt;
46     new_references.create_dt := x_create_dt;
47     new_references.logical_delete_dt := x_logical_delete_dt;
48     IF (p_action = 'UPDATE') THEN
49       new_references.creation_date := old_references.creation_date;
50       new_references.created_by := old_references.created_by;
51     ELSE
52       new_references.creation_date := x_creation_date;
53       new_references.created_by := x_created_by;
54     END IF;
55     new_references.last_update_date := x_last_update_date;
56     new_references.last_updated_by := x_last_updated_by;
57     new_references.last_update_login := x_last_update_login;
58   END Set_Column_Values;
59   -- Trigger description :-
60   -- "OSS_TST".trg_our_ar_i
61   -- AFTER INSERT
62   -- ON IGS_OR_UNIT_REL
63   -- FOR EACH ROW
64 
65   PROCEDURE BeforeRowInsert1(
66     p_inserting IN BOOLEAN DEFAULT FALSE,
67     p_updating IN BOOLEAN DEFAULT FALSE,
68     p_deleting IN BOOLEAN DEFAULT FALSE
69     ) AS
70 	v_message_name   VARCHAR2(30);
71     CURSOR c_exists IS
72        SELECT 'Y'
73        FROM   IGS_OR_UNIT_REL
74        WHERE  parent_org_unit_cd = new_references.parent_org_unit_cd
75        AND    child_org_unit_cd = new_references.child_org_unit_cd
76        AND    logical_delete_dt IS NULL;
77     l_exists VARCHAR(1) := 'N';
78   BEGIN
79    IF p_inserting THEN
80     OPEN c_exists;
81     FETCH c_exists INTO l_exists;
82     CLOSE c_exists;
83      IF l_exists = 'Y' THEN
84         Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
85         IGS_GE_MSG_STACK.ADD;
86         App_Exception.Raise_Exception;
87      END IF;
88    END IF;
89   END BeforeRowInsert1;
90 
91   PROCEDURE AfterRowInsert1(
92     p_inserting IN BOOLEAN DEFAULT FALSE,
93     p_updating IN BOOLEAN DEFAULT FALSE,
94     p_deleting IN BOOLEAN DEFAULT FALSE
95     ) AS
96 	v_message_name   VARCHAR2(30);
97 	v_rowid_saved	BOOLEAN := FALSE;
98   BEGIN
99 	-- Validate the org IGS_PS_UNIT relationship.
100 	 -- Save the rowid of the current row.
101 	v_rowid_saved := TRUE;
102 	-- Cannot call orgp_val_our because trigger may be mutating.
103 -- Pasted from Mutation Handling Validaton Trig
104   		-- Validate org IGS_PS_UNIT relationship.
105   		IF IGS_OR_VAL_OUR.orgp_val_our (New_References.parent_org_unit_cd,
106   				New_References.parent_start_dt,
107   				New_References.child_org_unit_cd,
108   				New_References.child_start_dt,
109   						v_message_name) = FALSE THEN
110 			Fnd_Message.Set_Name('IGS',v_message_name);
111 			IGS_GE_MSG_STACK.ADD;
112 			App_Exception.Raise_Exception ;
113   		END IF;
114   END AfterRowInsert1;
115   -- Trigger description :-
116   -- "OSS_TST".trg_our_as_i
117   -- AFTER INSERT
118   -- ON IGS_OR_UNIT_REL
119 
120   PROCEDURE Check_Parent_Existance AS
121   BEGIN
122     IF (((old_references.child_org_unit_cd = new_references.child_org_unit_cd) AND
123          (old_references.child_start_dt = new_references.child_start_dt)) OR
124         ((new_references.child_org_unit_cd IS NULL) OR
125          (new_references.child_start_dt IS NULL))) THEN
126       NULL;
127     ELSE
128       IF NOT IGS_OR_UNIT_PKG.Get_PK_For_Validation (
129         new_references.child_org_unit_cd,
130         new_references.child_start_dt
131         )THEN
132         Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
133         IGS_GE_MSG_STACK.ADD;
134         App_Exception.Raise_Exception;
135 	  END IF;
136     END IF;
137     IF (((old_references.parent_org_unit_cd = new_references.parent_org_unit_cd) AND
138          (old_references.parent_start_dt = new_references.parent_start_dt)) OR
139         ((new_references.parent_org_unit_cd IS NULL) OR
140          (new_references.parent_start_dt IS NULL))) THEN
141       NULL;
142     ELSE
143      IF NOT IGS_OR_UNIT_PKG.Get_PK_For_Validation (
144         new_references.parent_org_unit_cd,
145         new_references.parent_start_dt
146         )THEN
147         Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
148         IGS_GE_MSG_STACK.ADD;
149         App_Exception.Raise_Exception;
150 
151 	  END IF;
152     END IF;
153   END Check_Parent_Existance;
154 
155   PROCEDURE Check_Child_Existance AS
156   BEGIN
157     IGS_OR_REL_PS_TYPE_PKG.GET_FK_IGS_OR_UNIT_REL (
158       old_references.parent_org_unit_cd,
159       old_references.parent_start_dt,
160       old_references.child_org_unit_cd,
161       old_references.child_start_dt,
162       old_references.create_dt
163       );
164   END Check_Child_Existance;
165 
166   PROCEDURE Check_Uniqueness AS
167   BEGIN
168     IF Get_PK_for_Validation (
169       new_references.parent_org_unit_cd,
170       new_references.parent_start_dt,
171       new_references.child_org_unit_cd,
172       new_references.child_start_dt,
173       new_references.create_dt
174       ) THEN
175         Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
176         IGS_GE_MSG_STACK.ADD;
177         App_Exception.Raise_Exception;
178     END IF ;
179   END Check_Uniqueness;
180 
181 
182   FUNCTION Get_PK_For_Validation (
183     x_parent_org_unit_cd IN VARCHAR2,
184     x_parent_start_dt IN DATE,
185     x_child_org_unit_cd IN VARCHAR2,
186     x_child_start_dt IN DATE,
187     x_create_dt IN DATE
188     ) RETURN BOOLEAN AS
189     CURSOR cur_rowid IS
190       SELECT   rowid
191       FROM     IGS_OR_UNIT_REL
192       WHERE    parent_org_unit_cd = x_parent_org_unit_cd
193       AND      parent_start_dt = x_parent_start_dt
194       AND      child_org_unit_cd = x_child_org_unit_cd
195       AND      child_start_dt = x_child_start_dt
196       AND      create_dt = x_create_dt
197       FOR UPDATE NOWAIT;
198     lv_rowid cur_rowid%RowType;
199   BEGIN
200     Open cur_rowid;
201     Fetch cur_rowid INTO lv_rowid;
202     IF (cur_rowid%FOUND) THEN
203         Close cur_rowid;
204  		RETURN(TRUE);
205 	ELSE
206         Close cur_rowid;
207 	    RETURN(FALSE);
208 	END IF;
209   END Get_PK_For_Validation;
210 
211   PROCEDURE GET_FK_IGS_OR_UNIT (
212     x_org_unit_cd IN VARCHAR2,
213     x_start_dt IN DATE
214     ) AS
215     CURSOR cur_rowid IS
216       SELECT   rowid
217       FROM     IGS_OR_UNIT_REL
218       WHERE (   (child_org_unit_cd = x_org_unit_cd AND child_start_dt = x_start_dt)
219       OR       (parent_org_unit_cd = x_org_unit_cd AND parent_start_dt = x_start_dt)) ;
220     lv_rowid cur_rowid%RowType;
221   BEGIN
222     Open cur_rowid;
223     Fetch cur_rowid INTO lv_rowid;
224     IF (cur_rowid%FOUND) THEN
225       Close cur_rowid	;
226       Fnd_Message.Set_Name ('IGS', 'IGS_OR_OUR_OU_CHILD_FK');
227       IGS_GE_MSG_STACK.ADD;
228       App_Exception.Raise_Exception;
229 
230       Return;
231     END IF;
232     Close cur_rowid;
233   END GET_FK_IGS_OR_UNIT;
234 
235   PROCEDURE Before_DML (
236     p_action IN VARCHAR2,
237     x_rowid IN VARCHAR2 DEFAULT NULL,
238     x_parent_org_unit_cd IN VARCHAR2 DEFAULT NULL,
239     x_parent_start_dt IN DATE DEFAULT NULL,
240     x_child_org_unit_cd IN VARCHAR2 DEFAULT NULL,
241     x_child_start_dt IN DATE DEFAULT NULL,
242     x_create_dt IN DATE DEFAULT NULL,
243     x_logical_delete_dt IN DATE DEFAULT NULL,
244     x_creation_date IN DATE DEFAULT NULL,
245     x_created_by IN NUMBER DEFAULT NULL,
246     x_last_update_date IN DATE DEFAULT NULL,
247     x_last_updated_by IN NUMBER DEFAULT NULL,
248     x_last_update_login IN NUMBER DEFAULT NULL
249   ) AS
250   BEGIN
251     Set_Column_Values (
252       p_action,
253       x_rowid,
254       x_parent_org_unit_cd,
255       x_parent_start_dt,
256       x_child_org_unit_cd,
257       x_child_start_dt,
258       x_create_dt,
259       x_logical_delete_dt,
260       x_creation_date,
261       x_created_by,
262       x_last_update_date,
263       x_last_updated_by,
264       x_last_update_login
265     );
266     IF (p_action = 'INSERT') THEN
267       -- Call all the procedures related to Before Insert.
268 
269       Check_Parent_Existance;
270       Check_Uniqueness;
271       BeforeRowInsert1 ( p_inserting => TRUE );
272     ELSIF (p_action = 'UPDATE') THEN
273       -- Call all the procedures related to Before Update.
274       Check_Parent_Existance;
275     ELSIF (p_action = 'DELETE') THEN
276       -- Call all the procedures related to Before Delete.
277       Check_Child_Existance;
278 
279 	ELSIF (p_action = 'VALIDATE_INSERT') THEN
280       BeforeRowInsert1 ( p_inserting => TRUE );
281 
282 	ELSIF (p_action = 'VALIDATE_UPDATE') THEN
283 
284        NULL;
285 	ELSIF (p_action = 'VALIDATE_DELETE') THEN
286 
287    Check_Child_Existance ;
288 
289     END IF;
290   END Before_DML;
291 
292   PROCEDURE After_DML (
293     p_action IN VARCHAR2,
294     x_rowid IN VARCHAR2
295   ) AS
296   BEGIN
297     l_rowid := x_rowid;
298     IF (p_action = 'INSERT') THEN
299       -- Call all the procedures related to After Insert.
300       AfterRowInsert1 ( p_inserting => TRUE );
301     END IF;
302   END After_DML;
303 
304 procedure INSERT_ROW (
305   X_ROWID in out NOCOPY VARCHAR2,
306   X_PARENT_ORG_UNIT_CD in VARCHAR2,
307   X_PARENT_START_DT in DATE,
308   X_CHILD_ORG_UNIT_CD in VARCHAR2,
309   X_CHILD_START_DT in DATE,
310   X_CREATE_DT in out NOCOPY DATE,
311   X_LOGICAL_DELETE_DT in DATE,
312   X_MODE in VARCHAR2 default 'R'
313   ) AS
314     cursor C is select ROWID from IGS_OR_UNIT_REL
315       where PARENT_ORG_UNIT_CD = X_PARENT_ORG_UNIT_CD
316       and PARENT_START_DT = X_PARENT_START_DT
317       and CHILD_ORG_UNIT_CD = X_CHILD_ORG_UNIT_CD
318       and CHILD_START_DT = X_CHILD_START_DT
319       and CREATE_DT = NEW_REFERENCES.CREATE_DT;
320     X_LAST_UPDATE_DATE DATE;
321     X_LAST_UPDATED_BY NUMBER;
322     X_LAST_UPDATE_LOGIN NUMBER;
323 begin
324   X_LAST_UPDATE_DATE := SYSDATE;
325   if(X_MODE = 'I') then
326     X_LAST_UPDATED_BY := 1;
327     X_LAST_UPDATE_LOGIN := 0;
328   elsif (X_MODE = 'R') then
329     X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
330     if X_LAST_UPDATED_BY is NULL then
331       X_LAST_UPDATED_BY := -1;
332     end if;
333     X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
334     if X_LAST_UPDATE_LOGIN is NULL then
335       X_LAST_UPDATE_LOGIN := -1;
336     end if;
337   else
338     FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
339     IGS_GE_MSG_STACK.ADD;
340     app_exception.raise_exception;
341   end if;
342   Before_DML(
343    p_action=>'INSERT',
344    x_rowid=>X_ROWID,
345    x_child_org_unit_cd=>X_CHILD_ORG_UNIT_CD,
346    x_child_start_dt=>X_CHILD_START_DT,
347    x_create_dt=>NVL(X_CREATE_DT,SYSDATE),
348    x_logical_delete_dt=>X_LOGICAL_DELETE_DT,
349    x_parent_org_unit_cd=>X_PARENT_ORG_UNIT_CD,
350    x_parent_start_dt=>X_PARENT_START_DT,
351    x_creation_date=>X_LAST_UPDATE_DATE,
352    x_created_by=>X_LAST_UPDATED_BY,
353    x_last_update_date=>X_LAST_UPDATE_DATE,
354    x_last_updated_by=>X_LAST_UPDATED_BY,
355    x_last_update_login=>X_LAST_UPDATE_LOGIN
356    );
357   insert into IGS_OR_UNIT_REL (
358     PARENT_ORG_UNIT_CD,
359     PARENT_START_DT,
360     CHILD_ORG_UNIT_CD,
361     CHILD_START_DT,
362     CREATE_DT,
363     LOGICAL_DELETE_DT,
364     CREATION_DATE,
365     CREATED_BY,
366     LAST_UPDATE_DATE,
367     LAST_UPDATED_BY,
368     LAST_UPDATE_LOGIN
369   ) values (
370     NEW_REFERENCES.PARENT_ORG_UNIT_CD,
371     NEW_REFERENCES.PARENT_START_DT,
372     NEW_REFERENCES.CHILD_ORG_UNIT_CD,
373     NEW_REFERENCES.CHILD_START_DT,
374     NEW_REFERENCES.CREATE_DT,
375     NEW_REFERENCES.LOGICAL_DELETE_DT,
376     X_LAST_UPDATE_DATE,
377     X_LAST_UPDATED_BY,
378     X_LAST_UPDATE_DATE,
379     X_LAST_UPDATED_BY,
380     X_LAST_UPDATE_LOGIN
381   );
382   open c;
383   fetch c into X_ROWID;
384   if (c%notfound) then
385     close c;
386     raise no_data_found;
387   end if;
388   close c;
389   After_DML(
390     p_action=>'INSERT',
391     x_rowid=>X_ROWID
392     );
393 end INSERT_ROW;
394 
395 procedure LOCK_ROW (
396   X_ROWID in VARCHAR2,
397   X_PARENT_ORG_UNIT_CD in VARCHAR2,
398   X_PARENT_START_DT in DATE,
399   X_CHILD_ORG_UNIT_CD in VARCHAR2,
400   X_CHILD_START_DT in DATE,
401   X_CREATE_DT in DATE,
402   X_LOGICAL_DELETE_DT in DATE
403 ) AS
404   cursor c1 is select
405       LOGICAL_DELETE_DT
406     from IGS_OR_UNIT_REL
407     where ROWID = X_ROWID
408     for update nowait ;
409   tlinfo c1%rowtype;
410 begin
411   open c1;
412   fetch c1 into tlinfo;
413   if (c1%notfound) then
414     fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
415     app_exception.raise_exception;
416     close c1;
417     return;
418   end if;
419   close c1;
420       if ( ((tlinfo.LOGICAL_DELETE_DT = X_LOGICAL_DELETE_DT)
421            OR ((tlinfo.LOGICAL_DELETE_DT is null)
422                AND (X_LOGICAL_DELETE_DT is null)))
423   ) then
424     null;
425   else
426     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
427     app_exception.raise_exception;
428   end if;
429   return;
430 end LOCK_ROW;
431 
432 procedure UPDATE_ROW (
433   X_ROWID in VARCHAR2,
434   X_PARENT_ORG_UNIT_CD in VARCHAR2,
435   X_PARENT_START_DT in DATE,
436   X_CHILD_ORG_UNIT_CD in VARCHAR2,
437   X_CHILD_START_DT in DATE,
438   X_CREATE_DT in DATE,
439   X_LOGICAL_DELETE_DT in DATE,
440   X_MODE in VARCHAR2 default 'R'
441   ) AS
442     X_LAST_UPDATE_DATE DATE;
443     X_LAST_UPDATED_BY NUMBER;
444     X_LAST_UPDATE_LOGIN NUMBER;
445 begin
446   X_LAST_UPDATE_DATE := SYSDATE;
447   if(X_MODE = 'I') then
448     X_LAST_UPDATED_BY := 1;
449     X_LAST_UPDATE_LOGIN := 0;
450   elsif (X_MODE = 'R') then
451     X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
452     if X_LAST_UPDATED_BY is NULL then
453       X_LAST_UPDATED_BY := -1;
454     end if;
455     X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
456     if X_LAST_UPDATE_LOGIN is NULL then
457       X_LAST_UPDATE_LOGIN := -1;
458     end if;
459   else
460     FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
461     IGS_GE_MSG_STACK.ADD;
462     app_exception.raise_exception;
463   end if;
464    Before_DML(
465     p_action=>'UPDATE',
466     x_rowid=>X_ROWID,
467     x_child_org_unit_cd=>X_CHILD_ORG_UNIT_CD,
468     x_child_start_dt=>X_CHILD_START_DT,
469     x_create_dt=>NVL(X_CREATE_DT,SYSDATE),
470     x_logical_delete_dt=>X_LOGICAL_DELETE_DT,
471     x_parent_org_unit_cd=>X_PARENT_ORG_UNIT_CD,
472     x_parent_start_dt=>X_PARENT_START_DT,
473     x_creation_date=>X_LAST_UPDATE_DATE,
474     x_created_by=>X_LAST_UPDATED_BY,
475     x_last_update_date=>X_LAST_UPDATE_DATE,
476     x_last_updated_by=>X_LAST_UPDATED_BY,
477     x_last_update_login=>X_LAST_UPDATE_LOGIN
478     );
479   update IGS_OR_UNIT_REL set
480     LOGICAL_DELETE_DT = NEW_REFERENCES.LOGICAL_DELETE_DT,
481     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
482     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
483     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
484   where ROWID = X_ROWID ;
485   if (sql%notfound) then
486     raise no_data_found;
487   end if;
488   After_DML(
489     p_action=>'UPDATE',
490     x_rowid=>X_ROWID
491     );
492 end UPDATE_ROW;
493 
494 procedure ADD_ROW (
495   X_ROWID in out NOCOPY VARCHAR2,
496   X_PARENT_ORG_UNIT_CD in VARCHAR2,
497   X_PARENT_START_DT in DATE,
498   X_CHILD_ORG_UNIT_CD in VARCHAR2,
499   X_CHILD_START_DT in DATE,
500   X_CREATE_DT in out NOCOPY DATE,
501   X_LOGICAL_DELETE_DT in DATE,
502   X_MODE in VARCHAR2 default 'R'
503   ) AS
504   cursor c1 is select rowid from IGS_OR_UNIT_REL
505      where PARENT_ORG_UNIT_CD = X_PARENT_ORG_UNIT_CD
506      and PARENT_START_DT = X_PARENT_START_DT
507      and CHILD_ORG_UNIT_CD = X_CHILD_ORG_UNIT_CD
508      and CHILD_START_DT = X_CHILD_START_DT
509      and CREATE_DT = NVL(X_CREATE_DT,SYSDATE)
510   ;
511 begin
512   open c1;
513   fetch c1 into X_ROWID ;
514   if (c1%notfound) then
515     close c1;
516     INSERT_ROW (
517      X_ROWID,
518      X_PARENT_ORG_UNIT_CD,
519      X_PARENT_START_DT,
520      X_CHILD_ORG_UNIT_CD,
521      X_CHILD_START_DT,
522      X_CREATE_DT,
523      X_LOGICAL_DELETE_DT,
524      X_MODE);
525     return;
526   end if;
527   close c1;
528   UPDATE_ROW (
529    X_ROWID,
530    X_PARENT_ORG_UNIT_CD,
531    X_PARENT_START_DT,
532    X_CHILD_ORG_UNIT_CD,
533    X_CHILD_START_DT,
534    X_CREATE_DT,
535    X_LOGICAL_DELETE_DT,
536    X_MODE);
537 end ADD_ROW;
538 
539 procedure DELETE_ROW (
540     X_ROWID in VARCHAR2
541     ) AS
542 begin
543   Before_DML(
544    p_action=>'DELETE',
545    x_rowid=>X_ROWID
546    );
547   delete from IGS_OR_UNIT_REL
548   where ROWID = X_ROWID ;
549   if (sql%notfound) then
550     raise no_data_found;
551   end if;
552   After_DML(
553     p_action=>'DELETE',
554     x_rowid=>X_ROWID
555     );
556 end DELETE_ROW;
557 
558 procedure Check_Constraints (
559   Column_Name in VARCHAR2 DEFAULT NULL ,
560   Column_Value in VARCHAR2 DEFAULT NULL
561   ) AS
562    /*----------------------------------------------------------------------------
563   ||  Created By : pkpatel
564   ||  Created On :
565   ||  Purpose :
566   ||  Known limitations, enhancements or remarks :
567   ||  Change History :
568   ||  Who             When            What
569   ||  (reverse chronological order - newest change first)
570   ||  pkpatel       29-JUL-2002     Bug No: 2461744
571   ||                                Stuffed the procedure since the upper check on parent_org_unit_cd and child_org_unit_cd was removed
572   ----------------------------------------------------------------------------*/
573  BEGIN
574 
575 IF Column_Name is null THEN
576   NULL;
577 END IF ;
578 
579 END Check_Constraints ;
580 
581 end IGS_OR_UNIT_REL_PKG;