[Home] [Help]
PACKAGE BODY: APPS.IGC_PSB_COMMITMENTS_PVT
Source
1 PACKAGE BODY IGC_PSB_COMMITMENTS_PVT AS
2 /* $Header: IGCVWCLB.pls 120.10.12000000.5 2007/11/19 09:01:11 mbremkum ship $ */
3
4 g_debug_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5 g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6 g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7 g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8 g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9 g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10 g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11 g_path VARCHAR2(255) := 'IGC.PLSQL.IGCVWCLB.IGC_PSB_COMMITMENTS_PVT.';
12 G_PKG_NAME CONSTANT VARCHAR2(30):= 'IGC_PSB_COMMITMENTS_PVT';
13
14 /*Added for Base Bug 6634822. Also refer Bug 6636273 and 6636531 - Start*/
15
16 FUNCTION is_bc_enabled
17 (p_ledger_id IN NUMBER,
18 p_doc_type IN varchar2) RETURN VARCHAR2;
19
20 FUNCTION is_bc_enabled
21 (p_ledger_id IN NUMBER,
22 p_doc_type IN varchar2) RETURN VARCHAR2 IS
23 l_full_path VARCHAR2(500) := g_path||'is_bc_enabled';
24
25 CURSOR c_bc_enabled IS
26 SELECT cc_bc_enable_flag
27 ,cbc_po_enable
28 FROM igc_cc_bc_enable
29 WHERE set_of_books_id = p_ledger_id;
30
31 l_bc_enable igc_cc_bc_enable.cc_bc_enable_flag%TYPE;
32 l_po_enable igc_cc_bc_enable.cbc_po_enable%TYPE;
33 BEGIN
34 l_full_path := g_path || 'Is_Cbc_Enabled';
35 OPEN c_bc_enabled;
36 FETCH c_bc_enabled INTO l_bc_enable, l_po_enable;
37 CLOSE c_bc_enabled;
38
39 IF (p_doc_type in ('CC','ANY') AND nvl(l_bc_enable,'N') = 'Y') THEN
40 RETURN FND_API.G_TRUE;
41 ELSIF (p_doc_type in ('PO','ANY') AND nvl(l_po_enable,'N') = 'Y') THEN
42 RETURN FND_API.G_TRUE;
43 END IF;
44
45 RETURN FND_API.G_FALSE;
46 EXCEPTION
47 WHEN OTHERS THEN
48 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
49 FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
50 'Is_bc_enabled');
51 END IF;
52 IF ( g_unexp_level >= g_debug_level ) THEN
53 FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
54 FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
55 FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
56 FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
57 END IF;
58 RETURN FND_API.G_FALSE;
59 END is_bc_enabled;
60
61 /*Added for Base Bug 6634822. Also refer Bug 6636273 and 6636531 - End*/
62
63 FUNCTION Is_Cbc_Enabled
64 ( p_set_of_books_id IN NUMBER
65 ) RETURN VARCHAR2
66 IS
67
68 l_full_path VARCHAR2(500);
69
70 BEGIN
71
72 --Bug 3199488
73 l_full_path := g_path || 'Is_Cbc_Enabled';
74 --Bug 3199488
75
76 RETURN is_bc_enabled(p_set_of_books_id, 'CC');
77
78 EXCEPTION
79 WHEN OTHERS THEN
80 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
81 FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Is_Cbc_Enabled');
82 END IF;
83 -- Bug 3199488
84 IF ( g_unexp_level >= g_debug_level ) THEN
85 FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
86 FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
87 FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
88 FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
89 END IF;
90 -- Bug 3199488
91 RETURN FND_API.G_FALSE;
92
93 END Is_Cbc_Enabled;
94
95 /*Added for Base Bug 6634822. Also refer Bug 6636273 and 6636531 - Start*/
96
97 FUNCTION IGCFCK_WRAPPER(
98 p_sobid IN NUMBER,
99 p_header_id IN NUMBER,
100 p_mode IN VARCHAR2,
101 p_actual_flag IN VARCHAR2,
102 p_doc_type IN VARCHAR2,
103 p_ret_status OUT NOCOPY VARCHAR2,
104 p_batch_result_code OUT NOCOPY VARCHAR2,
105 p_debug IN VARCHAR2:=FND_API.G_FALSE,
106 p_conc_proc IN VARCHAR2:=FND_API.G_FALSE
107 ) RETURN BOOLEAN IS
108 BEGIN
109
110 RETURN IGC_CBC_FUNDS_CHECKER.igcfck(p_sobid => p_sobid ,
111 p_header_id => p_header_id,
112 p_mode => p_mode,
113 p_actual_flag => p_actual_flag ,
114 p_doc_type => p_doc_type ,
115 p_ret_status => p_ret_status,
116 p_batch_result_code => p_batch_result_code );
117
118 END IGCFCK_WRAPPER;
119
120 /*Added for Base Bug 6634822. Also refer Bug 6636273 and 6636531 - Start*/
121
122 END IGC_PSB_COMMITMENTS_PVT;