117: p_message_name in varchar2) return number
118: --------------------------------------------------------------------------------
119: is
120: begin
121: fnd_message.set_name(p_application_short_name, p_message_name);
122: return 0;
123: exception
124: when others then
125: return -1;
130: p_token_value in varchar2) return number
131: --------------------------------------------------------------------------------
132: is
133: begin
134: fnd_message.set_token(p_token_name, p_token_value);
135: return 0;
136: exception
137: when others then
138: return -1;
141: function get_message return varchar2
142: --------------------------------------------------------------------------------
143: is
144: begin
145: return substrb(fnd_message.get, 1, 240);
146: end get_message;
147: --------------------------------------------------------------------------------
148: procedure ni_component(
149: p_national_identifier in varchar2,
158: l_effective_date_cent varchar2(2);
159: l_effective_date varchar2(8);
160: begin
161: if p_national_identifier is null then
162: fnd_message.set_name('PER', 'PER_KR_NI_NUMBER_NULL');
163: fnd_message.raise_error;
164: end if;
165: --
166: if g_ni.national_identifier = p_national_identifier then
159: l_effective_date varchar2(8);
160: begin
161: if p_national_identifier is null then
162: fnd_message.set_name('PER', 'PER_KR_NI_NUMBER_NULL');
163: fnd_message.raise_error;
164: end if;
165: --
166: if g_ni.national_identifier = p_national_identifier then
167: p_sex := g_ni.sex;
221: g_ni.sex := p_sex;
222: g_ni.date_of_birth := p_date_of_birth;
223: exception
224: when others then
225: fnd_message.set_name('PER', 'PER_KR_INV_NI_NUMBER');
226: fnd_message.set_token('NI_NUMBER', p_national_identifier);
227: fnd_message.raise_error;
228: end;
229: end if;
222: g_ni.date_of_birth := p_date_of_birth;
223: exception
224: when others then
225: fnd_message.set_name('PER', 'PER_KR_INV_NI_NUMBER');
226: fnd_message.set_token('NI_NUMBER', p_national_identifier);
227: fnd_message.raise_error;
228: end;
229: end if;
230: end ni_component;
223: exception
224: when others then
225: fnd_message.set_name('PER', 'PER_KR_INV_NI_NUMBER');
226: fnd_message.set_token('NI_NUMBER', p_national_identifier);
227: fnd_message.raise_error;
228: end;
229: end if;
230: end ni_component;
231: /*
238: --------------------------------------------------------------------------------
239: is
240: begin
241: if p_national_identifier is null then
242: fnd_message.set_name('PER', 'PER_KR_CON_PER_NI_NUMBER_NULL');
243: fnd_message.set_token('PERSON_NAME', p_person_name);
244: fnd_message.raise_error;
245: end if;
246: --
239: is
240: begin
241: if p_national_identifier is null then
242: fnd_message.set_name('PER', 'PER_KR_CON_PER_NI_NUMBER_NULL');
243: fnd_message.set_token('PERSON_NAME', p_person_name);
244: fnd_message.raise_error;
245: end if;
246: --
247: begin
240: begin
241: if p_national_identifier is null then
242: fnd_message.set_name('PER', 'PER_KR_CON_PER_NI_NUMBER_NULL');
243: fnd_message.set_token('PERSON_NAME', p_person_name);
244: fnd_message.raise_error;
245: end if;
246: --
247: begin
248: ni_component(
250: p_sex => p_sex,
251: p_date_of_birth => p_date_of_birth);
252: exception
253: when others then
254: fnd_message.set_name('PER', 'PER_KR_CON_PER_INV_NI_NUMBER');
255: fnd_message.set_token('NI_NUMBER', p_national_identifier);
256: fnd_message.set_token('PERSON_NAME', p_person_name);
257: fnd_message.raise_error;
258: end;
251: p_date_of_birth => p_date_of_birth);
252: exception
253: when others then
254: fnd_message.set_name('PER', 'PER_KR_CON_PER_INV_NI_NUMBER');
255: fnd_message.set_token('NI_NUMBER', p_national_identifier);
256: fnd_message.set_token('PERSON_NAME', p_person_name);
257: fnd_message.raise_error;
258: end;
259: end ni_component;
252: exception
253: when others then
254: fnd_message.set_name('PER', 'PER_KR_CON_PER_INV_NI_NUMBER');
255: fnd_message.set_token('NI_NUMBER', p_national_identifier);
256: fnd_message.set_token('PERSON_NAME', p_person_name);
257: fnd_message.raise_error;
258: end;
259: end ni_component;
260: */
253: when others then
254: fnd_message.set_name('PER', 'PER_KR_CON_PER_INV_NI_NUMBER');
255: fnd_message.set_token('NI_NUMBER', p_national_identifier);
256: fnd_message.set_token('PERSON_NAME', p_person_name);
257: fnd_message.raise_error;
258: end;
259: end ni_component;
260: */
261: --------------------------------------------------------------------------------