45: ( p_fbt_settlement IN jai_fbt_settlement%ROWTYPE
46: )
47: IS
48: lv_procedure_name VARCHAR2(40):='Insert_Fbt_Settlement';
49: ln_dbg_level NUMBER:=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
50: ln_proc_level NUMBER:=FND_LOG.LEVEL_PROCEDURE;
51:
52: BEGIN
53: --logging for debug
46: )
47: IS
48: lv_procedure_name VARCHAR2(40):='Insert_Fbt_Settlement';
49: ln_dbg_level NUMBER:=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
50: ln_proc_level NUMBER:=FND_LOG.LEVEL_PROCEDURE;
51:
52: BEGIN
53: --logging for debug
54: IF (ln_proc_level >= ln_dbg_level)
52: BEGIN
53: --logging for debug
54: IF (ln_proc_level >= ln_dbg_level)
55: THEN
56: FND_LOG.STRING( ln_proc_level
57: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.begin'
58: , 'Enter procedure'
59: );
60: END IF; --l_proc_level>=l_dbg_level
106:
107: --logging for debug
108: IF (ln_proc_level >= ln_dbg_level)
109: THEN
110: FND_LOG.STRING( ln_proc_level
111: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.end'
112: , 'Exit procedure'
113: );
114: END IF; -- (ln_proc_level>=ln_dbg_level)
114: END IF; -- (ln_proc_level>=ln_dbg_level)
115:
116: EXCEPTION
117: WHEN OTHERS THEN
118: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
119: THEN
120: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
121: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.Other_Exception '
122: , Sqlcode||Sqlerrm);
116: EXCEPTION
117: WHEN OTHERS THEN
118: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
119: THEN
120: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
121: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.Other_Exception '
122: , Sqlcode||Sqlerrm);
123: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
124: END Insert_Fbt_Settlement;
119: THEN
120: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
121: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.Other_Exception '
122: , Sqlcode||Sqlerrm);
123: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
124: END Insert_Fbt_Settlement;
125:
126: --==========================================================================
127: -- PROCEDURE NAME:
149: , p_inv_lines_interface IN inv_lines_interface_rec_type
150: )
151: IS
152: lv_procedure_name VARCHAR2(40):='Insert_Interface_Table';
153: ln_dbg_level NUMBER:=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
154: ln_proc_level NUMBER:=FND_LOG.LEVEL_PROCEDURE;
155:
156: BEGIN
157: --logging for debug
150: )
151: IS
152: lv_procedure_name VARCHAR2(40):='Insert_Interface_Table';
153: ln_dbg_level NUMBER:=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
154: ln_proc_level NUMBER:=FND_LOG.LEVEL_PROCEDURE;
155:
156: BEGIN
157: --logging for debug
158: IF (ln_proc_level >= ln_dbg_level)
156: BEGIN
157: --logging for debug
158: IF (ln_proc_level >= ln_dbg_level)
159: THEN
160: FND_LOG.STRING( ln_proc_level
161: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.begin'
162: , 'Enter procedure'
163: );
164: END IF; --l_proc_level>=l_dbg_level
236: );
237: --logging for debug
238: IF (ln_proc_level >= ln_dbg_level)
239: THEN
240: FND_LOG.STRING( ln_proc_level
241: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.end'
242: , 'Exit procedure'
243: );
244: END IF; -- (ln_proc_level>=ln_dbg_level)
244: END IF; -- (ln_proc_level>=ln_dbg_level)
245:
246: EXCEPTION
247: WHEN OTHERS THEN
248: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
249: THEN
250: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
251: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.Other_Exception '
252: , Sqlcode||Sqlerrm);
246: EXCEPTION
247: WHEN OTHERS THEN
248: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
249: THEN
250: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
251: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.Other_Exception '
252: , Sqlcode||Sqlerrm);
253: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
254: END Insert_Interface_Table;
249: THEN
250: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
251: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.Other_Exception '
252: , Sqlcode||Sqlerrm);
253: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
254: END Insert_Interface_Table;
255:
256: --==========================================================================
257: -- PROCEDURE NAME:
321: ln_user_id NUMBER := fnd_global.user_id;
322: ln_login_id NUMBER := fnd_global.login_id;
323: ln_precision NUMBER;
324: lv_procedure_name VARCHAR2(40):='Fbt_Settlement';
325: ln_dbg_level NUMBER:=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
326: ln_proc_level NUMBER:=FND_LOG.LEVEL_PROCEDURE;
327:
328: CURSOR cummulative_tax_cur IS
329: SELECT SUM(fbt_tax_amount) + SUM(fbt_surcharge_amount)
322: ln_login_id NUMBER := fnd_global.login_id;
323: ln_precision NUMBER;
324: lv_procedure_name VARCHAR2(40):='Fbt_Settlement';
325: ln_dbg_level NUMBER:=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
326: ln_proc_level NUMBER:=FND_LOG.LEVEL_PROCEDURE;
327:
328: CURSOR cummulative_tax_cur IS
329: SELECT SUM(fbt_tax_amount) + SUM(fbt_surcharge_amount)
330: + SUM(fbt_edu_cess_amount) + SUM(fbt_sh_cess_amount)
363: BEGIN
364: --logging for debug
365: IF (ln_proc_level >= ln_dbg_level)
366: THEN
367: FND_LOG.STRING( ln_proc_level
368: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.begin'
369: , 'Enter procedure'
370: );
371: END IF; --l_proc_level>=l_dbg_level
538:
539: --logging for debug
540: IF (ln_proc_level >= ln_dbg_level)
541: THEN
542: FND_LOG.STRING( ln_proc_level
543: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.end'
544: , 'Exit procedure'
545: );
546: END IF; -- (ln_proc_level>=ln_dbg_level)
546: END IF; -- (ln_proc_level>=ln_dbg_level)
547:
548: EXCEPTION
549: WHEN OTHERS THEN
550: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
551: THEN
552: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
553: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.Other_Exception '
554: , Sqlcode||Sqlerrm);
548: EXCEPTION
549: WHEN OTHERS THEN
550: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
551: THEN
552: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
553: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.Other_Exception '
554: , Sqlcode||Sqlerrm);
555: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
556: END Fbt_Settlement;
551: THEN
552: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
553: , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.Other_Exception '
554: , Sqlcode||Sqlerrm);
555: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
556: END Fbt_Settlement;
557:
558: END JAI_FBT_SETTLEMENT_P;