DDR4.m

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

 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 ;;Per VA Directive 6402, this routine should not be modified.

 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 ;;Licensed under the terms of the Apache License, Version 2.0.

 ;

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DDR4   835     printed  Apr 09, 2024@21:44:50                                                                                                                                                                                                         Page 2

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

 +1       ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 +4       ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 +5       ;;Licensed under the terms of the Apache License, Version 2.0.

 +6       ;

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