20 lines
609 B
Mathematica
20 lines
609 B
Mathematica
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
|