827: IF p_error_code = 'XTR_MANDATORY' THEN
828: OPEN c_field_name(p_field_name);
829: FETCH c_field_name INTO l_field_name;
830: CLOSE c_field_name;
831: FND_MESSAGE.Set_Name('XTR','XTR_MANDATORY_FIELD');
832: FND_MESSAGE.Set_Token('FIELD', l_field_name);
833: FND_MSG_PUB.Add; -- Adds the error messages to the list.
834:
835: ELSIF p_error_code = 'XTR_INV_TRS_PRICING_MODEL' THEN
828: OPEN c_field_name(p_field_name);
829: FETCH c_field_name INTO l_field_name;
830: CLOSE c_field_name;
831: FND_MESSAGE.Set_Name('XTR','XTR_MANDATORY_FIELD');
832: FND_MESSAGE.Set_Token('FIELD', l_field_name);
833: FND_MSG_PUB.Add; -- Adds the error messages to the list.
834:
835: ELSIF p_error_code = 'XTR_INV_TRS_PRICING_MODEL' THEN
836:
833: FND_MSG_PUB.Add; -- Adds the error messages to the list.
834:
835: ELSIF p_error_code = 'XTR_INV_TRS_PRICING_MODEL' THEN
836:
837: FND_MESSAGE.Set_Name('XTR','XTR_INV_TRS_PRICING_MODEL');
838: FND_MSG_PUB.Add; -- Adds the error messages to the list.
839:
840: ELSIF p_error_code = 'XTR_INV_CC_ID' THEN
841:
838: FND_MSG_PUB.Add; -- Adds the error messages to the list.
839:
840: ELSIF p_error_code = 'XTR_INV_CC_ID' THEN
841:
842: FND_MESSAGE.Set_Name('XTR','XTR_INV_CC_ID');
843: FND_MSG_PUB.Add; -- Adds the error messages to the list.
844:
845: ELSIF p_error_code = 'XTR_UNIQUE_ACCOUNT' THEN -- bug 4870353
846:
843: FND_MSG_PUB.Add; -- Adds the error messages to the list.
844:
845: ELSIF p_error_code = 'XTR_UNIQUE_ACCOUNT' THEN -- bug 4870353
846:
847: FND_MESSAGE.Set_Name('XTR','XTR_UNIQUE_ACCOUNT');
848: FND_MSG_PUB.Add;
849:
850: ELSIF p_error_code = 'XTR_UNEXP_ERROR' THEN
851:
848: FND_MSG_PUB.Add;
849:
850: ELSIF p_error_code = 'XTR_UNEXP_ERROR' THEN
851:
852: FND_MESSAGE.Set_Name('XTR','XTR_UNEXP_ERROR');
853: FND_MESSAGE.Set_Token('SQLCODE', p_field_name);
854: --FND_MESSAGE.Set_Token('SQLSTATE', p_field_name2);
855: FND_MSG_PUB.Add; -- Adds the error messages to the list.
856:
849:
850: ELSIF p_error_code = 'XTR_UNEXP_ERROR' THEN
851:
852: FND_MESSAGE.Set_Name('XTR','XTR_UNEXP_ERROR');
853: FND_MESSAGE.Set_Token('SQLCODE', p_field_name);
854: --FND_MESSAGE.Set_Token('SQLSTATE', p_field_name2);
855: FND_MSG_PUB.Add; -- Adds the error messages to the list.
856:
857: ELSIF p_error_code = 'XTR_INV_LE_COMP_CODE' THEN
850: ELSIF p_error_code = 'XTR_UNEXP_ERROR' THEN
851:
852: FND_MESSAGE.Set_Name('XTR','XTR_UNEXP_ERROR');
853: FND_MESSAGE.Set_Token('SQLCODE', p_field_name);
854: --FND_MESSAGE.Set_Token('SQLSTATE', p_field_name2);
855: FND_MSG_PUB.Add; -- Adds the error messages to the list.
856:
857: ELSIF p_error_code = 'XTR_INV_LE_COMP_CODE' THEN
858:
855: FND_MSG_PUB.Add; -- Adds the error messages to the list.
856:
857: ELSIF p_error_code = 'XTR_INV_LE_COMP_CODE' THEN
858:
859: FND_MESSAGE.Set_Name('XTR','XTR_INV_LE_COMP_CODE');
860: FND_MESSAGE.Set_Token('LEGAL_ENTITY', p_field_name);
861: FND_MSG_PUB.Add; -- Adds the error messages to the list.
862:
863: ELSIF p_error_code = 'CHK_LOCK' THEN
856:
857: ELSIF p_error_code = 'XTR_INV_LE_COMP_CODE' THEN
858:
859: FND_MESSAGE.Set_Name('XTR','XTR_INV_LE_COMP_CODE');
860: FND_MESSAGE.Set_Token('LEGAL_ENTITY', p_field_name);
861: FND_MSG_PUB.Add; -- Adds the error messages to the list.
862:
863: ELSIF p_error_code = 'CHK_LOCK' THEN
864:
861: FND_MSG_PUB.Add; -- Adds the error messages to the list.
862:
863: ELSIF p_error_code = 'CHK_LOCK' THEN
864:
865: FND_MESSAGE.Set_Name('XTR','XTR_1999');
866: FND_MSG_PUB.Add; -- Adds the error messages to the list.
867:
868: ELSIF p_error_code = 'XTR_INV_PARAM' THEN
869:
866: FND_MSG_PUB.Add; -- Adds the error messages to the list.
867:
868: ELSIF p_error_code = 'XTR_INV_PARAM' THEN
869:
870: FND_MESSAGE.Set_Name('XTR','XTR_INV_PARAMETER');
871: FND_MESSAGE.Set_Token('FIELD', p_field_name);
872: FND_MSG_PUB.Add; -- Adds the error messages to the list.
873:
874: ELSIF p_error_code = 'XTR_DEFAULT_ACCT' THEN
867:
868: ELSIF p_error_code = 'XTR_INV_PARAM' THEN
869:
870: FND_MESSAGE.Set_Name('XTR','XTR_INV_PARAMETER');
871: FND_MESSAGE.Set_Token('FIELD', p_field_name);
872: FND_MSG_PUB.Add; -- Adds the error messages to the list.
873:
874: ELSIF p_error_code = 'XTR_DEFAULT_ACCT' THEN
875:
872: FND_MSG_PUB.Add; -- Adds the error messages to the list.
873:
874: ELSIF p_error_code = 'XTR_DEFAULT_ACCT' THEN
875:
876: FND_MESSAGE.Set_Name('XTR','XTR_1676');
877: FND_MSG_PUB.Add; -- Adds the error messages to the list.
878:
879: ELSIF p_error_code = 'XTR_CHK_30_BOTH' THEN
880:
877: FND_MSG_PUB.Add; -- Adds the error messages to the list.
878:
879: ELSIF p_error_code = 'XTR_CHK_30_BOTH' THEN
880:
881: FND_MESSAGE.Set_Name('XTR','XTR_CHK_30_BOTH');
882: FND_MSG_PUB.Add; -- Adds the error messages to the list.
883:
884: ELSIF p_error_code = 'XTR_INV_BANK_BRANCH' THEN
885:
882: FND_MSG_PUB.Add; -- Adds the error messages to the list.
883:
884: ELSIF p_error_code = 'XTR_INV_BANK_BRANCH' THEN
885:
886: FND_MESSAGE.Set_Name('XTR','XTR_INV_BANK_BRANCH');
887: FND_MESSAGE.Set_Token('TCA_BANK_BRANCH_NAME', p_field_name);
888: FND_MSG_PUB.Add; -- Adds the error messages to the list.
889:
890: ELSIF p_error_code = 'XTR_ACCT_NAME_MANDATORY' THEN
883:
884: ELSIF p_error_code = 'XTR_INV_BANK_BRANCH' THEN
885:
886: FND_MESSAGE.Set_Name('XTR','XTR_INV_BANK_BRANCH');
887: FND_MESSAGE.Set_Token('TCA_BANK_BRANCH_NAME', p_field_name);
888: FND_MSG_PUB.Add; -- Adds the error messages to the list.
889:
890: ELSIF p_error_code = 'XTR_ACCT_NAME_MANDATORY' THEN
891:
888: FND_MSG_PUB.Add; -- Adds the error messages to the list.
889:
890: ELSIF p_error_code = 'XTR_ACCT_NAME_MANDATORY' THEN
891:
892: FND_MESSAGE.Set_Name('XTR','XTR_ACCT_NAME_MANDATORY');
893: FND_MSG_PUB.Add; -- Adds the error messages to the list.
894:
895: ELSIF p_error_code = 'XTR_CURRENCY_MANDATORY' THEN
896:
893: FND_MSG_PUB.Add; -- Adds the error messages to the list.
894:
895: ELSIF p_error_code = 'XTR_CURRENCY_MANDATORY' THEN
896:
897: FND_MESSAGE.Set_Name('XTR','XTR_CURRENCY_MANDATORY');
898: FND_MSG_PUB.Add; -- Adds the error messages to the list.
899:
900: ELSIF p_error_code = 'XTR_LOCATION_MANDATORY' THEN
901:
898: FND_MSG_PUB.Add; -- Adds the error messages to the list.
899:
900: ELSIF p_error_code = 'XTR_LOCATION_MANDATORY' THEN
901:
902: FND_MESSAGE.Set_Name('XTR','XTR_LOCATION_MANDATORY');
903: FND_MSG_PUB.Add; -- Adds the error messages to the list.
904:
905: ELSIF p_error_code = 'XTR_STREET_MANDATORY' THEN
906:
903: FND_MSG_PUB.Add; -- Adds the error messages to the list.
904:
905: ELSIF p_error_code = 'XTR_STREET_MANDATORY' THEN
906:
907: FND_MESSAGE.Set_Name('XTR','XTR_STREET_MANDATORY');
908: FND_MSG_PUB.Add; -- Adds the error messages to the list.
909:
910: ELSIF p_error_code = 'XTR_ACCT_OWNER_MANDATORY' THEN
911:
908: FND_MSG_PUB.Add; -- Adds the error messages to the list.
909:
910: ELSIF p_error_code = 'XTR_ACCT_OWNER_MANDATORY' THEN
911:
912: FND_MESSAGE.Set_Name('XTR','XTR_ACCT_OWNER_MANDATORY');
913: FND_MSG_PUB.Add; -- Adds the error messages to the list.
914:
915: ELSIF p_error_code = 'XTR_ACCOUNT_MANDATORY_FIELD' THEN
916:
913: FND_MSG_PUB.Add; -- Adds the error messages to the list.
914:
915: ELSIF p_error_code = 'XTR_ACCOUNT_MANDATORY_FIELD' THEN
916:
917: FND_MESSAGE.Set_Name('XTR','XTR_ACCOUNT_MANDATORY_FIELD');
918: FND_MSG_PUB.Add; -- Adds the error messages to the list.
919:
920:
921: