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