Last change
on this file since 846 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
609 bytes
|
Line | |
---|
1 | DDR4 ;SFCIOFO/DPC-FileMan Delphi Components' RPCs ;2/24/96 12:02
|
---|
2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
---|
3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
4 | KEYVAL(DDROUT,DDRFDARW) ;
|
---|
5 | N DDRFDA,DDRERR
|
---|
6 | D FDASET2(.DDRFDARW,.DDRFDA)
|
---|
7 | S DDROUT(1)=$$KEYVAL^DIEVK("","DDRFDA","DDRERR")
|
---|
8 | Q
|
---|
9 | ;
|
---|
10 | FDASET2(DDRFDARW,DDRFDA) ;
|
---|
11 | N DDRI,DDRLINE,DDRFILE,DDRIENS,DDRFIELD
|
---|
12 | F DDRI=1:1 S DDRLINE=$G(DDRFDARW(DDRI)) Q:DDRLINE="" D
|
---|
13 | . I DDRI#2 D
|
---|
14 | . . S DDRFILE=$P(DDRLINE,U)
|
---|
15 | . . S DDRIENS=$P(DDRLINE,U,2)
|
---|
16 | . . S DDRFIELD=$P(DDRLINE,U,3)
|
---|
17 | . E D
|
---|
18 | . . S DDRFDA(DDRFILE,DDRIENS,DDRFIELD)=$TR(DDRLINE,$C(13)_","_$C(10))
|
---|
19 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.