Return to DIFROMSV.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIFROMSV.m, revision 1.1.1.1

1.1       snw         1: DIFROMSV       ;SFISC/DCL-DIFROM SERVER UTILITY,PKG REV DATA;08:40 AM  6 Sep 1994;
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4:        Q
                      5: PRD(DIFRFILE,DIFRPRD)  ;Package Revision Data for File
                      6: EN     ;FILE,DATA
                      7:        ;Used to install Package Data from Post-Installation Routine
                      8:        Q:$G(DIFRFILE)'>1
                      9:        Q:'$D(^DD(DIFRFILE))
                     10:        S ^DD(DIFRFILE,0,"VRRV")=$G(DIFRPRD)
                     11:        Q