[Home] [Help]
PACKAGE BODY: APPS.FA_FAS600_XMLP_PKG
Source
1 PACKAGE BODY FA_FAS600_XMLP_PKG AS
2 /* $Header: FAS600B.pls 120.0.12010000.1 2008/07/28 13:15:13 appldev ship $ */
3 function BookFormula return VARCHAR2 is
4 begin
5 DECLARE
6 l_book VARCHAR2(15);
7 l_book_class VARCHAR2(15);
8 l_accounting_flex_structure NUMBER(15);
9 l_currency_code VARCHAR2(15);
10 l_distribution_source_book VARCHAR2(15);
11 l_precision NUMBER(15);
12 l_current_fiscal_year NUMBER(15);
13 BEGIN
14 SELECT bc.book_type_code,
15 bc.book_class,
16 bc.accounting_flex_structure,
17 bc.distribution_source_book,
18 sob.currency_code,
19 cur.precision,
20 bc.current_fiscal_year
21 INTO l_book,
22 l_book_class,
23 l_accounting_flex_Structure,
24 l_distribution_source_book,
25 l_currency_code,
26 l_precision,
27 l_current_fiscal_year
28 FROM FA_BOOK_CONTROLS bc,
29 GL_SETS_OF_BOOKS sob,
30 FND_CURRENCIES cur
31 WHERE bc.book_type_code = P_BOOK
32 AND sob.set_of_books_id = bc.set_of_books_id
33 AND sob.currency_code = cur.currency_code;
34 Book_Class := l_book_class;
35 Accounting_Flex_Structure:=l_accounting_flex_structure;
36 Distribution_SOurce_Book :=l_distribution_source_book;
37 Currency_Code := l_currency_code;
38 P_Min_Precision := l_precision;
39 Current_Fiscal_Year := l_current_fiscal_year;
40 return(l_book);
41 END;
42 RETURN NULL; end;
43 function report_nameformula(Company_Name in varchar2) return varchar2 is
44 begin
45 DECLARE
46 l_report_name VARCHAR2(80);
47 BEGIN
48 --Added during DT Fix
49 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
50 --End of DT Fix
51 RP_Company_Name := Company_Name;
52 SELECT cp.user_concurrent_program_name
53 INTO l_report_name
54 FROM FND_CONCURRENT_PROGRAMS_VL cp,
55 FND_CONCURRENT_REQUESTS cr
56 WHERE cr.request_id = P_CONC_REQUEST_ID
57 AND cp.application_id = cr.program_application_id
58 AND cp.concurrent_program_id=cr.concurrent_program_id;
59 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
60 RP_Report_Name := l_report_name;
61 RETURN(l_report_name);
62 EXCEPTION
63 WHEN OTHERS THEN
64 RP_Report_Name := ':Asset Register Report:';
65 RETURN(RP_Report_Name);
66 END;
67 RETURN NULL; end;
68 function BeforeReport return boolean is
69 begin
70 /*SRW.USER_EXIT('FND SRWINIT');*/null;
71 return (TRUE);
72 end;
73 function AfterReport return boolean is
74 begin
75 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
76 return (TRUE);
77 end;
78 --Functions to refer Oracle report placeholders--
79 Function Current_Fiscal_Year_p return number is
80 Begin
81 return Current_Fiscal_Year;
82 END;
83 Function Accounting_Flex_Structure_p return number is
84 Begin
85 return Accounting_Flex_Structure;
86 END;
87 Function ACCT_BAL_APROMPT_p return varchar2 is
88 Begin
89 return ACCT_BAL_APROMPT;
90 END;
91 Function ACCT_CC_APROMPT_p return varchar2 is
92 Begin
93 return ACCT_CC_APROMPT;
94 END;
95 Function CAT_MAJ_APROMPT_p return varchar2 is
96 Begin
97 return CAT_MAJ_APROMPT;
98 END;
99 Function Currency_Code_p return varchar2 is
100 Begin
101 return Currency_Code;
102 END;
103 Function Book_Class_p return varchar2 is
104 Begin
105 return Book_Class;
106 END;
107 Function Distribution_Source_Book_p return varchar2 is
108 Begin
109 return Distribution_Source_Book;
110 END;
111 Function RP_COMPANY_NAME_p return varchar2 is
112 Begin
113 return RP_COMPANY_NAME;
114 END;
115 Function RP_REPORT_NAME_p return varchar2 is
116 Begin
117 return RP_REPORT_NAME;
118 END;
119 Function RP_MAJ_LPROMPT_p return varchar2 is
120 Begin
121 return RP_MAJ_LPROMPT;
122 END;
123 END FA_FAS600_XMLP_PKG ;
124