cAFI3 ;INPUT KONTROLE ;%AFI3 ; [ 01/03/01  5:14 PM ]
 ;
T0 ;Inputcontrole ;
 ;
T0F ;Contrôle d'entrée ;
 ;
T0E ;Inputcontrol ;
 ;
BP(K,VM) ; kontrole basisprijs van de aankoopgegevens produkten   
 N DEC,R
 S DEC=$$DEC^cAFA1(VM)
 I VM=$$BF^cAFA1,$D(@("^"_Q_"PR(0,19)")) S DEC=+$P(^(19),D,22)
 S R=0 X "I K?.N!((K?.N1"".""."_DEC_"N)&DEC) S R=1"
 Q R
 ;
PDP(K,V) ; kontrole prijs produkten   
 N DEC,R
 S DEC=$$PDP^cAFA3($G(V))
 S R=0 X "I K?.N!((K?.N1"".""."_DEC_"N)&DEC) S R=1"
 Q R
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84