KOFDOFG G 1 ;AFDRUKKEN OFFERTES ;Do naar KOFDOFA,KOFDOFB - Quit naar %F32 [ 11/29/2003   1:16 PM ]
 ;
1 S R=51 D ^KFOLE
BREACK1 B 1
 S V=0,HDT=1,IKL=-1,SW37=0 S:$D(@("^"_Q_"BA(37)")) SW37=^(37) I 'SW37 F I=1:1:12 I $D(@("^"_Q_"BA(99,I)")) S @(Q_"BA(99,I)")=^(I)
2 S IKL=$N(@("^"_Q_"SEL($J,IKL)")) G BREACK0:IKL=-1!(IKL'?.N) S KC=$P(^(IKL)," ",2)
5 S U2=@("^"_Q_"KL(@(""^""_Q_""K1(KC)""),2)"),KKT=$P(U2,D,2),KPL=$P(U2,D,3),KKN=$P(U2,D,5)
50 S KLV=$P(^(3),D,3),U2=^(0),(KV,UVM)=$P(U2,D,11),KX=$P(U2,D,18),KK=$P(U2,D,17) S:KV="" (KV,UVM)=$$FADEF^vhRtn1()
 S KYW=$$GetKlantType^KLANT5(KC)
6 F I=2:1:9 S @$P("KN\KN2\KA\KS\KP\KW\KL\KT",D,(I-1))=$P(U2,D,I)
7 S TL=$F("NFDE",KT)-1,U2="",UR="EENMALIG"
70 I 'SW37,TL'=HDT D ^KBA99
8 S UVN=0,UZ=100,BLZ=0 D HD^KOFDOFB S UVN=UVN+9
9 D ^KOFDOFC
25 S UZ=-1 D ^KOFDOFA W # G 2
BREACK0 B 0
27 S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE
 ;
YZ K PR,PC,PL,KN,KN2,V Q
 ;