[Home] [Help]
PACKAGE BODY: APPS.AP_CARD_DATABASE_PKG
Source
1 PACKAGE BODY AP_CARD_DATABASE_PKG AS
2 /* $Header: apwpcdbb.pls 115.4 2003/01/29 18:49:24 rlandows noship $ */
3
4 -------------------------------------------------------------------------------
5 FUNCTION GetCardProgramCurrencyCode(
6 p_card_prog_id IN cardProgs_cardProgID,
7 p_curr_code OUT NOCOPY cardProgs_cardProgCurrCode
8 ) RETURN BOOLEAN IS
9 -------------------------------------------------------------------------------
10 BEGIN
11
12 SELECT card_program_currency_code
13 INTO p_curr_code
14 FROM ap_card_programs
15 WHERE card_program_id = p_card_prog_id;
16
17 RETURN TRUE;
18
19 EXCEPTION
20 WHEN NO_DATA_FOUND THEN
21 RETURN FALSE;
22
23 WHEN OTHERS THEN
24 AP_CARD_DATABASE_PKG.RaiseException( 'GetCardProgramCurrencyCode' );
25 APP_EXCEPTION.RAISE_EXCEPTION;
26 return FALSE;
27
28 END GetCardProgramCurrencyCode;
29
30 -------------------------------------------------------------------------------
31 FUNCTION GetLookupCodesCursor(p_lookup_type IN lookupCodes_lookupType,
32 p_lookup_codes OUT NOCOPY LookupCodesCursor)
33 RETURN BOOLEAN IS
34 -------------------------------------------------------------------------------
35 BEGIN
36 OPEN p_lookup_codes FOR
37 SELECT lookup_code, displayed_field
38 FROM ap_lookup_codes
39 WHERE lookup_type = p_lookup_type;
40
41 RETURN TRUE;
42 EXCEPTION
43 WHEN NO_DATA_FOUND THEN
44 RETURN FALSE;
45 WHEN OTHERS THEN
46 AP_CARD_DATABASE_PKG.RaiseException('GetLookupCodesCursor');
47 APP_EXCEPTION.RAISE_EXCEPTION;
48 return FALSE;
49 END GetLookupCodesCursor;
50
51 -------------------------------------------------------------------------------
52 FUNCTION GetCurrCodeProperties(
53 p_curr_code IN curr_currCode,
54 p_curr_name OUT NOCOPY curr_name,
55 p_precision OUT NOCOPY curr_precision,
56 p_minimum_acct_unit OUT NOCOPY curr_minAcctUnit
57 ) RETURN BOOLEAN IS
58 -------------------------------------------------------------------------------
59 BEGIN
60 SELECT fndcvl.name,
61 NVL(fndcvl.precision,0),
62 fndcvl.minimum_accountable_unit
63 INTO p_curr_name,
64 p_precision,
65 p_minimum_acct_unit
66 FROM fnd_currencies_vl fndcvl
67 WHERE currency_code = p_curr_code;
68
69 RETURN TRUE;
70 EXCEPTION
71
72 WHEN NO_DATA_FOUND THEN
73 RETURN FALSE;
74
75 WHEN OTHERS THEN
76 AP_CARD_DATABASE_PKG.RaiseException( 'GetCurrCodeProperties' );
77 APP_EXCEPTION.RAISE_EXCEPTION;
78 return FALSE;
79 END GetCurrCodeProperties;
80
81 -------------------------------------------------------------------------------
82 FUNCTION GetCOAofSOB(
83 p_chart_of_accounts OUT NOCOPY glsob_chartOfAccountsID
84 ) RETURN BOOLEAN IS
85 -------------------------------------------------------------------------------
86 BEGIN
87 SELECT GS.chart_of_accounts_id
88 INTO p_chart_of_accounts
89 FROM ap_system_parameters S,
90 gl_sets_of_books GS
91 WHERE GS.set_of_books_id = S.set_of_books_id;
92
93 RETURN TRUE;
94
95 EXCEPTION
96 WHEN NO_DATA_FOUND THEN
97 RETURN FALSE;
98
99 WHEN OTHERS THEN
100 AP_CARD_DATABASE_PKG.RaiseException( 'GetCOAOfSOB' );
101 APP_EXCEPTION.RAISE_EXCEPTION;
102 return FALSE;
103
104 END GetCOAofSOB;
105
106 -------------------------------------------------------------------------------
107 FUNCTION GetAKPageRowID(P_FROM_REGION_CODE IN flowReg_fromRegionCode,
108 P_FROM_PAGE_CODE IN flowReg_fromPageCode,
109 P_TO_PAGE_CODE IN flowReg_toPageCode,
110 P_FLOW_CODE IN flowReg_flowCode,
111 P_APPLICATION_ID IN flowReg_flowApplID,
112 P_ROW_ID OUT NOCOPY VARCHAR2)
113 RETURN BOOLEAN IS
114 -------------------------------------------------------------------------------
115 BEGIN
116
117 SELECT rowidtochar(ROWID)
118 INTO P_ROW_ID
119 FROM AK_FLOW_REGION_RELATIONS
120 WHERE FROM_REGION_CODE = P_FROM_REGION_CODE
121 AND FROM_REGION_APPL_ID = P_APPLICATION_ID
122 AND FROM_PAGE_CODE = P_FROM_PAGE_CODE
123 AND FROM_PAGE_APPL_ID = P_APPLICATION_ID
124 AND TO_PAGE_CODE = P_TO_PAGE_CODE
125 AND TO_PAGE_APPL_ID = P_APPLICATION_ID
126 AND FLOW_CODE = P_FLOW_CODE
127 AND FLOW_APPLICATION_ID = P_APPLICATION_ID;
128
129 RETURN TRUE;
130 EXCEPTION
131 WHEN NO_DATA_FOUND THEN
132 RETURN FALSE;
133 WHEN OTHERS THEN
134 AP_CARD_DATABASE_PKG.RaiseException('GetAKPageRowID');
135 APP_EXCEPTION.RAISE_EXCEPTION;
136 return FALSE;
137 END GetAKPageRowID;
138
139
140 -------------------------------------------------------------------------------
141 FUNCTION GetEmployeeInfo(p_employee_id IN empCurrent_employeeID,
142 p_emp_info_rec OUT NOCOPY EmployeeInfoRec
143 ) RETURN BOOLEAN IS
144 -------------------------------------------------------------------------------
145 BEGIN
146 SELECT EMP.full_name,
147 EMP.employee_num,
148 EMP.default_code_combination_id
149 INTO p_emp_info_rec.employee_name,
150 p_emp_info_rec.employee_num,
151 p_emp_info_rec.emp_ccid
152 FROM hr_employees_current_v EMP
153 WHERE EMP.employee_id = p_employee_id;
154
155 RETURN TRUE;
156
157 EXCEPTION
158 WHEN NO_DATA_FOUND THEN
159 RETURN FALSE;
160
161 WHEN OTHERS THEN
162 AP_CARD_DATABASE_PKG.RaiseException( 'GetEmployeeInfo' );
163 APP_EXCEPTION.RAISE_EXCEPTION;
164 return FALSE;
165
166 END GetEmployeeInfo;
167 -------------------------------------------------------------------------------
168 PROCEDURE getPrompts( c_region_application_id in number,
169 c_region_code in varchar2,
170 c_title out nocopy AK_REGIONS_VL.NAME%TYPE,
171 c_prompts out nocopy prompts_table)
172 IS
173 -------------------------------------------------------------------------------
174 l_title AK_REGIONS_VL.NAME%TYPE;
175 l_prompts icx_util.g_prompts_table;
176 i number;
177 BEGIN
178 --
179 -- Populate Prompt tables for translation
180 --
181 icx_util.getPrompts(c_region_application_id,
182 c_region_code,
183 l_title,
184 l_prompts);
185
186 c_prompts(0) := l_prompts(0);
187
188 FOR i in 1 .. to_number(l_prompts(0))
189 LOOP
190 c_prompts(i) := l_prompts(i);
191 END LOOP;
192
193 END getPrompts;
194
195 function jsPrepString_long(p_string in long,
196 p_alertflag in boolean default FALSE,
197 p_jsargflag in boolean default FALSE)
198 return long is
199
200 temp_string long;
201
202 begin
203
204 -- check for double escapes
205 temp_string := replace(p_string,'\\','\');
206
207 -- replace double quotes
208 IF (p_jsargflag) THEN
209 temp_string := replace(temp_string,'"','\\' || '&' || 'quot;');
210 ELSIF (NOT p_alertflag) THEN
211 temp_string := replace(temp_string,'"','\' || '&' || 'quot;');
212 ELSE
213 temp_string := replace(temp_string,'"','\"');
214 END IF;
215
216 -- replace single quotes
217 IF (p_jsargflag) THEN
218 temp_string := replace(temp_string,'''','\\''');
219 ELSIF (NOT p_alertflag) THEN
220 temp_string := replace(temp_string,'''','\''');
221 END IF;
222
223 -- check for carridge returns
224 temp_string := replace(temp_string, '
225 ', ' ');
226
227 return temp_string;
228
229 end;
230
231 function jsPrepString(p_string in varchar2,
232 p_alertflag in boolean default FALSE,
233 p_jsargflag in boolean default FALSE)
234 return varchar2 is
235
236 begin
237
238 return(substrb(jsPrepString_long(p_string,
239 p_alertflag,
240 p_jsargflag), 1, 2000));
241
242 end;
243
244 PROCEDURE RaiseException(
245 p_calling_sequence IN VARCHAR2,
246 p_debug_info IN VARCHAR2 DEFAULT '',
247 p_set_name IN VARCHAR2 DEFAULT NULL,
248 p_params IN VARCHAR2 DEFAULT ''
249 ) IS
250 -------------------------------------------------------------------
251 BEGIN
252 FND_MESSAGE.SET_NAME('SQLAP', nvl(p_set_name,'AP_DEBUG'));
253 FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
254 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', p_calling_sequence);
255 FND_MESSAGE.SET_TOKEN('DEBUG_INFO', p_debug_info);
256 FND_MESSAGE.SET_TOKEN('PARAMETERS', p_params);
257
258
259 END RaiseException;
260
261 END AP_CARD_DATABASE_PKG;