3053: -- End bug 5436974 Invoice enhancement
3054: --
3055:
3056: -- Start LCM-OPM Integration
3057: -- Update gmf_lc_adj_transactions table
3058: g_log_msg := 'Updating gmf_lc_adj_transactions table';
3059:
3060: print_debug(g_log_msg);
3061: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3054: --
3055:
3056: -- Start LCM-OPM Integration
3057: -- Update gmf_lc_adj_transactions table
3058: g_log_msg := 'Updating gmf_lc_adj_transactions table';
3059:
3060: print_debug(g_log_msg);
3061: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3062: FND_LOG.STRING(
3065: message => g_log_msg
3066: );
3067: END IF;
3068:
3069: UPDATE gmf_lc_adj_transactions SET
3070: Accounted_flag = DECODE(G_accounting_mode, 'D', 'D', 'F', NULL )
3071: ,final_posting_date = DECODE (G_accounting_mode, 'F', sysdate, NULL)
3072: ,last_update_date = sysdate
3073: ,last_updated_by = g_user_id
3083: AND gxem.transaction_type IN ('LC_ADJUSTMENT_EXP_DELIVER','LC_ADJUSTMENT_DELIVER','LC_ADJUSTMENT_RECEIVE')
3084: AND xpae.event_class_code = gxem.event_class_code
3085: );
3086:
3087: g_log_msg := sql%rowcount || ' rows updated in gmf_lc_adj_transactions table';
3088:
3089: print_debug(g_log_msg);
3090: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
3091: FND_LOG.STRING(
4465: SELECT ship_header_id,
4466: ship_line_id
4467: INTO l_ship_header_id,
4468: l_ship_line_id
4469: FROM gmf_lc_adj_transactions
4470: WHERE adj_transaction_id = p_source_id_int_1;
4471:
4472: /* invoke view landed costs page */
4473: p_user_interface_type := 'HTML';