Trigger Mediator II

Thanks to all the requests on the Trigger Mediator but a thought came to me as 
I was driving around at lunch that I hadn't considered what would happen if you 
wanted to issue an error in trigger service program if, for example, you were 
checking referential integrity in the trigger service and found that you would 
be creating a referential error if you allowed the record to be deleted. 

Thought about it for a bit and very easy to fix.

In trigger service program (TS0001 template), simply add a throw for the given 
error. 

If condition true,
   ERRH_Throw('UXX0000'             :                                           
                                    
              <Your Message File>   :                                           
                                    
              <MessageDataStructure>);
EndIf

In the Trigger Mediator, replace the "//Insert Error Code" with code below 
marked with the | symbol.

pptrCallProcedure = DetailRecord.pptrTriggerProcedure;                          
                               
Monitor;                                                                        
                               
  CallProcedure(InDbTriggerBuffer:                                              
                               
                InDbTriggerLength);                                             
                               
On-Error;                                                                       
                              
|  If ERRH_GetLastMessage(MsgId:
|                         QMessageFile:
|                         MessageData );
|    ERRH_Throw(MsgId            :
|               QMessageFile:
|               MessageData );
|  EndIf:
EndMon;

Should have included in the original version. An error will be returned to the 
caller and the update will not occur assuming a *BEFORE trigger.