129:
130: IF v_FoundBadChar THEN
131: -- !!
132: -- do something useful here!!
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134: x_cc_id := NULL;
135: ELSE
136: x_return_status := FND_API.G_RET_STS_SUCCESS;
137: x_cc_id := v_StrippedCC;
132: -- do something useful here!!
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134: x_cc_id := NULL;
135: ELSE
136: x_return_status := FND_API.G_RET_STS_SUCCESS;
137: x_cc_id := v_StrippedCC;
138: END IF;
139:
140: --DBMS_OUTPUT.PUT_LINE('stripped value is: ' || v_StrippedCC);
140: --DBMS_OUTPUT.PUT_LINE('stripped value is: ' || v_StrippedCC);
141:
142: EXCEPTION
143: WHEN OTHERS THEN
144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
145: x_cc_id := NULL;
146: END StripCC;
147:
148: PROCEDURE StripCC ( p_api_version IN NUMBER,
219:
220: v_Length INTEGER;
221: v_DigitsOk BOOLEAN;
222: BEGIN
223: x_return_status := FND_API.G_RET_STS_SUCCESS;
224:
225: IF (p_cc_id IS NULL) THEN
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
227: x_cc_type:=c_InvalidCC;
222: BEGIN
223: x_return_status := FND_API.G_RET_STS_SUCCESS;
224:
225: IF (p_cc_id IS NULL) THEN
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
227: x_cc_type:=c_InvalidCC;
228: RETURN;
229: END IF;
230:
232:
233: v_Length:=LENGTH(p_cc_id);
234:
235: IF (v_Length <=0) THEN
236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
237: x_cc_type:=c_InvalidCC;
238: RETURN;
239: END IF;
240:
285: -- this means there were some non-digit characters
286: -- in the credit card number
287: --
288: IF v_DigitsOk IS NULL THEN
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: x_cc_type:=c_InvalidCC;
291: RETURN;
292: END IF;
293:
300: --DBMS_OUTPUT.PUT_LINE('cctype is : ' || x_cc_type);
301:
302: EXCEPTION
303: WHEN OTHERS THEN
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
305: x_cc_type:=c_InvalidCC;
306: END GetCCType;
307:
308:
333: -- most credit cards
334: --
335: v_spread:=MONTHS_BETWEEN(LAST_DAY(TRUNC(p_expr_date)),
336: TRUNC(v_CurrDate));
337: x_return_status := FND_API.G_RET_STS_SUCCESS;
338:
339: --DBMS_OUTPUT.PUT_LINE('Difference in time: ' || v_spread);
340: IF v_spread >= 0 THEN
341:
354: END IF;
355:
356: EXCEPTION
357: WHEN OTHERS THEN
358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
359: x_cc_valid:=FALSE;
360: END ValidateCC;
361:
362:
392: );
393:
394: EXCEPTION
395: WHEN OTHERS THEN
396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
397: x_cc_valid:=FALSE;
398:
399: END ValidateCC;
400: