DDR4.m

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

DDR4      ;SFCIOFO/DPC-FileMan Delphi Components' RPCs ;2/24/96  12:02

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

KEYVAL(DDROUT,DDRFDARW) ;

 +1        NEW DDRFDA,DDRERR

 +2        DO FDASET2(.DDRFDARW,.DDRFDA)

 +3        SET DDROUT(1)=$$KEYVAL^DIEVK("","DDRFDA","DDRERR")

 +4        QUIT 

 +5       ;

FDASET2(DDRFDARW,DDRFDA) ;

 +1        NEW DDRI,DDRLINE,DDRFILE,DDRIENS,DDRFIELD

 +2        FOR DDRI=1:1

               SET DDRLINE=$GET(DDRFDARW(DDRI))

               IF DDRLINE=""

                   QUIT 

               Begin DoDot:1

 +3                IF DDRI#2

                       Begin DoDot:2

 +4                        SET DDRFILE=$PIECE(DDRLINE,U)

 +5                        SET DDRIENS=$PIECE(DDRLINE,U,2)

 +6                        SET DDRFIELD=$PIECE(DDRLINE,U,3)

                       End DoDot:2

 +7               IF '$TEST

                       Begin DoDot:2

 +8                        SET DDRFDA(DDRFILE,DDRIENS,DDRFIELD)=$TRANSLATE(DDRLINE,$CHAR(13)_","_$CHAR(10))

                       End DoDot:2

               End DoDot:1

 +9        QUIT