87: if (p_error_type = MSG_COLUMN) then
88:
89: -- Fetch the invalid-column message.
90:
91: fnd_message.set_name('WIP', 'WIP_ML_FIELD_INVALID');
92: fnd_message.set_token('COLUMN', p_error_msg, false);
93: x_error_type := MSG_ERROR;
94:
95: elsif (p_error_type = MSG_CONC) then
88:
89: -- Fetch the invalid-column message.
90:
91: fnd_message.set_name('WIP', 'WIP_ML_FIELD_INVALID');
92: fnd_message.set_token('COLUMN', p_error_msg, false);
93: x_error_type := MSG_ERROR;
94:
95: elsif (p_error_type = MSG_CONC) then
96:
102: else
103:
104: -- Fetch the requested error message.
105:
106: fnd_message.set_name('WIP', p_error_msg) ;
107: x_error_type := p_error_type;
108:
109: end if;
110:
107: x_error_type := p_error_type;
108:
109: end if;
110:
111: -- Grab the message at the top of the Fnd_Message stack, truncating it
112: -- to 500 characters (the width of WIP_INTERFACE_ERRORS.ERROR) if necessary.
113: -- Store its text so that we can retrieve it with get_current_message().
114: wip_mass_load_utilities.set_current_message(substr(fnd_message.get,1,500)) ;
115:
110:
111: -- Grab the message at the top of the Fnd_Message stack, truncating it
112: -- to 500 characters (the width of WIP_INTERFACE_ERRORS.ERROR) if necessary.
113: -- Store its text so that we can retrieve it with get_current_message().
114: wip_mass_load_utilities.set_current_message(substr(fnd_message.get,1,500)) ;
115:
116: /* Insert records into the Errors table if appropriate */
117:
118: x_statement := '