cA274 ;UITGESTELD VERWIJDEREN ;%A270 ; [ 07/28/93  2:29 PM ]
 ;
T0 ;Uitgesteld verwijderen ;
 ;
T0F ;Annulations différées ;
 ;
T0E ;Uitgesteld verwijderen ;
 ; via Xecute uit %A272 en ^_Q_BA("%A",3,Q1,0)
 ;
1 S (SW2,SWUVW)=1,MSG=0 S:$D(@("^"_Q_Q1_"(0,4)")) X3=^(4) D SV^cA243
11 S FP=301 W @F,@F1 S BJ=$G(@("^"_Q_"BA(2)"),D_DJ),BJ=$P(BJ,D,2)\1
13 S (QQ,XQ)=Q,JJ1=0,Q3="^"_QQ_Q1_"(I1)",Q4="^"_QQ_Q2_"(JJ1)"
15 S JJ1=$O(^HULP(Q1,QQ,JJ1)) G YZ:'$L(JJ1) I Q1="AR"!(Q1="ARA")!(Q1="BL") S I1=JJ1_" "
17 E  G 15:'$D(@Q4) S I1=@Q4
18 G 15:'$D(@Q3),15:'$D(^(I1,0)) S B(1)=^(0),(J1,KC)=$P(B(1),D) F I=1:1:9 S B(I)=D I $D(^(I-1)) S B(I)=^(I-1)
19 L +@Q3:2 E  S COM=^cTXT(0,$E(QT_"N"),14) D S1 G 15
 ;
 ; afgeleid van %A205
2 S OK=2,T=1 D S2 I $D(X3),$L($P(X3,U)) K OK D @$P(X3,U) S QQ=XQ
21 S K=@("^"_QQ_Q1_"(I1,0)") F K=BJ,BJ+.02 I $D(^(K)) F X=1:1:30 I $P(@("^"_QQ_Q1_"(I1,K)"),D,X) D 41 Q
23 F K=BJ+1,BJ+1.02 I $D(^(K)) F X=1:1:30 I $P(@("^"_QQ_Q1_"(I1,K)"),D,X) D 43 Q
24 I Q1="KL",$P(B(1),D,15) F K=BJ-1,BJ-.98 I $D(^(K)) F X=1:1:30 I $P(@("^"_QQ_Q1_"(I1,K)"),D,X) D 45 Q
25 I Q1="AR" F K=BJ-1,BJ-.98 I $D(^(K)) F X=1:1:30 I $P(@("^"_QQ_Q1_"(I1,K)"),D,X) D 45 Q
27 S X=$O(^(9999)) I X?5.6N D 47
29 I X'?5.6N,$L(X) D 49
 ;
3 I OK,$D(X3),$L($P(X3,U,2)) K OK D @$P(X3,U,2) S QQ=XQ
31 I OK K ^HULP(Q1,QQ,JJ1) I OK=2 S @%Q1=0 K @Q3,@Q4 S @%Q1=1
33 L -@Q3 G 15
 ;
41 S COM=^cTXT(0,$E(QT_"N"),41) D S1 Q
43 S COM=^cTXT(0,$E(QT_"N"),42) D S1 Q
45 S COM=^cTXT(0,$E(QT_"N"),43) D S1 Q
47 S COM=^cTXT(0,$E(QT_"N"),127) D S1 Q
49 S COM=^cTXT(0,$E(QT_"N"),133) D S1 Q
 ;
YZ K A,B,UTA S K="-" Q
 ;
 ; nieuwe foutmelding in ^HULP
S1 S COM=$P(COM,"""",2),COM=$P(COM,"  "),^HULP(Q1,QQ,JJ1,T)=COM,T=T+1,OK=0 Q
 ;
 ; verwijderen oude foutmeldingen
S2 K ^HULP(Q1,QQ,JJ1) S ^(JJ1)="",^(0)=DT_" - "_TD,FP=2203 W @F,@F2,J1 S FP=FP+$L(J1) Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84