1 PACKAGE BODY PER_GB_EXTRA_PERSON_CHECKS as
2 /* $Header: pegbpeiv.pkb 120.0.12010000.1 2009/12/07 10:16:02 parusia noship $ */
3
4 procedure create_gb_person_extra_info (p_person_id in number
5 , p_pei_information_category in varchar2
6 , p_pei_information1 in varchar2
7 , p_pei_information2 in varchar2
8 , p_pei_information3 in varchar2
9 , p_pei_information4 in varchar2
10 , p_pei_information5 in varchar2
11 , p_pei_information6 in varchar2
12 , p_pei_information7 in varchar2
13 , p_pei_information8 in varchar2
14 , p_pei_information9 in varchar2
15 , p_pei_information10 in varchar2) as
16 local_warning exception ;
17 begin
18 -- Checks for School Workforce Census
19 if p_pei_information_category = 'PQP_SCHOOL_WORKFORCE_CENSUS' then
20
21 -- 1) If Qualified Teacher Status = Yes,
22 -- then Qualified Teacher Status Date must be provided
23 if p_pei_information1 = 'Y' and p_pei_information2 is null then
24 fnd_message.set_name('PQP', 'PQP_230250_QTS_YES_FIELD_MAND');
25 fnd_message.set_token('FIELD', 'Qualified Teacher Status Date');
26 fnd_message.raise_error;
27 end if ;
28
29 -- 2) If Qualified Teacher Status = Yes,
30 -- then Teacher Number must be provided
31 if p_pei_information1 = 'Y' and p_pei_information2 is null then
32 fnd_message.set_name('PQP', 'PQP_230250_QTS_YES_FIELD_MAND');
33 fnd_message.set_token('FIELD', 'Teacher Number');
34 fnd_message.raise_error;
35 end if ;
36
37 -- 3) If Override Absent on Census Day Indicator is provided
38 -- then Override Absent on Census Day Year and Term are mandatory
39 if p_pei_information6 is not null then
40 if p_pei_information7 is null or p_pei_information8 is null then
41 fnd_message.set_name('PQP', 'PQP_230251_ENTER_ABS_YR_TERM');
42 fnd_message.raise_error;
43 end if ;
44 end if;
45
46 end if ;
47 end create_gb_person_extra_info;
48
49 ---
50
51 procedure update_gb_person_extra_info(P_PERSON_EXTRA_INFO_ID in NUMBER
52 ,P_PEI_INFORMATION_CATEGORY in VARCHAR2
53 ,P_PEI_INFORMATION1 in VARCHAR2
54 ,P_PEI_INFORMATION2 in VARCHAR2
55 ,P_PEI_INFORMATION3 in VARCHAR2
56 ,P_PEI_INFORMATION4 in VARCHAR2
57 ,P_PEI_INFORMATION5 in VARCHAR2
58 ,P_PEI_INFORMATION6 in VARCHAR2
59 ,P_PEI_INFORMATION7 in VARCHAR2
60 ,P_PEI_INFORMATION8 in VARCHAR2
61 ,P_PEI_INFORMATION9 in VARCHAR2
62 ,P_PEI_INFORMATION10 in VARCHAR2) as
63 begin
64 -- Checks for School Workforce Census
65 if p_pei_information_category = 'PQP_SCHOOL_WORKFORCE_CENSUS' then
66
67 -- 1) If Qualified Teacher Status = Yes,
68 -- then Qualified Teacher Status Date must be provided
69 if p_pei_information1 = 'Y' and p_pei_information2 is null then
70 fnd_message.set_name('PQP', 'PQP_230250_QTS_YES_FIELD_MAND');
71 fnd_message.set_token('FIELD', 'Qualified Teacher Status Date');
72 fnd_message.raise_error;
73 end if ;
74
75 -- 2) If Qualified Teacher Status = Yes,
76 -- then Teacher Number must be provided
77 if p_pei_information1 = 'Y' and p_pei_information4 is null then
78 fnd_message.set_name('PQP', 'PQP_230250_QTS_YES_FIELD_MAND');
79 fnd_message.set_token('FIELD', 'Teacher Number');
80 fnd_message.raise_error;
81 end if ;
82
83 -- 3) If Override Absent on Census Day Indicator is provided
84 -- then Override Absent on Census Day Year and Term are mandatory
85 if p_pei_information6 is not null then
86 if p_pei_information7 is null or p_pei_information8 is null then
87 fnd_message.set_name('PQP', 'PQP_230251_ENTER_ABS_YR_TERM');
88 fnd_message.raise_error;
89 end if ;
90 end if;
91
92 end if ;
93 end update_gb_person_extra_info;
94 end per_gb_extra_person_checks ;
95
96