[Home] [Help]
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
60: begin
61: hr_utility.set_location('Entering:'||l_proc, 5);
62: pay_exa_shd.g_api_dml := true; -- set the api dml status
63: --
64: -- update_validate(), chk_territory_code(), pay_exa_shd.api_updating()
65: -- has been called,
77: nvl(pay_exa_shd.g_old_rec.territory_code, hr_api.g_varchar2) )
78: or
79: ( nvl(p_rec.prenote_date, hr_api.g_date) <>
80: nvl(pay_exa_shd.g_old_rec.prenote_date, hr_api.g_date) ) then
81: hr_utility.trace('| doing update on combination table');
82: --
83: -- fresh combination record
84: --
85: if ( pay_exa_shd.g_old_rec.territory_code is null ) then
82: --
83: -- fresh combination record
84: --
85: if ( pay_exa_shd.g_old_rec.territory_code is null ) then
86: hr_utility.trace('| updating territory_code');
87: --
88: UPDATE PAY_EXTERNAL_ACCOUNTS
89: SET territory_code = p_rec.territory_code
90: WHERE external_account_id = p_rec.external_account_id
96: --
97: -- Check for defaulted prenote_date.
98: --
99: if p_rec.prenote_date = hr_api.g_date then
100: hr_utility.trace('| not updating prenote_date (default passed in)');
101: --
102: -- No change to be made: existing combination's date is not updated,
103: -- and fresh combination must have date clear (for prenotification to
104: -- take place).
105: --
106: null;
107: elsif ( nvl(p_rec.prenote_date, hr_api.g_date) <>
108: nvl(pay_exa_shd.g_old_rec.prenote_date, hr_api.g_date) ) then
109: hr_utility.trace('| updating prenote_date');
110: --
111: UPDATE PAY_EXTERNAL_ACCOUNTS
112: SET prenote_date = p_rec.prenote_date
113: WHERE external_account_id = p_rec.external_account_id
123: end if;
124: --
125: pay_exa_shd.g_api_dml := false; -- unset the api dml status
126: --
127: hr_utility.set_location(' Leaving:'||l_proc, 10);
128: --
129: Exception
130: When hr_api.check_integrity_violated Then
131: -- A check constraint has been violated
185: --
186: l_proc varchar2(72) := g_package||'pre_update';
187: --
188: begin
189: hr_utility.set_location('Entering:'||l_proc, 5);
190: --
191: hr_utility.set_location(' Leaving:'||l_proc, 10);
192: end pre_update;
193: --
187: --
188: begin
189: hr_utility.set_location('Entering:'||l_proc, 5);
190: --
191: hr_utility.set_location(' Leaving:'||l_proc, 10);
192: end pre_update;
193: --
194: -- ----------------------------------------------------------------------------
195: -- |-----------------------------< post_update >------------------------------|
229: --
230: l_proc varchar2(72) := g_package||'post_update';
231: --
232: Begin
233: hr_utility.set_location('Entering:'||l_proc, 5);
234: --
235: hr_utility.set_location(' Leaving:'||l_proc, 10);
236: end post_update;
237: --
231: --
232: Begin
233: hr_utility.set_location('Entering:'||l_proc, 5);
234: --
235: hr_utility.set_location(' Leaving:'||l_proc, 10);
236: end post_update;
237: --
238: -- ----------------------------------------------------------------------------
239: -- |-----------------------------< convert_defs >-----------------------------|
245: l_proc varchar2(72) := g_package||'convert_defs';
246: --
247: Begin
248: --
249: hr_utility.set_location('Entering:'||l_proc, 5);
250: --
251: -- we must now examine each argument value in the p_rec plsql record
252: -- structure to see if a system default is being used,
253: -- if a system default is being used then we must set to the 'current'
409: p_rec.segment30 :=
410: pay_exa_shd.g_old_rec.segment30;
411: End If;
412: --
413: hr_utility.set_location(' Leaving:'||l_proc, 10);
414: end convert_defs;
415: --
416: -- ----------------------------------------------------------------------------
417: -- |---------------------------------< upd >----------------------------------|
423: --
424: l_proc varchar2(72) := g_package||'upd';
425: --
426: begin
427: hr_utility.set_location('Entering:'||l_proc, 5);
428: --
429: -- determine if the business process is to be validated
430: --
431: If p_validate then
464: If p_validate then
465: Raise HR_Api.Validate_Enabled;
466: End If;
467: --
468: hr_utility.set_location(' Leaving:'||l_proc, 10);
469: Exception
470: When HR_Api.Validate_Enabled Then
471: --
472: -- As the Validate_Enabled exception has been raised
495: WHERE pea.external_account_id = p_external_account_id
496: ;
497: --
498: begin
499: hr_utility.set_location('Entering:'||l_proc, 5);
500: --
501: -- call conversion function to turn arguments into the l_rec structure,
502: -- nb. only parameters used by U logic are set
503: --
556: open csr_ovn(l_rec.external_account_id);
557: fetch csr_ovn into p_object_version_number;
558: close csr_ovn;
559: --
560: hr_utility.set_location(' Leaving:'||l_proc, 10);
561: end upd;
562: --
563: -- ----------------------------------------------------------------------------
564: -- |-------------------------------< upd_or_sel >-----------------------------|
611: l_prenote_date pay_external_accounts.prenote_date%type;
612: l_object_version_number_init pay_external_accounts.object_version_number%type;
613: --
614: begin
615: hr_utility.set_location('***** Entering:' || l_proc || ' *****', 5);
616: --
617: -- store initial value of IN OUT paramters,
618: -- set back to IN state if validate only is true
619: --
793: p_external_account_id := l_external_account_id_init;
794: p_object_version_number := l_object_version_number_init;
795: end if;
796: --
797: hr_utility.set_location('***** Leaving:' || l_proc || ' *****', 20);
798: end upd_or_sel;
799: --
800: END pay_exa_upd;