1: PACKAGE BODY IGI_ITR_TIMEOUT_PKG as
2: -- $Header: igiitrxb.pls 120.9.12000000.1 2007/09/12 10:33:24 mbremkum ship $
3: --
4:
5: --**************************************************************************
165: CLOSE c_is_workflow_enabled;
166:
167: IF l_workflow_enabled = 'Y' THEN
168: IF (l_state_level >= l_debug_level ) THEN
169: FND_LOG.STRING( l_state_level,'igi.plsql.igiitrxb.IGI_ITR_TIMEOUT_PKG.find_services','Workflow is enabled for the set of books ');
170: END IF;
171:
172: return;
173: END IF;
184: END IF;
185: CLOSE c_get_timeout_days;
186:
187: IF (l_state_level >= l_debug_level ) THEN
188: FND_LOG.STRING( l_state_level,'igi.plsql.igiitrxb.IGI_ITR_TIMEOUT_PKG.find_services','Service lines will be auto approved if waiting for '||l_timeout_days );
189: END IF;
190:
191: /*shsaxena for bug no 2782312*/
192: OPEN c_header_id (p_set_of_books_id ,l_timeout_days);
193: LOOP
194: FETCH c_header_id INTO l_it_header_id;
195: IF c_header_id%NOTFOUND THEN
196: IF (l_state_level >= l_debug_level ) THEN
197: FND_LOG.STRING( l_state_level,'igi.plsql.igiitrxb.IGI_ITR_TIMEOUT_PKG.find_services','There are no more service lines awaiting approval for set of books '||p_set_of_books_id );
198: END IF;
199: EXIT;
200: END IF;
201:
214: ,last_update_date = sysdate
215: WHERE it_service_line_id = l_it_service_line_id;
216:
217: IF (l_state_level >= l_debug_level ) THEN
218: FND_LOG.STRING( l_state_level,'igi.plsql.igiitrxb.IGI_ITR_TIMEOUT_PKG.find_services','Service line id '||l_it_service_line_id||' has been auto approved');
219: END IF;
220: /* Now need to update the action history table with information
221: ** indicating that the service line has been auto-approved.
222: ** So start by fetching all the information needed for insertion
258: ,X_Last_Updated_By => l_user_id
259: );
260:
261: IF (l_state_level >= l_debug_level ) THEN
262: FND_LOG.STRING( l_state_level,'igi.plsql.igiitrxb.IGI_ITR_TIMEOUT_PKG.find_services','Action History table has been updated for service line id '||l_it_service_line_id );
263: END IF;
264:
265:
266: END LOOP;
285:
286: END find_ledger_services;
287:
288:
289: END IGI_ITR_TIMEOUT_PKG;