KPHAN31 G 1 ;Produkthandleiding ;KPHAN1;Go van KPHAN1 - Do naar KPSELS [ 04/12/96  3:13 PM ]
 ;
INHOUD(HG,HGX,GR,GRX,SG,SGX) 
 N SGD,GRD,HGD,SGS,GRS,LN,INHOUD
1 S BLZ=0,LN=999,GRD="",INHOUD=1
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 37
31 S SGS=SG I SG'=0 S X=$D(@Q3) G 35:X
33 S SGS=$N(@Q3) I SGS=-1!(SGS]SGX) W !,$$LINE() G 29
35 S LN=LN+1 I LN+1>LNMAX D HD^KPHAN3 G 35
 S SGD=$$DISPLS^KLASS(SGS)
 W !,":  " W:$P(SGD,"-",2)'=GRD $P(SGD,"-",2) S GRD=$P(SGD,"-",2)
 W ?8,":  ",$P(SGD,"-",3)
 W ?19,": ",$P($$DISPL^KLASS($$GETKEY^KLASS(SGS),1),SGD,2),?135,":"
 G 33
37 W !,$$LINE("-"),#
YZ Q
 ;
LINE(Char) 
 N I,R
 S Char=$G(Char," "),R=":"
 F I=7,10,115 S R=R_$TR($J("",I)," ",Char)_":"
 Quit R