238: IS
239: SELECT SUM(NVL(s.funds_available,0) - NVL(s.new_balance,0))
240: FROM igi_dos_trx_sources s
241: WHERE trx_id IN (
242: SELECT trx_id FROM igi_dos_trx_headers
243: WHERE trx_number = Dossier_num
244: AND dossier_id = Dossier_id);
245:
246: BEGIN
289: ' l_trx_status --> ' || l_trx_status);
290: /* =============== END DEBUG LOG ================== */
291:
292: -- Flag the DOSSIER as in process
293: UPDATE igi_dos_trx_headers trx
294: SET trx.trx_status = l_trx_status,
295: trx.last_update_date= sysdate
296: WHERE trx.trx_number = dossier_num;
297:
296: WHERE trx.trx_number = dossier_num;
297:
298: /* =============== START DEBUG LOG ================ */
299: DEBUG_LOG_STRING (l_proc_level, 'startup.Msg6',
300: ' updated igi_dos_trx_headers ');
301: /* =============== END DEBUG LOG ================== */
302:
303: -- Get the approval run id
304: SELECT igi_dos_approval_run_s1.NextVal
1355:
1356: SELECT dtype.sob_id
1357: INTO l_sob_id
1358: FROM igi_dos_doc_types dtype,
1359: igi_dos_trx_headers thead
1360: WHERE thead.dossier_id = dtype.dossier_id
1361: AND thead.trx_number = l_dossier_num;
1362:
1363: /* =============== START DEBUG LOG ================ */
1373:
1374: --bug 12798321
1375: BEGIN
1376: select trx_status into l_status
1377: from IGI_DOS_TRX_HEADERS
1378: where trx_status = ( SELECT meaning
1379: FROM igi_lookups
1380: WHERE lookup_type ='DOSSIER STATUS'
1381: and lookup_code ='INPROCESS')
1394:
1395: IF igi_dos_funds.approve(l_dossier_num, l_user_id, l_responsibility_id, l_sob_id)
1396: THEN
1397:
1398: UPDATE igi_dos_trx_headers trx
1399: SET trx.trx_status = l_trx_status,
1400: trx.last_update_date= sysdate
1401: WHERE trx.trx_number = l_dossier_num;
1402: result := 'COMPLETE:T';
1409: ' Setting Fatal Error to null ');
1410: /* =============== END DEBUG LOG ================== */
1411: /* =============== START DEBUG LOG ================ */
1412: DEBUG_LOG_STRING (l_proc_level, 'approve.Msg5',
1413: ' updating igi_dos_trx_headers ');
1414: /* =============== END DEBUG LOG ================== */
1415:
1416: ELSE
1417: --bug 9128478
1521: DEBUG_LOG_STRING (l_proc_level, 'reject.Msg3',
1522: ' l_trx_status --> ' || l_trx_status);
1523: /* =============== END DEBUG LOG ================== */
1524:
1525: UPDATE IGI_DOS_TRX_HEADERS trx
1526: SET trx.trx_status = l_trx_status,
1527: trx.last_update_date= sysdate
1528: WHERE trx.trx_number = l_dossier_id;
1529:
1528: WHERE trx.trx_number = l_dossier_id;
1529:
1530: /* =============== START DEBUG LOG ================ */
1531: DEBUG_LOG_STRING (l_proc_level, 'reject.Msg4',
1532: ' updating igi_dos_trx_headers ');
1533: /* =============== END DEBUG LOG ================== */
1534:
1535: result := 'COMPLETE' ;
1536:
2124:
2125: SELECT dtype.SOB_ID
2126: INTO l_sob_id
2127: FROM IGI_DOS_DOC_TYPES dtype,
2128: igi_dos_trx_headers thead
2129: WHERE thead.dossier_id = dtype.dossier_id
2130: and thead.trx_number = l_trx_number;
2131:
2132: /* =============== START DEBUG LOG ================ */
2135: /* =============== END DEBUG LOG ================== */
2136: --bug 12798321
2137: BEGIN
2138: select trx_status into l_status
2139: from IGI_DOS_TRX_HEADERS
2140: where trx_status = ( SELECT meaning
2141: FROM igi_lookups
2142: WHERE lookup_type ='DOSSIER STATUS'
2143: and lookup_code ='INPROCESS')
2194: DEBUG_LOG_STRING (l_proc_level, 'UnreserveFunds.Msg5',
2195: ' l_trx_status --> ' || l_trx_status);
2196: /* =============== END DEBUG LOG ================== */
2197:
2198: UPDATE IGI_DOS_TRX_HEADERS trx
2199: SET trx.trx_status = l_trx_status,
2200: trx.last_update_date= sysdate
2201: WHERE trx.trx_number = l_trx_number ;
2202:
2201: WHERE trx.trx_number = l_trx_number ;
2202:
2203: /* =============== START DEBUG LOG ================ */
2204: DEBUG_LOG_STRING (l_proc_level, 'UnreserveFunds.Msg6',
2205: ' updated igi_dos_trx_headers ');
2206: /* =============== END DEBUG LOG ================== */
2207: --bug 9128478
2208: Wf_Engine.SetItemAttrText (itemtype => Itemtype,
2209: itemkey => Itemkey,
2436: l_new_source VARCHAR2(1);
2437:
2438: CURSOR c_get_trx_id
2439: IS
2440: SELECT trx_id FROM igi_dos_trx_headers
2441: WHERE trx_number = l_dossier_num
2442: AND dossier_id = l_dossier_id;
2443:
2444: CURSOR c_get_sources
2542: --bug 9075812
2543: SELECT dtype.SOB_ID
2544: INTO g_sob_id
2545: FROM IGI_DOS_DOC_TYPES dtype,
2546: igi_dos_trx_headers thead
2547: WHERE thead.dossier_id = dtype.dossier_id
2548: and thead.trx_number = l_dossier_num;
2549: /* =============== START DEBUG LOG ================ */
2550: DEBUG_LOG_STRING (l_proc_level, 'dossier_transaction_detail.Msg3.1',
2739: funcmode IN VARCHAR2,
2740: result OUT NOCOPY VARCHAR2 ) IS
2741:
2742: l_trx_status igi_lookups.meaning%TYPE;
2743: l_dossier_num igi_dos_trx_headers.trx_number%TYPE :=
2744: Wf_Engine.GetItemAttrText ( itemtype => itemtype,
2745: itemkey => itemkey,
2746: aname => 'DOSSIER_NUM');
2747:
2768: ' l_trx_status --> ' || l_trx_status);
2769: /* =============== END DEBUG LOG ================== */
2770:
2771: -- Rewind the 'In Process' status to 'Creating'
2772: UPDATE igi_dos_trx_headers trx
2773: SET trx.trx_status = l_trx_status,
2774: trx.last_update_date= sysdate
2775: WHERE trx.trx_number = l_dossier_num;
2776:
2775: WHERE trx.trx_number = l_dossier_num;
2776:
2777: /* =============== START DEBUG LOG ================ */
2778: DEBUG_LOG_STRING (l_proc_level, 'RewindInProcess.Msg3',
2779: ' updating igi_dos_trx_headers ');
2780: /* =============== END DEBUG LOG ================== */
2781:
2782: COMMIT;
2783: