cA401	;^ERROR -> LOKALE VARIABELEN ;%A401; [ 02/07/02  10:10 AM ]
	;
T0	;^ERROR -> local variables ;
T1	;Number  Date     Hour     Description                                      Q;
T2	;------- -------- -------  ------------------------------------------------ -;
T3	;[] = next   xxx-[] = delete error   xxx[] = get error : .;
T4	;There are no errors in ^ERROR !;Error ; deleted.; loaded.;
T5	;IINT;%A501;%A508;cA501;cA508;
T6	;[] = all   .[] = without <DSCON> : .;
	;
	; init
1	S %(1)="",%(2)=$O(^ERROR(%(1)),-1) I '%(2) W !!,$P($T(T4),";",2),$C(7),! G YZ
10	W !,$P($T(T6),";",2),$C(8) R %(10) I "-^"[%(10) G YZ:%(10)="-"!(%(10)="^")
	; in reverse order
11	W !,$P($T(T1),";",2),!,$P($T(T2),";",2) S $Y=0
	F  Q:$Y>15  S %(1)=$O(^ERROR(%(1)),-1) Q:'%(1)  D
	. Q:'$D(^(%(1),0))  S %(2)=^(0) I %(10)=".",%(2)["<DSCON>" Q
	. D S(1)
	;
	; question
2	W !,$P($T(T3),";",2),$C(8) R %(2) I "-^"[%(2) G YZ:%(2)="-"!(%(2)="^") I %(2)="" W ! G 1:'%(1)!'$O(^ERROR(%(1)),-1),11
	I '$D(^ERROR(+%(2),0)) G 27
	I %(2)?1.N1"-" K ^ERROR(+%(2)) W !,$P($T(T4),";",3),+%(2),$P($T(T4),";",4) S:$O(^(0))="" ^(0)=1 G 1:$O(^(0))="",2
	I %(2)?1.N G 3
27	W "   ???",$C(7) G 2
	;
	; load
3	K (%) S %=^ERROR(+%(2),0),%(1)=0 W !,"."
	F  S %(1)=$O(^(%(1)+.9999)) Q:%(1)=""  D
	. ;I '(%(1)#1),$D(%(1)) S %(8)=^(%(1)),@%(8)="",%(9)=%(1) F  S %(9)=$O(^(%(9)))  Q:%(9)\1'=%(1)  S @%(8)=@%(8)_^(%(9))
	. I '(%(1)#1),$D(%(1)) S %(8)=^(%(1)),%(9)=%(1) F %(10)=1:1:99 I $D(^(%(10)/100+%(9))) S @%(8)=$G(@%(8))_^(%(10)/100+%(9))
	. I '$D(@%(8)) S @%(8)="has not been saved in ^ERROR"
	. I '(%(1)#10) W "."
	;
4	W $P($T(T4),";",3),+%(2),$P($T(T4),";",5),! I $D(QW) ZW QW K QW
	W !,%,!
	;
YZ	K %(1),%(2),%(3),%(4),%(5),%(6),%(7),%(8),%(9),%(10),%(11),%(99) Q
	;
S(X)	; Show lines, if %(99)=1 then show detail
	S %(99)=$G(X,1),%(4)=""
	W !,$J(%(1),7),?8,$P(%(2),"\"),?17,$P(%(2),"\",2),?26,$E($P(%(2),"\",3),1,23)
	W ?50,$E($P(%(2),"\",4),1,74-$X),?75,$P(%(2),"\",5)
	W !?8,$E($G(^ERROR(%(1),.997)),1,73)
	I $D(^(.998)) S %(3)=^(.998) I $L(%(3)) S:%(3)["^" %(4)=$S(%(3)["^":$G(@%(3)),1:"") S:$L($P(%(4),"\",11)) $P(%(4),"\")=$P(%(4),"\",11) W !?26,%(3) I $L(%(4)) W "=",$P(%(4),"\")
	I $G(%(99)),$D(^ERROR(%(1),.999)) S %(3)=^(.999),%(7)="" F %(4)=0:1:%(3) D
	. S %(5)=$G(^ERROR(%(1),%(4)+1/1000)),%(6)="",%(5)=$TR(%(5),$C(9)," ")
	. I $L(%(5)) D
	.. I $ZV["MSM" S %(6)=$P($P($P(%(5),"^",2),":"),$c(0))
	.. I $ZV'["MSM" S %(6)=$P($P(%(5)," "),"^",2)
	.. I $T(T5)[(";"_%(6)_";") S (%(5),%(6))=""
	. S:%(6)=%(7) %(6)="" S:%(5)["*XECUTE*" (%(6),%(7))=""
	. I $ZV["MSM",$L(%(6)) S %(11)="TST" S:$E(%(6))="%" %(11)="MGR" S %(12)=$ZU(5) D
	.. D IN^cQMSMSW(%(11))
	.. I $D(^$ROUTINE(%(6))) S %(7)=%(6) D FL
	.. D IN^cQMSMSW(%(12))
	. I $ZV'["MSM",$L(%(6)) I $D(^$ROUTINE(%(6))) S %(7)=%(6) D FL
	. I $L(%(5)) W ! W:$L(%(6)) ?8,$E(%(6),1,17) W ?26,%(4),"> ",$TR($E(%(5),1,50),$C(9)," ")
	W !
SZ	Q
	;
FL	X "ZL @%(6) S %(6)=$P($T(T0),"";"",2) S:$L(%(6))<7 %(6)=$P($T(+1),"";"",2) S:$L(%(6))<7 %(6)=$P($T(+1),"";"",3)"
	Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08