- DILFD ;SFISC/STAFF-LIBRARY OF FUNCTIONS ;11/18/94 11:05
- ;;22.0;VA FileMan;;Mar 30, 1999
- ;Per VHA Directive 10-93-142, this routine should not be modified.
- 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
- ;
- DILFD ;SFISC/STAFF-LIBRARY OF FUNCTIONS ;11/18/94 11:05
- +1 ;;22.0;VA FileMan;;Mar 30, 1999
- +2 ;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 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 ;