123: g_errors_tbl(l_indx).program_id := FND_GLOBAL.conc_program_id;
124: g_errors_tbl(l_indx).program_update_date := SYSDATE;
125:
126: IF (p_err_type = 'FATAL') THEN
127: FND_MESSAGE.set_name('PO', 'PO_ERROR');
128: l_err_type_msg := FND_MESSAGE.get || ' ';
129: ELSIF (p_err_type = 'WARNING') THEN
130: FND_MESSAGE.set_name('PO', 'PO_WARNING');
131: l_err_type_msg := FND_MESSAGE.get || ' ';
124: g_errors_tbl(l_indx).program_update_date := SYSDATE;
125:
126: IF (p_err_type = 'FATAL') THEN
127: FND_MESSAGE.set_name('PO', 'PO_ERROR');
128: l_err_type_msg := FND_MESSAGE.get || ' ';
129: ELSIF (p_err_type = 'WARNING') THEN
130: FND_MESSAGE.set_name('PO', 'PO_WARNING');
131: l_err_type_msg := FND_MESSAGE.get || ' ';
132: END IF;
126: IF (p_err_type = 'FATAL') THEN
127: FND_MESSAGE.set_name('PO', 'PO_ERROR');
128: l_err_type_msg := FND_MESSAGE.get || ' ';
129: ELSIF (p_err_type = 'WARNING') THEN
130: FND_MESSAGE.set_name('PO', 'PO_WARNING');
131: l_err_type_msg := FND_MESSAGE.get || ' ';
132: END IF;
133:
134: d_position := 20;
127: FND_MESSAGE.set_name('PO', 'PO_ERROR');
128: l_err_type_msg := FND_MESSAGE.get || ' ';
129: ELSIF (p_err_type = 'WARNING') THEN
130: FND_MESSAGE.set_name('PO', 'PO_WARNING');
131: l_err_type_msg := FND_MESSAGE.get || ' ';
132: END IF;
133:
134: d_position := 20;
135:
137: IF (g_errors_tbl(l_indx).error_message IS NULL AND
138: g_errors_tbl(l_indx).error_message_name IS NOT NULL) THEN
139:
140: -- bug5247736 - Use app name provided
141: FND_MESSAGE.set_name (g_errors_tbl(l_indx).app_name,
142: g_errors_tbl(l_indx).error_message_name);
143:
144: IF (g_errors_tbl(l_indx).token1_name IS NOT NULL) THEN
145: FND_MESSAGE.set_token(g_errors_tbl(l_indx).token1_name,
141: FND_MESSAGE.set_name (g_errors_tbl(l_indx).app_name,
142: g_errors_tbl(l_indx).error_message_name);
143:
144: IF (g_errors_tbl(l_indx).token1_name IS NOT NULL) THEN
145: FND_MESSAGE.set_token(g_errors_tbl(l_indx).token1_name,
146: g_errors_tbl(l_indx).token1_value);
147: END IF;
148:
149: IF (g_errors_tbl(l_indx).token2_name IS NOT NULL) THEN
146: g_errors_tbl(l_indx).token1_value);
147: END IF;
148:
149: IF (g_errors_tbl(l_indx).token2_name IS NOT NULL) THEN
150: FND_MESSAGE.set_token(g_errors_tbl(l_indx).token2_name,
151: g_errors_tbl(l_indx).token2_value);
152: END IF;
153:
154: IF (g_errors_tbl(l_indx).token3_name IS NOT NULL) THEN
151: g_errors_tbl(l_indx).token2_value);
152: END IF;
153:
154: IF (g_errors_tbl(l_indx).token3_name IS NOT NULL) THEN
155: FND_MESSAGE.set_token(g_errors_tbl(l_indx).token3_name,
156: g_errors_tbl(l_indx).token3_value);
157: END IF;
158:
159: IF (g_errors_tbl(l_indx).token4_name IS NOT NULL) THEN
156: g_errors_tbl(l_indx).token3_value);
157: END IF;
158:
159: IF (g_errors_tbl(l_indx).token4_name IS NOT NULL) THEN
160: FND_MESSAGE.set_token(g_errors_tbl(l_indx).token4_name,
161: g_errors_tbl(l_indx).token4_value);
162: END IF;
163:
164: IF (g_errors_tbl(l_indx).token5_name IS NOT NULL) THEN
161: g_errors_tbl(l_indx).token4_value);
162: END IF;
163:
164: IF (g_errors_tbl(l_indx).token5_name IS NOT NULL) THEN
165: FND_MESSAGE.set_token(g_errors_tbl(l_indx).token5_name,
166: g_errors_tbl(l_indx).token5_value);
167: END IF;
168:
169: IF (g_errors_tbl(l_indx).token6_name IS NOT NULL) THEN
166: g_errors_tbl(l_indx).token5_value);
167: END IF;
168:
169: IF (g_errors_tbl(l_indx).token6_name IS NOT NULL) THEN
170: FND_MESSAGE.set_token(g_errors_tbl(l_indx).token6_name,
171: g_errors_tbl(l_indx).token6_value);
172: END IF;
173:
174: g_errors_tbl(l_indx).error_message :=
171: g_errors_tbl(l_indx).token6_value);
172: END IF;
173:
174: g_errors_tbl(l_indx).error_message :=
175: SUBSTRB(l_err_type_msg || FND_MESSAGE.get, 1, 2000);
176: ELSE
177: g_errors_tbl(l_indx).error_message :=
178: SUBSTRB(l_err_type_msg || g_errors_tbl(l_indx).error_message, 1, 2000);
179: END IF;