[Home] [Help]
PACKAGE BODY: APPS.FA_FASWIPAS_XMLP_PKG
Source
1 PACKAGE BODY FA_FASWIPAS_XMLP_PKG AS
2 /* $Header: FASWIPASB.pls 120.0.12010000.1 2008/07/28 13:17:50 appldev ship $ */
3
4 function report_nameformula(Company_Name in varchar2) return varchar2 is
5 begin
6
7
8 DECLARE
9 l_report_name VARCHAR2(80);
10 l_conc_program_id NUMBER;
11 BEGIN
12 RP_Company_Name := Company_Name;
13
14 SELECT cr.concurrent_program_id
15 INTO l_conc_program_id
16 FROM FND_CONCURRENT_REQUESTS cr
17 WHERE cr.program_application_id = 140
18 AND cr.request_id = P_CONC_REQUEST_ID;
19
20 SELECT cp.user_concurrent_program_name
21 INTO l_report_name
22 FROM FND_CONCURRENT_PROGRAMS_VL cp
23 WHERE
24 cp.concurrent_program_id= l_conc_program_id
25 and cp.application_id = 140;
26 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
27 RP_Report_Name := l_report_name;
28 RETURN(l_report_name);
29
30 EXCEPTION
31 WHEN OTHERS THEN
32 RP_Report_Name := ':Construction in Process Assets Report:';
33 RETURN(RP_REPORT_NAME);
34 END;
35 RETURN NULL; end;
36
37 function BeforeReport return boolean is
38 begin
39 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
40
41 /*SRW.USER_EXIT('FND SRWINIT');*/null;
42 return (TRUE);
43 end;
44
45 function AfterReport return boolean is
46 begin
47
48 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
49 return (TRUE);
50 end;
51
52 function Period1_PCFormula return Number is
53 begin
54
55 DECLARE
56 l_period_POD DATE;
57 l_period_PCD DATE;
58 l_period_PC NUMBER(15);
59 l_period_FY NUMBER(15);
60 BEGIN
61 SELECT period_counter,
62 period_open_date,
63 nvl(period_close_date, sysdate),
64 fiscal_year
65 INTO l_period_PC,
66 l_period_POD,
67 l_period_PCD,
68 l_period_FY
69 FROM FA_DEPRN_PERIODS
70 WHERE book_type_code = P_BOOK
71 AND period_name = P_PERIOD1;
72
73 Period1_POD := l_period_POD;
74 Period1_PCD := l_period_PCD;
75 Period1_FY := l_period_FY;
76 return(l_period_PC);
77 END;
78 RETURN NULL; end;
79
80 --Functions to refer Oracle report placeholders--
81
82 Function ACCT_BAL_APROMPT_p return varchar2 is
83 Begin
84 return ACCT_BAL_APROMPT;
85 END;
86 Function ACCT_CC_APROMPT_p return varchar2 is
87 Begin
88 return ACCT_CC_APROMPT;
89 END;
90 Function CAT_MAJ_RPROMPT_p return varchar2 is
91 Begin
92 return CAT_MAJ_RPROMPT;
93 END;
94 Function Period1_POD_p return date is
95 Begin
96 return Period1_POD;
97 END;
98 Function Period1_PCD_p return date is
99 Begin
100 return Period1_PCD;
101 END;
102 Function Period1_FY_p return number is
103 Begin
104 return Period1_FY;
105 END;
106 Function RP_COMPANY_NAME_p return varchar2 is
107 Begin
108 return RP_COMPANY_NAME;
109 END;
110 Function RP_REPORT_NAME_p return varchar2 is
111 Begin
112 return RP_REPORT_NAME;
113 END;
114 Function RP_BAL_LPROMPT_p(ACCT_BAL_LPROMPT VARCHAR2)return varchar2 is
115 Begin
116 RP_BAL_LPROMPT:=ACCT_BAL_LPROMPT;
117 return RP_BAL_LPROMPT;
118 END;
119 Function RP_CC_LPROMPT_p(ACCT_CC_LPROMPT VARCHAR2) return varchar2 is
120 Begin
121 RP_CC_LPROMPT:=ACCT_CC_LPROMPT;
122 return RP_CC_LPROMPT;
123 END;
124 END FA_FASWIPAS_XMLP_PKG ;
125