KOFDOFC G 1 ; AFDRUKKEN OFFERTES ; KOFDOF; Quit naar KOFDOF [ 09/29/93  4:14 PM ]
 ;
S1 N KSS I $D(@("^"_Q_"PSG1(SGS)")) S KSS=SGS,SGO=$$FF^DD("oPKSOms"_KT)
S1A I '$L(SGO) S SGO=$$DISPLS^KLASS(SGO)
S1Z Q
 ;
1 S SGO="",MK="  " S:'$D(VOLK) VOLK=0 G 19:VOLK S UZ=100
11 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,""ZZZZPS"",UZ)")) G YZ:UZ=-1 S K=^(UZ) G 11:'$D(@("^"_Q_"SL1(""PR"",$P(K,D,1))")) K B
12 S R=^($P(K,D,1)),R=@("^"_Q_"SL(""PR"",R,0)"),R=100 F I=1:1 S R=$N(^(R)) Q:R=-1  S B(R)=^(R)
13 S HG=$P(K,D,3),HGX=$P(K,D,4),GR=$P(K,D,5),GRX=$P(K,D,6),SG=$P(K,D,7),SGX=$P(K,D,8)
15 S PRC=$P(K,D,9) I PRC'=0,$D(@("^"_Q_"PR(PRC)")) S PC=$P(^(PRC,0),D,1),PCC=$$COMPR^PRODUKT(PRC),PRC=PCC
17 S PRCX=$P(K,D,10) I $D(@("^"_Q_"PR(PRCX)")) S PC=$P(^(PRCX,0),D,1),PCC=$$COMPR^PRODUKT(PRCX),PRCX=PCC
19 S Q0="^"_Q_"PR(PR,0)",Q1="^"_Q_"PH(HGS)",Q2="^"_Q_"PH(HGS,GRS)"
21 S Q3="^"_Q_"PH(HGS,GRS,SGS)",Q4="^"_Q_"PH(HGS,GRS,SGS,MK,PRCS)"
23 S HGS=HG I HGS'=0 S X=$D(@Q1) G 27:X
25 S HGS=$N(@Q1) I HGS=-1!(HGS]HGX) G 11:'VOLK,YZ
27 S GRS=GR I GR'=0 S X=$D(@Q2) G 31:X
29 S GRS=$N(@Q2) I GRS=-1!(GRS]GRX) G 25
31 S SGS=SG I SG'=0 S X=$D(@Q3) G 35:X
33 S SGS=$N(@Q3) I SGS=-1!(SGS]SGX) G 29
35 S PRCS=PRC D S1 I PRC'=0 S X=$D(@Q4) G 100:X
37 S PRCS=$N(@Q4) I PRCS=-1!(PRCS]PRCX) G 33
100 S PR=+^(PRCS) D ^KPCHKPR G 37:'OK
111 K A D ^KOFDOFE G 37
 ;
YZ S UZ=100 Q
 ;
Z X ^cZ Q
ZZ ; 01.06.88 - 15 u 05