create or replace package body TEST_SCHEMA.SAMPLE is

 procedure SampleTest
 is
 begin
    SampleTest;
    SAMPLE.SampleTest;
    TEST_SCHEMA.SAMPLE.SampleTest;
 end;
 end SAMPLE;

CREATE OR REPLACE PACKAGE BODY START_PROCESS IS

FUNCTION WORKING(nTYPE IN NUMBER, nTYPEWORKS IN NUMBER, nBRANCH IN NUMBER, nREFERENCE IN NUMBER, cParam IN VARCHAR2, TYPEMSG IN OUT NUMBER) RETURN VARCHAR2  IS
    cResult VARCHAR2(2000);

    CURSOR read_acc(pClient NUMBER,bClient NUMBER, pContract NUMBER, bContract NUMBER) IS
    SELECT * FROM ACCOUNT
    WHERE CLIENT = pClient AND BRANCH_CLIENT = bClient
    AND CONTRACT = pContract AND BRANCH_CONTRACT = bContract;
BEGIN
      cResult := PCONTRACT.CLOSE_CONT(nBRANCH, nREFERENCE,  GLOBALS.USERID, TO_NUMBER(cParam));
END;

END;