Routine: VPRPATCH

VPRPATCH ;SLC/MKB -- VPR patch post install ;8/14/13  11:22

 ;;1.0;VIRTUAL PATIENT RECORD;**7**;Sep 01, 2011;Build 3

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ; External References          DBIA#

 ; -------------------          -----

 ; XPAR                          2263

PRE ; -- pre init

POST ; -- post init

 N P,N S P=+$P($G(XPDNM),"*",3) I P D  ;update version#

 . S N="1."_$S(P<10:"0",1:"")_P

 . D PUT^XPAR("PKG","VPR VERSION",1,N)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVPRPATCH   499     printed  Apr 23, 2025@19:00:12                                                                                                                                                                                                     Page 2

VPRPATCH  ;SLC/MKB -- VPR patch post install ;8/14/13  11:22

 +1       ;;1.0;VIRTUAL PATIENT RECORD;**7**;Sep 01, 2011;Build 3

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

 +4       ; External References          DBIA#

 +5       ; -------------------          -----

 +6       ; XPAR                          2263

 +7       ;

 +8       ;

PRE       ; -- pre init

 +1        QUIT

 +2       ;

POST      ; -- post init

 +1       ;update version#

           NEW P,N

           SET P=+$PIECE($GET(XPDNM),"*",3)

           IF P

               Begin DoDot:1

 +2                SET N="1."_$SELECT(P<10:"0",1:"")_P

 +3                DO PUT^XPAR("PKG","VPR VERSION",1,N)

               End DoDot:1

 +4        QUIT

VPRPATCH.m