dmFUNC	; Caché functies aangeroepen vanuit Objectmethodes ; dmFUNC
	Q
	;
INIT(CompanyId,Init,Lang,SystemJob,Program,Programname)	; eerste initialisatie + opbouw ^cJOB
	; ComapnyId : Q-waarde
	; Init      : Initialen
	; Lang      : Taal
	; SystemJob : procesnummer onder Windows
	; Program     : programma : Visual Basic = Executable_(version)
	; Programname : programmanaam : Visual Basic : description via app.comment
	; 
	S $ZT="ERR^"_$T(+0)
	; Kortgesloten door KU op 21.03.2003 : momenteel enkel cJOB opzetten
	N (CompanyId,Init,Lang,SystemJob,Program,Programname)
	; Kortgesloten door KU op 21.03.2003 : momenteel enkel cJOB opzetten
	; K %dmINIT,%Q1,D,DD,DJ,DM,DT,Q,QD,QL,QM,QN,QP,QS,QT,QTU,QU,QZ,TD,U,boot,bootrvg,client,cs,master,slave,workst
	S Q=CompanyId,QU=Init,QT="" ; steeds nederlands om tijd in te vullen
	D INIT^dmTOOL   ; opgelet : geen enkel van de variabelen is na het beëindigen van INIT nog gekend
	D USR^cA5000(QU)
	K ^cJOB($J,boot)
	S ^cJOB($J,boot,"job","IO")=$g(SystemJob)
	S ^("IP")=$ZU(67,15,$j)
	s ^("NBN")=$zu(67,12,$j)
	S ^("TYPE")="Caché Direct"
	S ^cJOB($J,boot,"job","date_time")=$G(DT)_"\"_$G(TD)
	S ^("q")=$G(Q),^("qt")=$G(QT),^("qu")=$G(QU),^("qu1")=$G(QU(1))
	S ^("qu2")=$G(QU(2)),^("menu_gref")="("_$G(Program)_")"
	S ^cJOB($J,boot,"job","menu_line")=$G(Programname)
INITZ	Q $J
	;
SENDALERT(Q,QU,QT,SystemJob,Program,Programname,AlertId)	
	;; !!!!!!!!!!!!!! Not in use !!!!!!!!!!!!!!!!!!!!
	; verzenden van een alert : zie ook DAMLib.Functions.SendAlert
	; SystemJob   : indien vanuit Visual Basic = systeem waarop .exe uitgevoerd wordt + procesnummer
	; Error       : Caché = $ze of %
	;             : Visual Basic : ErrorCode + description
	; AlertId     : Id vanui ^MAIL(0,"ALERT"
	; Program     : programma : Visual Basic = Executable_(version)_"-"_module_"-"_procedure
	; Programname : programmanaam : Visual Basic : description via app.comment
	;S $ZT="^dmERROR"
	;N @$$INITVAR^dmTOOL("Q,QU,QT,SystemJob,Error,AlertId,Program,Programname")  
	;D ^cANEM1(AlertId,Program,Programname,.VAR,.VAR,"")
	Q 1
	;
SENDERROR(CompanyId,Init,Lang,SystemJob,Program,Programname,Error,TransAct,Body)	
	; verzenden van error uit VB via Alert : zie ook DAMLib.Functions.SendAlert
	; SystemJob   : indien vanuit Visual Basic = systeem waarop .exe uitgevoerd wordt + procesnummer
	; Error       : Caché = $ze of %
	;             : Visual Basic : ErrorCode + description
	; Program     : programma : Visual Basic = Executable_(version)_"-"_module_"-"_procedure
	; Programname : programmanaam : Visual Basic : description via app.comment
	; TransAct    : 1 = er was een transactie bezig en fout heeft de hoogste prioriteit
	; Body        : Extra lijnen in body van mail
	S $ZT="^dmERROR"
	S Q=CompanyId,QU=Init,QT=Lang
	N @$$INITVAR^dmTOOL("CompanyId,Init,Lang,SystemJob,Program,Programname,Error,TransAct,Body")  
	S VAR("B1")="PID : "_SystemJob_", Job : "_$J_", "_QU_", Fout: "_$TR(Error,"\","/")
	S BODY(0)=VAR("B1")
	I $L($G(Body)) F pc=1:1:$L(Body,$C(13,10))  S BODY(pc)=$P(Body,$C(13,10),pc)
	D ^cANEM1($S($G(TransAct):"D1005",1:"D1004"),Program,Programname,.BODY,.VAR,"")
	Q 1
	;
ERR	; errortrap
	D LOG^dmERROR
	S OK=0_"\Error occuring during initialisation : "_$ze s $ze=""
ERRZ	Q OK
	;
ZZ	; ku - 28.08-02