RUBRIEK ;VERWERKING RUBRIEKEN [ 06/20/2002  11:51 AM ]
 ;
READ(Settings,%R,Prog) 
 Set %R=$G(%R) Set:'%R %R=22
 Set Prog=$G(Prog)
 Set R="K\"_%R_"\3\"_$P(U2,U,1)_"\"""_$P(U2,U,10)_"""\"_$P(U2,U,9)_"\\"_$P(U2,U,11)_"\\\"_Settings
 Do ^READ
 Quit
 ;
INP(sSetting,%R,Prog) 
 ;Set:sSetting="L" sSetting="B"
 For  Do  Quit:$P(U2,U,11)=""  Quit:K="-"  Quit:K=","  If @$P(U2,U,11) Quit
 .Set %R=$G(%R) Set:'%R %R=21 Set %C=3,prompt=$P(U2,U)_" : ",ln=$P(U2,U,9)
 .Set Prog=$G(Prog)
 .Set X=$P(B($P(U2,U,16)\100),D,$P(U2,U,16)#100),FP=%R*100+1 Write @F,@F1
 .Do:$L($P(U2,U,10))
 ..If $E($P(U2,U,10))="""" Write !?2,@$P(U2,U,10) Quit
 ..Write !?2,$P(U2,U,10)
 .If Prog="KP25" W !?2,"-[] = vorig produkt   .[] = volgend produkt   I[] = idem met vorige input"
 .Do ^vhINP
 .Set K=X
 Quit
 ;
DATAM(Node,Piece,Clear) 
 Do S3^cAN000(K)
 New I,K,R,U1,U2,U7,KR,KL,LN,R0,R1,R5,RC,RH0,RH1,RHH,RI,RJ,RK,RL,RT,RZA,RZB,Scrn,Rubr
 Set (U2(16),U7)=Node+1*100+Piece,Scrn=0
 For  Set Scrn=$O(^DMA(UQA,USA,Scrn)) Quit:Scrn=""  Do  Quit:$O(U2(16),-1)'=""
 .Set Rubr=""
 .For  Set Rubr=$O(^DMA(UQA,USA,Scrn,Rubr)) Quit:Rubr=""  Do  Quit:$O(U2(16),-1)'=""
 ..Quit:$G(^DMA(UQA,USA,Scrn,Rubr,16))'=U2(16)
 ..For I=1:1:$O(^DMA(UQA,USA,Scrn,Rubr,""),-1) Set U2(I)=$G(^DMA(UQA,USA,Scrn,Rubr,I))
 Do:$O(U2(16),-1)'=""
 .If $G(Clear) Set K=""
 .Else  Do
 ..Set K=$P(B(U7\100),D,U7#100)
 ..Do ^cAN100
 .Quit:K="-"  Quit:K=","
 .Do B^cAN000(U7,K),S3^cAN000(K)
 .Do S1^cAN202
 Quit
 ;
 ; READ met eventueel toevoeging van #1
READADDONE(Settings,%R,Prog)
 Set K=$P(K,"#")
 Do READ($G(Settings),$G(%R),$G(Prog))
 If $L(K),K'="-",K'="," Set K=K_$S($L(K):"#1",1:"")
 Quit
 ;
 ; INP met eventueel toevoeging van #1
INPADDONE(Settings,%R,Prog)
 Set K=$P(K,"#")
 Do INP($G(Settings),$G(%R),$G(Prog))
 If $L(K),K'="-",K'="," Set K=K_$S($L(K):"#1",1:"")
 Quit
 ;