cANEM0	;Alerts vanuit applicatie ;%ANEM0 ; [ 26/05/03 - 17:13:43 - 59315,62023 ]
	Q
	;
D1001(PROG,PRNM)	  ;Database gestart en niet gestopt.;
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	N TXT,I,J,L
	S (I,J)="",L=0 D TXT("*** BEGIN LOGBOEK ***")
	F  S I=$O(^cLOG(boot,"STUSSD",I),-1) Q:I=""  D
	. F  S J=$O(^cLOG(boot,"STUSSD",I,J),-1) Q:J=""  D
	.. D TXT(L_". "_$TR(^(J),D,"/"))
	D TXT("*** EINDE LOGBOEK ***")
	D DAM,^cANEM1("D1001",PROG,PRNM,.TXT,"","")
D1001Z	Q
	;
D1002(LIM,QU)	     ;Vereiste vrije plaats: ;
	S $ZT="^cA407",D="\",U=";"
	I $ZV'["MSM" G D1002Z
	I '$G(LIM) S LIM=30           ; limiet in Mb
	D USER,TBEV
	N PROG,PRNM
	S PROG=$T(+0),PRNM=$P($T(D1002),U,2)_LIM_" Mb"
	I '$D(cs) D MASTER^cQ5
	S $P(^cLOG(cs,"FREE",0),D)=1 D INT^cQMSMSP S $P(^cLOG(cs,"FREE",0),D)=0
	N TXT,I,J,K,L,R,VRIJ
	S (I,J)="",L=0 D TXT("*** BEGIN LOGBOEK ***") S VRIJ=""
	F  S I=$O(^cLOG(cs,"FREE",I),-1) Q:I=""  D
	. F  S J=$O(^cLOG(cs,"FREE",I,J),-1) Q:J=""  D
	.. S R=^(J),K=$P(R,D)\1024_" Mb/"
	.. D TXT(L_". "_K_$TR($P(R,D,2,9),D,"/")) I VRIJ="" S VRIJ=+K
	D TXT("*** EINDE LOGBOEK ***")
	I VRIJ<LIM D DAM,^cANEM1("D1002",PROG,PRNM,.TXT,"","")
D1002Z	Q
	;
D1003(PROG,PRNM)	  ;Kopiëren database niet gelukt.;
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	N TXT,I,J,L
	S (I,J)="",L=0 D TXT("*** BEGIN LOGBOEK ***")
	F  S I=$O(^cLOG(cs,"BACKUP","LOGGING",I),-1) Q:I=""  D
	. F  S J=$O(^cLOG(cs,"BACKUP","LOGGING",I,J),-1) Q:J=""  D
	.. D TXT(L_". "_$TR(^(J),D,"/"))
	D TXT("*** EINDE LOGBOEK ***")
	D DAM,^cANEM1("D1003",PROG,PRNM,.TXT,"","")
D1003Z	Q
	;
D1004(PROG,PRNM)	  ;Foutboodschap (zonder transactie);
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	; I %["<KLJOB>"!(%["Stopped")!(%["STOPPED")!(%["<EDITED>") Q
	; KO - 04.10.02
	I %["<KLJOB>"!(%["Stopped")!(%["STOPPED") Q
	N VAR
	S VAR("B1")="Job "_$J_", "_QU_", Fout: "_%
	D DAM,^cANEM1("D1004",PROG,PRNM,.VAR,.VAR,"")
D1004Z	Q
	;
D1005(PROG,PRNM)	  ;Foutboodschap tijdens transactie (@%Q1=0);
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	N VAR
	S VAR("B1")="Job "_$J_", "_QU_", Fout: "_%
	D DAM,^cANEM1("D1005",PROG,PRNM,.VAR,.VAR,"")
D1005Z	Q
	;
D1006(PROG,PRNM)	  ;Fout in controle boekhouding.;
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	N TXT,I,J,L
	S L=0 D TXT("*** BEGIN LOGBOEK ***")
	S I="^"_Q_"CNTRL" D TXT(I_"="_$TR($G(@I),D,"/"))
	F  S I=$Q(@I) Q:I=""  D
	. D TXT(I_"="_$TR(@I,D,"/"))
	D TXT("*** EINDE LOGBOEK ***")
	D DAM,^cANEM1("D1006",PROG,PRNM,.TXT,"","")
D1006Z	Q
	;
D1007(PROG,PRNM)	  ;Verwijderen oude sessies.;
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	D DAM,^cANEM1("D1007",PROG,PRNM,.TEKST,.VAR,"")
D1007Z	Q
	;
D1008(PROG,PRNM)	  ;Fout in R-lijnen.;
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	N TXT,I,J,L
	S L=0 D TXT("*** BEGIN LOGBOEK ***")
	S I=$NA(^TEMPC(PROG,"OD")),J=I
	F  S J=$Q(@J) Q:J=""  I $NA(@J,2)=I D
	. D TXT(J_"="_$TR(@J,D,"/"))
	D TXT("*** EINDE LOGBOEK ***")
	D DAM,^cANEM1("D1008",PROG,PRNM,.TXT,"","")
D1008Z	Q
	;
D1009(PROG,PRNM)	  ;Fout in T-lijnen.;
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	N TXT,I,J,L
	S L=0 D TXT("*** BEGIN LOGBOEK ***")
	S I=$NA(^TEMPC(PROG,"TO")),J=I
	F  S J=$Q(@J) Q:J=""  I $NA(@J,2)=I D
	. D TXT(J_"="_$TR(@J,D,"/"))
	D TXT("*** EINDE LOGBOEK ***")
	D DAM,^cANEM1("D1009",PROG,PRNM,.TXT,"","")
D1009Z	Q
	;
D1010	;Controle transacties.;
	S $ZT="^cA407",D="\",U=";"
	N PROG,PRNM
	S PROG=$T(+0),PRNM=$P($T(D1010),U,2)
	D USER,TBEV
	I '$D(cs) D MASTER^cQ5
	N TXT,I,J,L,ER
	S L=0 D TXT("*** BEGIN LOGBOEK ***")
	S ER=$O(^HULPE(0)) I ER D
	. S I=$NA(^HULPE(0)),J=I
	. F  S J=$Q(@J) Q:J=""  D
	.. D TXT(J_"="_$TR(@J,D,"/"))
	D TXT("*** EINDE LOGBOEK ***")
	I ER D DAM,^cANEM1("D1010",PROG,PRNM,.TXT,"","")
D1010Z	Q
	;
D1011(Q)	;Openstaande boekingsmaanden.;
	S $ZT="^cA407",D="\",U=";"
	N PROG,PRNM
	S PROG=$T(+0),PRNM=$P($T(D1011),U,2)
	D USER,TBEV
	I '$D(cs) D MASTER^cQ5
	D ^cT489 S Y=+$G(@("^"_Q_"BA(25)")) I Y<11 G D1011Z
	D ^cA106 I DJ_"."_DM<J3 G D1011Z
	N VAR S VAR("B1")=Y
	N TXT,I,J,L
	S L=0 D TXT("*** BEGIN BERICHT ***")
	D TXT("Overzicht boekjaren:")
	S J="" F  S J=$O(KM1(J),-1) Q:J=""  I KM1(J)'[".99" D
	. D TXT(J_" : "_KM1(J)_" - "_KM2(J)_" ("_$P($$MNTC^cAFE1(Q,J),D)_")") I J<BJ S TXT(L-1)=TXT(L-1)_" afgesloten"
	D TXT(AT_" afgesloten boekja(a)r(en).")
	D TXT("Afgesloten maand: "_BPA_" ( +"_Y_" => "_J3_" )")
	D TXT("Openstaand jaar : "_BJ_" ("_BF_")")
	D TXT("Inhoud ^"_Q_"BA(39)="_$TR(BA39,D,"/"))
	D TXT("*** EINDE BERICHT ***")
	D ^cANEM1("D1011",PROG,PRNM,.TXT,.VAR,"")
D1011Z	Q
	;
D1012(PROG,PRNM,UGL,US)	     ;Fout in  ^DATA <---> ^_Q_UGL;
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	N TXT,I,J,L
	S L=0 D TXT("*** BEGIN LOGBOEK ***")
	S I=$NA(^TEMPC(PROG,UGL_"."_US)),J=I
	F  S J=$Q(@J) Q:J=""  I $NA(@J,2)=I D
	. D TXT(J_"="_$TR(@J,D,"/"))
	D TXT("*** EINDE LOGBOEK ***")
	D DAM,^cANEM1("D1012",PROG,PRNM,.TXT,"","")
D1012Z	Q
	;
D1013(PROG,PRNM,TXT)	        ;BU geslaagd.;
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	I '$D(TXT) S TXT=""
	N L S L=$O(TXT(""),-1)+1
	D TXT("*** EINDE BERICHT ***")
	D DAM,^cANEM1("D1013",PROG,PRNM,.TXT,"","")
D1013Z	Q
	;
D1014(PROG,PRNM,TXT)	        ;BU niet geslaagd.;
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	I '$D(TXT) S TXT=""
	N L S L=$O(TXT(""),-1)+1
	D TXT("*** EINDE BERICHT ***")
	D DAM,^cANEM1("D1014",PROG,PRNM,.TXT,"","")
D1014Z	Q
	;
D1015(PROG,PRNM,TXT)	        ;Controle globals;
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	I '$D(TXT) S TXT=""
	N L S L=$O(TXT(""),-1)+1
	D TXT("*** EINDE BERICHT ***")
	D DAM,^cANEM1("D1015",PROG,PRNM,.TXT,.VAR,"")
D1015Z	Q
	;
D1016(PROG,PRNM,TXT)	        ;Grootte globals;
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	I '$D(TXT) S TXT=""
	N L S L=$O(TXT(""),-1)+1
	D TXT("*** EINDE BERICHT ***")
	D DAM,^cANEM1("D1016",PROG,PRNM,.TXT,"","")
D1016Z	Q
	;
D1017(PROG,PRNM,VNR)	; Geen verschillen gevonden tussen bestanden ^_Q_KL <--> ^DKL 
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	N TXT,I,J,L,SWEINDE
	S L=0,SWEINDE=0 D TXT("*** BEGIN LOGBOEK ***")
	S I=$NA(^TEMPC(PROG,VNR)),J=I
	F  S J=$Q(@J) Q:J=""!(SWEINDE=1)  I $NA(@J,2)=I D
	. D TXT(J_"="_$TR(@J,D,"/"))
	. I L>99 S SWEINDE=1
	I J="" D TXT("*** EINDE LOGBOEK ***")
	I J'="" D TXT("*** DIT BERICHT IS ONVOLLEDIG ***")
	D DAM,^cANEM1("D1017",PROG,PRNM,.TXT,"","")
D1017Z	Q
	;
D1018(PROG,PRNM,VNR)	; Verschillen gevonden tussen bestanden ^_Q_KL <--> ^DKL
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	N TXT,I,J,L,SWEINDE
	S L=0,SWEINDE=0 D TXT("*** BEGIN LOGBOEK ***")
	S I=$NA(^TEMPC(PROG,VNR)),J=I
	F  S J=$Q(@J) Q:J=""!(SWEINDE=1)  I $NA(@J,2)=I D
	. D TXT(J_"="_$TR(@J,D,"/"))
	. I L>99 S SWEINDE=1
	I J="" D TXT("*** EINDE LOGBOEK ***")
	I J'="" D TXT("*** DIT BERICHT IS ONVOLLEDIG ***")
	D DAM,^cANEM1("D1018",PROG,PRNM,.TXT,"","")
D1018Z	Q
	;
D1019(PROG,PRNM,TXT)	        ;Diagnose databases;
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	I '$D(TXT) S TXT=""
	N L S L=$O(TXT(""),-1)+1
	D TXT("*** EINDE BERICHT ***")
	D DAM,^cANEM1("D1019",PROG,PRNM,.TXT,"","")
D1019Z	Q
	;
D1020(PROG,PRNM,TXT,VAR)	;Grootte database tov limiet;
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	I '$D(TXT) S TXT=""
	N L S L=$O(TXT(""),-1)+1
	D TXT("*** EINDE BERICHT ***")
	D DAM,^cANEM1("D1020",PROG,PRNM,.TXT,.VAR,"")
D1020Z	Q
	;
D1021(PROG,PRNM,TXT,VAR)	;Too many e-mails, job suspended;
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	I '$D(TXT) S TXT=""
	N L S L=$O(TXT(""),-1)+1
	D TXT("*** EINDE BERICHT ***")
	D DAM,^cANEM1("D1021",PROG,PRNM,.TXT,.VAR,"")
D1021Z	Q
	;
D1022(PROG,PRNM,TXT,VAR)	;Too many errors, job suspended;
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	I '$D(TXT) S TXT=""
	N L S L=$O(TXT(""),-1)+1
	D TXT("*** EINDE BERICHT ***")
	D DAM,^cANEM1("D1022",PROG,PRNM,.TXT,.VAR,"")
D1022Z	Q
	;
D1023(PROG,PRNM)	  ;Fout in controle analytische boekhouding.;
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	N TXT,I,J,L
	S L=0 D TXT("*** BEGIN LOGBOEK ***")
	S I="^"_Q_"CNTRLA" D TXT(I_"="_$TR($G(@I),D,"/"))
	F  S I=$Q(@I) Q:I=""  D
	. D TXT(I_"="_$TR(@I,D,"/"))
	D TXT("*** EINDE LOGBOEK ***")
	D DAM,^cANEM1("D1023",PROG,PRNM,.TXT,"","")
D1023Z	Q
	;
D9001(PROG,PRNM,TXT,ADRES,NBRS)	; Algemene alert naar Support
	N VAR
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	I '$D(TXT) S TXT=""
	N L S L=$O(TXT(""),-1)+1
	D TXT("*** EINDE BERICHT ***")
	D VARPRG^cANEM1(.VAR,PRNM)
	D DAM,^cANEM1("D9001",PROG,PRNM,.TXT,.VAR,"",.ADRES)
D9001Z	Q
	;
D9002(PROG,PRNM,TXT,ADRES,NBRS)	; Algemene alert naar Logging
	N VAR
	S $ZT="TRAP^cAN000",D="\",U=";"
	D PROG,PRNM,USER,TBEV
	I '$D(TXT) S TXT=""
	N L S L=$O(TXT(""),-1)+1
	D TXT("*** EINDE BERICHT ***")
	D VARPRG^cANEM1(.VAR,PRNM)
	D DAM,^cANEM1("D9002",PROG,PRNM,.TXT,.VAR,"",.ADRES)
D9002Z	Q
	;
	; Q-waarde
DAM	S Q=$G(Q,"DAM")
	Q
	;
	; programmanaam
PROG	I $G(PROG)="" S PROG=$T(+0)
	Q
	;
	; programmatitel
PRNM	I $G(PRNM)="" X "S PRNM=$P($T(T0"_$G(QT)_"^"_PROG_"),U,2)"
	Q
	;
	; transactiebeveiliging
TBEV	I '$D(%Q1) S %Q1="dummy"
	Q
	;
	; opbouw bericht
TXT(K)	S TXT(+$G(L))=K,L=L+1
TXTZ	Q
	;
	; initialen
USER	I $G(QU)="" S QU="SYS"
	Q
	;
ZZ	; 24.02.06 - 15 u 49 * V8.06