40: P_Invoice_Set_ID in number,
41: P_Lookup_Type in varchar2,
42: P_Error_Message_Code in varchar2) is
43:
44: l_error_message pa_lookups.meaning%TYPE;
45:
46: g1_debug_mode varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
47:
48: BEGIN
49:
50: BEGIN
51: SELECT Meaning
52: INTO l_error_message
53: FROM PA_Lookups
54: WHERE Lookup_Type = P_Lookup_Type
55: AND Lookup_Code = P_Error_Message_Code;
56:
57: EXCEPTION
110:
111:
112: g1_debug_mode varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
113:
114: l_error_message pa_lookups.meaning%TYPE;
115:
116: cursor get_std_lines
117: is
118: select dii.rowid row_id, /** Bug 2324299 **/
929: X_Inv_rate_date OUT NOCOPY DATE, --File.Sql.39 bug 4440895
930: X_Inv_exchange_rate OUT NOCOPY NUMBER) --File.Sql.39 bug 4440895
931: IS
932:
933: l_error_message pa_lookups.meaning%TYPE;
934:
935: Cursor get_info
936: is
937: select Inv_Currency_code,
1006: PROCEDURE get_proj_curr_info ( P_Project_Id IN NUMBER,
1007: X_Inv_curr_code OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
1008: IS
1009:
1010: l_error_message pa_lookups.meaning%TYPE;
1011:
1012: /* Earlier this was referring to project_currency_code because PFC and PC are same.
1013: This procedure has to return PFC */
1014: cursor get_proj_cur
1040: IS
1041:
1042: g1_debug_mode varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
1043:
1044: l_error_message pa_lookups.meaning%TYPE;
1045:
1046: cursor get_orig_amt
1047: is
1048: select sum(dii.amount),
1693: IS
1694:
1695: g1_debug_mode varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
1696:
1697: l_error_message pa_lookups.meaning%TYPE;
1698:
1699: /* Cursor for Select All Unapproved invoices created in This Run */
1700: /* Bug 5413168: skip invoices without any invoice line. generation_
1701: error_flag not stamped yet for this case until paicnl */
1801: PA_MCB_INVOICE_PKG.log_message ('recalculATE: ' || 'Invoice Generation Error is set....'||l_out_status);
1802: END IF;
1803: UPDATE pa_draft_invoices_all
1804: SET generation_error_flag='Y',
1805: transfer_rejection_reason= (SELECT meaning FROM pa_lookups
1806: WHERE lookup_type='INVOICE_CURRENCY'
1807: AND lookup_code=l_out_status)
1808: WHERE project_id=l_Project_ID
1809: AND draft_invoice_num=l_Draft_Invoice_Num;