228: open CUR_UNAUTH_ACCT;
229: fetch CUR_UNAUTH_ACCT into ap_acct_id,l_account_no;
230: /* if if the Account exists but is not Authorised */
231: if CUR_UNAUTH_ACCT%FOUND then
232: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_ACCT_AUTH');
233: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',l_account_no);
234: P_ERROR_MSG := FND_MESSAGE.GET;
235: /* if if the Account is not set up for the company and currency */
236: Else
229: fetch CUR_UNAUTH_ACCT into ap_acct_id,l_account_no;
230: /* if if the Account exists but is not Authorised */
231: if CUR_UNAUTH_ACCT%FOUND then
232: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_ACCT_AUTH');
233: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',l_account_no);
234: P_ERROR_MSG := FND_MESSAGE.GET;
235: /* if if the Account is not set up for the company and currency */
236: Else
237: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_ACCT');
230: /* if if the Account exists but is not Authorised */
231: if CUR_UNAUTH_ACCT%FOUND then
232: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_ACCT_AUTH');
233: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',l_account_no);
234: P_ERROR_MSG := FND_MESSAGE.GET;
235: /* if if the Account is not set up for the company and currency */
236: Else
237: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_ACCT');
238: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
233: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',l_account_no);
234: P_ERROR_MSG := FND_MESSAGE.GET;
235: /* if if the Account is not set up for the company and currency */
236: Else
237: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_ACCT');
238: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
239: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
240: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY_CODE);
241: P_ERROR_MSG := FND_MESSAGE.GET;
234: P_ERROR_MSG := FND_MESSAGE.GET;
235: /* if if the Account is not set up for the company and currency */
236: Else
237: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_ACCT');
238: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
239: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
240: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY_CODE);
241: P_ERROR_MSG := FND_MESSAGE.GET;
242: End if;
235: /* if if the Account is not set up for the company and currency */
236: Else
237: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_ACCT');
238: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
239: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
240: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY_CODE);
241: P_ERROR_MSG := FND_MESSAGE.GET;
242: End if;
243: close CUR_UNAUTH_ACCT;
236: Else
237: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_ACCT');
238: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
239: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
240: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY_CODE);
241: P_ERROR_MSG := FND_MESSAGE.GET;
242: End if;
243: close CUR_UNAUTH_ACCT;
244: P_RESULT := 'XTR1_NOT_SETUP';
237: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_ACCT');
238: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
239: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
240: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY_CODE);
241: P_ERROR_MSG := FND_MESSAGE.GET;
242: End if;
243: close CUR_UNAUTH_ACCT;
244: P_RESULT := 'XTR1_NOT_SETUP';
245: end if;
251: open GET_COMPANY;
252: fetch GET_COMPANY into l_company;
253: if GET_COMPANY%FOUND then
254: /* This means Company is not Authorised or the user doesnot have access*/
255: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_COMP_AUTH');
256: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
257: P_ERROR_MSG := FND_MESSAGE.GET;
258: /* No Company is setup with the given org ID*/
259: else
252: fetch GET_COMPANY into l_company;
253: if GET_COMPANY%FOUND then
254: /* This means Company is not Authorised or the user doesnot have access*/
255: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_COMP_AUTH');
256: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
257: P_ERROR_MSG := FND_MESSAGE.GET;
258: /* No Company is setup with the given org ID*/
259: else
260: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_COMP');
253: if GET_COMPANY%FOUND then
254: /* This means Company is not Authorised or the user doesnot have access*/
255: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_COMP_AUTH');
256: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
257: P_ERROR_MSG := FND_MESSAGE.GET;
258: /* No Company is setup with the given org ID*/
259: else
260: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_COMP');
261: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
256: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
257: P_ERROR_MSG := FND_MESSAGE.GET;
258: /* No Company is setup with the given org ID*/
259: else
260: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_COMP');
261: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
262: P_ERROR_MSG := FND_MESSAGE.GET;
263: end if;
264: Close GET_COMPANY;
257: P_ERROR_MSG := FND_MESSAGE.GET;
258: /* No Company is setup with the given org ID*/
259: else
260: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_COMP');
261: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
262: P_ERROR_MSG := FND_MESSAGE.GET;
263: end if;
264: Close GET_COMPANY;
265: P_RESULT := 'XTR1_NOT_SETUP';
258: /* No Company is setup with the given org ID*/
259: else
260: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_COMP');
261: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
262: P_ERROR_MSG := FND_MESSAGE.GET;
263: end if;
264: Close GET_COMPANY;
265: P_RESULT := 'XTR1_NOT_SETUP';
266: end if;
674: and COMPANY_CODE = new_company
675: and TRUNC(BALANCE_DATE) = TRUNC(new_date);
676: -- P_RESULT := 'XTR3_BU_OVERWRITE';
677: P_RESULT := 'XTR3_BU_WARNING';
678: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_OVERWRITE');
679: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
680: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
681: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
682: P_ERROR_MSG := FND_MESSAGE.GET;
675: and TRUNC(BALANCE_DATE) = TRUNC(new_date);
676: -- P_RESULT := 'XTR3_BU_OVERWRITE';
677: P_RESULT := 'XTR3_BU_WARNING';
678: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_OVERWRITE');
679: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
680: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
681: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
682: P_ERROR_MSG := FND_MESSAGE.GET;
683: End if;
676: -- P_RESULT := 'XTR3_BU_OVERWRITE';
677: P_RESULT := 'XTR3_BU_WARNING';
678: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_OVERWRITE');
679: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
680: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
681: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
682: P_ERROR_MSG := FND_MESSAGE.GET;
683: End if;
684: --
677: P_RESULT := 'XTR3_BU_WARNING';
678: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_OVERWRITE');
679: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
680: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
681: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
682: P_ERROR_MSG := FND_MESSAGE.GET;
683: End if;
684: --
685: /* Balance for this date and company already exists in the system. Overwriting everything. */
678: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_OVERWRITE');
679: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
680: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
681: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
682: P_ERROR_MSG := FND_MESSAGE.GET;
683: End if;
684: --
685: /* Balance for this date and company already exists in the system. Overwriting everything. */
686: end if;
707: end if;
708: else
709: -- P_RESULT := 'XTR3_BU_FUTURE_DATE'; /* Balance date must be less than sysdate */
710: P_RESULT := 'XTR3_BU_WARNING';
711: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_FUTURE_DATE');
712: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
713: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
714: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
715: P_ERROR_MSG := FND_MESSAGE.GET;
708: else
709: -- P_RESULT := 'XTR3_BU_FUTURE_DATE'; /* Balance date must be less than sysdate */
710: P_RESULT := 'XTR3_BU_WARNING';
711: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_FUTURE_DATE');
712: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
713: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
714: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
715: P_ERROR_MSG := FND_MESSAGE.GET;
716: end if;
709: -- P_RESULT := 'XTR3_BU_FUTURE_DATE'; /* Balance date must be less than sysdate */
710: P_RESULT := 'XTR3_BU_WARNING';
711: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_FUTURE_DATE');
712: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
713: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
714: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
715: P_ERROR_MSG := FND_MESSAGE.GET;
716: end if;
717: commit;
710: P_RESULT := 'XTR3_BU_WARNING';
711: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_FUTURE_DATE');
712: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
713: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
714: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
715: P_ERROR_MSG := FND_MESSAGE.GET;
716: end if;
717: commit;
718: --
711: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_FUTURE_DATE');
712: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(new_date));
713: FND_MESSAGE.SET_TOKEN('P_COMPANY',new_company);
714: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',acct_no);
715: P_ERROR_MSG := FND_MESSAGE.GET;
716: end if;
717: commit;
718: --
719: End Bank_Balance_Upload;
808: P_RESULT := 'XTR3_BU_VAL_ERROR';
809: L_ERROR_CODE := 'XTR_BANK_BALANCE_VAL_ERROR';
810: End If;
811: End If;
812: FND_MESSAGE.SET_NAME('XTR',l_error_code);
813: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(p_balance_date));
814: FND_MESSAGE.SET_TOKEN('P_COMPANY',p_company_code);
815: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',p_account_number);
816: P_ERROR_MSG := FND_MESSAGE.GET;
809: L_ERROR_CODE := 'XTR_BANK_BALANCE_VAL_ERROR';
810: End If;
811: End If;
812: FND_MESSAGE.SET_NAME('XTR',l_error_code);
813: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(p_balance_date));
814: FND_MESSAGE.SET_TOKEN('P_COMPANY',p_company_code);
815: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',p_account_number);
816: P_ERROR_MSG := FND_MESSAGE.GET;
817: END;
810: End If;
811: End If;
812: FND_MESSAGE.SET_NAME('XTR',l_error_code);
813: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(p_balance_date));
814: FND_MESSAGE.SET_TOKEN('P_COMPANY',p_company_code);
815: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',p_account_number);
816: P_ERROR_MSG := FND_MESSAGE.GET;
817: END;
818:
811: End If;
812: FND_MESSAGE.SET_NAME('XTR',l_error_code);
813: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(p_balance_date));
814: FND_MESSAGE.SET_TOKEN('P_COMPANY',p_company_code);
815: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',p_account_number);
816: P_ERROR_MSG := FND_MESSAGE.GET;
817: END;
818:
819:
812: FND_MESSAGE.SET_NAME('XTR',l_error_code);
813: FND_MESSAGE.SET_TOKEN('P_DATE',trunc(p_balance_date));
814: FND_MESSAGE.SET_TOKEN('P_COMPANY',p_company_code);
815: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',p_account_number);
816: P_ERROR_MSG := FND_MESSAGE.GET;
817: END;
818:
819:
820: Procedure Settlement_Validation(
911: /*--------------------------------------------*/
912: /* AP Acct is not setup as a Shared acct. */
913: /*--------------------------------------------*/
914: P_RESULT := 'FAIL';
915: FND_MESSAGE.SET_NAME('XTR','XTR_NOT_AP_XTR_SHARED'); -- new message **************************************************************
916: FND_MESSAGE.SET_TOKEN('P_AP_ACCOUNT_ID', P_ce_bank_account_id);
917: FND_MESSAGE.SET_TOKEN('P_CURRENCY', P_CURRENCY);
918:
919: else
912: /* AP Acct is not setup as a Shared acct. */
913: /*--------------------------------------------*/
914: P_RESULT := 'FAIL';
915: FND_MESSAGE.SET_NAME('XTR','XTR_NOT_AP_XTR_SHARED'); -- new message **************************************************************
916: FND_MESSAGE.SET_TOKEN('P_AP_ACCOUNT_ID', P_ce_bank_account_id);
917: FND_MESSAGE.SET_TOKEN('P_CURRENCY', P_CURRENCY);
918:
919: else
920:
913: /*--------------------------------------------*/
914: P_RESULT := 'FAIL';
915: FND_MESSAGE.SET_NAME('XTR','XTR_NOT_AP_XTR_SHARED'); -- new message **************************************************************
916: FND_MESSAGE.SET_TOKEN('P_AP_ACCOUNT_ID', P_ce_bank_account_id);
917: FND_MESSAGE.SET_TOKEN('P_CURRENCY', P_CURRENCY);
918:
919: else
920:
921: open GET_COMPANY;
925: /* ORG_ID not setup as Company in Treasury. */
926: /*--------------------------------------------*/
927: -- A company that corresponds to the legal entity for Org. ID P_ORG_ID is not set up in Treasury.
928: P_RESULT := 'FAIL';
929: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_COMP');
930: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
931:
932: else
933:
926: /*--------------------------------------------*/
927: -- A company that corresponds to the legal entity for Org. ID P_ORG_ID is not set up in Treasury.
928: P_RESULT := 'FAIL';
929: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_INV_COMP');
930: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
931:
932: else
933:
934: open CHK_USER_ACCESS;
938: /* Unauthorised User for this Company */
939: /*--------------------------------------------*/
940: -- The user does not have the authority to access the company P_COMPANY.
941: P_RESULT := 'FAIL';
942: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_COMP_AUTH');
943: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
944:
945: else
946:
939: /*--------------------------------------------*/
940: -- The user does not have the authority to access the company P_COMPANY.
941: P_RESULT := 'FAIL';
942: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_COMP_AUTH');
943: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
944:
945: else
946:
947: open CHK_AUTH_ACCT;
950: /*------------------------------------------------*/
951: /* Wrong Org_id and AP_Bank_Account combination */
952: /*------------------------------------------------*/
953: P_RESULT := 'FAIL';
954: FND_MESSAGE.SET_NAME('XTR','XTR_INVALID_ORG_ACCT'); -- new message *******************************************************
955: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
956: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
957:
958: else
951: /* Wrong Org_id and AP_Bank_Account combination */
952: /*------------------------------------------------*/
953: P_RESULT := 'FAIL';
954: FND_MESSAGE.SET_NAME('XTR','XTR_INVALID_ORG_ACCT'); -- new message *******************************************************
955: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
956: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
957:
958: else
959: if nvl(l_auth_flag,'N') = 'N' then
952: /*------------------------------------------------*/
953: P_RESULT := 'FAIL';
954: FND_MESSAGE.SET_NAME('XTR','XTR_INVALID_ORG_ACCT'); -- new message *******************************************************
955: FND_MESSAGE.SET_TOKEN('P_ORG_ID',P_ORG_ID);
956: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_ID',P_ce_bank_account_id);
957:
958: else
959: if nvl(l_auth_flag,'N') = 'N' then
960: /*--------------------------------------*/
961: /* Account is not authorised for use. */
962: /*--------------------------------------*/
963: -- The bank account P_ACCOUNT is not authorized in Treasury.
964: P_RESULT := 'FAIL';
965: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_ACCT_AUTH');
966: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',l_acct_no);
967:
968: else
969: /*--------------------------------------*/
962: /*--------------------------------------*/
963: -- The bank account P_ACCOUNT is not authorized in Treasury.
964: P_RESULT := 'FAIL';
965: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_ACCT_AUTH');
966: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',l_acct_no);
967:
968: else
969: /*--------------------------------------*/
970: /* AP/XTR Shared account. */
992: /*--------------------------------------------*/
993: /* Account Number does not exist in Treasury */
994: /*--------------------------------------------*/
995: P_RESULT := 'FAIL';
996: FND_MESSAGE.SET_NAME('XTR','XTR_ACCT_NOT_SETUP'); -- new message ******************************************************************
997: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_NO',P_ACCOUNT_NUMBER);
998: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY);
999:
1000: else
993: /* Account Number does not exist in Treasury */
994: /*--------------------------------------------*/
995: P_RESULT := 'FAIL';
996: FND_MESSAGE.SET_NAME('XTR','XTR_ACCT_NOT_SETUP'); -- new message ******************************************************************
997: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_NO',P_ACCOUNT_NUMBER);
998: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY);
999:
1000: else
1001: if a_comp(l_company) then
994: /*--------------------------------------------*/
995: P_RESULT := 'FAIL';
996: FND_MESSAGE.SET_NAME('XTR','XTR_ACCT_NOT_SETUP'); -- new message ******************************************************************
997: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_NO',P_ACCOUNT_NUMBER);
998: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY);
999:
1000: else
1001: if a_comp(l_company) then
1002: open CHK_USER_ACCESS;
1006: /* Unauthorised User for this Company */
1007: /*--------------------------------------------*/
1008: -- The user does not have the authority to access the company P_COMPANY.
1009: P_RESULT := 'FAIL';
1010: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_COMP_AUTH');
1011: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
1012: end if;
1013: close CHK_USER_ACCESS;
1014: end if;
1007: /*--------------------------------------------*/
1008: -- The user does not have the authority to access the company P_COMPANY.
1009: P_RESULT := 'FAIL';
1010: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_COMP_AUTH');
1011: FND_MESSAGE.SET_TOKEN('P_COMPANY',l_company);
1012: end if;
1013: close CHK_USER_ACCESS;
1014: end if;
1015:
1019: /* Account is not authorised for use. */
1020: /*--------------------------------------*/
1021: -- The bank account P_ACCOUNT is not authorized in Treasury.
1022: P_RESULT := 'FAIL';
1023: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_ACCT_AUTH');
1024: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',P_ACCOUNT_NUMBER);
1025:
1026: else
1027: P_BANK_ACCOUNT_ID := l_dummy_ap_acct;
1020: /*--------------------------------------*/
1021: -- The bank account P_ACCOUNT is not authorized in Treasury.
1022: P_RESULT := 'FAIL';
1023: FND_MESSAGE.SET_NAME('XTR','XTR_BANK_BAL_ACCT_AUTH');
1024: FND_MESSAGE.SET_TOKEN('P_ACCOUNT',P_ACCOUNT_NUMBER);
1025:
1026: else
1027: P_BANK_ACCOUNT_ID := l_dummy_ap_acct;
1028: fetch CHK_UNIQUE_ACCT into l_auth_flag, l_company, l_dummy_ap_acct;
1031: /* Duplicate Account is found. */
1032: /*--------------------------------------*/
1033: P_BANK_ACCOUNT_ID := null;
1034: P_RESULT := 'FAIL';
1035: FND_MESSAGE.SET_NAME('XTR','XTR_DUPLICATE_ACCOUNT'); -- new message ******************************************************
1036: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_NUMBER',P_ACCOUNT_NUMBER);
1037: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY);
1038:
1039: else
1032: /*--------------------------------------*/
1033: P_BANK_ACCOUNT_ID := null;
1034: P_RESULT := 'FAIL';
1035: FND_MESSAGE.SET_NAME('XTR','XTR_DUPLICATE_ACCOUNT'); -- new message ******************************************************
1036: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_NUMBER',P_ACCOUNT_NUMBER);
1037: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY);
1038:
1039: else
1040: P_RESULT := 'PASS';
1033: P_BANK_ACCOUNT_ID := null;
1034: P_RESULT := 'FAIL';
1035: FND_MESSAGE.SET_NAME('XTR','XTR_DUPLICATE_ACCOUNT'); -- new message ******************************************************
1036: FND_MESSAGE.SET_TOKEN('P_ACCOUNT_NUMBER',P_ACCOUNT_NUMBER);
1037: FND_MESSAGE.SET_TOKEN('P_CURRENCY',P_CURRENCY);
1038:
1039: else
1040: P_RESULT := 'PASS';
1041: end if;
1047: close CHK_UNIQUE_ACCT;
1048:
1049: else
1050: P_RESULT := 'FAIL';
1051: FND_MESSAGE.SET_NAME('XTR','XTR_IMPORT_UNEXPECTED_ERROR'); -- existing message ****************************************************
1052:
1053: end if; -- P_ORG_ID + P_AP_BANK_ACCOUNT_ID not null
1054:
1055:
1053: end if; -- P_ORG_ID + P_AP_BANK_ACCOUNT_ID not null
1054:
1055:
1056: if P_RESULT = 'FAIL' then
1057: P_ERROR_MSG := FND_MESSAGE.GET;
1058: end if;
1059:
1060: END ZBA_BANK_ACCOUNT_VERIFICATION;
1061:
1535: l_tran_no,
1536: p_zba_duplicate);
1537:
1538: if p_zba_duplicate then
1539: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1540: fnd_message.set_token ('DEAL_TYPE','IG');
1541: fnd_message.set_token ('DEAL_NUMBER',l_deal_no);
1542: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_no);
1543: fnd_msg_pub.add;
1536: p_zba_duplicate);
1537:
1538: if p_zba_duplicate then
1539: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1540: fnd_message.set_token ('DEAL_TYPE','IG');
1541: fnd_message.set_token ('DEAL_NUMBER',l_deal_no);
1542: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_no);
1543: fnd_msg_pub.add;
1544: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C1');
1537:
1538: if p_zba_duplicate then
1539: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1540: fnd_message.set_token ('DEAL_TYPE','IG');
1541: fnd_message.set_token ('DEAL_NUMBER',l_deal_no);
1542: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_no);
1543: fnd_msg_pub.add;
1544: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C1');
1545:
1538: if p_zba_duplicate then
1539: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1540: fnd_message.set_token ('DEAL_TYPE','IG');
1541: fnd_message.set_token ('DEAL_NUMBER',l_deal_no);
1542: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_no);
1543: fnd_msg_pub.add;
1544: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C1');
1545:
1546: else
1569: l_tran_no,
1570: p_zba_duplicate);
1571:
1572: if p_zba_duplicate then
1573: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1574: fnd_message.set_token ('DEAL_TYPE','IG');
1575: fnd_message.set_token ('DEAL_NUMBER',l_deal_no);
1576: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_no);
1577: fnd_msg_pub.add;
1570: p_zba_duplicate);
1571:
1572: if p_zba_duplicate then
1573: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1574: fnd_message.set_token ('DEAL_TYPE','IG');
1575: fnd_message.set_token ('DEAL_NUMBER',l_deal_no);
1576: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_no);
1577: fnd_msg_pub.add;
1578: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C2');
1571:
1572: if p_zba_duplicate then
1573: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1574: fnd_message.set_token ('DEAL_TYPE','IG');
1575: fnd_message.set_token ('DEAL_NUMBER',l_deal_no);
1576: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_no);
1577: fnd_msg_pub.add;
1578: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C2');
1579: end if;
1572: if p_zba_duplicate then
1573: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1574: fnd_message.set_token ('DEAL_TYPE','IG');
1575: fnd_message.set_token ('DEAL_NUMBER',l_deal_no);
1576: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_no);
1577: fnd_msg_pub.add;
1578: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C2');
1579: end if;
1580:
1629: open chk_reconcile ('IAC');
1630: fetch chk_reconcile into l_tran_num;
1631: if chk_reconcile%FOUND then
1632: l_duplicate := TRUE;
1633: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1634: fnd_message.set_token ('DEAL_TYPE','IAC');
1635: fnd_message.set_token ('DEAL_NUMBER',0);
1636: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_num);
1637: fnd_msg_pub.add;
1630: fetch chk_reconcile into l_tran_num;
1631: if chk_reconcile%FOUND then
1632: l_duplicate := TRUE;
1633: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1634: fnd_message.set_token ('DEAL_TYPE','IAC');
1635: fnd_message.set_token ('DEAL_NUMBER',0);
1636: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_num);
1637: fnd_msg_pub.add;
1638: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C2');
1631: if chk_reconcile%FOUND then
1632: l_duplicate := TRUE;
1633: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1634: fnd_message.set_token ('DEAL_TYPE','IAC');
1635: fnd_message.set_token ('DEAL_NUMBER',0);
1636: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_num);
1637: fnd_msg_pub.add;
1638: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C2');
1639: else
1632: l_duplicate := TRUE;
1633: fnd_message.set_name ('XTR','XTR_DUPLICATE_ZBA_CL');
1634: fnd_message.set_token ('DEAL_TYPE','IAC');
1635: fnd_message.set_token ('DEAL_NUMBER',0);
1636: fnd_message.set_token ('TRANSACTION_NUMBER',l_tran_num);
1637: fnd_msg_pub.add;
1638: --dbms_output.put_line('wrap XTR_DUPLICATE_ZBA_CL = C2');
1639: else
1640: l_duplicate := FALSE;