1 PACKAGE BODY IGS_ST_VAL_SNAPSHOT AS
2 /* $Header: IGSST15B.pls 115.4 2002/11/29 04:12:49 nsidana ship $ */
3 -- Validate whether or not an org unit belongs to the local institution.
4 FUNCTION stap_val_local_ou(
5 p_org_unit_cd IN VARCHAR2 ,
6 p_ou_start_dt IN DATE ,
7 p_message_name OUT NOCOPY VARCHAR2)
8 RETURN BOOLEAN IS
9 gv_other_detail VARCHAR2(255);
10 BEGIN
11 DECLARE
12 v_results_flag CHAR;
13 CURSOR c_chk_institute_ou IS
14 SELECT 'x'
15 FROM IGS_OR_INSTITUTION ins,
16 IGS_OR_INST_STAT ist,
17 IGS_OR_UNIT ou
18 WHERE ins.local_institution_ind = 'Y' AND
19 ist.institution_status = ist.institution_status AND
20 ist.s_institution_status = 'ACTIVE' AND
21 ou.institution_cd = ins.institution_cd AND
22 ou.org_unit_cd = p_org_unit_cd AND
23 ou.start_dt = p_ou_start_dt;
24 BEGIN
25 --- Set the default message number
26 p_message_name := null;
27 -- Check if the organisational unit belongs to the local institution.
28 OPEN c_chk_institute_ou;
29 FETCH c_chk_institute_ou INTO v_results_flag;
30 IF c_chk_institute_ou%NOTFOUND THEN
31 CLOSE c_chk_institute_ou;
32 --p_message_num := 2009;
33 p_message_name := 'IGS_ST_CHK_ORG_UNIT';
34 RETURN FALSE;
35 END IF;
36 CLOSE c_chk_institute_ou;
37 --- Return the default value
38 RETURN TRUE;
39 END;
40 EXCEPTION
41 WHEN OTHERS THEN
42 FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
43 FND_MESSAGE.SET_TOKEN('NAME','IGS_ST_VAL_SNAPSHOT.stap_val_local_ou');
44 IGS_GE_MSG_STACK.ADD;
45 APP_EXCEPTION.RAISE_EXCEPTION;
46 END stap_val_local_ou;
47 END IGS_ST_VAL_SNAPSHOT;