DILFD ;SFISC/STAFF-LIBRARY OF FUNCTIONS ;11/18/94 11:05
;;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.
;
Q
ROOT(DIC,DA,CP,ERR) ;
G ENROOT^DIQGU
;
FLDNUM(DIEFF,DIEFFDNM) ;
G FLDNUMX^DIEF1
;
VFILE(F,FLAG) ;
G VFILEX^DIEFU
;
VFIELD(F,FLD,FLAG) ;
G VFIELDX^DIEFU
;
RECALL(DIFILE,DIEN,DIUSER) ;SEA/TOAD
G RECALLX^DICU
;
EXTERNAL(DIFILE,DIFIELD,DIFLAGS,DINTERNL,DIMSGA) ;SEA/TOAD
G XTRNLX^DIDU
;
PRD(DIFRFILE,DIFRPRD) ;DCL
G EN^DIFROMSV
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDILFD 733 printed Dec 13, 2024@02:49:20 Page 2
DILFD ;SFISC/STAFF-LIBRARY OF FUNCTIONS ;11/18/94 11:05
+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 ;
+7 QUIT
ROOT(DIC,DA,CP,ERR) ;
+1 GOTO ENROOT^DIQGU
+2 ;
FLDNUM(DIEFF,DIEFFDNM) ;
+1 GOTO FLDNUMX^DIEF1
+2 ;
VFILE(F,FLAG) ;
+1 GOTO VFILEX^DIEFU
+2 ;
VFIELD(F,FLD,FLAG) ;
+1 GOTO VFIELDX^DIEFU
+2 ;
RECALL(DIFILE,DIEN,DIUSER) ;SEA/TOAD
+1 GOTO RECALLX^DICU
+2 ;
EXTERNAL(DIFILE,DIFIELD,DIFLAGS,DINTERNL,DIMSGA) ;SEA/TOAD
+1 GOTO XTRNLX^DIDU
+2 ;
PRD(DIFRFILE,DIFRPRD) ;DCL
+1 GOTO EN^DIFROMSV
+2 ;
