cA407 ;FOUTBEHANDELING 'JOB'-PROGRAMMA'S ;%A407 ;do naar %A400 ; [ 12/17/01 11:00 AM ] ; T0 ;Foutbehandeling 'job'-programma's ; T1 ;Uw programma is afgebroken door een fout.; T2 ;U kan verder werken met de ANDERE programma's.; T3 ; - error in errortrap : ; T4 ;; ; T0F ;Traitement erreurs 'job'-programma's ; T1F ;Votre programme est interrompu par une faute.; T2F ;Vous pouvez continuer avec les AUTRES programmes.; T3F ; - error in errortrap : ; T4F ;; ; T0E ;Errortrap 'job'-programs ; T1E ;Your program is interrupted by an error.; T2E ;You can continue working with OTHER programs.; T3E ;Error in errortrap : ; T4E ;; ; ; opvangen van de fout 1 B 0 I $ZV'["MSM" S %ZTRAP=$T(+0) S %=$ZE,%ZR=$ZR,%UCI=$ZU(5),$ZT="ERR^"_$T(+0) ; ; loggen van de fout ; I '$D(%1) S %1="1 IN JOB-ERRORTRAP" I $D(%Q1),$D(@%Q1) S %1=^($I) ; KU : 14.01.03 I '$D(%1) S %1="1 IN JOB-ERRORTRAP" I $D(%Q1),$D(@%Q1) S %1=@%Q1 I $ZV'["MSM",$L($ZE),$P($T(T4),";",2)[$P($P($ZE,"<",2),">") D SMS S X=$ZU(143,$J,1) ;Suspend job S Q=$G(Q),QT=$G(QT),Q=$E(Q,1,$S(Q["[":10,1:3)),%2=$S($D(QN):QN,1:"ERROR") D ^cA400 I %'["",$D(F80) W !!!,$P($T(@("T1"_QT)),";",2),!!,$P($T(@("T2"_QT)),";",2),$$FF^cA334 I %'["" D . I $D(F71) X F71 . D ALERT(%1) I '%1,%["" D ALERT(%1) ; D MASTER^cQ5 I $G(^cLOG(cs,"STAND-ALONE")) G YZ ; YZ H ; 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 S GSMNRS="0475613149,0476314699" ; MF,GD I $E($ZU(110),1,2)="TB" S GSMNRS=GSMNRS_",0477250081,0475263706" ; MDE,KVA D SMSIT^cQ14(GSMNRS,T) Q ; ERR S %=%_$P($T(T3),";",2)_$ZE D ^cA400 I $ZV["MSM" S $ZT="ERRZ^"_$T(+0) ; MF 22.11.02 D ALERT($G(%1,0)) ; VJ 17.12.01 ERRZ G YZ ; ZZ ; 15.04.03 - 9 u 31 * V7.94