cA273 ;UITGESTELD VERWIJDEREN ;%A270 ;do uit %A271 ;
 ;
T0 ;Uitgesteld verwijderen ;
T1 ; code\ omschrijving\ opmerking\ magazijn;
 ;
T0F ;Annulations diiférées ;
T1F ; code\ description\ remarque\ magasin;
 ;
T0E ;Uitgesteld verwijderen ;
T1E ; code\ omschrijving\ opmerking\ magazijn;
 ;
1 S R="0\1" D ^cA345 I $L(K) G YZ
11 S DEF="F81",TAB="5\35\100",TIT(1)=$P($T(@("T1"_QT)),U,2,999)
13 S HD(1)=D_$P($T(@("T0"_QT)),U,2)_";C;F82",HD(2)=D_$P(@("^"_Q_Q1_"(0,0)"),U)_";C;F82",HD(3)=D_$G(^HULP(Q1,Q,0))_";C"
15 D S1 S MAG=$G(^("MAG")),XQ=MAG F  S QQ=$P(XQ,D),XQ=$P(XQ,D,2,999) Q:'$L(QQ)  I $D(@("^"_QQ_Q1_"(0,0)")) S $P(TAB,D,4)=128 Q
 ;
2 S QQ=Q,XQ=MAG
21 S NR=0
23 S NR=$O(^HULP(Q1,QQ,NR)) G 4:NR="" S TXT(1)=NR_"\\1"
25 I Q1="AR"!(Q1="ARA")!(Q1="BL") S I1=NR_" "
27 E  S I1=NR I $D(@("^"_QQ_Q2_"(NR)")) S I1=^(NR)
29 S TXT(2)="" I $D(@("^"_QQ_Q1_"(I1,0)")) S TXT(1)=$P(^(0),D)_"\\1",TXT(2)=$P(^(0),D,2)_"\\1"
 ;
3 S TXT(4)="" I $D(@("^"_QQ_Q1_"(0,0)")) S TXT(4)=$P(^(0),U)_"\\1"
31 S T=0,TXT(3)=""
33 S T=$O(^HULP(Q1,QQ,NR,T)) I T="" D ^cA334:$L(TXT(1)) G 23
35 S TXT(3)=^(T)_"\\1" D ^cA334 S (TXT(1),TXT(2),TXT(4))="" G 33
 ;
4 I $L(XQ) S QQ=$P(XQ,D),XQ=$P(XQ,D,2,999) G 21:$L(QQ),4
41 S END=1 D ^cA334
 ;
YZ S K="-" Q
 ;
S1 S S1=$O(@("^"_Q_Q1_"(0,$G(S1,99))")),S2=$G(S2) I $E(S1)=1 D  I S2<2 G S1
S1A .S S3=^(S1) I $P(S3,U,16)=101 S S2=S2+1,S4=" "_$P(S3,U),S3=$P(S3,U,9) S:$L(S4)>S3 S3=$L(S4) S $P(TAB,D)=S3+2,$P(TIT(1),D)=S4
S1B .S S3=^(S1) I $P(S3,U,16)=102 S S2=S2+1,S4=" "_$P(S3,U),S3=$P(S3,U,9) S:$L(S4)>S3 S3=$L(S4) S $P(TAB,D,2)=$P(TAB,D)+S3+3,$P(TIT(1),D,2)=S4
S1Z K S1,S2,S3,S4 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84