KPLIM ;PRODUKTEN OP LIMIET; [ 03/16/95  11:15 AM ]
 ;
 S K=$P($T(+1),";",2)_QN_" " S FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 S DOC=$P($T(+1),";",2),LSTX="K"
 S SELK=0 D PP^KPSEL Q:K="-"
 K DOC,LSTX,SELK
 ;
 S BLZ=0,LN=999
 D INIT^vhPRINTER("","","CA") Q:'$D(Print)
 S LNMAX=Print("LEN")-10-Print("BOT")-Print("TOP")
 S I=100 I $N(B(I))'=-1 D HD,^KPSELS
 S Q0="^"_Q_"PR(PR,0)",Q1="^"_Q_"PH(HG)",Q2="^"_Q_"PH(HG,GRS)",Q3="^"_Q_"PH(HG,GRS,SGS)",Q4="^"_Q_"PH(HG,GRS,SGS,MK,PRCS)"
 F I="HG","GR","SG" S @("EX"_$E(I,1))=$P(@("^"_Q_"PR(0,I)"),D,5)
23 I HG'=0 S X=$D(@Q1) G 27:X
25 S HG=$N(@Q1) I HG=-1!(HG]HGX) G 160
27 S GRS=GR I GR'=0 S X=$D(@Q2) G 31:X
29 S GRS=$N(@Q2) I GRS=-1!(GRS]GRX) S LN=999 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 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
 S KortTxt=$P(A(0),D),Limiet=$P(A(0),D,24),WeekVerk=$P(A(1),D,23),IdentNr=$P(A(2),D,25),LeverT=$P(A("J"),D,7)
 G 37:'Limiet ;,37:$P(A(1),D,25)
129 S LN=LN+1 I LN'<LNMAX W:BLZ !,$P($T(T3),U,2),# D HD G 129
 W !,": ",KortTxt,?27," : ",?30,IdentNr,?42,":"
 W $$EXTNUM^vhLib.DataTypes(Limiet,11,"T.",0),":",$J(LeverT,3)," :",$$EXTNUM^vhLib.DataTypes(WeekVerk,10,"T.",0),":"
 I Limiet<(WeekVerk*(LeverT+2)) W ?74,"Ja"
 W ?79,":"
 G 37
160 W !,$P($T(T3),U,2),# X F71
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,QN,?72,"BLZ:",$J(BLZ,4),!,NM2,?29,@F82,$P($T(+1),U,2),@F83,?72,DT,!,NM3
 W ?73,TD,!!
 W $E(HG,EXH,99) W:GR=GRX "- ",$E(GR,EXG,99) W:SG=SGX "- ",$E(SG,EXS,99)
 W !!,$P($T(T3),U,2),!,$P($T(T2),U,2),!,$P($T(T3),U,2)
 Q
 ;
T2 ;: KORTTEKST                 : IDENTNUMMER :    LIMIET : LT : WEEKVERK : NAZIEN :
T3 ;:---------------------------:-------------:-----------:----:----------:--------:
 ;