cA405 ;Foutbehandeling ;%A405 ; [ 02/07/02 10:10 AM ] ; T0 ;Foutbehandeling ; T1 ;Boodschap: ; T2 ;Met [] kan U verder werken met de ANDERE programma's.; T3 ;; T4 ;Fout in fout-programma: ; T5 ;Gestopt door een andere gebruiker; T6 ;; T7 ;De computer in ; is niet bereikbaar.; T8 ;AANDACHT; ; T0F ;Traitement des erreurs ; T1F ;Message: ; T2F ;Appuyez [] pour continuer avec les AUTRES programmes.; T3F ;; T4F ;Error in errortrap : ; T5F ;Arrêté par un autre utilisateur; T6F ;; T7F ;L'ordinateur à ; n'est pas accesible.; T8F ;ATTENTION; ; T0E ;Errortrap ; T1E ;Message: ; T2E ;You can continue working with other programs by pressing []; T3E ;; T4E ;Error in errortrap : ; T5E ;Stopped by an other user; T6E ;; T7E ;The computer in ; is not accessible.; T8E ;ATTENTION; ; ; opvangen van de fout 1 B 0 I $ZV["MSM" U $P:(:::::1) I $ZV'["MSM" U $P:(0:"") S %ZTRAP=$T(+0) S %=$ZE,%ZR=$ZR,%UCI=$ZU(5),$ZT="ERR^"_$T(+0) ; ; terug naar menu? I $ZE["",$ZE["^cA501" G 4 I %["" W $$FF^cA334 X F71 U $P H 2 G 4 ; ; loggen van de fout I $ZV'["MSM",$L($ZE),$P($T(T3),";",2)[$P($P($ZE,"<",2),">") D SMS S X=$ZU(143,$J,1) ;Suspend job Set %vhException = ##class(TECH.ExceptionHandler).Catch() D ^cA400 F %2=1:1 S %3=$P("F\F1\F4\F5\F71\F8\FS","\",%2) Q:'$L(%3) I '$D(@%3) S @%3=$G(^cDATA(0,"DEV.VID"," V",%3),$G(^cDEV(" V"_%3))) S (%Q,Q)=$G(Q),QT=$G(QT) S:'$D(%1) %1="0 in errortrap" I $D(%Q1),$D(@%Q1) S %1=@%Q1 ; I %'["",%'["",$D(%Q1),$D(@%Q1) S %1=^($I) ; KU : 14.01.03 I %'["",%'["",$D(%Q1),$D(@%Q1) S %1=@%Q1 I %'["" D . I $G(QW) D E^cA612 . W $$CR^cA334 X F71 U $P S FP=124 W @FS,@F8 S FP=2479 W @F,@F5 S FP=2201 W @F,@F4,@F1,$$CR^cA334,?2 . I $P($T(T6),";",2)[$P(%,">") D .. W $P($T(@("T7"_QT)),";",2) S %2=" " I $L(%ZR) S %2=$NA(@%ZR,0),%2=$TR(%2,"[]","||") .. S %2=$TR($S(%ZR["|":$P(%ZR,"|",2),1:$E(%ZR,3,11)),"""") .. W $G(^LOGTAB(0,"location",%2),%2),$P($T(@("T7"_QT)),";",3) . E W "Job ",$J,", Dev ",$G(io,$$IO^cQ5),", ",$P($T(@("T1"_QT)),";",2),$J("",79-$X),!?2,%vhException.GeefOmschrijving() . W $J("",79-$X),@F5 . D ALERT(%1) I '%1,%["" D ALERT(%1) I $P($T(T3),";",2)[$P($P(%,"<",2),">") S %1=0 G 2 H:%["" I $G(QS)["|" S QS="" K Q("QS") ; ; Contact opnemen ... 2 S %2=$S($D(QN):QN,1:"ERROR") W !,@F4,$$CR^cA334,?2,$P($T(@($S(%["":"T5",%1:"T2",1:"T8")_QT)),";",2) S %3=$X W $J("",79-%3),@F5,$C(7) S FP=2402+%3 W @F D:'%1 KON^cQ4 I %["" H 3 H ; ; Dagcode of gewoon [] geven 3 U $P R %2 D ^cA106 G 4:%2=(DD_DM_DJ#$H) I %2=(DD_DM_DJ#$H\2) B 1 S $ZT="" X ^c G YZ G 3:'%1,4:%2="",3 ; ; terug naar menu 4 D OUT S K=0 I '$D(F) D QQM^cQ6,^cA5000 G ^cA501:'K ; YZ D OUT Q ; ALERT(%1) ; verzenden alert I %1 D D1004^cANEM0($T(+0),$P($T(@("T0"_$G(QT))),";",2)) Q D D1005^cANEM0($T(+0),$P($T(@("T0"_$G(QT))),";",2)) Q Q ; SMS ;Send SMS D ^cA105,^cA106 S T=DT_" "_TD_" Job suspended in errortrap: "_$J_" on "_$ZU(110)_" "_$ZE I +$G(^cLOG($ZU(110),"SMS"))=2 D . S GSMNRS="0475613149,0476314699" ; MF,GD . I $E($ZU(110),1,2)="TB" S GSMNRS=GSMNRS_",0477250081,0475263706" ; MDE,KVA E D . S GSMNRS="GSMFrancoisMarc,GSMDeleuGeert" . I $E($ZU(110),1,2)="TB" S GSMNRS=GSMNRS_",GSMDecroosMarc,GSMVandenabeeleKoen" D SMSIT^cQ14(GSMNRS,T) Q ; ; back to the roots OUT I $L($G(QRVG)),QRVG'=$ZU(5) D IN^cQMSMSW(QRVG) I $L($G(MEMQMENU)) S Q=MEMQMENU S QRVG="",QN=$G(@("^"_Q_"BA(99,1)")) Q ; ; error in errortrap ERR S %Z0=$S($D(%):%,1:""),%=$ZE I $ZV'["MSM" S %ZTRAP="ERR^"_$T(+0) I $ZU(5)="%SYS" Q ERRA I %["" S %="Stopped in "_$P($P(%Z0,"^",2),":") D ^cA400 U $P W !!?2,$P($T(@("T5"_QT)),";",2),! H I %["" S %="Stopped in "_$P($P(%Z0,"^",2),":") D ^cA400 U $P W !!?2,$P($T(@("T5"_QT)),";",2),! H I %["" S %="Disconnected in "_$P($P(%Z0,"^",2),":") D ^cA400 H ERRB U $P W !!?2,"Job ",$J,", Dev ",$G(io,$$IO^cQ5),", ",$P($T(@("T4"_QT)),";",2),%," " I $ZV["MSM" S $ZT="ERRZ^"_$T(+0) ; MF 22.11.02 D ALERT($G(%1,0)) ; VJ 17.12.01 ERRZ D KON^cQ4 W " ",$C(7) D ^cA400 S %1=0 G 3 ; ZZ ; 19.03.07 - 15 u 31 * V8.08