cAN214 ;Scroll ;%AN210 ; [ 05/07/98  12:10 PM ]
 G 1
 ;
T0 ;Scroll ;
 ;
T0F ;Scroll ;
 ;
T0E ;Scroll ;
 ;
 ; indeling kolommen detail
S1 W /WSCROFF F I=USCR-1:1:$P(USCR,D,2) W /CUP(I,1),/SGR(7),/WCML
S1A N S1,S2 K RSM M RSM=^DMH(UQH,USH,"DET",UDET)
S1B W /WWR(1) S S1=0 F  S S1=$O(RSM(S1)) Q:S1=""  D
 . W /CUP(USCR-1,$P(RSM(S1,1),D,2)),$E($P(RSM(S1,0),D,QTU)_$J("",$P(RSM(S1,1),D,3)),1,$P(RSM(S1,1),D,3))
S1C F S2=1:1:$L(RSM(0,0),D) S S1=$P(RSM(0,0),D,S2) I S1 W /CUP(USCR-1,S1),@USEP
S1Z W /SGR(27) D Y^cA612 Q
 ;
 ; algemene initialisatie
1 N RSD,RSL,RSM,RSV,SW4,UDET
 ;
 ; selectie detail
2 S UDET=^DMH(UQH,USH,"DET",0),SW4=$O(^(""),-1)
21 D S1
 ;
 ; definitie bijkomende functies
3 S (RSKEYS,I)=""
31 F  S I=$O(^DMC(UQC,USC,"SYN",0,0,I)) Q:I=""  S RSKEYS=RSKEYS_D_I
 ;
 ; scroll in detail
4 I $L($P($G(^DMH(UQH,USH,0,"UDO")),D)) S OK=1 X $P(^("UDO"),D) I 'OK G Y
41 I USORT N RSORT S RSORT=$$GETSORT^cAFA1 D ^cAN2140
43 D ^cAN2141
45 I USORT D RELSORT^cAFA1(RSORT)
47 I $L($P($G(^DMH(UQH,USH,0,"UDO")),D,2)) X $P(^("UDO"),D,2)
 ;
 ; einde
Y I $L($G(^DMH(UQH,USH,0,"WIN"))) D C^cA612
YY I $G(^("COM")) X $P(^("COM"),D,3)
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84