cA403 ;INTERNE FOUTBEHANDELING ;%A403;[ 05/26/00  2:37 PM ]
 ;
T0 ;Interne foutbehandeling ;
T1 ;.[] = continue   -[] = end: .;Error: ;
 ;
T0F ;Traitement des erreurs intern ;
T1F ;.[] = continue   -[] = end: .;Error: ;
 ;
T0E ;Interne foutbehandeling ;
T1E ;.[] = continue   -[] = end: .;Error: ;
 ;
1 I $ZV["MSM" U $P:(:::::1)
 I $ZV'["MSM" U $P:(:"")
 ;
 I $ZE["<EDITED>",$ZE["^cA508" G ^cA508
 ;
11 S %ZR=$ZR D E^cA612 I $D(F71) X F71
13 B 1 I '$D(F8) W !!!,$ZE G YZ
15 S %ZE=$ZE I $ZV["MSM" S FP=124 W @FS
17 W /CUP(23,2),@F8,@F4,$P($T(@("T1"_QT)),";",3),%ZE," ",@F5
18 ;I %ZE'["<INTERRUPT>" G YZ
19 W /CUP(24,2),$P($T(@("T1"_QT)),";",2),@F2,$C(8) R K G YZ:K="-"
 ;
2 I K="." S:$L($G(MEMQMENU)) Q=MEMQMENU G ^cA508
21 G 19
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84