PACKAGE BODY: APPS.IBY_PCARD_RECOGNITION_PKG

Source

1 PACKAGE BODY IBY_PCARD_RECOGNITION_PKG AS
2 /* $Header: ibypcrcb.pls 120.1.12010000.2 2009/06/16 09:22:46 lyanamal ship $ */
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    CURSOR pcard_type
16    (ci_bin_number IN VARCHAR)
17    IS
18      SELECT SUBSTR(pcard_subtype,   1,   1)
19      FROM iby_pcard_bin_range
20      WHERE (cardBIN >= lowerlimit)
21        AND (cardBIN <= upperlimit)
22      ORDER BY last_updated_by DESC,
23 	last_update_date DESC;
24 
25    BEGIN
26         IF (pcard_type%ISOPEN) THEN CLOSE pcard_type; END IF;
27 	cardBIN:= TO_NUMBER(SUBSTR(p_instr_number,1,C_BIN_LENGTH));
28 
29        OPEN pcard_type(cardBIN);
30        FETCH pcard_type INTO p_card_subtype;
31 
32        IF (p_card_subtype IS NULL) THEN
33 	  p_card_subtype := C_SUBTYPE_NONPCARD;
34        END IF;
35 
36        IF (pcard_type%NOTFOUND) THEN
37 	  p_card_subtype := C_SUBTYPE_NONPCARD;
38        END IF;
39 
40        CLOSE pcard_type;
41 
42 
43    EXCEPTION
44 
45     WHEN OTHERS THEN
46 
47 	p_card_subtype := C_SUBTYPE_NONPCARD;
48 
49 
50    END getPCardSubType;
51 
52 END IBY_PCARD_RECOGNITION_PKG;