[Home] [Help]
620: ,X_TO_CURRENCY IN VARCHAR2
621: ,X_EFFECTIVE_DATE IN DATE) RETURN VARCHAR2 IS
622: X0 VARCHAR2(2000);
623: BEGIN
624: /* STPROC.INIT('begin :X0 := GL_CURRENCY_API.IS_FIXED_RATE(:X_FROM_CURRENCY, :X_TO_CURRENCY, :X_EFFECTIVE_DATE); end;');
625: STPROC.BIND_O(X0);
626: STPROC.BIND_I(X_FROM_CURRENCY);
627: STPROC.BIND_I(X_TO_CURRENCY);
628: STPROC.BIND_I(X_EFFECTIVE_DATE);
629: STPROC.EXECUTE;
630: STPROC.RETRIEVE(1
631: ,X0);*/
632:
633: X0 := GL_CURRENCY_API.IS_FIXED_RATE(X_FROM_CURRENCY, X_TO_CURRENCY, X_EFFECTIVE_DATE);
634:
635: RETURN X0;
636: END IS_FIXED_RATE;
637:
640: ,X_EFFECTIVE_DATE IN DATE
641: ,X_FIXED_RATE IN OUT NOCOPY BOOLEAN
642: ,X_RELATIONSHIP IN OUT NOCOPY VARCHAR2) IS
643: BEGIN
644: /*STPROC.INIT('declare X_FIXED_RATE BOOLEAN; begin X_FIXED_RATE := sys.diutil.int_to_bool(:X_FIXED_RATE); GL_CURRENCY_API.GET_RELATION(:X_FROM_CURRENCY, :X_TO_CURRENCY, :X_EFFECTIVE_DATE, X_FIXED_RATE, :X_RELATIONSHIP);
645: :X_FIXED_RATE := sys.diutil.bool_to_int(X_FIXED_RATE); end;');
646: STPROC.BIND_IO(X_FIXED_RATE);
647: STPROC.BIND_I(X_FROM_CURRENCY);
648: STPROC.BIND_I(X_TO_CURRENCY);
653: ,X_FIXED_RATE);
654: STPROC.RETRIEVE(5
655: ,X_RELATIONSHIP);*/
656:
657: GL_CURRENCY_API.GET_RELATION(X_FROM_CURRENCY, X_TO_CURRENCY, X_EFFECTIVE_DATE, X_FIXED_RATE, X_RELATIONSHIP);
658:
659: END GET_RELATION;
660:
661: FUNCTION GET_EURO_CODE RETURN VARCHAR2 IS
660:
661: FUNCTION GET_EURO_CODE RETURN VARCHAR2 IS
662: X0 VARCHAR2(2000);
663: BEGIN
664: /* STPROC.INIT('begin :X0 := GL_CURRENCY_API.GET_EURO_CODE; end;');
665: STPROC.BIND_O(X0);
666: STPROC.EXECUTE;
667: STPROC.RETRIEVE(1
668: ,X0);*/
666: STPROC.EXECUTE;
667: STPROC.RETRIEVE(1
668: ,X0);*/
669:
670: X0 := GL_CURRENCY_API.GET_EURO_CODE;
671: RETURN X0;
672: END GET_EURO_CODE;
673:
674: FUNCTION GET_RATE(X_FROM_CURRENCY IN VARCHAR2
676: ,X_CONVERSION_DATE IN DATE
677: ,X_CONVERSION_TYPE IN VARCHAR2) RETURN NUMBER IS
678: X0 NUMBER;
679: BEGIN
680: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.GET_RATE(:X_FROM_CURRENCY, :X_TO_CURRENCY, :X_CONVERSION_DATE, :X_CONVERSION_TYPE); end;');
681: STPROC.BIND_O(X0);
682: STPROC.BIND_I(X_FROM_CURRENCY);
683: STPROC.BIND_I(X_TO_CURRENCY);
684: STPROC.BIND_I(X_CONVERSION_DATE);
685: STPROC.BIND_I(X_CONVERSION_TYPE);
686: STPROC.EXECUTE;
687: STPROC.RETRIEVE(1
688: ,X0);*/
689: X0 := GL_CURRENCY_API.GET_RATE(X_FROM_CURRENCY, X_TO_CURRENCY, X_CONVERSION_DATE, X_CONVERSION_TYPE);
690: RETURN X0;
691: END GET_RATE;
692:
693: FUNCTION GET_RATE(X_SET_OF_BOOKS_ID IN NUMBER
695: ,X_CONVERSION_DATE IN DATE
696: ,X_CONVERSION_TYPE IN VARCHAR2) RETURN NUMBER IS
697: X0 NUMBER;
698: BEGIN
699: /* STPROC.INIT('begin :X0 := GL_CURRENCY_API.GET_RATE(:X_SET_OF_BOOKS_ID, :X_FROM_CURRENCY, :X_CONVERSION_DATE, :X_CONVERSION_TYPE); end;');
700: STPROC.BIND_O(X0);
701: STPROC.BIND_I(X_SET_OF_BOOKS_ID);
702: STPROC.BIND_I(X_FROM_CURRENCY);
703: STPROC.BIND_I(X_CONVERSION_DATE);
705: STPROC.EXECUTE;
706: STPROC.RETRIEVE(1
707: ,X0);*/
708:
709: X0 := GL_CURRENCY_API.GET_RATE(X_SET_OF_BOOKS_ID, X_FROM_CURRENCY, X_CONVERSION_DATE, X_CONVERSION_TYPE);
710: RETURN X0;
711: END GET_RATE;
712:
713: FUNCTION CONVERT_AMOUNT(X_FROM_CURRENCY IN VARCHAR2
716: ,X_CONVERSION_TYPE IN VARCHAR2
717: ,X_AMOUNT IN NUMBER) RETURN NUMBER IS
718: X0 NUMBER;
719: BEGIN
720: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.CONVERT_AMOUNT(:X_FROM_CURRENCY, :X_TO_CURRENCY, :X_CONVERSION_DATE, :X_CONVERSION_TYPE, :X_AMOUNT); end;');
721: STPROC.BIND_O(X0);
722: STPROC.BIND_I(X_FROM_CURRENCY);
723: STPROC.BIND_I(X_TO_CURRENCY);
724: STPROC.BIND_I(X_CONVERSION_DATE);
726: STPROC.BIND_I(X_AMOUNT);
727: STPROC.EXECUTE;
728: STPROC.RETRIEVE(1
729: ,X0);*/
730: X0 := GL_CURRENCY_API.CONVERT_AMOUNT(X_FROM_CURRENCY, X_TO_CURRENCY, X_CONVERSION_DATE, X_CONVERSION_TYPE, X_AMOUNT);
731:
732: RETURN X0;
733: END CONVERT_AMOUNT;
734:
738: ,X_CONVERSION_TYPE IN VARCHAR2
739: ,X_AMOUNT IN NUMBER) RETURN NUMBER IS
740: X0 NUMBER;
741: BEGIN
742: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.CONVERT_AMOUNT(:X_SET_OF_BOOKS_ID, :X_FROM_CURRENCY, :X_CONVERSION_DATE, :X_CONVERSION_TYPE, :X_AMOUNT); end;');
743: STPROC.BIND_O(X0);
744: STPROC.BIND_I(X_SET_OF_BOOKS_ID);
745: STPROC.BIND_I(X_FROM_CURRENCY);
746: STPROC.BIND_I(X_CONVERSION_DATE);
748: STPROC.BIND_I(X_AMOUNT);
749: STPROC.EXECUTE;
750: STPROC.RETRIEVE(1
751: ,X0);*/
752: X0 := GL_CURRENCY_API.CONVERT_AMOUNT(X_SET_OF_BOOKS_ID, X_FROM_CURRENCY, X_CONVERSION_DATE, X_CONVERSION_TYPE, X_AMOUNT);
753: RETURN X0;
754: END CONVERT_AMOUNT;
755:
756: FUNCTION GET_DERIVE_TYPE(SOB_ID IN NUMBER
757: ,PERIOD IN VARCHAR2
758: ,CURR_CODE IN VARCHAR2) RETURN VARCHAR2 IS
759: X0 VARCHAR2(2000);
760: BEGIN
761: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.GET_DERIVE_TYPE(:SOB_ID, :PERIOD, :CURR_CODE); end;');
762: STPROC.BIND_O(X0);
763: STPROC.BIND_I(SOB_ID);
764: STPROC.BIND_I(PERIOD);
765: STPROC.BIND_I(CURR_CODE);
765: STPROC.BIND_I(CURR_CODE);
766: STPROC.EXECUTE;
767: STPROC.RETRIEVE(1
768: ,X0);*/
769: X0 := GL_CURRENCY_API.GET_DERIVE_TYPE(SOB_ID, PERIOD, CURR_CODE);
770: RETURN X0;
771: END GET_DERIVE_TYPE;
772:
773: FUNCTION RATE_EXISTS(X_FROM_CURRENCY IN VARCHAR2
775: ,X_CONVERSION_DATE IN DATE
776: ,X_CONVERSION_TYPE IN VARCHAR2) RETURN VARCHAR2 IS
777: X0 VARCHAR2(2000);
778: BEGIN
779: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.RATE_EXISTS(:X_FROM_CURRENCY, :X_TO_CURRENCY, :X_CONVERSION_DATE, :X_CONVERSION_TYPE); end;');
780: STPROC.BIND_O(X0);
781: STPROC.BIND_I(X_FROM_CURRENCY);
782: STPROC.BIND_I(X_TO_CURRENCY);
783: STPROC.BIND_I(X_CONVERSION_DATE);
785: STPROC.EXECUTE;
786: STPROC.RETRIEVE(1
787: ,X0);*/
788:
789: X0 := GL_CURRENCY_API.RATE_EXISTS(X_FROM_CURRENCY, X_TO_CURRENCY, X_CONVERSION_DATE, X_CONVERSION_TYPE);
790: RETURN X0;
791: END RATE_EXISTS;
792:
793: