PACKAGE: APPS.IBY_PCARD_RECOGNITION_PKG

Source

1 PACKAGE IBY_PCARD_RECOGNITION_PKG AUTHID CURRENT_USER AS
2 /* $Header: ibypcrcs.pls 115.4 2002/11/19 01:45:29 jleybovi noship $ */
3 
4 
5   /* Length of a credit card's bank identification number. */
6   C_BIN_LENGTH CONSTANT NUMBER := 9;
7 
8 
9   SUBTYPE PCARD_TYPEVAL IS VARCHAR2(1);
10 
11   /* Corporate purchase card subtype. */
12   C_SUBTYPE_CORPORATE CONSTANT PCARD_TYPEVAL := 'C';
13 
14   /* Purchase purchase card subtype. */
15   C_SUBTYPE_PURCHASE CONSTANT PCARD_TYPEVAL := 'P';
16 
17   /* Business purchase card subtype. */
18   C_SUBTYPE_BUSINESS CONSTANT PCARD_TYPEVAL := 'B';
19 
20   /* Fleet purchase card subtype. */
21   C_SUBTYPE_FLEET CONSTANT PCARD_TYPEVAL := 'F';
22 
23   /* Fleet purchase card subtype. */
24   C_SUBTYPE_GOVERNMENT CONSTANT PCARD_TYPEVAL := 'G';
25 
26   /* For credit card numbers which do not belong to purchase cards. */
27   C_SUBTYPE_NONPCARD CONSTANT PCARD_TYPEVAL := 'U';
28 
29 
30   /*
31    * USE: Gets the purchase card subtype associated with a given
32    *      credit card number.
33    *
34    * ARGS:
35    *    1.  the instrument number/credit card number; must consist
36    *	    entirely of digits (i.e. '4111-411...' is not allowed!)
37    *
38    * OUTS:
39    *    2.  the purchase card subtype associated with the given
40    *        number; will be value C_SUBTYPE_NONPCARD if the number
41    *        is not that of a purchase card.
42    *
43    */
44    PROCEDURE getPCardSubType
45 	(
46 	p_instr_number		IN	VARCHAR,
47 	p_card_subtype		OUT NOCOPY PCARD_TYPEVAL
48 	);
49 
50 
51 END IBY_PCARD_RECOGNITION_PKG;