KPSTV1 G 1 ;INVENTARIS - VERSCHILLEN ;Go naar KPSTV2, KPSTV3, KPSTV4 [ 06/27/2003  1:29 PM ]
 ;
 ;
S2 S ^("PRC")=PRC,^("PRCX")=PRCX
S2Z Q
 ;
S3 F I="HG","GR","SG","MK","PRC" S ^(I)=@I,^(I_"X")=@(I_"X")
S3Z Q
 ;
S4 F I="LE","PRC" S ^(I)=@I,^(I_"X")=@(I_"X")
S4Z Q
 ;
1 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
12 S DOC=$P($T(+1),";",2),LSTX="K"
13 S SELK=1 D PP^KPSEL G YZ:K="-"
 ;
2 K DOC,LSTX,SELK G @("^KPSTV"_$F("PKL",LST))
 ;
YZ Q
 ;