1 package body HR_CONTACT_REL_BK2 as
2 /* $Header: pecrlapi.pkb 115.22 2003/02/06 10:29:45 generated ship $ */
3 -- Code generated by the Oracle HRMS API Hook Pre-processor
4 -- Created on 2007/10/22 07:23:33 (YYYY/MM/DD HH24:MI:SS)
5 procedure UPDATE_CONTACT_RELATIONSHIP_A
6 (P_EFFECTIVE_DATE in DATE
7 ,P_CONTACT_RELATIONSHIP_ID in NUMBER
8 ,P_CONTACT_TYPE in VARCHAR2
9 ,P_COMMENTS in LONG
10 ,P_PRIMARY_CONTACT_FLAG in VARCHAR2
11 ,P_THIRD_PARTY_PAY_FLAG in VARCHAR2
12 ,P_BONDHOLDER_FLAG in VARCHAR2
13 ,P_DATE_START in DATE
14 ,P_START_LIFE_REASON_ID in NUMBER
15 ,P_DATE_END in DATE
16 ,P_END_LIFE_REASON_ID in NUMBER
17 ,P_RLTD_PER_RSDS_W_DSGNTR_FLAG in VARCHAR2
18 ,P_PERSONAL_FLAG in VARCHAR2
19 ,P_SEQUENCE_NUMBER in NUMBER
20 ,P_DEPENDENT_FLAG in VARCHAR2
21 ,P_BENEFICIARY_FLAG in VARCHAR2
22 ,P_CONT_ATTRIBUTE_CATEGORY in VARCHAR2
23 ,P_CONT_ATTRIBUTE1 in VARCHAR2
24 ,P_CONT_ATTRIBUTE2 in VARCHAR2
25 ,P_CONT_ATTRIBUTE3 in VARCHAR2
26 ,P_CONT_ATTRIBUTE4 in VARCHAR2
27 ,P_CONT_ATTRIBUTE5 in VARCHAR2
28 ,P_CONT_ATTRIBUTE6 in VARCHAR2
29 ,P_CONT_ATTRIBUTE7 in VARCHAR2
30 ,P_CONT_ATTRIBUTE8 in VARCHAR2
31 ,P_CONT_ATTRIBUTE9 in VARCHAR2
32 ,P_CONT_ATTRIBUTE10 in VARCHAR2
33 ,P_CONT_ATTRIBUTE11 in VARCHAR2
34 ,P_CONT_ATTRIBUTE12 in VARCHAR2
35 ,P_CONT_ATTRIBUTE13 in VARCHAR2
36 ,P_CONT_ATTRIBUTE14 in VARCHAR2
37 ,P_CONT_ATTRIBUTE15 in VARCHAR2
38 ,P_CONT_ATTRIBUTE16 in VARCHAR2
39 ,P_CONT_ATTRIBUTE17 in VARCHAR2
40 ,P_CONT_ATTRIBUTE18 in VARCHAR2
41 ,P_CONT_ATTRIBUTE19 in VARCHAR2
42 ,P_CONT_ATTRIBUTE20 in VARCHAR2
43 ,P_CONT_INFORMATION_CATEGORY in VARCHAR2
44 ,P_CONT_INFORMATION1 in VARCHAR2
45 ,P_CONT_INFORMATION2 in VARCHAR2
46 ,P_CONT_INFORMATION3 in VARCHAR2
47 ,P_CONT_INFORMATION4 in VARCHAR2
48 ,P_CONT_INFORMATION5 in VARCHAR2
49 ,P_CONT_INFORMATION6 in VARCHAR2
50 ,P_CONT_INFORMATION7 in VARCHAR2
51 ,P_CONT_INFORMATION8 in VARCHAR2
52 ,P_CONT_INFORMATION9 in VARCHAR2
53 ,P_CONT_INFORMATION10 in VARCHAR2
54 ,P_CONT_INFORMATION11 in VARCHAR2
55 ,P_CONT_INFORMATION12 in VARCHAR2
56 ,P_CONT_INFORMATION13 in VARCHAR2
57 ,P_CONT_INFORMATION14 in VARCHAR2
58 ,P_CONT_INFORMATION15 in VARCHAR2
59 ,P_CONT_INFORMATION16 in VARCHAR2
60 ,P_CONT_INFORMATION17 in VARCHAR2
61 ,P_CONT_INFORMATION18 in VARCHAR2
62 ,P_CONT_INFORMATION19 in VARCHAR2
63 ,P_CONT_INFORMATION20 in VARCHAR2
64 ,P_OBJECT_VERSION_NUMBER in NUMBER
65 )is
66 begin
67 hr_utility.set_location('Entering: HR_CONTACT_REL_BK2.UPDATE_CONTACT_RELATIONSHIP_A', 10);
68 hr_utility.set_location(' Leaving: HR_CONTACT_REL_BK2.UPDATE_CONTACT_RELATIONSHIP_A', 20);
69 end UPDATE_CONTACT_RELATIONSHIP_A;
70 procedure UPDATE_CONTACT_RELATIONSHIP_B
71 (P_EFFECTIVE_DATE in DATE
72 ,P_CONTACT_RELATIONSHIP_ID in NUMBER
73 ,P_CONTACT_TYPE in VARCHAR2
74 ,P_COMMENTS in LONG
75 ,P_PRIMARY_CONTACT_FLAG in VARCHAR2
76 ,P_THIRD_PARTY_PAY_FLAG in VARCHAR2
77 ,P_BONDHOLDER_FLAG in VARCHAR2
78 ,P_DATE_START in DATE
79 ,P_START_LIFE_REASON_ID in NUMBER
80 ,P_DATE_END in DATE
81 ,P_END_LIFE_REASON_ID in NUMBER
82 ,P_RLTD_PER_RSDS_W_DSGNTR_FLAG in VARCHAR2
83 ,P_PERSONAL_FLAG in VARCHAR2
84 ,P_SEQUENCE_NUMBER in NUMBER
85 ,P_DEPENDENT_FLAG in VARCHAR2
86 ,P_BENEFICIARY_FLAG in VARCHAR2
87 ,P_CONT_ATTRIBUTE_CATEGORY in VARCHAR2
88 ,P_CONT_ATTRIBUTE1 in VARCHAR2
89 ,P_CONT_ATTRIBUTE2 in VARCHAR2
90 ,P_CONT_ATTRIBUTE3 in VARCHAR2
91 ,P_CONT_ATTRIBUTE4 in VARCHAR2
92 ,P_CONT_ATTRIBUTE5 in VARCHAR2
93 ,P_CONT_ATTRIBUTE6 in VARCHAR2
94 ,P_CONT_ATTRIBUTE7 in VARCHAR2
95 ,P_CONT_ATTRIBUTE8 in VARCHAR2
96 ,P_CONT_ATTRIBUTE9 in VARCHAR2
97 ,P_CONT_ATTRIBUTE10 in VARCHAR2
98 ,P_CONT_ATTRIBUTE11 in VARCHAR2
99 ,P_CONT_ATTRIBUTE12 in VARCHAR2
100 ,P_CONT_ATTRIBUTE13 in VARCHAR2
101 ,P_CONT_ATTRIBUTE14 in VARCHAR2
102 ,P_CONT_ATTRIBUTE15 in VARCHAR2
103 ,P_CONT_ATTRIBUTE16 in VARCHAR2
104 ,P_CONT_ATTRIBUTE17 in VARCHAR2
105 ,P_CONT_ATTRIBUTE18 in VARCHAR2
106 ,P_CONT_ATTRIBUTE19 in VARCHAR2
107 ,P_CONT_ATTRIBUTE20 in VARCHAR2
108 ,P_CONT_INFORMATION_CATEGORY in VARCHAR2
109 ,P_CONT_INFORMATION1 in VARCHAR2
110 ,P_CONT_INFORMATION2 in VARCHAR2
111 ,P_CONT_INFORMATION3 in VARCHAR2
112 ,P_CONT_INFORMATION4 in VARCHAR2
113 ,P_CONT_INFORMATION5 in VARCHAR2
114 ,P_CONT_INFORMATION6 in VARCHAR2
115 ,P_CONT_INFORMATION7 in VARCHAR2
116 ,P_CONT_INFORMATION8 in VARCHAR2
117 ,P_CONT_INFORMATION9 in VARCHAR2
118 ,P_CONT_INFORMATION10 in VARCHAR2
119 ,P_CONT_INFORMATION11 in VARCHAR2
120 ,P_CONT_INFORMATION12 in VARCHAR2
121 ,P_CONT_INFORMATION13 in VARCHAR2
122 ,P_CONT_INFORMATION14 in VARCHAR2
123 ,P_CONT_INFORMATION15 in VARCHAR2
124 ,P_CONT_INFORMATION16 in VARCHAR2
125 ,P_CONT_INFORMATION17 in VARCHAR2
126 ,P_CONT_INFORMATION18 in VARCHAR2
127 ,P_CONT_INFORMATION19 in VARCHAR2
128 ,P_CONT_INFORMATION20 in VARCHAR2
129 ,P_OBJECT_VERSION_NUMBER in NUMBER
130 )is
131 l_commit_unit_number number;
132 l_legislation_code varchar2(30);
133 begin
134 hr_utility.set_location('Entering: HR_CONTACT_REL_BK2.UPDATE_CONTACT_RELATIONSHIP_B', 10);
135 l_commit_unit_number := hr_api.return_commit_unit;
136 if hr_api.call_leg_hooks then
137 l_legislation_code := PER_CTR_BUS.return_legislation_code(P_CONTACT_RELATIONSHIP_ID => P_CONTACT_RELATIONSHIP_ID
138 );
139 if l_legislation_code = 'PL' then
140 PER_PL_CON_INFO.UPDATE_PL_CON_REL
141 (P_CONTACT_RELATIONSHIP_ID => P_CONTACT_RELATIONSHIP_ID
142 ,P_DATE_START => P_DATE_START
143 ,P_DATE_END => P_DATE_END
144 ,P_CONTACT_TYPE => P_CONTACT_TYPE
145 );
146 elsif l_legislation_code = 'RU' then
147 PER_RU_CON_INFO.UPDATE_RU_CON_REL
148 (P_CONTACT_RELATIONSHIP_ID => P_CONTACT_RELATIONSHIP_ID
149 ,P_CONTACT_TYPE => P_CONTACT_TYPE
150 ,P_CONT_INFORMATION1 => P_CONT_INFORMATION1
151 );
152 end if;
153 end if;
154 hr_api.validate_commit_unit(l_commit_unit_number, 'UPDATE_CONTACT_RELATIONSHIP', 'BP');
155 hr_utility.set_location(' Leaving: HR_CONTACT_REL_BK2.UPDATE_CONTACT_RELATIONSHIP_B', 20);
156 end UPDATE_CONTACT_RELATIONSHIP_B;
157 end HR_CONTACT_REL_BK2;
[Home] [Help]