0 0 serial 0 EventQueueCNTs 0 0 %Library.RegisteredObject 0 0 3 0 1 0 2 0 7 0 6 0 4 0 5 0 8 0 3 0 2 0 1 EH.Lib.Msg 0 0 0 0 0 0 0 1 %Library.String 0 0 "" 0 0 0 0 0 0 0 1 code eqID:%Library.String,MsgType:%Library.String,SubType:%Library.String,Params:%Library.String,SendType:%Library.String,IsPost:%Library.String 0 0 0 1 code MsgAsList:%Library.List 0 0 0 0 code eqID:%Library.String 0 0 0 0 code MsgAsList:%Library.List 0 0 0 0 code eqID:%Library.String 0 %Library.Integer 0 afsluiten Quit:(MsgNr="") 0 //Message uitlezen, van $LB -> object plaatsen Set tmpMsg=^EventQueue(eqID,..#EQMsgNode,MsgNr) Do ..FillMsgObj(tmpMsg) //Bericht uit queue verwijderen Kill ^EventQueue(eqID,..#EQMsgNode,MsgNr) Quit 1 ]]> 0 1 code 0 %Library.String 0 0 0 code eqID:%Library.String 0 0 0 0 code eqID:%Library.String 0 %Library.Boolean 0 Boolean: geeft 1 als er messages in wachtrij zitten; 0 als de wachtrij leeg is 0 0 code eqID:%Library.String 0 %Library.Integer 0 Clean up inactive job-queues 0 1 code 0 0 0 0 code eqID:%Library.String 0 0 0 0 code MsgType:%Library.String,SubType:%Library.String,eqID:%Library.String 0 0 0 0 code eqID:%Library.String 0 0 0 0 code eqID:%Library.String 0 0 0 0 code MsgType:%Library.String,SubType:%Library.String,eqID:%Library.String 0 0 0 0 code TimeOut:%Library.Integer 0 %Library.Boolean 0 0 0 code 0 0 0 0 code eqID:%Library.String 0 %Library.Status 0 %Library.CacheSerialState BaseEventQueueState ^EH.Lib.BaseEventQueueS listnode Msg Job eqType eqID ID TrapMode HoldMsgs