[Home] [Help]
PACKAGE BODY: APPS.FA_FAS430_XMLP_PKG
Source
1 PACKAGE BODY FA_FAS430_XMLP_PKG AS
2 /* $Header: FAS430B.pls 120.0.12010000.1 2008/07/28 13:14:26 appldev ship $ */
3 function BookFormula return VARCHAR2 is
4 begin
5 DECLARE
6 l_book VARCHAR2(15);
7 l_accounting_flex_structure NUMBER(15);
8 l_currency_code VARCHAR2(15);
9 BEGIN
10 SELECT bc.book_type_code,
11 bc.accounting_flex_structure,
12 sob.currency_code
13 INTO l_book,
14 l_accounting_flex_Structure,
15 l_currency_code
16 FROM FA_BOOK_CONTROLS bc,
17 GL_SETS_OF_BOOKS sob
18 WHERE bc.book_type_code = P_BOOK
19 AND sob.set_of_books_id = bc.set_of_books_id;
20 Accounting_Flex_Structure:=l_accounting_flex_structure;
21 Currency_Code := l_currency_code;
22 rp_currency_code := l_currency_code;
23 return(l_book);
24 END;
25 RETURN NULL; end;
26 function Period1Formula return VARCHAR2 is
27 begin
28 DECLARE
29 l_period_name VARCHAR2(15);
30 l_period_POD DATE;
31 l_period_PCD DATE;
32 l_period_PC NUMBER(15);
33 BEGIN
34 SELECT period_name,
35 period_counter,
36 period_open_date,
37 nvl(period_close_date, sysdate)
38 INTO l_period_name,
39 l_period_PC,
40 l_period_POD,
41 l_period_PCD
42 FROM FA_DEPRN_PERIODS
43 WHERE book_type_code = P_BOOK
44 AND period_name = P_PERIOD1;
45 Period1_PC := l_period_PC;
46 Period1_POD := l_period_POD;
47 Period1_PCD := l_period_PCD;
48 return(l_period_name);
49 END;
50 RETURN NULL; end;
51 function report_nameformula(Company_Name in varchar2, ACCT_BAL_APROMPT in varchar2, ACCT_CC_APROMPT in varchar2) return varchar2 is
52 begin
53 DECLARE
54 l_report_name VARCHAR2(80);
55 l_conc_program_id NUMBER;
56 BEGIN
57 --Added during DT Fix
58 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
59 --End of DT Fix
60 RP_Company_Name := Company_Name;
61 RP_BAL_APROMPT := ACCT_BAL_APROMPT;
62 RP_CC_APROMPT := ACCT_CC_APROMPT;
63 SELECT cr.concurrent_program_id
64 INTO l_conc_program_id
65 FROM FND_CONCURRENT_REQUESTS cr
66 WHERE cr.program_application_id = 140
67 AND cr.request_id = P_CONC_REQUEST_ID;
68 SELECT cp.user_concurrent_program_name
69 INTO l_report_name
70 FROM FND_CONCURRENT_PROGRAMS_VL cp
71 WHERE
72 cp.concurrent_program_id= l_conc_program_id
73 and cp.application_id = 140;
74 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
75 RP_Report_Name := l_report_name;
76 RETURN(l_report_name);
77 EXCEPTION
78 WHEN OTHERS THEN
79 RP_Report_Name := ':Asset Transfers Report:';
80 RETURN(RP_Report_Name);
81 END;
82 RETURN NULL; end;
83 function BeforeReport return boolean is
84 begin
85 /*SRW.USER_EXIT('FND SRWINIT');*/null;
86 return (TRUE);
87 end;
88 function AfterReport return boolean is
89 begin
90 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
91 return (TRUE);
92 end;
93 --Functions to refer Oracle report placeholders--
94 Function Accounting_Flex_Structure_p return number is
95 Begin
96 return Accounting_Flex_Structure;
97 END;
98 Function Currency_Code_p return varchar2 is
99 Begin
100 return Currency_Code;
101 END;
102 Function Period1_PC_p return number is
103 Begin
104 return Period1_PC;
105 END;
106 Function Period1_PCD_p return date is
107 Begin
108 return Period1_PCD;
109 END;
110 Function Period1_POD_p return date is
111 Begin
112 return Period1_POD;
113 END;
114 Function RP_COMPANY_NAME_p return varchar2 is
115 Begin
116 return RP_COMPANY_NAME;
117 END;
118 Function RP_REPORT_NAME_p return varchar2 is
119 Begin
120 return RP_REPORT_NAME;
121 END;
122 Function RP_DATA_FOUND_p return varchar2 is
123 Begin
124 return RP_DATA_FOUND;
125 END;
126 Function RP_BAL_APROMPT_p return varchar2 is
127 Begin
128 return RP_BAL_APROMPT;
129 END;
130 Function RP_CC_APROMPT_p return varchar2 is
131 Begin
132 return RP_CC_APROMPT;
133 END;
134 Function RP_CURRENCY_CODE_p return varchar2 is
135 Begin
136 return RP_CURRENCY_CODE;
137 END;
138 function D_AS_COSTFormula return VARCHAR2 is
139 begin
140 RP_DATA_FOUND := 'YES';
141 return '1';
142 end;
143 END FA_FAS430_XMLP_PKG ;
144