[Home] [Help]
PACKAGE BODY: APPS.FA_FAS824_XMLP_PKG
Source
1 PACKAGE BODY FA_FAS824_XMLP_PKG AS
2 /* $Header: FAS824B.pls 120.0.12010000.1 2008/07/28 13:15:43 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 L_PRECISION NUMBER(15);
10 BEGIN
11 SELECT
12 BC.BOOK_TYPE_CODE,
13 BC.ACCOUNTING_FLEX_STRUCTURE,
14 SOB.CURRENCY_CODE,
15 CUR.PRECISION
16 INTO L_BOOK,L_ACCOUNTING_FLEX_STRUCTURE,L_CURRENCY_CODE,L_PRECISION
17 FROM
18 FA_BOOK_CONTROLS BC,
19 GL_SETS_OF_BOOKS SOB,
20 FND_CURRENCIES CUR
21 WHERE BC.BOOK_TYPE_CODE = P_BOOK
22 AND SOB.SET_OF_BOOKS_ID = BC.SET_OF_BOOKS_ID
23 AND SOB.CURRENCY_CODE = CUR.CURRENCY_CODE;
24 ACCOUNTING_FLEX_STRUCTURE := L_ACCOUNTING_FLEX_STRUCTURE;
25 CURRENCY_CODE := L_CURRENCY_CODE;
26 P_MIN_PRECISION := L_PRECISION;
27 RETURN (L_BOOK);
28 END;
29 RETURN NULL;
30 END BOOKFORMULA;
31 FUNCTION REPORT_NAMEFORMULA(COMPANY_NAME IN VARCHAR2
32 ,LAST_MASS_ADDITIONS_POST IN NUMBER) RETURN VARCHAR2 IS
33 BEGIN
34 DECLARE
35 L_REPORT_NAME VARCHAR2(80);
36 L_CONC_PROGRAM_ID NUMBER;
37 BEGIN
38 RP_COMPANY_NAME := COMPANY_NAME;
39 RP_REQUEST_ID := LTRIM(TO_CHAR(LAST_MASS_ADDITIONS_POST));
40 SELECT
41 CR.CONCURRENT_PROGRAM_ID
42 INTO L_CONC_PROGRAM_ID
43 FROM
44 FND_CONCURRENT_REQUESTS CR
45 WHERE CR.PROGRAM_APPLICATION_ID = 140
46 AND CR.REQUEST_ID = P_CONC_REQUEST_ID;
47 SELECT
48 CP.USER_CONCURRENT_PROGRAM_NAME
49 INTO L_REPORT_NAME
50 FROM
51 FND_CONCURRENT_PROGRAMS_VL CP
52 WHERE CP.CONCURRENT_PROGRAM_ID = L_CONC_PROGRAM_ID
53 AND CP.APPLICATION_ID = 140;
54 L_REPORT_NAME := substr(L_REPORT_NAME,1,instr(L_REPORT_NAME,' (XML)'));
55 RP_REPORT_NAME := L_REPORT_NAME;
56 RETURN (L_REPORT_NAME);
57 EXCEPTION
58 WHEN OTHERS THEN
59 RP_REPORT_NAME := 'MASS ADDITIONS POSTING REPORT';
60 RETURN ('MASS ADDITIONS POSTING REPORT');
61 END;
62 RETURN NULL;
63 END REPORT_NAMEFORMULA;
64 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
65 BEGIN
66 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
67 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
68 RETURN (TRUE);
69 END BEFOREREPORT;
70 FUNCTION AFTERREPORT RETURN BOOLEAN IS
71 BEGIN
72 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
73 RETURN (TRUE);
74 END AFTERREPORT;
75 FUNCTION NEW_COSTFORMULA(SUM_UNITS IN VARCHAR2
76 ,COST IN NUMBER
77 ,FIXED_ASSETS_UNITS IN NUMBER
78 ,MASS_ADDITION_ID IN NUMBER) RETURN NUMBER IS
79 L_SUM_UNITS NUMBER;
80 L_COST NUMBER;
81 L_NEW_COST NUMBER;
82 BEGIN
83 /*SRW.REFERENCE(SUM_UNITS)*/NULL;
84 /*SRW.REFERENCE(COST)*/NULL;
85 /*SRW.REFERENCE(FIXED_ASSETS_UNITS)*/NULL;
86 /*SRW.REFERENCE(MASS_ADDITION_ID)*/NULL;
87 IF (SUM_UNITS = 'YES') THEN
88 SELECT
89 SUM(UNITS)
90 INTO L_SUM_UNITS
91 FROM
92 FA_MASSADD_DISTRIBUTIONS
93 WHERE MASS_ADDITION_ID = MASS_ADDITION_ID;
94 L_NEW_COST := COST / L_SUM_UNITS;
95 ELSE
96 L_NEW_COST := COST / FIXED_ASSETS_UNITS;
97 END IF;
98 L_NEW_COST := ROUND(L_NEW_COST
99 ,2);
100 RETURN (L_NEW_COST);
101 EXCEPTION
102 WHEN OTHERS THEN
103 RAISE;
104 END NEW_COSTFORMULA;
105 FUNCTION ACCOUNTING_FLEX_STRUCTURE_P RETURN NUMBER IS
106 BEGIN
107 RETURN ACCOUNTING_FLEX_STRUCTURE;
108 END ACCOUNTING_FLEX_STRUCTURE_P;
109 FUNCTION ACCT_BAL_APROMPT_P RETURN VARCHAR2 IS
110 BEGIN
111 RETURN ACCT_BAL_APROMPT;
112 END ACCT_BAL_APROMPT_P;
113 FUNCTION ACCT_CC_APROMPT_P RETURN VARCHAR2 IS
114 BEGIN
115 RETURN ACCT_CC_APROMPT;
116 END ACCT_CC_APROMPT_P;
117 FUNCTION CURRENCY_CODE_P RETURN VARCHAR2 IS
118 BEGIN
119 RETURN CURRENCY_CODE;
120 END CURRENCY_CODE_P;
121 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
122 BEGIN
123 RETURN RP_COMPANY_NAME;
124 END RP_COMPANY_NAME_P;
125 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
126 BEGIN
127 RETURN RP_REPORT_NAME;
128 END RP_REPORT_NAME_P;
129 FUNCTION RP_REQUEST_ID_P RETURN VARCHAR2 IS
130 BEGIN
131 RETURN RP_REQUEST_ID;
132 END RP_REQUEST_ID_P;
133 FUNCTION RP_BAL_APROMPT_P RETURN VARCHAR2 IS
134 BEGIN
135 RETURN RP_BAL_APROMPT;
136 END RP_BAL_APROMPT_P;
137 FUNCTION RP_CC_APROMPT_P RETURN VARCHAR2 IS
138 BEGIN
139 RETURN RP_CC_APROMPT;
140 END RP_CC_APROMPT_P;
141 END FA_FAS824_XMLP_PKG;
142