- 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 Mar 13, 2025@21:50:39 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
