cAN213 ;Raadplegen ;%AN210 ; [ 01/04/01  8:56 AM ]
 G 1
 ;
T0 ;Raadplegen ;
 ;
T0F ;Consultation ;
 ;
T0E ;Consultation ;
 ;
 ; 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 niet toegelaten : enkel raadplegen
3 S (RSKEYS,I)=""
 ;
 ; scroll in detail
4 D ^cAN2131
 ;
 ; 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