188:
189: FUNCTION GET_CURRENCY_CODE RETURN VARCHAR2 IS
190: X0 VARCHAR2(2000);
191: BEGIN
192: /*STPROC.INIT('begin :X0 := PA_CURRENCY.GET_CURRENCY_CODE; end;');
193: STPROC.BIND_O(X0);
194: STPROC.EXECUTE;
195: STPROC.RETRIEVE(1
196: ,X0);*/
193: STPROC.BIND_O(X0);
194: STPROC.EXECUTE;
195: STPROC.RETRIEVE(1
196: ,X0);*/
197: X0 := PA_CURRENCY.GET_CURRENCY_CODE;
198: RETURN X0;
199: END GET_CURRENCY_CODE;
200:
201: FUNCTION ROUND_CURRENCY_AMT(X_AMOUNT IN NUMBER) RETURN NUMBER IS
200:
201: FUNCTION ROUND_CURRENCY_AMT(X_AMOUNT IN NUMBER) RETURN NUMBER IS
202: X0 NUMBER;
203: BEGIN
204: /*STPROC.INIT('begin :X0 := PA_CURRENCY.ROUND_CURRENCY_AMT(:X_AMOUNT); end;');
205: STPROC.BIND_O(X0);
206: STPROC.BIND_I(X_AMOUNT);
207: STPROC.EXECUTE;
208: STPROC.RETRIEVE(1
206: STPROC.BIND_I(X_AMOUNT);
207: STPROC.EXECUTE;
208: STPROC.RETRIEVE(1
209: ,X0);*/
210: X0 := PA_CURRENCY.ROUND_CURRENCY_AMT(X_AMOUNT);
211: RETURN X0;
212: END ROUND_CURRENCY_AMT;
213:
214: FUNCTION CURRENCY_FMT_MASK(X_LENGTH IN NUMBER) RETURN VARCHAR2 IS
213:
214: FUNCTION CURRENCY_FMT_MASK(X_LENGTH IN NUMBER) RETURN VARCHAR2 IS
215: X0 VARCHAR2(2000);
216: BEGIN
217: /*STPROC.INIT('begin :X0 := PA_CURRENCY.CURRENCY_FMT_MASK(:X_LENGTH); end;');
218: STPROC.BIND_O(X0);
219: STPROC.BIND_I(X_LENGTH);
220: STPROC.EXECUTE;
221: STPROC.RETRIEVE(1
219: STPROC.BIND_I(X_LENGTH);
220: STPROC.EXECUTE;
221: STPROC.RETRIEVE(1
222: ,X0);*/
223: X0 := PA_CURRENCY.CURRENCY_FMT_MASK(X_LENGTH);
224: RETURN X0;
225: END CURRENCY_FMT_MASK;
226:
227: FUNCTION RPT_CURRENCY_FMT_MASK(X_ORG_ID IN NUMBER
227: FUNCTION RPT_CURRENCY_FMT_MASK(X_ORG_ID IN NUMBER
228: ,X_LENGTH IN NUMBER) RETURN VARCHAR2 IS
229: X0 VARCHAR2(2000);
230: BEGIN
231: /* STPROC.INIT('begin :X0 := PA_CURRENCY.RPT_CURRENCY_FMT_MASK(:X_ORG_ID, :X_LENGTH); end;');
232: STPROC.BIND_O(X0);
233: STPROC.BIND_I(X_ORG_ID);
234: STPROC.BIND_I(X_LENGTH);
235: STPROC.EXECUTE;
234: STPROC.BIND_I(X_LENGTH);
235: STPROC.EXECUTE;
236: STPROC.RETRIEVE(1
237: ,X0);*/
238: X0 := PA_CURRENCY.RPT_CURRENCY_FMT_MASK(X_ORG_ID, X_LENGTH);
239: RETURN X0;
240: END RPT_CURRENCY_FMT_MASK;
241:
242: FUNCTION GET_DELIMITER(APPLICATION_SHORT_NAME IN VARCHAR2