source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DILFD.m@ 1423

Last change on this file since 1423 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

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