PACKAGE BODY: APPS.IBY_PCARD_RECOGNITION_PKG

Source

1 PACKAGE BODY IBY_PCARD_RECOGNITION_PKG AS
2 /* $Header: ibypcrcb.pls 115.2 2002/11/19 01:45:39 jleybovi noship $ */
3 
4 
5   /*
6    * Gets the purchase card subtype.
7    */
8    PROCEDURE getPCardSubType
9 	(
10 	p_instr_number		IN	VARCHAR,
11 	p_card_subtype		OUT NOCOPY PCARD_TYPEVAL
12 	)
13    IS
14 	cardBIN		NUMBER;
15    BEGIN
16 
17 	cardBIN:= TO_NUMBER(SUBSTR(p_instr_number,1,C_BIN_LENGTH));
18 
19 	SELECT SUBSTR(pcard_subtype,1,1)
20 	INTO p_card_subtype
21 	FROM iby_pcard_bin_range
22 	WHERE (cardBIN>=lowerlimit) AND (cardBIN<=upperlimit);
23 
24 	IF (SQL%NOTFOUND) THEN
25 	  p_card_subtype := C_SUBTYPE_NONPCARD;
26 	END IF;
27 
28    EXCEPTION
29 
30     WHEN NO_DATA_FOUND THEN
31 
32 	p_card_subtype := C_SUBTYPE_NONPCARD;
33 
34 
35    END getPCardSubType;
36 
37 END IBY_PCARD_RECOGNITION_PKG;