PACKAGE BODY: APPS.FV_AP_TIN_PKG_PVT

Source

1 PACKAGE BODY FV_AP_TIN_PKG_PVT AS
2 -- $Header: FVXAPTNB.pls 120.4 2003/12/17 21:21:31 ksriniva noship $
3   g_module_name VARCHAR2(100) := 'fv.plsql.FV_AP_TIN_PKG_PVT.';
4 
5 PROCEDURE TIN_VALIDATE(FIELD_NAME     IN varchar2,
6                        PROC_RESULT    OUT NOCOPY varchar2,
7                        RESULT_MESSAGE OUT NOCOPY varchar2) AS
8   l_module_name VARCHAR2(200) := g_module_name || 'TIN_VALIDATE';
9   l_errbuf      VARCHAR2(1024);
10 BEGIN
11 
12     IF (instr(to_char(to_number(FIELD_NAME)),'.')=0) and (length(FIELD_NAME)=9)
13        and (to_number(FIELD_NAME)>0) and (instr(FIELD_NAME,'.') = 0) THEN
14 
15        -- Value can only be a nonzero nine digit value between 000000001 and
16        -- 999999999
17 
18        PROC_RESULT := 'P';
19        RESULT_MESSAGE := null;
20     ELSE
21 
22        PROC_RESULT := 'F';
23        RESULT_MESSAGE := 'AP_FV_TIN_VALIDATE';
24 
25     END IF;
26 
27 EXCEPTION
28     WHEN OTHERS then
29        l_errbuf := SQLERRM;
30        FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',l_errbuf);
31        PROC_RESULT := 'F';
32        RESULT_MESSAGE := 'AP_FV_TIN_VALIDATE';
33 
34 END TIN_VALIDATE;
35 END FV_AP_TIN_PKG_PVT;