[Home] [Help]
PACKAGE BODY: APPS.IGI_MPP_SETUP_PKG
Source
1 PACKAGE BODY IGI_MPP_SETUP_PKG AS
2 -- $Header: igipmsub.pls 115.6 2003/12/01 16:13:17 sdixit ship $
3 --bug 3199481: following variables added for fnd logging changes:sdixit :start
4 l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5 l_state_level number := FND_LOG.LEVEL_STATEMENT;
6 l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
7 l_event_level number := FND_LOG.LEVEL_EVENT;
8 l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
9 l_error_level number := FND_LOG.LEVEL_ERROR;
10 l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
11
12 PROCEDURE insert_row
13 ( X_rowid in out NOCOPY VARCHAR2
14 , X_set_of_books_id in NUMBER
15 , X_future_posting_ccid in NUMBER
16 , X_default_accounting_rule_id in NUMBER
17 , X_je_category_name in VARCHAR2
18 , X_je_source_name in VARCHAR2
19 , X_creation_date in date
20 , X_created_by in number
21 , X_last_update_date in date
22 , X_last_updated_by in number
23 , X_last_update_login in number
24 ) IS
25
26 CURSOR c_insert IS
27 SELECT rowid row_id
28 FROM igi_mpp_setup
29 WHERE set_of_books_id = X_set_of_books_id ;
30 BEGIN
31 INSERT INTO IGI_MPP_SETUP
32 ( set_of_books_id
33 , future_posting_ccid
34 , default_accounting_rule_id
35 , je_category_name
36 , je_source_name
37 , creation_date
38 , created_by
39 , last_update_date
40 , last_updated_by
41 , last_update_login )
42 VALUES (
43 X_set_of_books_id
44 , X_future_posting_ccid
45 , X_default_accounting_rule_id
46 , X_je_category_name
47 , X_je_source_name
48 , X_creation_date
49 , X_created_by
50 , X_last_update_date
51 , X_last_updated_by
52 , X_last_update_login
53 );
54
55
56 OPEN c_insert;
57 FETCH c_insert INTO X_rowid;
58 IF c_insert%NOTFOUND THEN
59 CLOSE c_insert;
60 raise no_data_found;
61 --bug 3199481: fnd logging changes:sdixit :start
62 IF (l_error_level >= l_debug_level ) THEN
63 FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmsub.IGI_MPP_SETUP_PKG.Insert_Row',FALSE);
64 END IF;
65 --bug 3199481 fnd logging changes: sdixit: end block
66 END IF;
67 CLOSE c_insert;
68 END;
69
70 PROCEDURE update_row
71 ( X_rowid in out NOCOPY VARCHAR2
72 , X_future_posting_ccid in NUMBER
73 , X_default_accounting_rule_id in NUMBER
74 , X_je_category_name in VARCHAR2
75 , X_je_source_name in VARCHAR2
76 , X_last_update_date in date
77 , X_last_updated_by in number
78 , X_last_update_login in number
79 ) IS
80 BEGIN
81 UPDATE igi_mpp_setup SET
82 future_posting_ccid = X_future_posting_ccid
83 , default_accounting_rule_id = X_default_accounting_rule_id
84 , je_category_name = X_je_category_name
85 , je_source_name = X_je_source_name
86 , last_update_date = X_last_update_date
87 , last_updated_by = X_last_updated_by
88 , last_update_login = X_last_update_login
89 WHERE rowid = X_rowid
90 ;
91 IF SQL%NOTFOUND THEN
92 raise no_data_found;
93 --bug 3199481: fnd logging changes:sdixit :start
94 IF (l_error_level >= l_debug_level ) THEN
95 FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmsub.IGI_MPP_SETUP_PKG.Update_Row',FALSE);
96 END IF;
97 --bug 3199481 fnd logging changes: sdixit: end block
98 END IF;
99
100 END;
101
102 PROCEDURE lock_row
103 ( X_rowid in out NOCOPY VARCHAR2
104 , X_set_of_books_id in NUMBER
105 , X_future_posting_ccid in NUMBER
106 , X_default_accounting_rule_id in NUMBER
107 , X_je_category_name in VARCHAR2
108 , X_je_source_name in VARCHAR2
109 ) IS
110
111 CURSOR c_mpp_Setup IS
112 SELECT *
113 from igi_mpp_setup
114 where rowid = X_rowid
115 for update of set_of_books_id NOWAIT
116 ;
117
118 l_mpp_setup c_mpp_setup%ROWTYPE;
119
120 BEGIN
121 OPEN c_mpp_setup;
122 FETCH c_mpp_setup INTO l_mpp_setup;
123 IF c_mpp_setup%NOTFOUND THEN
124 close c_mpp_setup;
125 fnd_message.set_name( 'FND', 'FORM_RECORD_DELETED');
126 --bug 3199481: fnd logging changes:sdixit :start
127 IF (l_error_level >= l_debug_level ) THEN
128 FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmsub.IGI_MPP_SETUP_PKG.Lock_Row.FORM_RECORD_DELETED',FALSE);
129 END IF;
130 --bug 3199481 fnd logging changes: sdixit: end block
131 app_exception.raise_exception;
132 END IF;
133 CLOSE c_mpp_setup;
134 IF (
135 (X_set_of_books_id = l_mpp_setup.set_of_books_id )
136 AND (
137 ( l_mpp_setup.future_posting_ccid = X_future_posting_ccid ) OR
138 ( l_mpp_setup.future_posting_ccid is null AND
139 X_future_posting_ccid is null )
140 )
141 AND (
142 ( l_mpp_setup.default_accounting_rule_id = X_default_accounting_rule_id ) OR
143 ( l_mpp_setup.default_accounting_rule_id is null AND
144 X_default_accounting_rule_id is null )
145 )
146 AND (
147 ( l_mpp_setup.je_category_name = X_je_category_name ) OR
148 ( l_mpp_setup.je_category_name is null AND
149 X_je_category_name is null )
150 )
151 AND (
152 ( l_mpp_setup.je_source_name = X_je_source_name ) OR
153 ( l_mpp_setup.je_source_name is null AND
154 X_je_source_name is null )
155 )
156 )
157 THEN
158 return;
159 else
160 fnd_message.set_name( 'FND', 'FORM_RECORD_CHANGED');
161 --bug 3199481: fnd logging changes:sdixit :start
162 IF (l_error_level >= l_debug_level ) THEN
163 FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmsub.IGI_MPP_SETUP_PKG.Lock_Row.FORM_RECORD_CHANGED',FALSE);
164 END IF;
165 --bug 3199481 fnd logging changes: sdixit: end block
166 app_exception.raise_exception;
167 END IF;
168 END;
169
170 -- Enter further code below as specified in the Package spec.
171 END IGI_MPP_SETUP_PKG ;