cI232	;Controle programma PR <--> PR_LE; cI232
	;
	G 1
	;
T0	;Controle programma PR <--> PR_LE;
	;
1	N UI1PR,UI1PRLE
11	S $ZT="TRAP^cAN000"
13	K ^TEMPC($T(+0))
15	S ^TEMPC($T(+0),0)=DT_D_TD
	;  Contole PR --> PR_LE
17	S UI1PR=0,VNR=1
19	F  S UI1PR=$O(@("^"_Q_"PR(UI1PR)")) Q:UI1PR=""  D
	. S UI1PRLE=$P(^(UI1PR,3),D,6)
	. I UI1PRLE="" Q
	. I '$D(^DATA(Q,"PR_LE",UI1PRLE)) S ^TEMPC($T(+0),"PR",UI1PR)=UI1PRLE_" onbekend aankoopgegeven" Q
	. I $P(^DATA(Q,"PR_LE",UI1PRLE,1),D)'=UI1PR S ^TEMPC($T(+0),"PR",UI1PR)=UI1PRLE_D_$P(^DATA(Q,"PR_LE",UI1PRLE,1),D)
	;
	;  Controle PR_LE --> PR
2	       S UI1PRLE=""
21	F  S UI1PRLE=$O(^DATA(Q,"PR_LE",UI1PRLE)) Q:UI1PRLE=""  D
	. S UI1PR=$P($G(^DATA(Q,"PR_LE",UI1PRLE,1)),D)
	. I UI1PR="" S ^TEMPC($T(+0),"PR_LE",UI1PRLE)="geen product" Q
	. I '$D(@("^"_Q_"PR(UI1PR)")) S ^TEMPC($T(+0),"PR_LE",UI1PRLE)=UI1PR_" onbekend product" Q
	;
3	S $P(^TEMPC($T(+0),0),D,3)=DT,$P(^TEMPC($T(+0),0),D,4)=TD
	;
YZ	Q
	;
ZZ	; 12.11.02 - 15 u 51 * V7.93