[Home] [Help]
PACKAGE BODY: APPS.JL_JLCOFADR_XMLP_PKG
Source
1 PACKAGE BODY JL_JLCOFADR_XMLP_PKG AS
2 /* $Header: JLCOFADRB.pls 120.1 2007/12/25 16:44:31 dwkrishn noship $ */
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 BEGIN
13 SELECT
14 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 INTO L_BOOK,L_BOOK_CLASS,L_ACCOUNTING_FLEX_STRUCTURE,L_DISTRIBUTION_SOURCE_BOOK,L_CURRENCY_CODE,L_PRECISION
21 FROM
22 FA_BOOK_CONTROLS BC,
23 GL_SETS_OF_BOOKS SOB,
24 FND_CURRENCIES CUR
25 WHERE BC.BOOK_TYPE_CODE = P_BOOK
26 AND SOB.SET_OF_BOOKS_ID = BC.SET_OF_BOOKS_ID
27 AND SOB.CURRENCY_CODE = CUR.CURRENCY_CODE;
28 BOOK_CLASS := L_BOOK_CLASS;
29 ACCOUNTING_FLEX_STRUCTURE := L_ACCOUNTING_FLEX_STRUCTURE;
30 DISTRIBUTION_SOURCE_BOOK := L_DISTRIBUTION_SOURCE_BOOK;
31 CURRENCY_CODE := L_CURRENCY_CODE;
32 P_MIN_PRECISION := L_PRECISION;
33 RETURN (L_BOOK);
34 END;
35 RETURN NULL;
36 END BOOKFORMULA;
37 FUNCTION PERIOD1FORMULA(COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
38 BEGIN
39 DECLARE
40 L_PERIOD_NAME VARCHAR2(15);
41 L_PERIOD_POD DATE;
42 L_PERIOD_PCD DATE;
43 L_PERIOD_PC NUMBER(15);
44 L_PERIOD_FY NUMBER(15);
45 BEGIN
46 RP_COMPANY_NAME := COMPANY_NAME;
47 SELECT
48 PERIOD_NAME,
49 PERIOD_COUNTER,
50 PERIOD_OPEN_DATE,
51 NVL(PERIOD_CLOSE_DATE
52 ,SYSDATE),
53 FISCAL_YEAR
54 INTO L_PERIOD_NAME,L_PERIOD_PC,L_PERIOD_POD,L_PERIOD_PCD,L_PERIOD_FY
55 FROM
56 FA_DEPRN_PERIODS
57 WHERE BOOK_TYPE_CODE = P_BOOK
58 AND PERIOD_NAME = P_PERIOD1;
59 PERIOD1_PC := L_PERIOD_PC;
60 PERIOD1_POD := L_PERIOD_POD;
61 PERIOD1_PCD := L_PERIOD_PCD;
62 PERIOD1_FY := L_PERIOD_FY;
63 RETURN (L_PERIOD_NAME);
64 END;
65 RETURN NULL;
66 END PERIOD1FORMULA;
67 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
68 L_BATCH_ID_TEXT VARCHAR2(2000);
69 L_LINE_NUM_TEXT VARCHAR2(2000);
70 L_P_ACCT_CCID_TEXT VARCHAR2(2000);
71 L_TEXT VARCHAR2(2000);
72 BEGIN
73 IF P_BATCH_ID IS NULL THEN
74 L_BATCH_ID_TEXT := ' ';
75 ELSE
76 L_BATCH_ID_TEXT := ' and jh.je_batch_id = :P_BATCH_ID ';
77 END IF;
78 IF P_LINE_NUM IS NULL THEN
79 L_LINE_NUM_TEXT := ' ';
80 ELSE
81 L_LINE_NUM_TEXT := ' and jl_1.je_line_num = :P_LINE_NUM ';
82 END IF;
83 IF P_ACCT_CCID IS NULL THEN
84 L_P_ACCT_CCID_TEXT := ' ';
85 ELSE
86 L_P_ACCT_CCID_TEXT := ' and aj.code_combination_id = :P_ACCT_CCID ';
87 END IF;
88 L_TEXT := L_BATCH_ID_TEXT || L_LINE_NUM_TEXT || L_P_ACCT_CCID_TEXT;
89 CP_OPTIONAL_PARAMETERS := L_TEXT;
90 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
91 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
92 RETURN (TRUE);
93 END BEFOREREPORT;
94 FUNCTION AFTERREPORT RETURN BOOLEAN IS
95 BEGIN
96 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
97 RETURN (TRUE);
98 END AFTERREPORT;
99 FUNCTION F_COMP_NAMEFORMULA(COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
100 BEGIN
101 RP_COMPANY_NAME := COMPANY_NAME;
102 RETURN NULL;
103 END F_COMP_NAMEFORMULA;
104 FUNCTION ACCOUNTING_FLEX_STRUCTURE_P RETURN NUMBER IS
105 BEGIN
106 RETURN ACCOUNTING_FLEX_STRUCTURE;
107 END ACCOUNTING_FLEX_STRUCTURE_P;
108 FUNCTION ACCT_BAL_APROMPT_P RETURN VARCHAR2 IS
109 BEGIN
110 RETURN ACCT_BAL_APROMPT;
111 END ACCT_BAL_APROMPT_P;
112 FUNCTION ACCT_CC_APROMPT_P RETURN VARCHAR2 IS
113 BEGIN
114 RETURN ACCT_CC_APROMPT;
115 END ACCT_CC_APROMPT_P;
116 FUNCTION CAT_MAJ_APROMPT_P RETURN VARCHAR2 IS
117 BEGIN
118 RETURN CAT_MAJ_APROMPT;
119 END CAT_MAJ_APROMPT_P;
120 FUNCTION CURRENCY_CODE_P RETURN VARCHAR2 IS
121 BEGIN
122 RETURN CURRENCY_CODE;
123 END CURRENCY_CODE_P;
124 FUNCTION BOOK_CLASS_P RETURN VARCHAR2 IS
125 BEGIN
126 RETURN BOOK_CLASS;
127 END BOOK_CLASS_P;
128 FUNCTION DISTRIBUTION_SOURCE_BOOK_P RETURN VARCHAR2 IS
129 BEGIN
130 RETURN DISTRIBUTION_SOURCE_BOOK;
131 END DISTRIBUTION_SOURCE_BOOK_P;
132 FUNCTION PERIOD1_PC_P RETURN NUMBER IS
133 BEGIN
134 RETURN PERIOD1_PC;
135 END PERIOD1_PC_P;
136 FUNCTION PERIOD1_PCD_P RETURN DATE IS
137 BEGIN
138 RETURN PERIOD1_PCD;
139 END PERIOD1_PCD_P;
140 FUNCTION PERIOD1_POD_P RETURN DATE IS
141 BEGIN
142 RETURN PERIOD1_POD;
143 END PERIOD1_POD_P;
144 FUNCTION PERIOD1_FY_P RETURN NUMBER IS
145 BEGIN
146 RETURN PERIOD1_FY;
147 END PERIOD1_FY_P;
148 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
149 BEGIN
150 RETURN RP_COMPANY_NAME;
151 END RP_COMPANY_NAME_P;
152 FUNCTION CP_OPTIONAL_PARAMETERS_P RETURN VARCHAR2 IS
153 BEGIN
154 RETURN CP_OPTIONAL_PARAMETERS;
155 END CP_OPTIONAL_PARAMETERS_P;
156 END JL_JLCOFADR_XMLP_PKG;
157
158
159