[Home] [Help]
PACKAGE BODY: APPS.JG_JGZZTAJA_XMLP_PKG
Source
1 PACKAGE BODY JG_JGZZTAJA_XMLP_PKG AS
2 /* $Header: JGZZTAJAB.pls 120.2 2007/12/25 16:03:16 npannamp noship $ */
3 function BeforeReport return boolean is
4 BEGIN
5
6
7 SELECT count(*)
8 INTO CP_ROWS_SELECTED
9 FROM jg_zz_ta_rule_sets rs,
10 fnd_lookups l,
11 jg_zz_ta_cc_ranges cc,
12 jg_zz_ta_account_ranges acc,
13 jg_zz_ta_rule_lines rl
14 WHERE rl.account_range_id = acc.account_range_id
15 AND acc.cc_range_id = cc.cc_range_id
16 AND cc.rule_set_id = rs.rule_set_id
17 AND rs.account_type = l.lookup_code(+)
18 AND NVL(l.lookup_type,'ACCOUNT_TYPE') = 'ACCOUNT_TYPE'
19 AND rs.rule_set_id = NVL(P_RULE_SET_ID,rs.rule_set_id);
20
21
22 SELECT sob.name
23 INTO C_SET_OF_BOOKS_NAME
24 FROM GL_SETS_OF_BOOKS sob
25 WHERE sob.set_of_books_id = P_SET_OF_BOOKS_ID;
26
27 IF (P_DEBUG_MODE= 'Y') THEN
28 -- SRW.BREAK;
29 null;
30 END IF;
31 return (TRUE);
32 end;
33 FUNCTION AFTERREPORT RETURN BOOLEAN IS
34 BEGIN
35 BEGIN
36 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
37 END;
38 RETURN (TRUE);
39 END AFTERREPORT;
40
41 FUNCTION C_THE_END_P RETURN VARCHAR2 IS
42 BEGIN
43 RETURN C_THE_END;
44 END C_THE_END_P;
45
46 FUNCTION C_SET_OF_BOOKS_NAME_P RETURN VARCHAR2 IS
47 BEGIN
48 RETURN C_SET_OF_BOOKS_NAME;
49 END C_SET_OF_BOOKS_NAME_P;
50
51 FUNCTION CP_DATE_FORMAT_P RETURN VARCHAR2 IS
52 BEGIN
53 RETURN CP_DATE_FORMAT;
54 END CP_DATE_FORMAT_P;
55
56 FUNCTION CP_ROWS_SELECTED_P RETURN NUMBER IS
57 BEGIN
58 RETURN CP_ROWS_SELECTED;
59 END CP_ROWS_SELECTED_P;
60
61 PROCEDURE SET_NAME(APPLICATION IN VARCHAR2
62 ,NAME IN VARCHAR2) IS
63 BEGIN
64 /* STPROC.INIT('begin FND_MESSAGE.SET_NAME(:APPLICATION, :NAME); end;');
65 STPROC.BIND_I(APPLICATION);
66 STPROC.BIND_I(NAME);
67 STPROC.EXECUTE;*/null;
68 END SET_NAME;
69
70 PROCEDURE SET_TOKEN(TOKEN IN VARCHAR2
71 ,VALUE IN VARCHAR2
72 ,TRANSLATE IN BOOLEAN) IS
73 BEGIN
74 /* STPROC.INIT('declare TRANSLATE BOOLEAN; begin TRANSLATE := sys.diutil.int_to_bool(:TRANSLATE); FND_MESSAGE.SET_TOKEN(:TOKEN, :VALUE, TRANSLATE); end;');
75 STPROC.BIND_I(TRANSLATE);
76 STPROC.BIND_I(TOKEN);
77 STPROC.BIND_I(VALUE);
78 STPROC.EXECUTE;*/null;
79 END SET_TOKEN;
80
81 PROCEDURE RETRIEVE(MSGOUT OUT NOCOPY VARCHAR2) IS
82 BEGIN
83 /* STPROC.INIT('begin FND_MESSAGE.RETRIEVE(:MSGOUT); end;');
84 STPROC.BIND_O(MSGOUT);
85 STPROC.EXECUTE;
86 STPROC.RETRIEVE(1
87 ,MSGOUT);*/null;
88 END RETRIEVE;
89
90 PROCEDURE CLEAR IS
91 BEGIN
92 /* STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
93 STPROC.EXECUTE;*/null;
94 END CLEAR;
95
96 FUNCTION GET_STRING(APPIN IN VARCHAR2
97 ,NAMEIN IN VARCHAR2) RETURN VARCHAR2 IS
98 X0 VARCHAR2(2000);
99 BEGIN
100 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET_STRING(:APPIN, :NAMEIN); end;');
101 STPROC.BIND_O(X0);
102 STPROC.BIND_I(APPIN);
103 STPROC.BIND_I(NAMEIN);
104 STPROC.EXECUTE;
105 STPROC.RETRIEVE(1
106 ,X0);*/null;
107 RETURN X0;
108 END GET_STRING;
109
110 FUNCTION GET RETURN VARCHAR2 IS
111 X0 VARCHAR2(2000);
112 BEGIN
113 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET; end;');
114 STPROC.BIND_O(X0);
115 STPROC.EXECUTE;
116 STPROC.RETRIEVE(1
117 ,X0);*/
118 RETURN X0;
119 END GET;
120
121 FUNCTION GET_ENCODED RETURN VARCHAR2 IS
122 X0 VARCHAR2(2000);
123 BEGIN
124 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET_ENCODED; end;');
125 STPROC.BIND_O(X0);
126 STPROC.EXECUTE;
127 STPROC.RETRIEVE(1
128 ,X0);*/
129 RETURN X0;
130 END GET_ENCODED;
131
132 PROCEDURE PARSE_ENCODED(ENCODED_MESSAGE IN VARCHAR2
133 ,APP_SHORT_NAME OUT NOCOPY VARCHAR2
134 ,MESSAGE_NAME OUT NOCOPY VARCHAR2) IS
135 BEGIN
136 /* STPROC.INIT('begin FND_MESSAGE.PARSE_ENCODED(:ENCODED_MESSAGE, :APP_SHORT_NAME, :MESSAGE_NAME); end;');
137 STPROC.BIND_I(ENCODED_MESSAGE);
138 STPROC.BIND_O(APP_SHORT_NAME);
139 STPROC.BIND_O(MESSAGE_NAME);
140 STPROC.EXECUTE;
141 STPROC.RETRIEVE(2
142 ,APP_SHORT_NAME);
143 STPROC.RETRIEVE(3
144 ,MESSAGE_NAME);*/null;
145 END PARSE_ENCODED;
146
147 PROCEDURE SET_ENCODED(ENCODED_MESSAGE IN VARCHAR2) IS
148 BEGIN
149 /* STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
150 STPROC.BIND_I(ENCODED_MESSAGE);
151 STPROC.EXECUTE;*/null;
152 END SET_ENCODED;
153
154 PROCEDURE RAISE_ERROR IS
155 BEGIN
156 /* STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
157 STPROC.EXECUTE;*/null;
158 END RAISE_ERROR;
159
160 PROCEDURE DEBUG(LINE IN VARCHAR2) IS
161 BEGIN
162 /* STPROC.INIT('begin CEP_STANDARD.DEBUG(:LINE); end;');
163 STPROC.BIND_I(LINE);
164 STPROC.EXECUTE;*/null;
165 END DEBUG;
166
167 PROCEDURE ENABLE_DEBUG IS
168 BEGIN
169 /* STPROC.INIT('begin CEP_STANDARD.ENABLE_DEBUG; end;');
170 STPROC.EXECUTE;*/null;
171 END ENABLE_DEBUG;
172
173 PROCEDURE DISABLE_DEBUG IS
174 BEGIN
175 /* STPROC.INIT('begin CEP_STANDARD.DISABLE_DEBUG; end;');
176 STPROC.EXECUTE;*/null;
177 END DISABLE_DEBUG;
178
179 FUNCTION GET_WINDOW_SESSION_TITLE RETURN VARCHAR2 IS
180 X0 VARCHAR2(2000);
181 BEGIN
182 /* STPROC.INIT('begin :X0 := CEP_STANDARD.GET_WINDOW_SESSION_TITLE; end;');
183 STPROC.BIND_O(X0);
184 STPROC.EXECUTE;
185 STPROC.RETRIEVE(1
186 ,X0);*/
187 RETURN X0;
188 END GET_WINDOW_SESSION_TITLE;
189
190 FUNCTION GET_EFFECTIVE_DATE(P_BANK_ACCOUNT_ID IN NUMBER
191 ,P_TRX_CODE IN VARCHAR2
192 ,P_RECEIPT_DATE IN DATE) RETURN DATE IS
193 X0 DATE;
194 BEGIN
195 /* STPROC.INIT('begin :X0 := CEP_STANDARD.GET_EFFECTIVE_DATE(:P_BANK_ACCOUNT_ID, :P_TRX_CODE, :P_RECEIPT_DATE); end;');
196 STPROC.BIND_O(X0);
197 STPROC.BIND_I(P_BANK_ACCOUNT_ID);
198 STPROC.BIND_I(P_TRX_CODE);
199 STPROC.BIND_I(P_RECEIPT_DATE);
200 STPROC.EXECUTE;
201 STPROC.RETRIEVE(1
202 ,X0);*/
203 RETURN X0;
204 END GET_EFFECTIVE_DATE;
205
206 END JG_JGZZTAJA_XMLP_PKG;
207
208