BLGETPR1 ;HAAL PRODUKTEN IN VOLGORDE ;(VOLGENS PRODUKTKODE);BLGETPR1;
 G 1
 ;
 ;Ophalen produkten
1 I $L(BPC),$D(^BLProd("I",BPC)) G 13
11 S BPC=$N(^BLProd("I",BPC)) I BPC=-1!(BPC]LPC) G YZ
13 K a S ID=$P(BPC,D,2),a(0)=^BLProd("D",ID) D @("^"_PROGRAM) G 11
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 14.05.91 - 10 u 27