110: -- Default foreign currency flag
111: p_default_foreign_curr_flag := l_userPrefs.default_foreign_curr_flag;
112:
113: -- Set of books
114: l_bSOBResult := AP_WEB_DB_AP_INT_PKG.GetSOB(p_set_of_books_id);
115:
116: IF (GMS_OIE_INT_PKG.IsGrantsEnabled()) THEN
117: p_is_grants_enabled := 'Y';
118: ELSE
912: p_userId OUT NOCOPY VARCHAR2
913: ) IS
914: -------------------------------------------------------------------
915: l_debug_info VARCHAR2(1000);
916: l_vendor_id AP_WEB_DB_AP_INT_PKG.vendors_vendorID;
917: l_vend_pay_curr AP_WEB_DB_AP_INT_PKG.vendors_paymentCurrCode;
918: l_vend_pay_curr_name AP_WEB_DB_COUNTRY_PKG.curr_name;
919: l_SysInfoRec AP_WEB_DB_AP_INT_PKG.APSysInfoRec;
920: l_base_currency AP_WEB_DB_AP_INT_PKG.apSetUp_baseCurrencyCode;
913: ) IS
914: -------------------------------------------------------------------
915: l_debug_info VARCHAR2(1000);
916: l_vendor_id AP_WEB_DB_AP_INT_PKG.vendors_vendorID;
917: l_vend_pay_curr AP_WEB_DB_AP_INT_PKG.vendors_paymentCurrCode;
918: l_vend_pay_curr_name AP_WEB_DB_COUNTRY_PKG.curr_name;
919: l_SysInfoRec AP_WEB_DB_AP_INT_PKG.APSysInfoRec;
920: l_base_currency AP_WEB_DB_AP_INT_PKG.apSetUp_baseCurrencyCode;
921: l_sys_multi_curr_flag AP_WEB_DB_AP_INT_PKG.apSetUp_multiCurrencyFlag;
915: l_debug_info VARCHAR2(1000);
916: l_vendor_id AP_WEB_DB_AP_INT_PKG.vendors_vendorID;
917: l_vend_pay_curr AP_WEB_DB_AP_INT_PKG.vendors_paymentCurrCode;
918: l_vend_pay_curr_name AP_WEB_DB_COUNTRY_PKG.curr_name;
919: l_SysInfoRec AP_WEB_DB_AP_INT_PKG.APSysInfoRec;
920: l_base_currency AP_WEB_DB_AP_INT_PKG.apSetUp_baseCurrencyCode;
921: l_sys_multi_curr_flag AP_WEB_DB_AP_INT_PKG.apSetUp_multiCurrencyFlag;
922: l_base_curr_name AP_WEB_DB_COUNTRY_PKG.curr_name;
923: l_has VARCHAR2(1);
916: l_vendor_id AP_WEB_DB_AP_INT_PKG.vendors_vendorID;
917: l_vend_pay_curr AP_WEB_DB_AP_INT_PKG.vendors_paymentCurrCode;
918: l_vend_pay_curr_name AP_WEB_DB_COUNTRY_PKG.curr_name;
919: l_SysInfoRec AP_WEB_DB_AP_INT_PKG.APSysInfoRec;
920: l_base_currency AP_WEB_DB_AP_INT_PKG.apSetUp_baseCurrencyCode;
921: l_sys_multi_curr_flag AP_WEB_DB_AP_INT_PKG.apSetUp_multiCurrencyFlag;
922: l_base_curr_name AP_WEB_DB_COUNTRY_PKG.curr_name;
923: l_has VARCHAR2(1);
924: l_cCardEnabled VARCHAR2(1);
917: l_vend_pay_curr AP_WEB_DB_AP_INT_PKG.vendors_paymentCurrCode;
918: l_vend_pay_curr_name AP_WEB_DB_COUNTRY_PKG.curr_name;
919: l_SysInfoRec AP_WEB_DB_AP_INT_PKG.APSysInfoRec;
920: l_base_currency AP_WEB_DB_AP_INT_PKG.apSetUp_baseCurrencyCode;
921: l_sys_multi_curr_flag AP_WEB_DB_AP_INT_PKG.apSetUp_multiCurrencyFlag;
922: l_base_curr_name AP_WEB_DB_COUNTRY_PKG.curr_name;
923: l_has VARCHAR2(1);
924: l_cCardEnabled VARCHAR2(1);
925: l_userId NUMBER;
965:
966:
967: l_debug_info := 'vendor id';
968: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_MAINFLOW_PKG', l_debug_info);
969: IF (NOT AP_WEB_DB_AP_INT_PKG.GetVendorInfoOfEmp(p_employee_id,
970: l_vendor_id,
971: l_vend_pay_curr,
972: l_vend_pay_curr_name
973: )) THEN
977: END IF;
978:
979: l_debug_info := 'Select currency information';
980: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_MAINFLOW_PKG', l_debug_info);
981: IF (AP_WEB_DB_AP_INT_PKG.GetAPSysCurrencySetupInfo(l_SysInfoRec)) THEN
982: l_base_currency := l_SysInfoRec.base_currency;
983: l_sys_multi_curr_flag := l_SysInfoRec.sys_multi_curr_flag;
984: l_base_curr_name := l_SysInfoRec.base_curr_name;
985: END IF;
1139: *----------------------------------------------------------------------------*/
1140: PROCEDURE GetFunctionalCurrencyInfo(p_currencyCode out nocopy varchar2,
1141: p_currencyType out nocopy varchar2)
1142: IS
1143: l_SysInfoRec AP_WEB_DB_AP_INT_PKG.APSysInfoRec;
1144: BEGIN
1145:
1146: AP_WEB_UTILITIES_PKG.LogProcedure('AP_WEB_OA_MAINFLOW_PKG',
1147: 'start GetFunctionalCurrencyInfo');
1147: 'start GetFunctionalCurrencyInfo');
1148: p_currencyCode := null;
1149: p_currencyType := null;
1150:
1151: IF (AP_WEB_DB_AP_INT_PKG.GetAPSysCurrencySetupInfo(l_SysInfoRec)) THEN
1152: p_currencyType := l_SysInfoRec.default_exchange_rate_type;
1153: p_currencyCode := l_SysInfoRec.base_currency;
1154: END IF; /* GetAPSysCurrencySetupInfo */
1155: