cANEM0 ;Alerts vanuit applicatie ;%ANEM0 ; [ 01/03/01  9:51 AM ]
 Q
 ;
D1001(PROG,PRNM)   ;Database gestart en niet gestopt.;
 S $ZT="TRAP^cAN000",D="\",U=";"
 I $G(PROG)="" S PROG=$T(+0)
 I $G(PRNM)="" X "S PRNM=$P($T(T0"_$G(QT)_"^"_"PROG),U,2)"
 I $G(QU)="" S QU="SU"
 I '$D(%Q1) S %Q1="dummy"
 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 ***")
 S Q=$G(Q,"SYS") D ^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
 I $G(QU)="" S QU="SU"
 I '$D(%Q1) S %Q1="dummy"
 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 S Q=$G(Q,"SYS") D ^cANEM1("D1002",PROG,PRNM,.TXT,"","")
D1002Z Q
 ;
D1003(PROG,PRNM)   ;Kopiëren database niet gelukt.;
 S $ZT="TRAP^cAN000",D="\",U=";"
 I $G(PROG)="" S PROG=$T(+0)
 I $G(PRNM)="" X "S PRNM=$P($T(T0"_$G(QT)_"^"_"PROG),U,2)"
 I $G(QU)="" S QU="SU"
 I '$D(%Q1) S %Q1="dummy"
 N TXT,I,J,L
 S (I,J)="",L=0 D TXT("*** BEGIN LOGBOEK ***")
 F  S I=$O(^cLOG(boot,"BACKUP","LOGGING",I),-1) Q:I=""  D
 . F  S J=$O(^cLOG(boot,"BACKUP","LOGGING",I,J),-1) Q:J=""  D
 .. D TXT(L_". "_$TR(^(J),D,"/"))
 D TXT("*** EINDE LOGBOEK ***")
 S Q=$G(Q,"SYS") D ^cANEM1("D1003",PROG,PRNM,.TXT,"","")
D1003Z Q
 ;
D1004(PROG,PRNM)   ;Foutboodschap (zonder transactie);
 Q
 S $ZT="TRAP^cAN000",D="\",U=";"
 I $G(PROG)="" S PROG=$T(+0)
 I $G(PRNM)="" X "S PRNM=$P($T(T0"_$G(QT)_"^"_"PROG),U,2)"
 I $G(QU)="" S QU="SU"
 I '$D(%Q1) S %Q1="dummy"
 I %["<KLJOB>"!(%["Stopped")!(%["STOPPED")!(%["<EDITED>") Q
 N VAR
 S VAR("B1")="Job "_$J_", "_QU_", Fout: "_%
 S Q=$G(Q,"SYS") D ^cANEM1("D1004",PROG,PRNM,.VAR,.VAR,"")
D1004Z Q
 ;
D1005(PROG,PRNM)   ;Foutboodschap tijdens transactie (@%Q1=0);
 Q
 S $ZT="TRAP^cAN000",D="\",U=";"
 I $G(PROG)="" S PROG=$T(+0)
 I $G(PRNM)="" X "S PRNM=$P($T(T0"_$G(QT)_"^"_"PROG),U,2)"
 I $G(QU)="" S QU="SU"
 I '$D(%Q1) S %Q1="dummy"
 N VAR
 S VAR("B1")="Job "_$J_", "_QU_", Fout: "_%
 S Q=$G(Q,"SYS") D ^cANEM1("D1005",PROG,PRNM,.VAR,.VAR,"")
D1005Z Q
 ;
D1006(PROG,PRNM)   ;Fout in controle boekhouding.;
 S $ZT="TRAP^cAN000",D="\",U=";"
 I $G(PROG)="" S PROG=$T(+0)
 I $G(PRNM)="" X "S PRNM=$P($T(T0"_$G(QT)_"^"_"PROG),U,2)"
 I $G(QU)="" S QU="SU"
 I '$D(%Q1) S %Q1="dummy"
 N TXT,I,J,L
 S L=0 D TXT("*** BEGIN LOGBOEK ***")
 S I="^"_Q_"CNTRL",L=1,TXT(L)=I_"="_$TR($G(@I),D,"/")
 F  S I=$Q(@I) Q:I=""  D
 . D TXT(I_"="_$TR(@I,D,"/"))
 D TXT("*** EINDE LOGBOEK ***")
 S Q=$G(Q,"SYS") D ^cANEM1("D1006",PROG,PRNM,.TXT,"","")
D1006Z Q
 ;
D1007(PROG,PRNM)   ;Verwijderen oude sessies.;
 S $ZT="TRAP^cAN000",D="\",U=";"
 I $G(PROG)="" S PROG=$T(+0)
 I $G(PRNM)="" X "S PRNM=$P($T(T0"_$G(QT)_"^"_"PROG),U,2)"
 I $G(QU)="" S QU="SU"
 I '$D(%Q1) S %Q1="dummy"
 S Q=$G(Q,"SYS") D ^cANEM1("D1007",PROG,PRNM,.TEKST,.VAR,"")
D1007Z Q
 ;
D1008(PROG,PRNM)   ;Fout in R-lijnen.;
 S $ZT="TRAP^cAN000",D="\",U=";"
 I $G(PROG)="" S PROG=$T(+0)
 I $G(PRNM)="" X "S PRNM=$P($T(T0"_$G(QT)_"^"_"PROG),U,2)"
 I $G(QU)="" S QU="SU"
 I '$D(%Q1) S %Q1="dummy"
 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 ***")
 S Q=$G(Q,"SYS") D ^cANEM1("D1008",PROG,PRNM,.TXT,"","")
D1008Z Q
 ;
D1009(PROG,PRNM)   ;Fout in T-lijnen.;
 S $ZT="TRAP^cAN000",D="\",U=";"
 I $G(PROG)="" S PROG=$T(+0)
 I $G(PRNM)="" X "S PRNM=$P($T(T0"_$G(QT)_"^"_"PROG),U,2)"
 I $G(QU)="" S QU="SU"
 I '$D(%Q1) S %Q1="dummy"
 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 ***")
 S Q=$G(Q,"SYS") D ^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)
 I $G(QU)="" S QU="SU"
 I '$D(%Q1) S %Q1="dummy"
 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 S Q=$G(Q,"SYS") D ^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)
 I $G(QU)="" S QU="SU"
 I '$D(%Q1) S %Q1="dummy"
 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=";"
 I $G(PROG)="" S PROG=$T(+0)
 I $G(PRNM)="" X "S PRNM=$P($T(T0"_$G(QT)_"^"_"PROG),U,2)"
 I $G(QU)="" S QU="SU"
 I '$D(%Q1) S %Q1="dummy"
 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 ***")
 S Q=$G(Q,"SYS") D ^cANEM1("D1012",PROG,PRNM,.TXT,"","")
D1012Z Q
 ;
 ; opbouw bericht
TXT(K) S TXT(+$G(L))=K,L=L+1
TXTZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84