310: FUNCTION GET_CURRENCY_CODE RETURN VARCHAR2 IS
311: X0 VARCHAR2(2000);
312: BEGIN
313: begin
314: X0 := PA_CURRENCY.GET_CURRENCY_CODE;
315: end;
316: -- STPROC.INIT('begin :X0 := PA_CURRENCY.GET_CURRENCY_CODE; end;');
317: -- STPROC.BIND_O(X0);
318: -- STPROC.EXECUTE;
312: BEGIN
313: begin
314: X0 := PA_CURRENCY.GET_CURRENCY_CODE;
315: end;
316: -- STPROC.INIT('begin :X0 := PA_CURRENCY.GET_CURRENCY_CODE; end;');
317: -- STPROC.BIND_O(X0);
318: -- STPROC.EXECUTE;
319: -- STPROC.RETRIEVE(1,X0);
320: RETURN X0;
322: FUNCTION ROUND_CURRENCY_AMT(X_AMOUNT IN NUMBER) RETURN NUMBER IS
323: X0 NUMBER;
324: BEGIN
325: begin
326: X0 := PA_CURRENCY.ROUND_CURRENCY_AMT(X_AMOUNT);
327: end;
328: /*STPROC.INIT('begin :X0 := PA_CURRENCY.ROUND_CURRENCY_AMT(:X_AMOUNT); end;');
329: STPROC.BIND_O(X0);
330: STPROC.BIND_I(X_AMOUNT);
324: BEGIN
325: begin
326: X0 := PA_CURRENCY.ROUND_CURRENCY_AMT(X_AMOUNT);
327: end;
328: /*STPROC.INIT('begin :X0 := PA_CURRENCY.ROUND_CURRENCY_AMT(:X_AMOUNT); end;');
329: STPROC.BIND_O(X0);
330: STPROC.BIND_I(X_AMOUNT);
331: STPROC.EXECUTE;
332: STPROC.RETRIEVE(1
336: FUNCTION CURRENCY_FMT_MASK(X_LENGTH IN NUMBER) RETURN VARCHAR2 IS
337: X0 VARCHAR2(2000);
338: BEGIN
339: begin
340: X0 := PA_CURRENCY.CURRENCY_FMT_MASK(X_LENGTH);
341: end;
342: /* STPROC.INIT('begin :X0 := PA_CURRENCY.CURRENCY_FMT_MASK(:X_LENGTH); end;');
343: STPROC.BIND_O(X0);
344: STPROC.BIND_I(X_LENGTH);
338: BEGIN
339: begin
340: X0 := PA_CURRENCY.CURRENCY_FMT_MASK(X_LENGTH);
341: end;
342: /* STPROC.INIT('begin :X0 := PA_CURRENCY.CURRENCY_FMT_MASK(:X_LENGTH); end;');
343: STPROC.BIND_O(X0);
344: STPROC.BIND_I(X_LENGTH);
345: STPROC.EXECUTE;
346: STPROC.RETRIEVE(1
351: ,X_LENGTH IN NUMBER) RETURN VARCHAR2 IS
352: X0 VARCHAR2(2000);
353: BEGIN
354: begin
355: X0 := PA_CURRENCY.RPT_CURRENCY_FMT_MASK(X_ORG_ID, X_LENGTH);
356: end;
357: /*
358: STPROC.INIT('begin :X0 := PA_CURRENCY.RPT_CURRENCY_FMT_MASK(:X_ORG_ID, :X_LENGTH); end;');
359: STPROC.BIND_O(X0);
354: begin
355: X0 := PA_CURRENCY.RPT_CURRENCY_FMT_MASK(X_ORG_ID, X_LENGTH);
356: end;
357: /*
358: STPROC.INIT('begin :X0 := PA_CURRENCY.RPT_CURRENCY_FMT_MASK(:X_ORG_ID, :X_LENGTH); end;');
359: STPROC.BIND_O(X0);
360: STPROC.BIND_I(X_ORG_ID);
361: STPROC.BIND_I(X_LENGTH);
362: STPROC.EXECUTE;