Return to DILFD.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DILFD	;SFISC/STAFF-LIBRARY OF FUNCTIONS ;11/18/94  11:05
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: 	Q
    5: ROOT(DIC,DA,CP,ERR)	;
    6: 	G ENROOT^DIQGU
    7: 	;
    8: FLDNUM(DIEFF,DIEFFDNM)	;
    9: 	G FLDNUMX^DIEF1
   10: 	;
   11: VFILE(F,FLAG)	;
   12: 	G VFILEX^DIEFU
   13: 	;
   14: VFIELD(F,FLD,FLAG)	;
   15: 	G VFIELDX^DIEFU
   16: 	;
   17: RECALL(DIFILE,DIEN,DIUSER)	;SEA/TOAD
   18: 	G RECALLX^DICU
   19: 	;
   20: EXTERNAL(DIFILE,DIFIELD,DIFLAGS,DINTERNL,DIMSGA)	;SEA/TOAD
   21: 	G XTRNLX^DIDU
   22: 	;
   23: PRD(DIFRFILE,DIFRPRD)	;DCL
   24: 	G EN^DIFROMSV
   25: 	;