2996: p_calling_sequence;
2997:
2998: IF (g_debug_mode = 'Y') THEN
2999: l_debug_info := 'General check - check invalid dist account';
3000: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3001: AP_Debug_Pkg.Print(g_debug_mode, 'invoice id :'||
3002: to_char(p_invoice_id) );
3003: END IF;
3004:
2997:
2998: IF (g_debug_mode = 'Y') THEN
2999: l_debug_info := 'General check - check invalid dist account';
3000: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3001: AP_Debug_Pkg.Print(g_debug_mode, 'invoice id :'||
3002: to_char(p_invoice_id) );
3003: END IF;
3004:
3005: OPEN Invalid_Dist_Acct_Cur;
3008: EXIT WHEN Invalid_DIst_Acct_Cur%NOTFOUND;
3009:
3010: IF (g_debug_mode = 'Y') THEN
3011: l_debug_info := 'Inside loop of curser - Invalid_Dist_Acct_Cur';
3012: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3013: AP_Debug_Pkg.Print(g_debug_mode, 'invalid dist ccid hold'||
3014: l_invalid_dist_ccid_exists);
3015: END IF;
3016:
3009:
3010: IF (g_debug_mode = 'Y') THEN
3011: l_debug_info := 'Inside loop of curser - Invalid_Dist_Acct_Cur';
3012: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3013: AP_Debug_Pkg.Print(g_debug_mode, 'invalid dist ccid hold'||
3014: l_invalid_dist_ccid_exists);
3015: END IF;
3016:
3017: --
3027: INTO l_alt_exists;
3028: CLOSE Alternate_Account_Cur;
3029:
3030: IF (g_debug_mode = 'Y') THEN
3031: AP_Debug_Pkg.Print(g_debug_mode, 'Alternate Account Exists: '||
3032: l_alt_exists);
3033: END IF;
3034:
3035: IF l_alt_exists = 'Y' THEN
3042: CLOSE Invalid_Dist_Acct_Cur;
3043:
3044: IF (g_debug_mode = 'Y') THEN
3045: l_debug_info := 'Process DIST ACCT INVALID hold status on invoice';
3046: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3047: END IF;
3048:
3049: Process_Inv_Hold_Status(
3050: p_invoice_id,
8921: BEGIN
8922:
8923: IF g_debug_mode = 'Y' THEN
8924:
8925: AP_Debug_Pkg.Print(g_debug_mode, p_debug_info );
8926:
8927: END IF;
8928:
8929: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN