1 PACKAGE BODY IGI_IGIIACAR_XMLP_PKG AS
2 /* $Header: IGIIACARB.pls 120.0.12010000.1 2008/07/29 08:58:24 appldev ship $ */
3 FUNCTION AFTERREPORT RETURN BOOLEAN IS
4 BEGIN
5 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
6 RETURN (TRUE);
7 END AFTERREPORT;
8 function BeforeReport return boolean is
9
10 lv_message varchar2(200);
11 t_account_flex_structure NUMBER;
12
13 begin
14 if not igi_gen.is_req_installed('IAC') then
15 fnd_message.set_name('IGI','IGI_IAC_NOT_INSTALLED');
16 lv_message := fnd_message.get;
17 -- srw.message(100,lv_message);
18 RAISE_APPLICATION_ERROR(-20101,null);
19 end if;
20
21
22
23
24 Select fa.accounting_flex_structure
25 into t_account_flex_structure
26 From fa_book_controls fa
27 Where fa.book_type_code = p_book_type_code;
28
29 STRUCT_NUM := to_char(t_account_flex_structure);
30
31
32 -- SRW.REFERENCE(:STRUCT_NUM);
33
34 /* SRW.USER_EXIT('FND FLEXSQL
35 CODE="GL#"
36 APPL_SHORT_NAME="SQLGL"
37 OUTPUT=":CP_FLEX_DATA_ITEM"
38 MODE="SELECT"
39 DISPLAY="ALL"
40 NUM=":STRUCT_NUM"
41 TABLEALIAS="GL_ITEM"');*/
42
43
44 return (TRUE);
45
46
47 end;
48 FUNCTION CF_DATA_FOUNDFORMULA(CATEGORY_ID IN NUMBER) RETURN NUMBER IS
49 BEGIN
50 IF CATEGORY_ID IS NULL THEN
51 RP_DATA_FOUND := 'N';
52 ELSE
53 RP_DATA_FOUND := 'Y';
54 END IF;
55 RETURN 0;
56 END CF_DATA_FOUNDFORMULA;
57
58 FUNCTION CF_PERIOD_FROMFORMULA RETURN NUMBER IS
59 BEGIN
60 IF (P_PERIOD_COUNTER_FROM IS NOT NULL) THEN
61 SELECT
62 PERIOD_NAME
63 INTO CP_PERIOD_FROM
64 FROM
65 FA_DEPRN_PERIODS
66 WHERE PERIOD_COUNTER = P_PERIOD_COUNTER_FROM
67 AND BOOK_TYPE_CODE = P_BOOK_TYPE_CODE;
68 ELSE
69 CP_PERIOD_FROM := '-';
70 END IF;
71 RETURN (1);
72 END CF_PERIOD_FROMFORMULA;
73
74 FUNCTION CF_PERIOD_TOFORMULA RETURN NUMBER IS
75 BEGIN
76 IF (P_PERIOD_COUNTER_TO IS NOT NULL) THEN
77 SELECT
78 PERIOD_NAME
79 INTO CP_PERIOD_TO
80 FROM
81 FA_DEPRN_PERIODS
82 WHERE PERIOD_COUNTER = P_PERIOD_COUNTER_TO
83 AND BOOK_TYPE_CODE = P_BOOK_TYPE_CODE;
84 ELSE
85 CP_PERIOD_TO := '-';
86 END IF;
87 RETURN (1);
88 END CF_PERIOD_TOFORMULA;
89
90 FUNCTION CF_CURR_CODEFORMULA RETURN NUMBER IS
91 BEGIN
92 SELECT
93 A.CURRENCY_CODE
94 INTO CP_CURR_CODE
95 FROM
96 GL_SETS_OF_BOOKS A,
97 FA_BOOK_CONTROLS B
98 WHERE A.SET_OF_BOOKS_ID = B.SET_OF_BOOKS_ID
99 AND B.BOOK_TYPE_CODE = P_BOOK_TYPE_CODE;
100 RETURN (1);
101 EXCEPTION
102 WHEN OTHERS THEN
103 /*SRW.MESSAGE(100
104 ,'Failed. Currency code not defined')*/NULL;
105 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
106 RETURN (1);
107 END CF_CURR_CODEFORMULA;
108
109 FUNCTION CF_DR_AMOUNTFORMULA(DR_CR_FLAG IN VARCHAR2
110 ,AMOUNT IN NUMBER) RETURN NUMBER IS
111 BEGIN
112 IF DR_CR_FLAG = 'DR' THEN
113 CP_DR_AMOUNT := AMOUNT;
114 ELSE
115 CP_DR_AMOUNT := NULL;
116 END IF;
117 RETURN (1);
118 END CF_DR_AMOUNTFORMULA;
119
120 FUNCTION CF_CR_AMOUNTFORMULA(DR_CR_FLAG IN VARCHAR2
121 ,AMOUNT IN NUMBER) RETURN NUMBER IS
122 BEGIN
123 IF DR_CR_FLAG = 'CR' THEN
124 CP_CR_AMOUNT := AMOUNT;
125 ELSE
126 CP_CR_AMOUNT := NULL;
127 END IF;
128 RETURN (1);
129 END CF_CR_AMOUNTFORMULA;
130
131 FUNCTION CP_DR_AMOUNT_P RETURN NUMBER IS
132 BEGIN
133 RETURN CP_DR_AMOUNT;
134 END CP_DR_AMOUNT_P;
135
136 FUNCTION CP_CR_AMOUNT_P RETURN NUMBER IS
137 BEGIN
138 RETURN CP_CR_AMOUNT;
139 END CP_CR_AMOUNT_P;
140
141 FUNCTION CP_PERIOD_FROM_P RETURN VARCHAR2 IS
142 BEGIN
143 RETURN CP_PERIOD_FROM;
144 END CP_PERIOD_FROM_P;
145
146 FUNCTION CP_PERIOD_TO_P RETURN VARCHAR2 IS
147 BEGIN
148 RETURN CP_PERIOD_TO;
149 END CP_PERIOD_TO_P;
150
151 FUNCTION CP_CURR_CODE_P RETURN VARCHAR2 IS
152 BEGIN
153 RETURN CP_CURR_CODE;
154 END CP_CURR_CODE_P;
155
156 FUNCTION STRUCT_NUM_P RETURN VARCHAR2 IS
157 BEGIN
158 RETURN STRUCT_NUM;
159 END STRUCT_NUM_P;
160
161 FUNCTION CP_FLEX_DATA_ITEM_P RETURN VARCHAR2 IS
162 BEGIN
163 RETURN CP_FLEX_DATA_ITEM;
164 END CP_FLEX_DATA_ITEM_P;
165
166 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
167 BEGIN
168 RETURN RP_DATA_FOUND;
169 END RP_DATA_FOUND_P;
170
171 END IGI_IGIIACAR_XMLP_PKG;
172
[Home] [Help]