DDR4 ;SFCIOFO/DPC-FileMan Delphi Components' RPCs ;2/24/96  12:02
 ;;22.0;VA FileMan;;Mar 30, 1999
 ;Per VHA Directive 10-93-142, this routine should not be modified.
KEYVAL(DDROUT,DDRFDARW) ;
 N DDRFDA,DDRERR
 D FDASET2(.DDRFDARW,.DDRFDA)
 S DDROUT(1)=$$KEYVAL^DIEVK("","DDRFDA","DDRERR")
 Q
 ;
FDASET2(DDRFDARW,DDRFDA) ;
 N DDRI,DDRLINE,DDRFILE,DDRIENS,DDRFIELD
 F DDRI=1:1 S DDRLINE=$G(DDRFDARW(DDRI)) Q:DDRLINE=""  D
 . I DDRI#2 D
 . . S DDRFILE=$P(DDRLINE,U)
 . . S DDRIENS=$P(DDRLINE,U,2)
 . . S DDRFIELD=$P(DDRLINE,U,3)
 . E  D
 . . S DDRFDA(DDRFILE,DDRIENS,DDRFIELD)=$TR(DDRLINE,$C(13)_","_$C(10))
 Q
