1: PACKAGE BODY AP_ACCTG_PREPAY_DIST_PKG AS
2: /* $Header: appredib.pls 120.66 2011/12/13 10:16:01 kpasikan ship $ */
3:
4: G_Total_Dist_Amt NUMBER := 0;
5: G_Total_Prorated_Amt NUMBER := 0;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
19: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_ACCTG_PREPAY_DIST_PKG.';
20: -- Logging Infra
21:
22:
23: -------------------------------------------------------------------------------
42:
43:
44: BEGIN
45:
46: l_curr_calling_sequence := 'AP_Acctg_Prepay_Dist_Pkg.Update_Gain_Loss_Ind<- ' ||
47: p_calling_sequence;
48:
49:
50: -- Logging Infra: Setting up runtime level
482: AND evnt.application_id=200;
483:
484: BEGIN
485:
486: l_curr_calling_sequence := 'AP_ACCTG_PREPAY_DIST_PKG.Prepay_Dist_Appl<- ' ||
487: p_calling_sequence;
488:
489: -- Logging Infra: Setting up runtime level
490: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1708: END LOOP;
1709: CLOSE Prepay_Adj_Dists;
1710:
1711: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1712: l_log_msg := 'Calling procedure AP_Acctg_Prepay_Dist_Pkg.Update_Gain_Loss_Ind';
1713: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME || l_procedure_name, l_log_msg);
1714: END IF;
1715:
1716: AP_Acctg_Prepay_Dist_Pkg.Update_Gain_Loss_Ind
1712: l_log_msg := 'Calling procedure AP_Acctg_Prepay_Dist_Pkg.Update_Gain_Loss_Ind';
1713: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME || l_procedure_name, l_log_msg);
1714: END IF;
1715:
1716: AP_Acctg_Prepay_Dist_Pkg.Update_Gain_Loss_Ind
1717: (p_xla_event_rec,
1718: l_curr_calling_sequence);
1719:
1720: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1717: (p_xla_event_rec,
1718: l_curr_calling_sequence);
1719:
1720: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1721: l_log_msg := 'Procedure AP_Acctg_Prepay_Dist_Pkg.Updated_Gain_Loss_Ind executed';
1722: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME || l_procedure_name, l_log_msg);
1723: END IF;
1724:
1725:
1786:
1787:
1788: BEGIN
1789:
1790: l_curr_calling_sequence := 'AP_ACCTG_PREPAY_DIST_PKG.Prepay_Dist_Proc<- ' ||
1791: p_calling_sequence;
1792:
1793:
1794: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2271:
2272:
2273: BEGIN
2274:
2275: l_curr_calling_sequence := 'AP_ACCTG_PREPAY_DIST_PKG.Prepay_Dist_Tax_Diff<- ' ||
2276: p_calling_sequence;
2277:
2278: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2279: l_log_msg := 'Begin of procedure '|| l_procedure_name;
2473:
2474: BEGIN
2475:
2476:
2477: l_curr_calling_sequence := 'AP_ACCTG_PREPAY_DIST_PKG.PrePay_Dist_ERV<- ' ||
2478: p_calling_sequence;
2479:
2480:
2481: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2875: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2876:
2877: BEGIN
2878:
2879: l_curr_calling_sequence := 'AP_ACCTG_PREPAY_DIST_PKG.Prepay_Dist_Insert<- ' ||
2880: P_Calling_Sequence;
2881:
2882: -- Logging Infra: Procedure level
2883: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3006: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3007:
3008: BEGIN
3009:
3010: l_curr_calling_sequence := 'AP_Acctg_Prepay_Dist_Pkg.Delete_hist_dists<- ' ||
3011: p_calling_sequence;
3012:
3013: -- Logging Infra: Procedure level
3014: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3101:
3102:
3103: BEGIN
3104:
3105: l_curr_calling_sequence := 'AP_ACCTG_PREPAY_DIST_PKG.Upg_Dist_Links_Insert<- ' ||
3106: P_Calling_Sequence;
3107:
3108:
3109: -- Logging Infra: Procedure level
3567: APP_EXCEPTION.RAISE_EXCEPTION;
3568:
3569: END Upg_Dist_Links_Insert;
3570:
3571: END AP_ACCTG_PREPAY_DIST_PKG;