[Home] [Help]
PACKAGE BODY: APPS.IGF_AP_RULE_CALL_PKG
Source
1 PACKAGE BODY IGF_AP_RULE_CALL_PKG AS
2 /* $Header: IGFAP11B.pls 120.1 2005/09/08 14:34:41 appldev noship $ */
3
4 Function Rule_Call (
5 p_rule_number IN NUMBER ,
6 p_person_id IN NUMBER ,
7 p_base_id IN NUMBER ,
8 p_param_6 IN VARCHAR2 DEFAULT NULL,
9 p_param_7 IN VARCHAR2 DEFAULT NULL,
10 p_param_8 IN VARCHAR2 DEFAULT NULL,
11 p_param_9 IN VARCHAR2 DEFAULT NULL,
12 p_param_10 IN VARCHAR2 DEFAULT NULL,
13 p_param_11 IN VARCHAR2 DEFAULT NULL
14 )
15 RETURN VARCHAR2 IS
16
17 v_message VARCHAR2(1000);
18
19 -- This cursor has been added for Admission Test Scores and Admission Test Types rule elements.
20 CURSOR get_adm_rowid IS SELECT rowid FROM igs_ad_test_results
21 WHERE person_id = p_person_id;
22
23
24 CURSOR get_per_rowid IS SELECT rowid FROM igs_pe_prsid_grp_mem_all pgm
25 WHERE pgm.person_id = p_person_id;
26
27
28 l_rowid VARCHAR2(50) := NULL;
29 v_retflag VARCHAR2(10);
30 l_retflag VARCHAR2(10);
31 l_adm_rowid VARCHAR2(50);
32 l_per_rowid VARCHAR2(50);
33
34 BEGIN
35
36 -- John Deekollu 17-JUL-2001.Removed the earlier code and modified according to the OSS FAM Integration DLD. Param_1 thru Pram_5 values are dummy and not required by IGF
37 l_retflag := 'FALSE';
38 --
39 -- RASINGH: 01-JUL-2002: Code added for Admission Test Score and Admission Test Type Bug: 2430410
40 --
41 IF get_adm_rowid%ISOPEN THEN
42 NULL;
43 ELSE
44 OPEN get_adm_rowid;
45 END IF;
46 FETCH get_adm_rowid INTO l_adm_rowid;
47 IF get_adm_rowid%NOTFOUND THEN
48 l_adm_rowid := NULL;
49 END IF;
50
51 l_adm_rowid := ''''||l_adm_rowid||'''';
52
53 IF get_per_rowid%ISOPEN THEN
54 NULL;
55 ELSE
56 OPEN get_per_rowid;
57 END IF;
58
59 FETCH get_per_rowid INTO l_per_rowid;
60 IF get_per_rowid%NOTFOUND THEN
61 l_per_rowid := NULL;
62 END IF;
63
64 l_per_rowid := ''''||l_per_rowid||'''';
65
66 v_retflag := IGS_RU_GEN_001.RULP_VAL_SENNA(
67 p_rule_number => p_rule_number,
68 p_person_id => p_person_id,
69 p_param_1 => 55,
70 p_param_2 => 'DUMMY',
71 p_param_3 => 55,
72 p_param_4 => 'DUMMY',
73 p_param_5 => p_base_id,
74 p_param_6 => p_param_6,
75 p_param_7 => p_param_7,
76 p_param_8 => p_param_8,
77 p_param_9 => l_per_rowid,
78 p_param_10 => l_adm_rowid,
79 p_param_11 => l_rowid,
80 p_message => v_message
81 );
82
83 IF UPPER(LTRIM(RTRIM(v_retflag))) = 'TRUE' THEN
84 l_retflag := 'TRUE';
85 END IF;
86
87
88 CLOSE get_per_rowid;
89 CLOSE get_adm_rowid;
90 RETURN l_retflag;
91 END Rule_call;
92
93 END IGF_AP_RULE_CALL_PKG; -- Package Body IGF_AP_RULE_CALL_PKG