9: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
10: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
11: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
12:
13: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
11: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
12:
13: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
12:
13: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12:
13: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(50) :='AP.PLSQL.AP_UTILITIES_PKG';
13: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(50) :='AP.PLSQL.AP_UTILITIES_PKG';
21:
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(50) :='AP.PLSQL.AP_UTILITIES_PKG';
21:
22: function AP_Get_Displayed_Field
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(50) :='AP.PLSQL.AP_UTILITIES_PKG';
21:
22: function AP_Get_Displayed_Field
23: (LookupType IN varchar2
418: begin
419:
420: l_debug_info := 'Begining of Function';
421: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
422: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
423: END IF;
424:
425: l_acct_date_org := To_Char(P_Date, 'DD-MON-YYYY')||'-'||To_Char(P_Org_Id);
426:
425: l_acct_date_org := To_Char(P_Date, 'DD-MON-YYYY')||'-'||To_Char(P_Org_Id);
426:
427: l_debug_info := 'Index Value: '||l_acct_date_org;
428: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
429: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
430: END IF;
431:
432:
433: If g_curr_period_name_t.Count > 0 Then
437: l_period_name := g_curr_period_name_t(l_acct_date_org).period_name;
438:
439: l_debug_info := 'Period Name from existing plsql table for index found: '||l_period_name;
440: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
441: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
442: END IF;
443:
444: Else
445:
450: g_curr_period_name_t(l_acct_date_org).period_name := l_period_name;
451:
452: l_debug_info :='Period Name from existing plsql table for index not found: '||l_period_name;
453: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
454: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
455: END IF;
456:
457:
458: End If;
466: g_curr_period_name_t(l_acct_date_org).period_name := l_period_name;
467:
468: l_debug_info := 'Period Name not there in plsql table : '||l_period_name;
469: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
470: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
471: END IF;
472:
473: End If;
474:
550: begin
551:
552: l_debug_info := 'Begining of Function';
553: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
554: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
555: END IF;
556:
557: l_acct_date_org := To_Char(P_Date, 'DD-MON-YYYY')||'-'||To_Char(P_Org_Id);
558:
557: l_acct_date_org := To_Char(P_Date, 'DD-MON-YYYY')||'-'||To_Char(P_Org_Id);
558:
559: l_debug_info := 'Index Value: '||l_acct_date_org;
560: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
561: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
562: END IF;
563:
564:
565: If g_open_period_name_t.Count > 0 Then
570: l_start_date := g_open_period_name_t(l_acct_date_org).start_date;
571:
572: l_debug_info := 'Period Name from existing plsql table for index found: '||l_period_name;
573: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
574: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
575: END IF;
576:
577: Else
578:
581: close l_open_cursor;
582:
583: l_debug_info:='Period Name from existing plsql table for index not found: '||l_period_name;
584: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
585: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
586: END IF;
587:
588:
589: g_open_period_name_t(l_acct_date_org).period_name := l_period_name;
601: g_open_period_name_t(l_acct_date_org).start_date := l_start_date;
602:
603: l_debug_info := 'Period Name not there in plsql table: '||l_period_name;
604: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
605: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
606: END IF;
607:
608: End If;
609:
3398: IS
3399:
3400: l_current_calling_sequence VARCHAR2(2000);
3401: l_procedure_name CONSTANT VARCHAR2(60) := 'Get_PO_Reversed_Encumb_Amount';
3402: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3403:
3404: l_unencumbered_amount NUMBER;
3405: l_upg_unencumbered_amount NUMBER;
3406: l_total_unencumbered_amount NUMBER;
3473: l_current_calling_sequence := 'AP_UTILITIES_PKG.'
3474: || 'Get_PO_Reversed_Encumb_Amount<-'
3475: || P_calling_sequence;
3476:
3477: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3478:
3479: l_log_msg := 'Begin of procedure '|| l_procedure_name;
3480: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3481: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3477: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3478:
3479: l_log_msg := 'Begin of procedure '|| l_procedure_name;
3480: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3481: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3482: G_MODULE_NAME||l_procedure_name||'.begin',
3483: l_log_msg);
3484: END IF;
3485:
3486: -----------------------------------------------------------
3487: l_log_msg := 'Start to Open the po_encumbrance_cur' ;
3488: -----------------------------------------------------------
3489: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3490: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3491: G_MODULE_NAME||l_procedure_name||'.begin',
3492: l_log_msg);
3493: END IF;
3494:
3501: -----------------------------------------------------------
3502: l_log_msg := 'NO encumbrance line exists' ;
3503: -----------------------------------------------------------
3504: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3505: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3506: G_MODULE_NAME||l_procedure_name||'.begin',
3507: l_log_msg);
3508: END IF;
3509:
3515: -----------------------------------------------------------
3516: l_log_msg := 'close the cursor po_enc_reversed_cur' ;
3517: -----------------------------------------------------------
3518: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3519: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3520: G_MODULE_NAME||l_procedure_name||'.begin',
3521: l_log_msg);
3522: END IF;
3523:
3526: -----------------------------------------------------------
3527: l_log_msg := 'Open upgraded_po_enc_rev_cur' ;
3528: -----------------------------------------------------------
3529: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3530: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3531: G_MODULE_NAME||l_procedure_name||'.begin',
3532: l_log_msg);
3533: END IF;
3534:
3539: -----------------------------------------------------------
3540: l_log_msg := 'NO upgraded encumbrance reversals exist' ;
3541: -----------------------------------------------------------
3542: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3543: FND_LOG.STRING(G_LEVEL_PROCEDURE,
3544: G_MODULE_NAME||l_procedure_name||'.begin',
3545: l_log_msg);
3546: END IF;
3547:
3562: EXCEPTION
3563: WHEN OTHERS THEN
3564:
3565: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL ) THEN
3566: FND_LOG.STRING(G_LEVEL_EXCEPTION,
3567: G_MODULE_NAME || l_procedure_name,
3568: 'EXCEPTION');
3569: END IF;
3570:
3708: l_current_calling_sequence := P_calling_sequence||'->'||'get_gl_natural_account';
3709:
3710: l_debug_info := 'Begin of get_gl_natural_account';
3711: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3712: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
3713: END IF;
3714:
3715: /* Bug 7172942 - Added caching logic to improve performance. */
3716:
3721: ELSE
3722: --Bug 7172942
3723: l_debug_info := 'Natural Segment not found in Cache';
3724: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3725: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
3726: END IF;
3727:
3728: l_success := FND_FLEX_APIS.get_segment_column(101,
3729: 'GL#',
3732: l_segment_num);
3733:
3734: l_debug_info := 'FND API returned Natural Account: '||To_Char(l_segment_num);
3735: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3736: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
3737: END IF;
3738:
3739: IF (l_success = FALSE) THEN
3740: l_debug_info := 'FND API Failed';
3738:
3739: IF (l_success = FALSE) THEN
3740: l_debug_info := 'FND API Failed';
3741: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3742: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
3743: END IF;
3744: RAISE e_api_failure;
3745: END IF;
3746:
3745: END IF;
3746:
3747: l_debug_info := 'Dyn SQL to be run for ccid: '||p_ccid||' and CoA ID:'||p_coa_id;
3748: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3749: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
3750: END IF;
3751:
3752: EXECUTE IMMEDIATE 'SELECT '|| l_segment_num ||
3753: ' from gl_code_combinations where code_combination_id = :a '
3754: INTO l_nat_account USING p_ccid;
3755:
3756: l_debug_info := 'Natural account: '||l_nat_account||'. end of function call. ';
3757: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3758: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
3759: END IF;
3760:
3761: --Bug 7172942
3762: g_natural_acct_seg_t(l_coa_ccid).natural_acct_seg := l_nat_account ;
3797: l_current_calling_sequence := P_calling_sequence||'->'||'is_balancing_segment_valid';
3798:
3799: l_debug_info := 'Begin of is_balancing_segment_valid';
3800: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3801: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
3802: END IF;
3803:
3804: select bal_seg_value_option_code
3805: into l_bal_seg_value_option_code
3823: exception
3824: when others then
3825: l_debug_info := 'invalid balancing segment: '||p_balancing_segment_value||' to the ledger: '||p_set_of_books_id;
3826: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3827: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
3828: END IF;
3829: return false;
3830: end;
3831: end if;
3942: begin
3943:
3944: l_debug_info := 'Begining of Function';
3945: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3946: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3947: END IF;
3948:
3949: open l_current_cursor;
3950: fetch l_current_cursor into l_period_name;
3987: begin
3988:
3989: l_debug_info := 'Begining of Function';
3990: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3991: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3992: END IF;
3993:
3994: open l_open_cursor;
3995: fetch l_open_cursor into l_start_date, l_period_name;
4019: BEGIN
4020:
4021: l_debug_info := 'Begining of Function';
4022: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4023: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4024: END IF;
4025:
4026: FV_CCR_GRP.FV_CCR_REG_STATUS(
4027: p_api_version => '1.0',