serial EventQueueCNTs %Library.RegisteredObject 3 1 2 7 6 4 5 8 3 2 1 EH.Lib.Msg 1 %Library.String 1 eqID:%Library.String,MsgType:%Library.String,SubType:%Library.String,Params:%Library.String,SendType:%Library.String,IsPost:%Library.String 1 MsgAsList:%Library.List eqID:%Library.String MsgAsList:%Library.List eqID:%Library.String %Library.Integer 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 ]]> 1 %Library.String eqID:%Library.String eqID:%Library.String %Library.Boolean Boolean: geeft 1 als er messages in wachtrij zitten; 0 als de wachtrij leeg is eqID:%Library.String %Library.Integer Clean up inactive job-queues 1 eqID:%Library.String MsgType:%Library.String,SubType:%Library.String,eqID:%Library.String eqID:%Library.String eqID:%Library.String MsgType:%Library.String,SubType:%Library.String,eqID:%Library.String TimeOut:%Library.Integer %Library.Boolean eqID:%Library.String %Library.Status %Library.CacheSerialState BaseEventQueueState ^EH.Lib.BaseEventQueueS Msg Job eqType eqID ID TrapMode HoldMsgs