PACKAGE BODY: APPS.OE_CREDIT_CHECK_GLOBALS

Source

1 PACKAGE BODY OE_Credit_Check_globals AS
2 -- $Header: OEXGCRCB.pls 120.0 2005/05/31 22:42:16 appldev noship $
3 
4 
5 ---------------------------
6 ------- CONSTANTS
7 ---------------------------
8   G_PKG_NAME CONSTANT VARCHAR2(30) :=  'OE_Credit_Check_globals' ;
9 
10 --------------------
11 -- TYPE DECLARATIONS
12 --------------------
13 
14 ---------------------------
15 -- PROCEDURES AND FUNCTIONS
16 ---------------------------
17 -----------------------------------------------------------------------------
18 --  FUNCTION: GET_MCC_project_version
19 --  COMMENT    : Returns the G_MCC_project_version
20 --
21 ------------------------------------------------------------------------------
22 FUNCTION GET_MCC_project_version
23 RETURN NUMBER
24 IS
25 
26 l_version NUMBER := 0 ;
27 
28 BEGIN
29 
30   OE_DEBUG_PUB.ADD('IN OEXGCRCB: GET_MCC_project_version ');
31 
32   l_version := NVL(OE_Credit_Check_globals.G_MCC_project_version,0);
33 
34   OE_DEBUG_PUB.ADD('Return l_version => ' || l_version );
35 
36   RETURN ( l_version );
37 
38 EXCEPTION
39 WHEN OTHERS THEN
40     OE_DEBUG_PUB.ADD('ERROR= '|| SUBSTRB(sqlerrm,1,200));
41 
42     IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
43      OE_MSG_PUB.Add_Exc_Msg
44       ( G_PKG_NAME
45       , 'GET_MCC_project_version'
46       );
47     END IF;
48     RAISE;
49 END GET_MCC_project_version ;
50 
51 
52 END OE_Credit_Check_globals;