CREATE OR REPLACE TRIGGER TriggerTest_after_insert
AFTER INSERT
    ON TriggerTest
    FOR EACH ROW
declare
   HRESULT BINARY_INTEGER := 0;
   applicationToken BINARY_INTEGER := -1;
   error_src VARCHAR2(255);
   error_description VARCHAR2(255);
   error_helpfile VARCHAR2(255);
   error_helpID BINARY_INTEGER;

begin
   HRESULT :=ORDCOM.CreateObject('UMRAcom.UMRA', 0, '', applicationToken);
   IF (HRESULT!=0) THEN
      ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
      dbms_output.put_line(error_src);
      dbms_output.put_line(error_description);

      dbms_output.put_line(error_helpfile);
   END IF;

   -- applicationToken is initialized. 
   -- I2 - 2 byte integer 
   -- I4 - 4 byte integer 
   -- R4 - IEEE 4 byte real 
   -- R8 - IEEE 8 byte real 
   -- SCODE - error code 
   -- CY - currency 
   -- DISPATCH - dispatch pointer 
   -- BSTR - String 
   -- BOOL - boolean 
   -- DATE - date  

   -- Invoke some methods 
   -- The following is equivalent to the pseudocode: 
   -- ResultHandle := ApplicationHandle.SomeMethodname 
   ORDCOM.InitArg();
   ORDCOM.SetArg('localhost','BSTR'); 
   ORDCOM.SetArg(56814,'I4');
   HRESULT:=OrdCom.Invoke(applicationToken,'Connect',2,ResultHandle);
   IF (HRESULT!=0) THEN
      dbms_output.put_line(HRESULT);
   IF (ResultHandle!=0) THEN
      dbms_output.put_line(HRESULT);


   -- Destroy the object when finished 
   HRESULT:=ORDCOM.DestroyObject(applicationToken);
   IF (HRESULT!=0) THEN
      dbms_output.put_line(HRESULT);
END