source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DDR4.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 609 bytes
Line 
1DDR4 ;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.
4KEYVAL(DDROUT,DDRFDARW) ;
5 N DDRFDA,DDRERR
6 D FDASET2(.DDRFDARW,.DDRFDA)
7 S DDROUT(1)=$$KEYVAL^DIEVK("","DDRFDA","DDRERR")
8 Q
9 ;
10FDASET2(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.