cAN101E ;Equivalente producten ;%AN101 ; [ 01/04/01  8:19 AM ]
 G 1
 ;
T0 ;Equivalente producten ;
 ;
T0F ;Produits équivalents ;
 ;
T0E ;Equivalent products ;
 ;
 ; ^E toegelaten ?
1 S RK="?" G YY:'$G(II),YY:'$D(RSL(II))
11 N S1,S2,UI1 S $ZT="TRAP^cAN000"
13 S UI1=RSL(II,0),S1=$P($G(@RSREF@(3)),D,1,5),S2=1
15 F I=1:1:5 D  I 'S2 Q
 . N UI1 S UI1=$P(S1,D,I) I UI1,$D(@RSREF@(0)) S S2=$P(^(0),D,30)
17 I S2 G Y
 ;
 ; Operationele equivalente producten in volgorde van definitie
2 N RSORT L +^HULP("SORT",0)
21 S RSORT=$G(^HULP("SORT",0),1),^(0)=RSORT+1 K ^(RSORT)
23 L -^HULP("SORT",0)
25 F I=1:1:5 D
 . N UI1 S UI1=$P(S1,D,I)
 . I UI1,$D(@RSREF@(0)),'$P(^(0),D,30) D ^cAN1012 S ^HULP("SORT",RSORT,I)=$E(K,1,76)
 ;
 ; Originele product tonen
3 D O^cA612(RSLN+1,2,1,78,0,1,1,1)
31 S I=$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D)
33 W /CUP(1,2),/SGR(1),$$UC^cAFA1($E(I)),$E(I,2,99),/SGR(0)," : "
35 S I=$P(@("^"_Q_"PR(0,90)"),D,QTU)
37 W $P(@RSREF@(0),D)," ",$P($G(^(I\100-1)),D,I#100),/WDSP
 ;
 ; Scroll in equivalente producten
4 D ^cAN103("K",RSLN+2,0,"PR.EQUI")
41 I RK=28 S K=$P(S1,D,K)
 ;
 ; Originele product weg
5 D C^cA612
 ;
 ; Equivalente producten verwijderen uit hulpbestand
6 L +^HULP("SORT",0)
61 K ^HULP("SORT",RSORT) I $O(^(RSORT))="" S ^(0)=RSORT I $O(^(0))="" S ^(0)=1
63 L -^HULP("SORT",0)
 ;
 ; Einde
7 I RK'=28 S REFRESH=1
71 G YZ
 ;
 ; ^E niet toegelaten
Y S REFRESH=1
YY W $C(7)
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84