DIFROMSV ;SFISC/DCL-DIFROM SERVER UTILITY,PKG REV DATA ;08:40 AM 6 Sep 1994
;;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
PRD(DIFRFILE,DIFRPRD) ;Package Revision Data for File
EN ;FILE,DATA
;Used to install Package Data from Post-Installation Routine
Q:$G(DIFRFILE)'>1
Q:'$D(^DD(DIFRFILE))
S ^DD(DIFRFILE,0,"VRRV")=$G(DIFRPRD)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIFROMSV 611 printed Sep 23, 2025@20:24:35 Page 2
DIFROMSV ;SFISC/DCL-DIFROM SERVER UTILITY,PKG REV DATA ;08:40 AM 6 Sep 1994
+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
PRD(DIFRFILE,DIFRPRD) ;Package Revision Data for File
EN ;FILE,DATA
+1 ;Used to install Package Data from Post-Installation Routine
+2 if $GET(DIFRFILE)'>1
QUIT
+3 if '$DATA(^DD(DIFRFILE))
QUIT
+4 SET ^DD(DIFRFILE,0,"VRRV")=$GET(DIFRPRD)
+5 QUIT
