615: PROCEDURE ASSERT_CONDITION(P_CONDITION IN BOOLEAN) IS
616: BEGIN
617: /*STPROC.INIT('declare P_CONDITION BOOLEAN;
618: begin P_CONDITION := sys.diutil.int_to_bool(:P_CONDITION);
619: HR_GENERAL.ASSERT_CONDITION(P_CONDITION); end;');
620: STPROC.BIND_I(P_CONDITION);
621: STPROC.EXECUTE;*/null;
622: END ASSERT_CONDITION;
623:
623:
624: FUNCTION GET_BUSINESS_GROUP_ID RETURN NUMBER IS
625: X0 NUMBER;
626: BEGIN
627: X0 := HR_GENERAL.GET_BUSINESS_GROUP_ID;
628: /*STPROC.INIT('begin :X0 := HR_GENERAL.GET_BUSINESS_GROUP_ID; end;');
629: STPROC.BIND_O(X0);
630: STPROC.EXECUTE;
631: STPROC.RETRIEVE(1
624: FUNCTION GET_BUSINESS_GROUP_ID RETURN NUMBER IS
625: X0 NUMBER;
626: BEGIN
627: X0 := HR_GENERAL.GET_BUSINESS_GROUP_ID;
628: /*STPROC.INIT('begin :X0 := HR_GENERAL.GET_BUSINESS_GROUP_ID; end;');
629: STPROC.BIND_O(X0);
630: STPROC.EXECUTE;
631: STPROC.RETRIEVE(1
632: ,X0);*/null;
635:
636: FUNCTION CHK_APPLICATION_ID(P_APPLICATION_ID IN NUMBER) RETURN VARCHAR2 IS
637: X0 VARCHAR2(2000);
638: BEGIN
639: /*STPROC.INIT('begin :X0 := HR_GENERAL.CHK_APPLICATION_ID(:P_APPLICATION_ID); end;');
640: STPROC.BIND_O(X0);
641: STPROC.BIND_I(P_APPLICATION_ID);
642: STPROC.EXECUTE;
643: STPROC.RETRIEVE(1
647:
648: FUNCTION CORE_HR_APP_ID(P_APPLICATION_ID IN NUMBER) RETURN VARCHAR2 IS
649: X0 VARCHAR2(2000);
650: BEGIN
651: /*STPROC.INIT('begin :X0 := HR_GENERAL.CORE_HR_APP_ID(:P_APPLICATION_ID); end;');
652: STPROC.BIND_O(X0);
653: STPROC.BIND_I(P_APPLICATION_ID);
654: STPROC.EXECUTE;
655: STPROC.RETRIEVE(1
659:
660: FUNCTION VERTICAL_APP_ID(P_APPLICATION_ID IN NUMBER) RETURN VARCHAR2 IS
661: X0 VARCHAR2(2000);
662: BEGIN
663: /*STPROC.INIT('begin :X0 := HR_GENERAL.VERTICAL_APP_ID(:P_APPLICATION_ID); end;');
664: STPROC.BIND_O(X0);
665: STPROC.BIND_I(P_APPLICATION_ID);
666: STPROC.EXECUTE;
667: STPROC.RETRIEVE(1
671:
672: FUNCTION HRMS_OBJECT(P_OBJECT_NAME IN VARCHAR2) RETURN VARCHAR2 IS
673: X0 VARCHAR2(2000);
674: BEGIN
675: /* STPROC.INIT('begin :X0 := HR_GENERAL.HRMS_OBJECT(:P_OBJECT_NAME); end;');
676: STPROC.BIND_O(X0);
677: STPROC.BIND_I(P_OBJECT_NAME);
678: STPROC.EXECUTE;
679: STPROC.RETRIEVE(1
683:
684: FUNCTION GET_APPLICATION_SHORT_NAME(P_APPLICATION_ID IN VARCHAR2) RETURN VARCHAR2 IS
685: X0 VARCHAR2(2000);
686: BEGIN
687: /*STPROC.INIT('begin :X0 := HR_GENERAL.GET_APPLICATION_SHORT_NAME(:P_APPLICATION_ID); end;');
688: STPROC.BIND_O(X0);
689: STPROC.BIND_I(P_APPLICATION_ID);
690: STPROC.EXECUTE;
691: STPROC.RETRIEVE(1
695:
696: FUNCTION EFFECTIVE_DATE RETURN DATE IS
697: X0 DATE;
698: BEGIN
699: /*STPROC.INIT('begin :X0 := HR_GENERAL.EFFECTIVE_DATE; end;');
700: STPROC.BIND_O(X0);
701: STPROC.EXECUTE;
702: STPROC.RETRIEVE(1
703: ,X0);*/null;
706:
707: FUNCTION START_OF_TIME RETURN DATE IS
708: X0 DATE;
709: BEGIN
710: /*STPROC.INIT('begin :X0 := HR_GENERAL.START_OF_TIME; end;');
711: STPROC.BIND_O(X0);
712: STPROC.EXECUTE;
713: STPROC.RETRIEVE(1
714: ,X0);*/null;
717:
718: FUNCTION END_OF_TIME RETURN DATE IS
719: X0 DATE;
720: BEGIN
721: /*STPROC.INIT('begin :X0 := HR_GENERAL.END_OF_TIME; end;');
722: STPROC.BIND_O(X0);
723: STPROC.EXECUTE;
724: STPROC.RETRIEVE(1
725: ,X0);*/null;
728:
729: FUNCTION PAY_VALUE RETURN VARCHAR2 IS
730: X0 VARCHAR2(2000);
731: BEGIN
732: /*STPROC.INIT('begin :X0 := HR_GENERAL.PAY_VALUE; end;');
733: STPROC.BIND_O(X0);
734: STPROC.EXECUTE;
735: STPROC.RETRIEVE(1
736: ,X0);*/null;
739:
740: FUNCTION MONEY_UNIT RETURN VARCHAR2 IS
741: X0 VARCHAR2(2000);
742: BEGIN
743: /*STPROC.INIT('begin :X0 := HR_GENERAL.MONEY_UNIT; end;');
744: STPROC.BIND_O(X0);
745: STPROC.EXECUTE;
746: STPROC.RETRIEVE(1
747: ,X0);*/null;
750:
751: FUNCTION DEFAULT_CURRENCY_CODE(P_LEGISLATION_CODE IN VARCHAR2) RETURN VARCHAR2 IS
752: X0 VARCHAR2(2000);
753: BEGIN
754: /*STPROC.INIT('begin :X0 := HR_GENERAL.DEFAULT_CURRENCY_CODE(:P_LEGISLATION_CODE); end;');
755: STPROC.BIND_O(X0);
756: STPROC.BIND_I(P_LEGISLATION_CODE);
757: STPROC.EXECUTE;
758: STPROC.RETRIEVE(1
762:
763: FUNCTION DEFAULT_CURRENCY_CODE(P_BUSINESS_GROUP_ID IN NUMBER) RETURN VARCHAR2 IS
764: X0 VARCHAR2(2000);
765: BEGIN
766: /*STPROC.INIT('begin :X0 := HR_GENERAL.DEFAULT_CURRENCY_CODE(:P_BUSINESS_GROUP_ID); end;');
767: STPROC.BIND_O(X0);
768: STPROC.BIND_I(P_BUSINESS_GROUP_ID);
769: STPROC.EXECUTE;
770: STPROC.RETRIEVE(1
778: X0 BOOLEAN;
779: BEGIN
780: /*STPROC.INIT('declare X0rv BOOLEAN; X0P_ERROR_IF_INVALID BOOLEAN;
781: begin X0P_ERROR_IF_INVALID := sys.diutil.int_to_bool(:P_ERROR_IF_INVALID);
782: X0rv := HR_GENERAL.LOCATION_VALID(:P_LOCATION_ID, :P_DATE, X0P_ERROR_IF_INVALID);
783: :X0 := sys.diutil.bool_to_int(X0rv); end;');
784: STPROC.BIND_I(P_ERROR_IF_INVALID);
785: STPROC.BIND_I(P_LOCATION_ID);
786: STPROC.BIND_I(P_DATE);
794: FUNCTION DECODE_LOOKUP(P_LOOKUP_TYPE IN VARCHAR2
795: ,P_LOOKUP_CODE IN VARCHAR2) RETURN VARCHAR2 IS
796: X0 VARCHAR2(2000);
797: BEGIN
798: /* STPROC.INIT('begin :X0 := HR_GENERAL.DECODE_LOOKUP(:P_LOOKUP_TYPE, :P_LOOKUP_CODE); end;');
799: STPROC.BIND_O(X0);
800: STPROC.BIND_I(P_LOOKUP_TYPE);
801: STPROC.BIND_I(P_LOOKUP_CODE);
802: STPROC.EXECUTE;
807:
808: FUNCTION DECODE_GRADE(P_GRADE_ID IN NUMBER) RETURN VARCHAR2 IS
809: X0 VARCHAR2(2000);
810: BEGIN
811: /*STPROC.INIT('begin :X0 := HR_GENERAL.DECODE_GRADE(:P_GRADE_ID); end;');
812: STPROC.BIND_O(X0);
813: STPROC.BIND_I(P_GRADE_ID);
814: STPROC.EXECUTE;
815: STPROC.RETRIEVE(1
819:
820: FUNCTION DECODE_PAYROLL(P_PAYROLL_ID IN NUMBER) RETURN VARCHAR2 IS
821: X0 VARCHAR2(2000);
822: BEGIN
823: /*STPROC.INIT('begin :X0 := HR_GENERAL.DECODE_PAYROLL(:P_PAYROLL_ID); end;');
824: STPROC.BIND_O(X0);
825: STPROC.BIND_I(P_PAYROLL_ID);
826: STPROC.EXECUTE;
827: STPROC.RETRIEVE(1
832: FUNCTION GET_SALARY(P_PAY_BASIS_ID IN NUMBER
833: ,P_ASSIGNMENT_ID IN NUMBER) RETURN VARCHAR2 IS
834: X0 VARCHAR2(2000);
835: BEGIN
836: /*STPROC.INIT('begin :X0 := HR_GENERAL.GET_SALARY(:P_PAY_BASIS_ID, :P_ASSIGNMENT_ID); end;');
837: STPROC.BIND_O(X0);
838: STPROC.BIND_I(P_PAY_BASIS_ID);
839: STPROC.BIND_I(P_ASSIGNMENT_ID);
840: STPROC.EXECUTE;
845:
846: FUNCTION DECODE_JOB(P_JOB_ID IN NUMBER) RETURN VARCHAR2 IS
847: X0 VARCHAR2(2000);
848: BEGIN
849: /*STPROC.INIT('begin :X0 := HR_GENERAL.DECODE_JOB(:P_JOB_ID); end;');
850: STPROC.BIND_O(X0);
851: STPROC.BIND_I(P_JOB_ID);
852: STPROC.EXECUTE;
853: STPROC.RETRIEVE(1
857:
858: FUNCTION DECODE_POSITION(P_POSITION_ID IN NUMBER) RETURN VARCHAR2 IS
859: X0 VARCHAR2(2000);
860: BEGIN
861: /*STPROC.INIT('begin :X0 := HR_GENERAL.DECODE_POSITION(:P_POSITION_ID); end;');
862: STPROC.BIND_O(X0);
863: STPROC.BIND_I(P_POSITION_ID);
864: STPROC.EXECUTE;
865: STPROC.RETRIEVE(1
869:
870: FUNCTION DECODE_LOCATION(P_LOCATION_ID IN NUMBER) RETURN VARCHAR2 IS
871: X0 VARCHAR2(2000);
872: BEGIN
873: /* STPROC.INIT('begin :X0 := HR_GENERAL.DECODE_LOCATION(:P_LOCATION_ID); end;');
874: STPROC.BIND_O(X0);
875: STPROC.BIND_I(P_LOCATION_ID);
876: STPROC.EXECUTE;
877: STPROC.RETRIEVE(1
881:
882: FUNCTION DECODE_PAY_BASIS(P_PAY_BASIS_ID IN NUMBER) RETURN VARCHAR2 IS
883: X0 VARCHAR2(2000);
884: BEGIN
885: /*STPROC.INIT('begin :X0 := HR_GENERAL.DECODE_PAY_BASIS(:P_PAY_BASIS_ID); end;');
886: STPROC.BIND_O(X0);
887: STPROC.BIND_I(P_PAY_BASIS_ID);
888: STPROC.EXECUTE;
889: STPROC.RETRIEVE(1
894: FUNCTION DECODE_ASS_STATUS_TYPE(P_ASSIGNMENT_STATUS_TYPE_ID IN NUMBER
895: ,P_BUSINESS_GROUP_ID IN NUMBER) RETURN VARCHAR2 IS
896: X0 VARCHAR2(2000);
897: BEGIN
898: /*STPROC.INIT('begin :X0 := HR_GENERAL.DECODE_ASS_STATUS_TYPE(:P_ASSIGNMENT_STATUS_TYPE_ID, :P_BUSINESS_GROUP_ID); end;');
899: STPROC.BIND_O(X0);
900: STPROC.BIND_I(P_ASSIGNMENT_STATUS_TYPE_ID);
901: STPROC.BIND_I(P_BUSINESS_GROUP_ID);
902: STPROC.EXECUTE;
907:
908: FUNCTION GET_WORK_PHONE(P_PERSON_ID IN NUMBER) RETURN VARCHAR2 IS
909: X0 VARCHAR2(2000);
910: BEGIN
911: /*STPROC.INIT('begin :X0 := HR_GENERAL.GET_WORK_PHONE(:P_PERSON_ID); end;');
912: STPROC.BIND_O(X0);
913: STPROC.BIND_I(P_PERSON_ID);
914: STPROC.EXECUTE;
915: STPROC.RETRIEVE(1
919:
920: FUNCTION GET_HOME_PHONE(P_PERSON_ID IN NUMBER) RETURN VARCHAR2 IS
921: X0 VARCHAR2(2000);
922: BEGIN
923: /*STPROC.INIT('begin :X0 := HR_GENERAL.GET_HOME_PHONE(:P_PERSON_ID); end;');
924: STPROC.BIND_O(X0);
925: STPROC.BIND_I(P_PERSON_ID);
926: STPROC.EXECUTE;
927: STPROC.RETRIEVE(1
942: ,P_ENABLE_HR_TRACE IN BOOLEAN) IS
943: BEGIN
944: /*STPROC.INIT('declare P_ENABLE_HR_TRACE BOOLEAN;
945: begin P_ENABLE_HR_TRACE := sys.diutil.int_to_bool(:P_ENABLE_HR_TRACE);
946: HR_GENERAL.INIT_FORMS(:P_BUSINESS_GROUP_ID, :P_SHORT_NAME, :P_BG_NAME,
947: :P_BG_CURRENCY_CODE, :P_LEGISLATION_CODE, :P_SESSION_DATE, :P_SES_YESTERDAY,
948: :P_START_OF_TIME, :P_END_OF_TIME, :P_SYS_DATE, P_ENABLE_HR_TRACE); end;');
949: STPROC.BIND_I(P_ENABLE_HR_TRACE);
950: STPROC.BIND_I(P_BUSINESS_GROUP_ID);
980:
981: FUNCTION CHK_GEOCODES_INSTALLED RETURN VARCHAR2 IS
982: X0 VARCHAR2(2000);
983: BEGIN
984: /*STPROC.INIT('begin :X0 := HR_GENERAL.CHK_GEOCODES_INSTALLED; end;');
985: STPROC.BIND_O(X0);
986: STPROC.EXECUTE;
987: STPROC.RETRIEVE(1
988: ,X0);*/null;