VPRP2I ;SLC/MKB -- VPR patch 2 post install ;8/14/13 11:22
;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
;
; External References DBIA#
; ------------------- -----
; XPAR 2263
;
PRE ; -- pre init
Q
;
POST ; -- post init
D PUT^XPAR("PKG","VPR VERSION",1,"1.02")
D PUT^XPAR("SYS","VPR SYSTEM NAME",1,$$SYS^VPRUTILS)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVPRP2I 396 printed Sep 23, 2025@20:21:59 Page 2
VPRP2I ;SLC/MKB -- VPR patch 2 post install ;8/14/13 11:22
+1 ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+2 ;
+3 ; External References DBIA#
+4 ; ------------------- -----
+5 ; XPAR 2263
+6 ;
PRE ; -- pre init
+1 QUIT
+2 ;
POST ; -- post init
+1 DO PUT^XPAR("PKG","VPR VERSION",1,"1.02")
+2 DO PUT^XPAR("SYS","VPR SYSTEM NAME",1,$$SYS^VPRUTILS)
+3 QUIT
