427: open CUR_UNAUTH_ACCT;
428: fetch CUR_UNAUTH_ACCT into ap_acct_id,l_account_no;
429: /* if if the Account exists but is not Authorised */
430: if CUR_UNAUTH_ACCT%FOUND then
431: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_ACCT_AUTH');
432: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',l_account_no);
433: P_ERROR_MSG := FND_MESSAGE.GET;
434: /* if if the Account is not set up for the company and currency */
435: Else
428: fetch CUR_UNAUTH_ACCT into ap_acct_id,l_account_no;
429: /* if if the Account exists but is not Authorised */
430: if CUR_UNAUTH_ACCT%FOUND then
431: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_ACCT_AUTH');
432: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',l_account_no);
433: P_ERROR_MSG := FND_MESSAGE.GET;
434: /* if if the Account is not set up for the company and currency */
435: Else
436: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_ACCT');
429: /* if if the Account exists but is not Authorised */
430: if CUR_UNAUTH_ACCT%FOUND then
431: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_ACCT_AUTH');
432: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',l_account_no);
433: P_ERROR_MSG := FND_MESSAGE.GET;
434: /* if if the Account is not set up for the company and currency */
435: Else
436: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_ACCT');
437: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
432: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',l_account_no);
433: P_ERROR_MSG := FND_MESSAGE.GET;
434: /* if if the Account is not set up for the company and currency */
435: Else
436: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_ACCT');
437: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
438: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
439: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY_CODE);
440: P_ERROR_MSG := FND_MESSAGE.GET;
433: P_ERROR_MSG := FND_MESSAGE.GET;
434: /* if if the Account is not set up for the company and currency */
435: Else
436: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_ACCT');
437: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
438: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
439: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY_CODE);
440: P_ERROR_MSG := FND_MESSAGE.GET;
441: End if;
434: /* if if the Account is not set up for the company and currency */
435: Else
436: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_ACCT');
437: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
438: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
439: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY_CODE);
440: P_ERROR_MSG := FND_MESSAGE.GET;
441: End if;
442: close CUR_UNAUTH_ACCT;
435: Else
436: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_ACCT');
437: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
438: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
439: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY_CODE);
440: P_ERROR_MSG := FND_MESSAGE.GET;
441: End if;
442: close CUR_UNAUTH_ACCT;
443: P_RESULT := 'XTR1_NOT_SETUP';
436: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_ACCT');
437: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
438: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
439: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY_CODE);
440: P_ERROR_MSG := FND_MESSAGE.GET;
441: End if;
442: close CUR_UNAUTH_ACCT;
443: P_RESULT := 'XTR1_NOT_SETUP';
444: end if;
450: open GET_COMPANY;
451: fetch GET_COMPANY into l_company;
452: if GET_COMPANY%FOUND then
453: /* This means Company is not Authorised or the user doesnot have access*/
454: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_COMP_AUTH');
455: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
456: P_ERROR_MSG := FND_MESSAGE.GET;
457: /* No Company is setup with the given org ID*/
458: else
451: fetch GET_COMPANY into l_company;
452: if GET_COMPANY%FOUND then
453: /* This means Company is not Authorised or the user doesnot have access*/
454: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_COMP_AUTH');
455: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
456: P_ERROR_MSG := FND_MESSAGE.GET;
457: /* No Company is setup with the given org ID*/
458: else
459: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_COMP');
452: if GET_COMPANY%FOUND then
453: /* This means Company is not Authorised or the user doesnot have access*/
454: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_COMP_AUTH');
455: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
456: P_ERROR_MSG := FND_MESSAGE.GET;
457: /* No Company is setup with the given org ID*/
458: else
459: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_COMP');
460: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
455: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
456: P_ERROR_MSG := FND_MESSAGE.GET;
457: /* No Company is setup with the given org ID*/
458: else
459: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_COMP');
460: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
461: P_ERROR_MSG := FND_MESSAGE.GET;
462: end if;
463: Close GET_COMPANY;
456: P_ERROR_MSG := FND_MESSAGE.GET;
457: /* No Company is setup with the given org ID*/
458: else
459: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_COMP');
460: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
461: P_ERROR_MSG := FND_MESSAGE.GET;
462: end if;
463: Close GET_COMPANY;
464: P_RESULT := 'XTR1_NOT_SETUP';
457: /* No Company is setup with the given org ID*/
458: else
459: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_COMP');
460: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
461: P_ERROR_MSG := FND_MESSAGE.GET;
462: end if;
463: Close GET_COMPANY;
464: P_RESULT := 'XTR1_NOT_SETUP';
465: end if;
873: and COMPANY_CODE = new_company
874: and TRUNC(BALANCE_DATE) = TRUNC(new_date);
875: -- P_RESULT := 'XTR3_BU_OVERWRITE';
876: P_RESULT := 'XTR3_BU_WARNING';
877: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_OVERWRITE');
878: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
879: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
880: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
881: P_ERROR_MSG := FND_MESSAGE.GET;
874: and TRUNC(BALANCE_DATE) = TRUNC(new_date);
875: -- P_RESULT := 'XTR3_BU_OVERWRITE';
876: P_RESULT := 'XTR3_BU_WARNING';
877: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_OVERWRITE');
878: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
879: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
880: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
881: P_ERROR_MSG := FND_MESSAGE.GET;
882: End if;
875: -- P_RESULT := 'XTR3_BU_OVERWRITE';
876: P_RESULT := 'XTR3_BU_WARNING';
877: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_OVERWRITE');
878: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
879: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
880: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
881: P_ERROR_MSG := FND_MESSAGE.GET;
882: End if;
883: --
876: P_RESULT := 'XTR3_BU_WARNING';
877: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_OVERWRITE');
878: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
879: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
880: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
881: P_ERROR_MSG := FND_MESSAGE.GET;
882: End if;
883: --
884: /* Balance for this date and company already exists in the system. Overwriting everything. */
877: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_OVERWRITE');
878: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
879: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
880: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
881: P_ERROR_MSG := FND_MESSAGE.GET;
882: End if;
883: --
884: /* Balance for this date and company already exists in the system. Overwriting everything. */
885: end if;
906: end if;
907: else
908: -- P_RESULT := 'XTR3_BU_FUTURE_DATE'; /* Balance date must be less than sysdate */
909: P_RESULT := 'XTR3_BU_WARNING';
910: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_FUTURE_DATE');
911: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
912: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
913: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
914: P_ERROR_MSG := FND_MESSAGE.GET;
907: else
908: -- P_RESULT := 'XTR3_BU_FUTURE_DATE'; /* Balance date must be less than sysdate */
909: P_RESULT := 'XTR3_BU_WARNING';
910: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_FUTURE_DATE');
911: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
912: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
913: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
914: P_ERROR_MSG := FND_MESSAGE.GET;
915: end if;
908: -- P_RESULT := 'XTR3_BU_FUTURE_DATE'; /* Balance date must be less than sysdate */
909: P_RESULT := 'XTR3_BU_WARNING';
910: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_FUTURE_DATE');
911: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
912: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
913: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
914: P_ERROR_MSG := FND_MESSAGE.GET;
915: end if;
916: commit;
909: P_RESULT := 'XTR3_BU_WARNING';
910: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_FUTURE_DATE');
911: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
912: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
913: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
914: P_ERROR_MSG := FND_MESSAGE.GET;
915: end if;
916: commit;
917: --
910: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_FUTURE_DATE');
911: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
912: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
913: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
914: P_ERROR_MSG := FND_MESSAGE.GET;
915: end if;
916: commit;
917: --
918: End Bank_Balance_Upload;
1042: P_RESULT := 'XTR3_BU_VAL_ERROR';
1043: L_ERROR_CODE := 'XTR_BANK_BALANCE_VAL_ERROR';
1044: End If;
1045: End If;
1046: FND_MESSAGE.SET_NAME('XTR',l_error_code);
1047: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(p_balance_date));
1048: FND_MESSAGE.SET_TOKEN('P_COMPANY',p_company_code);
1049: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',p_account_number);
1050: P_ERROR_MSG := FND_MESSAGE.GET;
1043: L_ERROR_CODE := 'XTR_BANK_BALANCE_VAL_ERROR';
1044: End If;
1045: End If;
1046: FND_MESSAGE.SET_NAME('XTR',l_error_code);
1047: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(p_balance_date));
1048: FND_MESSAGE.SET_TOKEN('P_COMPANY',p_company_code);
1049: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',p_account_number);
1050: P_ERROR_MSG := FND_MESSAGE.GET;
1051: END;
1044: End If;
1045: End If;
1046: FND_MESSAGE.SET_NAME('XTR',l_error_code);
1047: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(p_balance_date));
1048: FND_MESSAGE.SET_TOKEN('P_COMPANY',p_company_code);
1049: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',p_account_number);
1050: P_ERROR_MSG := FND_MESSAGE.GET;
1051: END;
1052:
1045: End If;
1046: FND_MESSAGE.SET_NAME('XTR',l_error_code);
1047: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(p_balance_date));
1048: FND_MESSAGE.SET_TOKEN('P_COMPANY',p_company_code);
1049: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',p_account_number);
1050: P_ERROR_MSG := FND_MESSAGE.GET;
1051: END;
1052:
1053:
1046: FND_MESSAGE.SET_NAME('XTR',l_error_code);
1047: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(p_balance_date));
1048: FND_MESSAGE.SET_TOKEN('P_COMPANY',p_company_code);
1049: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',p_account_number);
1050: P_ERROR_MSG := FND_MESSAGE.GET;
1051: END;
1052:
1053:
1054: Procedure Settlement_Validation(
1145: /*--------------------------------------------*/
1146: /* AP Acct is not setup as a Shared acct. */
1147: /*--------------------------------------------*/
1148: P_RESULT := 'FAIL';
1149: FND_MESSAGE.SET_NAME('XTR','XTR_NOT_AP_XTR_SHARED'); -- new message **************************************************************
1150: FND_MESSAGE.SET_TOKEN('P_AP_ACCOUNT_ID', P_ce_bank_account_id);
1151: FND_MESSAGE.SET_TOKEN('P_CURRENCY', P_CURRENCY);
1152:
1153: else
1146: /* AP Acct is not setup as a Shared acct. */
1147: /*--------------------------------------------*/
1148: P_RESULT := 'FAIL';
1149: FND_MESSAGE.SET_NAME('XTR','XTR_NOT_AP_XTR_SHARED'); -- new message **************************************************************
1150: FND_MESSAGE.SET_TOKEN('P_AP_ACCOUNT_ID', P_ce_bank_account_id);
1151: FND_MESSAGE.SET_TOKEN('P_CURRENCY', P_CURRENCY);
1152:
1153: else
1154:
1147: /*--------------------------------------------*/
1148: P_RESULT := 'FAIL';
1149: FND_MESSAGE.SET_NAME('XTR','XTR_NOT_AP_XTR_SHARED'); -- new message **************************************************************
1150: FND_MESSAGE.SET_TOKEN('P_AP_ACCOUNT_ID', P_ce_bank_account_id);
1151: FND_MESSAGE.SET_TOKEN('P_CURRENCY', P_CURRENCY);
1152:
1153: else
1154:
1155: open GET_COMPANY;
1159: /* ORG_ID not setup as Company in Treasury. */
1160: /*--------------------------------------------*/
1161: -- A company that corresponds to the legal entity for Org. ID P_ORG_ID is not set up in Treasury.
1162: P_RESULT := 'FAIL';
1163: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_COMP');
1164: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
1165:
1166: else
1167:
1160: /*--------------------------------------------*/
1161: -- A company that corresponds to the legal entity for Org. ID P_ORG_ID is not set up in Treasury.
1162: P_RESULT := 'FAIL';
1163: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_COMP');
1164: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
1165:
1166: else
1167:
1168: open CHK_USER_ACCESS;
1172: /* Unauthorised User for this Company */
1173: /*--------------------------------------------*/
1174: -- The user does not have the authority to access the company P_COMPANY.
1175: P_RESULT := 'FAIL';
1176: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_COMP_AUTH');
1177: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
1178:
1179: else
1180:
1173: /*--------------------------------------------*/
1174: -- The user does not have the authority to access the company P_COMPANY.
1175: P_RESULT := 'FAIL';
1176: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_COMP_AUTH');
1177: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
1178:
1179: else
1180:
1181: open CHK_AUTH_ACCT;
1184: /*------------------------------------------------*/
1185: /* Wrong Org_id and AP_Bank_Account combination */
1186: /*------------------------------------------------*/
1187: P_RESULT := 'FAIL';
1188: FND_MESSAGE.SET_NAME('XTR','XTR_INVALID_ORG_ACCT'); -- new message *******************************************************
1189: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
1190: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
1191:
1192: else
1185: /* Wrong Org_id and AP_Bank_Account combination */
1186: /*------------------------------------------------*/
1187: P_RESULT := 'FAIL';
1188: FND_MESSAGE.SET_NAME('XTR','XTR_INVALID_ORG_ACCT'); -- new message *******************************************************
1189: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
1190: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
1191:
1192: else
1193: if nvl(l_auth_flag,'N') = 'N' then
1186: /*------------------------------------------------*/
1187: P_RESULT := 'FAIL';
1188: FND_MESSAGE.SET_NAME('XTR','XTR_INVALID_ORG_ACCT'); -- new message *******************************************************
1189: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
1190: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
1191:
1192: else
1193: if nvl(l_auth_flag,'N') = 'N' then
1194: /*--------------------------------------*/
1195: /* Account is not authorised for use. */
1196: /*--------------------------------------*/
1197: -- The bank account P_ACCOUNT is not authorized in Treasury.
1198: P_RESULT := 'FAIL';
1199: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_ACCT_AUTH');
1200: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',l_acct_no);
1201:
1202: else
1203: /*--------------------------------------*/
1196: /*--------------------------------------*/
1197: -- The bank account P_ACCOUNT is not authorized in Treasury.
1198: P_RESULT := 'FAIL';
1199: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_ACCT_AUTH');
1200: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',l_acct_no);
1201:
1202: else
1203: /*--------------------------------------*/
1204: /* AP/XTR Shared account. */
1226: /*--------------------------------------------*/
1227: /* Account Number does not exist in Treasury */
1228: /*--------------------------------------------*/
1229: P_RESULT := 'FAIL';
1230: FND_MESSAGE.SET_NAME('XTR','XTR_ACCT_NOT_SETUP'); -- new message ******************************************************************
1231: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_NO',P_ACCOUNT_NUMBER);
1232: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY);
1233:
1234: else
1227: /* Account Number does not exist in Treasury */
1228: /*--------------------------------------------*/
1229: P_RESULT := 'FAIL';
1230: FND_MESSAGE.SET_NAME('XTR','XTR_ACCT_NOT_SETUP'); -- new message ******************************************************************
1231: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_NO',P_ACCOUNT_NUMBER);
1232: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY);
1233:
1234: else
1235: if a_comp(l_company) then
1228: /*--------------------------------------------*/
1229: P_RESULT := 'FAIL';
1230: FND_MESSAGE.SET_NAME('XTR','XTR_ACCT_NOT_SETUP'); -- new message ******************************************************************
1231: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_NO',P_ACCOUNT_NUMBER);
1232: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY);
1233:
1234: else
1235: if a_comp(l_company) then
1236: open CHK_USER_ACCESS;
1240: /* Unauthorised User for this Company */
1241: /*--------------------------------------------*/
1242: -- The user does not have the authority to access the company P_COMPANY.
1243: P_RESULT := 'FAIL';
1244: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_COMP_AUTH');
1245: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
1246: end if;
1247: close CHK_USER_ACCESS;
1248: end if;
1241: /*--------------------------------------------*/
1242: -- The user does not have the authority to access the company P_COMPANY.
1243: P_RESULT := 'FAIL';
1244: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_COMP_AUTH');
1245: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
1246: end if;
1247: close CHK_USER_ACCESS;
1248: end if;
1249:
1253: /* Account is not authorised for use. */
1254: /*--------------------------------------*/
1255: -- The bank account P_ACCOUNT is not authorized in Treasury.
1256: P_RESULT := 'FAIL';
1257: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_ACCT_AUTH');
1258: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',P_ACCOUNT_NUMBER);
1259:
1260: else
1261: P_BANK_ACCOUNT_ID := l_dummy_ap_acct;
1254: /*--------------------------------------*/
1255: -- The bank account P_ACCOUNT is not authorized in Treasury.
1256: P_RESULT := 'FAIL';
1257: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_ACCT_AUTH');
1258: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',P_ACCOUNT_NUMBER);
1259:
1260: else
1261: P_BANK_ACCOUNT_ID := l_dummy_ap_acct;
1262: fetch CHK_UNIQUE_ACCT into l_auth_flag, l_company, l_dummy_ap_acct;
1265: /* Duplicate Account is found. */
1266: /*--------------------------------------*/
1267: P_BANK_ACCOUNT_ID := null;
1268: P_RESULT := 'FAIL';
1269: FND_MESSAGE.SET_NAME('XTR','XTR_DUPLICATE_ACCOUNT'); -- new message ******************************************************
1270: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_NUMBER',P_ACCOUNT_NUMBER);
1271: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY);
1272:
1273: else
1266: /*--------------------------------------*/
1267: P_BANK_ACCOUNT_ID := null;
1268: P_RESULT := 'FAIL';
1269: FND_MESSAGE.SET_NAME('XTR','XTR_DUPLICATE_ACCOUNT'); -- new message ******************************************************
1270: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_NUMBER',P_ACCOUNT_NUMBER);
1271: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY);
1272:
1273: else
1274: P_RESULT := 'PASS';
1267: P_BANK_ACCOUNT_ID := null;
1268: P_RESULT := 'FAIL';
1269: FND_MESSAGE.SET_NAME('XTR','XTR_DUPLICATE_ACCOUNT'); -- new message ******************************************************
1270: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_NUMBER',P_ACCOUNT_NUMBER);
1271: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY);
1272:
1273: else
1274: P_RESULT := 'PASS';
1275: end if;
1281: close CHK_UNIQUE_ACCT;
1282:
1283: else
1284: P_RESULT := 'FAIL';
1285: FND_MESSAGE.SET_NAME('XTR','XTR_IMPORT_UNEXPECTED_ERROR'); -- existing message ****************************************************
1286:
1287: end if; -- P_ORG_ID + P_AP_BANK_ACCOUNT_ID not null
1288:
1289:
1287: end if; -- P_ORG_ID + P_AP_BANK_ACCOUNT_ID not null
1288:
1289:
1290: if P_RESULT = 'FAIL' then
1291: P_ERROR_MSG := FND_MESSAGE.GET;
1292: end if;
1293:
1294: END ZBA_BANK_ACCOUNT_VERIFICATION;
1295:
1769: l_tran_no,
1770: p_zba_duplicate);
1771:
1772: if p_zba_duplicate then
1773: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1774: fnd_message.set_token ('DEAL_TYPE','IG');
1775: fnd_message.set_token ('DEAL_NUMBER',l_deal_no);
1776: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_no);
1777: fnd_msg_pub.add;
1770: p_zba_duplicate);
1771:
1772: if p_zba_duplicate then
1773: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1774: fnd_message.set_token ('DEAL_TYPE','IG');
1775: fnd_message.set_token ('DEAL_NUMBER',l_deal_no);
1776: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_no);
1777: fnd_msg_pub.add;
1778: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C1');
1771:
1772: if p_zba_duplicate then
1773: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1774: fnd_message.set_token ('DEAL_TYPE','IG');
1775: fnd_message.set_token ('DEAL_NUMBER',l_deal_no);
1776: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_no);
1777: fnd_msg_pub.add;
1778: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C1');
1779:
1772: if p_zba_duplicate then
1773: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1774: fnd_message.set_token ('DEAL_TYPE','IG');
1775: fnd_message.set_token ('DEAL_NUMBER',l_deal_no);
1776: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_no);
1777: fnd_msg_pub.add;
1778: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C1');
1779:
1780: else
1803: l_tran_no,
1804: p_zba_duplicate);
1805:
1806: if p_zba_duplicate then
1807: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1808: fnd_message.set_token ('DEAL_TYPE','IG');
1809: fnd_message.set_token ('DEAL_NUMBER',l_deal_no);
1810: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_no);
1811: fnd_msg_pub.add;
1804: p_zba_duplicate);
1805:
1806: if p_zba_duplicate then
1807: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1808: fnd_message.set_token ('DEAL_TYPE','IG');
1809: fnd_message.set_token ('DEAL_NUMBER',l_deal_no);
1810: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_no);
1811: fnd_msg_pub.add;
1812: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C2');
1805:
1806: if p_zba_duplicate then
1807: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1808: fnd_message.set_token ('DEAL_TYPE','IG');
1809: fnd_message.set_token ('DEAL_NUMBER',l_deal_no);
1810: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_no);
1811: fnd_msg_pub.add;
1812: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C2');
1813: end if;
1806: if p_zba_duplicate then
1807: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1808: fnd_message.set_token ('DEAL_TYPE','IG');
1809: fnd_message.set_token ('DEAL_NUMBER',l_deal_no);
1810: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_no);
1811: fnd_msg_pub.add;
1812: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C2');
1813: end if;
1814:
1863: open chk_reconcile ('IAC');
1864: fetch chk_reconcile into l_tran_num;
1865: if chk_reconcile%FOUND then
1866: l_duplicate := TRUE;
1867: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1868: fnd_message.set_token ('DEAL_TYPE','IAC');
1869: fnd_message.set_token ('DEAL_NUMBER',0);
1870: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_num);
1871: fnd_msg_pub.add;
1864: fetch chk_reconcile into l_tran_num;
1865: if chk_reconcile%FOUND then
1866: l_duplicate := TRUE;
1867: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1868: fnd_message.set_token ('DEAL_TYPE','IAC');
1869: fnd_message.set_token ('DEAL_NUMBER',0);
1870: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_num);
1871: fnd_msg_pub.add;
1872: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C2');
1865: if chk_reconcile%FOUND then
1866: l_duplicate := TRUE;
1867: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1868: fnd_message.set_token ('DEAL_TYPE','IAC');
1869: fnd_message.set_token ('DEAL_NUMBER',0);
1870: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_num);
1871: fnd_msg_pub.add;
1872: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C2');
1873: else
1866: l_duplicate := TRUE;
1867: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1868: fnd_message.set_token ('DEAL_TYPE','IAC');
1869: fnd_message.set_token ('DEAL_NUMBER',0);
1870: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_num);
1871: fnd_msg_pub.add;
1872: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C2');
1873: else
1874: l_duplicate := FALSE;