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 ---[H[J[2J[HDDR4 835 printed Nov 22, 2024@17:52:52 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
