1: PACKAGE BODY AP_CANCEL_PKG AS
2: /* $Header: apicancb.pls 120.58 2011/02/24 05:07:06 mayyalas ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
1: PACKAGE BODY AP_CANCEL_PKG AS
2: /* $Header: apicancb.pls 120.58 2011/02/24 05:07:06 mayyalas ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
2: /* $Header: apicancb.pls 120.58 2011/02/24 05:07:06 mayyalas ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_CANCEL_PKG.';
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_CANCEL_PKG.';
12:
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_CANCEL_PKG.';
12:
13: -- Forward declaration of Payment Request Cancellation Subscription event
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_CANCEL_PKG.';
12:
13: -- Forward declaration of Payment Request Cancellation Subscription event
14: -- procedure. This will be only called if Payment Request is being cancelled
763: l_result_string);
764: END IF;
765:
766: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
767: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_debug_info);
768: END IF;
769:
770: /*-----------------------------------------------------------------+
771: | Step 3. Clear out payment schedules |
823: +-----------------------------------------------------------------*/
824:
825: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
826: l_debug_info := 'step4 - Now call Discard Lines for the invoice';
827: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_debug_info);
828: END IF;
829:
830:
831: BEGIN
1102: p_calling_sequence => l_curr_calling_sequence);
1103:
1104: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1105: l_debug_info := 'Before call approval pkg again ';
1106: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_debug_info);
1107:
1108: FOR l_inv_dist_rec IN dist_debug_cur
1109: loop
1110: l_debug_info :='invoice distribution looks like'||
1111: 'l_dist_type = ' || l_inv_dist_rec.line_type_lookup_code||
1112: 'l_amount=' || l_inv_dist_rec.amount ||
1113: 'l_base_amount =' || l_inv_dist_rec.base_amount ||
1114: 'l_match_status_flag=' ||l_inv_dist_rec.match_status_flag ;
1115: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_debug_info);
1116: end loop;
1117:
1118: END IF;
1119:
1123: +-----------------------------------------------------------------*/
1124:
1125: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1126: l_debug_info := 'Run Approval for this invoice again';
1127: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_debug_info);
1128: END IF;
1129:
1130: --SMYADAM: Approve procedure calls 4 etax apis (calculate, distribute, validate, freeze).
1131: --Do we need to call these apis when the invoice is being cancelled also (looks unnecessary)