185: END C_BANK_NAME_DSP_P;
186: PROCEDURE SET_NAME(APPLICATION IN VARCHAR2
187: ,NAME IN VARCHAR2) IS
188: BEGIN
189: /* STPROC.INIT('begin FND_MESSAGE.SET_NAME(:APPLICATION, :NAME); end;');
190: STPROC.BIND_I(APPLICATION);
191: STPROC.BIND_I(NAME);
192: STPROC.EXECUTE;*/
193: begin FND_MESSAGE.SET_NAME(APPLICATION, NAME); end;
189: /* STPROC.INIT('begin FND_MESSAGE.SET_NAME(:APPLICATION, :NAME); end;');
190: STPROC.BIND_I(APPLICATION);
191: STPROC.BIND_I(NAME);
192: STPROC.EXECUTE;*/
193: begin FND_MESSAGE.SET_NAME(APPLICATION, NAME); end;
194: END SET_NAME;
195: PROCEDURE SET_TOKEN(TOKEN IN VARCHAR2
196: ,VALUE IN VARCHAR2
197: ,TRANSLATE IN BOOLEAN) IS
196: ,VALUE IN VARCHAR2
197: ,TRANSLATE IN BOOLEAN) IS
198: V_TRANSLATE number;
199: BEGIN
200: /*STPROC.INIT('declare TRANSLATE BOOLEAN; begin TRANSLATE := sys.diutil.int_to_bool(:TRANSLATE); FND_MESSAGE.SET_TOKEN(:TOKEN, :VALUE, TRANSLATE); end;');
201: STPROC.BIND_I(TRANSLATE);
202: STPROC.BIND_I(TOKEN);
203: STPROC.BIND_I(VALUE);
204: STPROC.EXECUTE;*/
204: STPROC.EXECUTE;*/
205: declare TRANSLATE BOOLEAN;
206: begin
207: TRANSLATE := sys.diutil.int_to_bool(V_TRANSLATE);
208: FND_MESSAGE.SET_TOKEN(TOKEN, VALUE, TRANSLATE);
209: end;
210: END SET_TOKEN;
211: PROCEDURE RETRIEVE(MSGOUT OUT NOCOPY VARCHAR2) IS
212: BEGIN
209: end;
210: END SET_TOKEN;
211: PROCEDURE RETRIEVE(MSGOUT OUT NOCOPY VARCHAR2) IS
212: BEGIN
213: /*STPROC.INIT('begin FND_MESSAGE.RETRIEVE(:MSGOUT); end;');
214: STPROC.BIND_O(MSGOUT);
215: STPROC.EXECUTE;
216: STPROC.RETRIEVE(1
217: ,MSGOUT);*/
214: STPROC.BIND_O(MSGOUT);
215: STPROC.EXECUTE;
216: STPROC.RETRIEVE(1
217: ,MSGOUT);*/
218: begin FND_MESSAGE.RETRIEVE(MSGOUT); end;
219: END RETRIEVE;
220: PROCEDURE CLEAR IS
221: BEGIN
222: /*STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
218: begin FND_MESSAGE.RETRIEVE(MSGOUT); end;
219: END RETRIEVE;
220: PROCEDURE CLEAR IS
221: BEGIN
222: /*STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
223: STPROC.EXECUTE;*/
224: begin FND_MESSAGE.CLEAR; end;
225: END CLEAR;
226: FUNCTION GET_STRING(APPIN IN VARCHAR2
220: PROCEDURE CLEAR IS
221: BEGIN
222: /*STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
223: STPROC.EXECUTE;*/
224: begin FND_MESSAGE.CLEAR; end;
225: END CLEAR;
226: FUNCTION GET_STRING(APPIN IN VARCHAR2
227: ,NAMEIN IN VARCHAR2) RETURN VARCHAR2 IS
228: X0 VARCHAR2(2000);
226: FUNCTION GET_STRING(APPIN IN VARCHAR2
227: ,NAMEIN IN VARCHAR2) RETURN VARCHAR2 IS
228: X0 VARCHAR2(2000);
229: BEGIN
230: /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET_STRING(:APPIN, :NAMEIN); end;');
231: STPROC.BIND_O(X0);
232: STPROC.BIND_I(APPIN);
233: STPROC.BIND_I(NAMEIN);
234: STPROC.EXECUTE;
234: STPROC.EXECUTE;
235: STPROC.RETRIEVE(1
236: ,X0);*/
237: begin
238: X0 := FND_MESSAGE.GET_STRING(APPIN, NAMEIN);
239: end;
240: RETURN X0;
241: END GET_STRING;
242: FUNCTION GET_NUMBER(APPIN IN VARCHAR2
242: FUNCTION GET_NUMBER(APPIN IN VARCHAR2
243: ,NAMEIN IN VARCHAR2) RETURN NUMBER IS
244: X0 NUMBER;
245: BEGIN
246: /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET_NUMBER(:APPIN, :NAMEIN); end;');
247: STPROC.BIND_O(X0);
248: STPROC.BIND_I(APPIN);
249: STPROC.BIND_I(NAMEIN);
250: STPROC.EXECUTE;
250: STPROC.EXECUTE;
251: STPROC.RETRIEVE(1
252: ,X0);*/
253: begin
254: X0 := FND_MESSAGE.GET_NUMBER(APPIN, NAMEIN);
255: end;
256: RETURN X0;
257: END GET_NUMBER;
258: FUNCTION GET RETURN VARCHAR2 IS
257: END GET_NUMBER;
258: FUNCTION GET RETURN VARCHAR2 IS
259: X0 VARCHAR2(2000);
260: BEGIN
261: /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET; end;');
262: STPROC.BIND_O(X0);
263: STPROC.EXECUTE;
264: STPROC.RETRIEVE(1
265: ,X0);*/
263: STPROC.EXECUTE;
264: STPROC.RETRIEVE(1
265: ,X0);*/
266: begin
267: X0 := FND_MESSAGE.GET;
268: end;
269: RETURN X0;
270: END GET;
271: FUNCTION GET_ENCODED RETURN VARCHAR2 IS
270: END GET;
271: FUNCTION GET_ENCODED RETURN VARCHAR2 IS
272: X0 VARCHAR2(2000);
273: BEGIN
274: /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET_ENCODED; end;');
275: STPROC.BIND_O(X0);
276: STPROC.EXECUTE;
277: STPROC.RETRIEVE(1
278: ,X0);*/
275: STPROC.BIND_O(X0);
276: STPROC.EXECUTE;
277: STPROC.RETRIEVE(1
278: ,X0);*/
279: begin X0 := FND_MESSAGE.GET_ENCODED; end;
280: RETURN X0;
281: END GET_ENCODED;
282: PROCEDURE PARSE_ENCODED(ENCODED_MESSAGE IN VARCHAR2
283: ,APP_SHORT_NAME OUT NOCOPY VARCHAR2
282: PROCEDURE PARSE_ENCODED(ENCODED_MESSAGE IN VARCHAR2
283: ,APP_SHORT_NAME OUT NOCOPY VARCHAR2
284: ,MESSAGE_NAME OUT NOCOPY VARCHAR2) IS
285: BEGIN
286: /*STPROC.INIT('begin FND_MESSAGE.PARSE_ENCODED(:ENCODED_MESSAGE, :APP_SHORT_NAME, :MESSAGE_NAME); end;');
287: STPROC.BIND_I(ENCODED_MESSAGE);
288: STPROC.BIND_O(APP_SHORT_NAME);
289: STPROC.BIND_O(MESSAGE_NAME);
290: STPROC.EXECUTE;
291: STPROC.RETRIEVE(2
292: ,APP_SHORT_NAME);
293: STPROC.RETRIEVE(3
294: ,MESSAGE_NAME);*/
295: begin FND_MESSAGE.PARSE_ENCODED(ENCODED_MESSAGE, APP_SHORT_NAME, MESSAGE_NAME); end;
296: END PARSE_ENCODED;
297: PROCEDURE SET_ENCODED(ENCODED_MESSAGE IN VARCHAR2) IS
298: BEGIN
299: /*STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
295: begin FND_MESSAGE.PARSE_ENCODED(ENCODED_MESSAGE, APP_SHORT_NAME, MESSAGE_NAME); end;
296: END PARSE_ENCODED;
297: PROCEDURE SET_ENCODED(ENCODED_MESSAGE IN VARCHAR2) IS
298: BEGIN
299: /*STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
300: STPROC.BIND_I(ENCODED_MESSAGE);
301: STPROC.EXECUTE;*/
302: begin FND_MESSAGE.SET_ENCODED(ENCODED_MESSAGE); end;
303: END SET_ENCODED;
298: BEGIN
299: /*STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
300: STPROC.BIND_I(ENCODED_MESSAGE);
301: STPROC.EXECUTE;*/
302: begin FND_MESSAGE.SET_ENCODED(ENCODED_MESSAGE); end;
303: END SET_ENCODED;
304: PROCEDURE RAISE_ERROR IS
305: BEGIN
306: /*STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
302: begin FND_MESSAGE.SET_ENCODED(ENCODED_MESSAGE); end;
303: END SET_ENCODED;
304: PROCEDURE RAISE_ERROR IS
305: BEGIN
306: /*STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
307: STPROC.EXECUTE;*/
308: begin FND_MESSAGE.RAISE_ERROR; end;
309: END RAISE_ERROR;
310: PROCEDURE DEBUG(LINE IN VARCHAR2) IS
304: PROCEDURE RAISE_ERROR IS
305: BEGIN
306: /*STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
307: STPROC.EXECUTE;*/
308: begin FND_MESSAGE.RAISE_ERROR; end;
309: END RAISE_ERROR;
310: PROCEDURE DEBUG(LINE IN VARCHAR2) IS
311: BEGIN
312: /*STPROC.INIT('begin CEP_STANDARD.DEBUG(:LINE); end;');