KPHAN3 G 1 ;Produkthandleiding;KPHAN1;Go van KPHAN1 - Do naar KPSELS [ 08/05/2002   4:17 PM ]
 ;
T2 ;: Identnummer : Korttekst                 : Langtekst                                     : S :    Verpakking : Min-b : L : Weekv :#Kl :
T3 ;:-------------:---------------------------:-----------------------------------------------:---:---------------:-------:---:-------:----:
T4 ;BLZ:
T5 ;:             :                           :                                               :   :               :       :   :       :    :
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
1 S SGT="",(BLZ,SWP,SWS,PSUBGR)=0,BP=DJ-1_"."_DM_" "
 D INIT^vhPRINTER(132) G YZ:'$D(Print)
 S LNMAX=Print("LEN")-8-Print("BOT")-Print("TOP")
 S I=100 G 19:$N(B(I))=-1 D HD,^KPSELS
19 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)"
22 F I="HG","GR","SG" S @("EX"_$E(I,1))=$P(@("^"_Q_"PR(0,I)"),D,5)
 W @F84
 ;D INHOUD^KPHAN31(HG,HGX,GR,GRX,SG,SGX)
23 I HG'=0 S X=$D(@Q1) G 27:X
25 S HG=$N(@Q1) I HG=-1!(HG]HGX) G 160
27 D INHOUD^KPHAN31(HG,HGX,GR,GRX,SG,SGX),HD
 S GRS=GR I GR'=0 S X=$D(@Q2) G 31:X
29 S GRS=$N(@Q2) I GRS=-1!(GRS]GRX) W # 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 I SGS'=SGT S SGT=SGS,PSUBGR=1
36 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:'SWP!SWS W !,$P($T(T3),U,2) S SWP=0,SWS=1,LN=LN+1 G 33
100 S PR=+^(PRCS) D ^KPCHKPR G 37:'OK
 G 37:$P(A(1),D,25)
112 S PSN=$P(A(1),D,20),PGW=+$P(A(1),D,21)
113 S PC=$P(A(0),D,1),PN1=$P(A(0),D,2),PN2=$P(A(0),D,11),PNR=$P(A(2),D,25),(PLL,PLQ,PKV,PNV,PGV)=0
114 S X="J" I $D(A(X)) S PLQ=$P(A(X),D,6),PLL=$P(A(X),D,7),PKV=$P(A(X),D,14),PNV=$P(A(X),D,15),PGV=$P(A(X),D,16)
 S Verp=PGV S:PNV Verp=Verp_"/"_PNV S:PKV Verp=Verp_"/"_PKV
 S KLEUR=$$OMSCHR^PRKLEUR(PR),AKL=$O(^AKANAL(PR,""),-1)
119 K A
129 I PSUBGR D PSUBGR(SGS)
 F I="PGV","PNV","PKV","PLQ","PLL","PGW","AKL" S:'@I @I=""
130 S LN=LN+2 I LN'<LNMAX W:'SWS !,$P($T(T3),U,2),# D HD G 130
 W !,": ",$J($E(PNR,1,11),11),?14,": ",PC,?42,": ",PN1,$J("",45-$L(PN1)-$L(KLEUR)),KLEUR
 W ?90,": ",$P("\S",D,PSN+1),?94,":",$J(Verp,14)," :",$J(PLQ,6)," :",$J(PLL,2)," :",$J(PGW,6)," :",$J(AKL,3)," :"
 W !,":",?14,":",?42,": ",PN2,?90,":",$P($P($T(T5),U,2),":",5,99)
 ;
150 S SWP=1,SWS=0 G 37
160 X F71
YZ Q
 ;
HD 
 N T
 S T=$P($T(+1),U,2)
 S BLZ=BLZ+1,LN=0,SWS=1
 W !,QN,?128,$P($T(T4),U,2),$J(BLZ,4),!,NM2,?68-$L(T),@F82,T,$C(13),?128,DT,!,NM3
 I '$D(INHOUD) S T=$$DISPL^KLASS($$GETKEY^KLASS(HG),1) W ?68-($L(T)/2),T
 W ?129,TD,!!
 I $D(INHOUD) W $E(HG,EXH,99),!,$$LINE^KPHAN31("-")
 E  W $P($T(T3),U,2),!,$P($T(T2),U,2),!,$P($T(T3),U,2)
HDZ Q
 ;
PSUBGR(KSS) 
 S PSUBGR=0
PSG S LN=LN+1 I LN+3>LNMAX W:'SWS !,$P($T(T3),U,2) W # D HD G PSG
 W !,$P($T(T5),U,2),$C(13),?16,@FMTB,$$DISPLS^KLASS(KSS),@FMTb
 Q
 ;