RPLSW ;RAADPLEGEN (OVERSCHAKELING) ;RPLSW; [ 12/17/2001   4:35 PM ]
 G YZ
 ;
 ;Initialisatie
IN K (%ZR,%ZM,Q,QL,QM,QN,QO,QRVG,QT,QTU,QU,QW,QZ,D,DT,TD,DD,DM,DJ,F70,F71,U,boot,cs,master,workst,io,FR,F70,F71,U,STACK,BPROG,PARAM,sLoCase,sJC,sScr,NoMod,sProgLog,RK,CUserId,VkaLEVNr)
 S $ZT="^cQZT",QP=1 X F71 S:$D(@("^"_Q_"BA(""CP"")")) F70="D ^cQKP"
 S QO="",%Q1="^"_Q_"BA(""%1"",$I)",@%Q1=1,QD=$D(@("^"_Q_"BA(34)")) S:QD QD=^(34) S:'$D(QL) QL=9
 Q
 ;
 ;Opbouw stack
OST F I=1:1 Q:'$D(STACK(I+1))
 F I=I:-1 Q:'$D(STACK(I))  S STACK(I+1)=STACK(I)
 Q
 ;
 ;Afbouw stack
AST F I=1:1 Q:'$D(STACK(I+1))  S STACK(I)=STACK(I+1)
 K STACK(I)
 Q
 ;
 ;Heen en weer (zonder stackopbouw)
LB D IN G ^Blum.RaadplegenProduct ;LVH -> Blum Produkt
BL D IN G ^RPLPR ;Blum -> LVH Produkt
KT D IN G ^KOFT1 ;Klant -> Telef. off.
TK D IN G ^RPLKL ;Telef. off; -> Klant
KOMK D IN D ^RPLKL,IN K STACK Q  ;overzicht KOM-orders -> Klant
KOMP D IN D ^RPLPR,IN K STACK Q  ;overzicht KOM-orders -> Produkt
 ;
 ;Heen (met stackopbouw)
KP D OST
 S:$D(@DL(1)@(3)) STACK(1)=KC_D_VTB_D_"K"_D_$G(DL(1))_D_$G(@DL(1)@(6))_D_$G(@DL(1)@(7))
 S:'$D(@DL(1)@(3)) STACK(1)=KC_D_VTB_D_"K" ; via vhLIST ipv PROC
 D IN G ^RPLPR ;Klant -> produkt
PK D OST S STACK(1)=PR_D_VTB_D_"P"_D_DL(1)_D_@(DL(1)_"(6)")_D_@(DL(1)_"(7)") D IN G ^RPLKL ;Produkt -> klant
 ;
 ;Terug (met stackafbouw)
BC D IN I '$D(STACK),$D(BPROG),"\Blum.RaadplegenProduct\"[(D_BPROG_D) G @("^"_BPROG) ;-> Blum
 S PARAM=STACK(1),I=$P(PARAM,D,3)
 I I="K" D AST G ^RPLKL ;-> klant
 I I="P" D AST G ^RPLPR ;-> produkt
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 10.07.91 - 15 u 24