|
Last change
on this file since 1618 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.
