[Home] [Help]
PACKAGE BODY: APPS.FA_FAS750_XMLP_PKG
Source
1 PACKAGE BODY FA_FAS750_XMLP_PKG AS
2 /* $Header: FAS750B.pls 120.0.12010000.1 2008/07/28 13:15:27 appldev ship $ */
3 function report_nameformula(Company_Name in varchar2) return varchar2 is
4 begin
5 DECLARE
6 l_report_name VARCHAR2(80);
7 l_conc_program_id NUMBER;
8 BEGIN
9 RP_Company_Name := Company_Name;
10 SELECT cr.concurrent_program_id
11 INTO l_conc_program_id
12 FROM FND_CONCURRENT_REQUESTS cr
13 WHERE cr.program_application_id = 140
14 AND cr.request_id = P_CONC_REQUEST_ID;
15 SELECT cp.user_concurrent_program_name
16 INTO l_report_name
17 FROM FND_CONCURRENT_PROGRAMS_VL cp
18 WHERE
19 cp.concurrent_program_id= l_conc_program_id
20 and cp.application_id = 140;
21 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
22 RP_Report_Name := l_report_name;
23 RETURN(l_report_name);
24 EXCEPTION
25 WHEN OTHERS THEN
26 RP_Report_Name := ':Asset Category Listing:';
27 RETURN(RP_Report_Name);
28 END;
29 RETURN NULL; end;
30 function BeforeReport return boolean is
31 begin
32 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
33 /*SRW.USER_EXIT('FND SRWINIT');*/null;
34 return (TRUE);
35 end;
36 function AfterReport return boolean is
37 begin
38 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
39 return (TRUE);
40 end;
41 function d_lifeformula(LIFE in number, ADJ_RATE in number, PROD in number) return varchar2 is
42 begin
43 /*SRW.REFERENCE(LIFE);*/null;
44 DECLARE
45 l_life number;
46 l_adj_rate number;
47 l_bonus_rate number;
48 l_prod number;
49 l_d_life varchar2(7);
50 BEGIN
51 l_life := LIFE;
52 l_adj_rate := ADJ_RATE;
53 l_bonus_rate := NULL;
54 l_prod := PROD;
55 l_d_life := fadolif(l_life, l_adj_rate, l_bonus_rate, l_prod);
56 return(l_d_life);
57 END;
58 RETURN NULL; end;
59 --Functions to refer Oracle report placeholders--
60 Function CAT_MAJ_APROMPT_p return varchar2 is
61 Begin
62 return CAT_MAJ_APROMPT;
63 END;
64 Function RP_COMPANY_NAME_p return varchar2 is
65 Begin
66 return RP_COMPANY_NAME;
67 END;
68 Function RP_REPORT_NAME_p return varchar2 is
69 Begin
70 return RP_REPORT_NAME;
71 END;
72 --added by valli--
73 FUNCTION fadolif(life NUMBER,
74 adj_rate NUMBER,
75 bonus_rate NUMBER,
76 prod NUMBER)
77 RETURN CHAR IS
78 retval CHAR(7);
79 num_chars NUMBER;
80 temp_retval number;
81 BEGIN
82 IF life IS NOT NULL
83 THEN
84 temp_retval := fnd_number.canonical_to_number((LPAD(SUBSTR(TO_CHAR(TRUNC(life/12, 0), '999'), 2, 3),3,' ') || '.' ||
85 SUBSTR(TO_CHAR(MOD(life, 12), '00'), 2, 2)) );
86 retval := to_char(temp_retval,'999D99');
87 ELSIF adj_rate IS NOT NULL
88 THEN
89 retval := SUBSTR(TO_CHAR(ROUND((adj_rate + NVL(bonus_rate, 0))*100, 2), '990.99'),2,6) || '%';
90 ELSIF prod IS NOT NULL
91 THEN
92 retval := '';
93 ELSE
94 retval := ' ';
95 END IF;
96 return(retval);
97 END;
98 PROCEDURE VERSION IS
99 FDRCSID VARCHAR2(100);
100 BEGIN
101 FDRCSID := '$Header: FAS750B.pls 120.0.12010000.1 2008/07/28 13:15:27 appldev ship $';
102 END VERSION;
103 END FA_FAS750_XMLP_PKG ;
104