1 PACKAGE BODY FV_AP_TIN_PKG_PVT AS
2 -- $Header: FVXAPTNB.pls 120.4.12020000.3 2013/03/21 20:04:10 snama ship $
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 l_field_name VARCHAR2(200);
11 BEGIN
12
13
14 -- Added for bug 13769498
15 IF (instr(FIELD_NAME,'-') > 0) then
16
17 select replace(FIELD_NAME,'-','')
18 into l_field_name
19 from dual;
20
21 END IF;
22
23 IF (instr(to_char(to_number(l_field_name)),'.')=0) and (length(l_field_name)=9)
24 and (to_number(l_field_name)>0) and (instr(l_field_name,'.') = 0) THEN
25
26 /* IF (instr(to_char(to_number(FIELD_NAME)),'.')=0) and (length(FIELD_NAME)=9)
27 and (to_number(FIELD_NAME)>0) and (instr(FIELD_NAME,'.') = 0) THEN
28 */
29 -- Value can only be a nonzero nine digit value between 000000001 and
30 -- 999999999
31
32 PROC_RESULT := 'P';
33 RESULT_MESSAGE := null;
34 ELSE
35
36 PROC_RESULT := 'F';
37 RESULT_MESSAGE := 'AP_FV_TIN_VALIDATE';
38
39 END IF;
40
41 EXCEPTION
42 WHEN OTHERS then
43 l_errbuf := SQLERRM;
44 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',l_errbuf);
45 PROC_RESULT := 'F';
46 RESULT_MESSAGE := 'AP_FV_TIN_VALIDATE';
47
48 END TIN_VALIDATE;
49 END FV_AP_TIN_PKG_PVT;
[Home] [Help]