PACKAGE BODY: APPS.FV_AP_TIN_PKG

Source

1 PACKAGE BODY FV_AP_TIN_PKG AS
2 -- $Header: FVAPTNCB.pls 120.4 2003/12/17 21:19:40 ksriniva noship $
3   g_module_name VARCHAR2(100) := 'fv.plsql.FV_AP_TIN_PKG.';
4 
5 PROCEDURE TIN_VALIDATE(FIELD_NAME     IN varchar2,
6                        PROC_RESULT    OUT NOCOPY varchar2,
7                        RESULT_MESSAGE OUT NOCOPY varchar2) AS
8 
9  org_id NUMBER := to_number(fnd_profile.value('ORG_ID'));
10  l_module_name VARCHAR2(200) := g_module_name || 'TIN_VALIDATE';
11  l_errbuf VARCHAR2(1024);
12 
13 BEGIN
14 
15 	-- --------------------------------------
16 	-- Created to be used to implement
17 	-- TIN Validation.  The code hook call will reside in the package
18 	-- po_validate_nifvat.po_coordinate_validation in povlnifb.pls
19 	-- ------------------------------------------
20 
21      IF fv_install.enabled(org_id) THEN
22 
23         -- FV is enabled to call TIN Validation routine
24         fv_ap_tin_pkg_pvt.tin_validate(FIELD_NAME,PROC_RESULT,RESULT_MESSAGE);
25 
26      END IF;
27 
28 EXCEPTION
29   WHEN OTHERS THEN
30       l_errbuf := SQLERRM;
31       FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',l_errbuf);
32       RAISE;
33 END TIN_VALIDATE;
34 
35 END FV_AP_TIN_PKG;