13.1 -> 14.0.

shabiel · Feb 27, 2017 · 1e5442a · 1e5442a
1 parent 0bb6432
commit 1e5442a
Show file tree

Hide file tree

Showing 208 changed files with 208 additions and 208 deletions.
diff --git a/Routines/XVEMBLD.m b/Routines/XVEMBLD.m
@@ -1,5 +1,5 @@
 XVEMBLD ;DJB,VSHL**VPE Setup - Start ; 2/29/16 9:23am
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
  I $G(XVVSHL)="RUN" D  Q
  . W $C(7),!?2,"Please exit the VShell before running ^XVEMBLD.",!

diff --git a/Routines/XVEMBLDA.m b/Routines/XVEMBLDA.m
@@ -1,5 +1,5 @@
 XVEMBLDA ;DJB,VSHL**VPE Setup - Pages 1-3 ; 2/28/16 4:32pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 PAGE1 ;
  W @FF S START=10,END=START+4

diff --git a/Routines/XVEMBLDB.m b/Routines/XVEMBLDB.m
@@ -1,5 +1,5 @@
 XVEMBLDB ;DJB,VSHL**VPE Setup - Pages 4-7 ; 2/28/16 5:26pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
 PAGE4 ;Instructions for upgrading VPE
  W @FF,!!?2,"U P G R A D E"
  W !!?2,"IF YOU CURRENTLY HAVE AN EARLIER VERSION OF VPE ON YOUR"

diff --git a/Routines/XVEMBLDL.m b/Routines/XVEMBLDL.m
@@ -1,5 +1,5 @@
 XVEMBLDL ;DJB,VSHL**VPE Setup - Load Editor & Shell ; 2/29/16 9:21am
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 TOP ;
  D SHELL

diff --git a/Routines/XVEMD.m b/Routines/XVEMD.m
@@ -1,5 +1,5 @@
 XVEMD ;DJB,VEDD**Electronic Data Dictionary ; 3/26/16 11:52pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 EN ;Entry point
  I '$D(^DD(0)) D  Q

diff --git a/Routines/XVEMD1.m b/Routines/XVEMD1.m
@@ -1,5 +1,5 @@
 XVEMD1 ;DJB,VEDD**Main Menu, Headings [09/25/94]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 HD ;
  W @XVV("IOF"),!?65,"David Bolduc"

diff --git a/Routines/XVEMDC.m b/Routines/XVEMDC.m
@@ -1,5 +1,5 @@
 XVEMDC ;DJB,VEDD**File Characteristics [07/12/94]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 CHAR ;Identifiers, Post Selection Actions, Special Look-up Program
  I '$D(^DD(ZNUM,0,"ID")),'$D(^DD(ZNUM,0,"ACT")),'$D(^DD(ZNUM,0,"DIC")) D  S FLAGG=1 Q

diff --git a/Routines/XVEMDH1.m b/Routines/XVEMDH1.m
@@ -1,5 +1,5 @@
 XVEMDH1 ;DJB,VEDD**Help Text - Main Menu [06/07/94]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 VEDD1 ;;;
  ;;; A)  E N T R Y   P O I N T S:

diff --git a/Routines/XVEMDH2.m b/Routines/XVEMDH2.m
@@ -1,5 +1,5 @@
 XVEMDH2 ;DJB,VEDD**Help Text - Main Menu [7/19/95 9:14pm]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 VEDD1 ;;;
  ;;;

diff --git a/Routines/XVEMDH3.m b/Routines/XVEMDH3.m
@@ -1,5 +1,5 @@
 XVEMDH3 ;DJB,VEDD**Help Text - Main Menu [7/19/95 9:14pm]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 VEDD1 ;;;
  ;;;

diff --git a/Routines/XVEMDH4.m b/Routines/XVEMDH4.m
@@ -1,5 +1,5 @@
 XVEMDH4 ;DJB,VEDD**Help Text - Field Global Location [08/01/94]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 VEDD2 ;;;
  ;;; E N T E R                            R  E  S  U  L  T

diff --git a/Routines/XVEMDH5.m b/Routines/XVEMDH5.m
@@ -1,5 +1,5 @@
 XVEMDH5 ;DJB,VEDD**Help Text - Field Global Location [11/05/94]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 VEDD2 ;;;
  ;;;

diff --git a/Routines/XVEMDI.m b/Routines/XVEMDI.m
@@ -1,5 +1,5 @@
 XVEMDI ;DJB,VEDD**Indiv Fld Sum ; 12/8/00 7:23am
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
  NEW %,%XX,%Y,%YY,D,DDH,DIC,X,Y
  NEW A,CNT,DATA,FILE,FLD,FNAM,FNUM,I,LEV,M,ZDSUB

diff --git a/Routines/XVEMDL.m b/Routines/XVEMDL.m
@@ -1,5 +1,5 @@
 XVEMDL ;DJB,VEDD**Fld Global Location ; 3/26/16 11:45pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 PRINT ;Called by START,LOOP
  Q:'$D(^DD(FILE(LEV),FLD(LEV),0))

diff --git a/Routines/XVEMDL1.m b/Routines/XVEMDL1.m
@@ -1,5 +1,5 @@
 XVEMDL1 ;DJB,VEDD**Start at a particular field?,Hd,Error ; 9/6/02 8:08am
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 ASK ;Start at a particular field?
  I $G(VEDDS)>1 D  Q  ;Don't ask when branching

diff --git a/Routines/XVEMDLB.m b/Routines/XVEMDLB.m
@@ -1,5 +1,5 @@
 XVEMDLB ;DJB,VEDD**Branch to Pointed-To File [11/07/94]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 EN ;
  S U="^"

diff --git a/Routines/XVEMDLD.m b/Routines/XVEMDLD.m
@@ -1,5 +1,5 @@
 XVEMDLD ;DJB,VEDD**Data: Look-up [08/12/94]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
  I $G(ZGL)["^DIA(" D  D PAUSE^XVEMKC(3) Q
  . D ENDSCR^XVEMKT2

diff --git a/Routines/XVEMDLE.m b/Routines/XVEMDLE.m
@@ -1,5 +1,5 @@
 XVEMDLE ;DJB,VEDD**Data: Type,Access [07/31/94]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 GETTYPE ;Select data type for DATA Option
  W !?1,"Select DISPLAY TYPE: EN//"

diff --git a/Routines/XVEMDLI.m b/Routines/XVEMDLI.m
@@ -1,5 +1,5 @@
 XVEMDLI ;DJB,VEDD**Import ; 3/26/16 11:30pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
  Q:FLAGP  D SETARRAY,LIST
  Q

diff --git a/Routines/XVEMDLM.m b/Routines/XVEMDLM.m
@@ -1,5 +1,5 @@
 XVEMDLM ;DJB,VEDD**Menu,Find,Goto [11/25/95 12:22pm]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 RUN(Z1) ;
  I Z1?1.N D INDFLD Q

diff --git a/Routines/XVEMDM.m b/Routines/XVEMDM.m
@@ -1,5 +1,5 @@
 XVEMDM ;DJB,VEDD**Menu Driver ; 12/6/00 9:18pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 EN ;Entry Point
  NEW I,LIST,OPT,X,Y

diff --git a/Routines/XVEMDN.m b/Routines/XVEMDN.m
@@ -1,5 +1,5 @@
 XVEMDN ;DJB,VEDD**NODE Lookup and Look-up by Global [11/04/94]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
  NEW FILE,FLD,NODE,NODE0,NODE1,PIECE
  NEW FLAGD,FNAM,FNUM,LEV,NP

diff --git a/Routines/XVEMDPR.m b/Routines/XVEMDPR.m
@@ -1,5 +1,5 @@
 XVEMDPR ;DJB,VEDD**Printing, Count Fields [6/28/95 6:42pm]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
  ;;This is run each time VEDD is run, right after you select a File.
  ;;It sets up multiples in ^TMP("XVV","VEDD",$J,"TMP")

diff --git a/Routines/XVEMDPT.m b/Routines/XVEMDPT.m
@@ -1,5 +1,5 @@
 XVEMDPT ;DJB,VEDD**Pointers In, Pointers Out [1/7/97 3:13pm]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 PTI ;Pointers In
  I '$D(^DD(ZNUM,0,"PT")) D  S FLAGG=1 Q

diff --git a/Routines/XVEMDT.m b/Routines/XVEMDT.m
@@ -1,5 +1,5 @@
 XVEMDT ;DJB,VEDD**Trace a Field [3/9/95 6:35pm]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 EN ;
  NEW CNT,DATA,FLD,FLD1,FLDCNT,I,LEVEL,MAR,MAR1,Z1,ZDD,ZNAME,ZNUMBER

diff --git a/Routines/XVEMDU.m b/Routines/XVEMDU.m
@@ -1,5 +1,5 @@
 XVEMDU ;DJB,VEDD**Groups,Required Fields [07/12/94]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 GRP ;Groups
  NEW GRP,GRP1,GRP2,HD,X,Z,Z1,ZFLD,ZMULT

diff --git a/Routines/XVEMDU1.m b/Routines/XVEMDU1.m
@@ -1,5 +1,5 @@
 XVEMDU1 ;DJB,VEDD**Templates,Description [7/19/95 9:08pm]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 EN ;Templates
  I '$D(^DIBT("F"_ZNUM)),'$D(^DIPT("F"_ZNUM)),'$D(^DIE("F"_ZNUM)) D  G EX

diff --git a/Routines/XVEMDUM.m b/Routines/XVEMDUM.m
@@ -1,5 +1,5 @@
 XVEMDUM ;DJB,VEDD**Scroll Messages [9/24/95 3:26pm]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 MSG(NUM,PAUSE) ;Messages
  ;NUM=Subroutine number  PAUSE=Pause screen

diff --git a/Routines/XVEMDX.m b/Routines/XVEMDX.m
@@ -1,5 +1,5 @@
 XVEMDX ;DJB,VEDD**List Old-style Xrefs ; 12/9/00 1:36pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
  NEW CHK,CNT,CNTINDEX,CNTKEY,DATA,FILE,FLD,GLTEMP,INDENT
  NEW LEV,LINE,NAM,PAGE,XVVS,ZDATA

diff --git a/Routines/XVEMDXK.m b/Routines/XVEMDXK.m
@@ -1,5 +1,5 @@
 XVEMDXK ;DJB,VEDD**List Keys ; 12/9/00 5:01pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 KEYS(ZNUM) ;Get all Keys for this file and any subfiles.
  ;ZNUM = File number.

diff --git a/Routines/XVEMDY.m b/Routines/XVEMDY.m
@@ -1,5 +1,5 @@
 XVEMDY ;DJB,VEDD**Init,Partition,Branching,Error ; 9/23/02 1:31pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 INIT ;
  S:'$D(FLAGH) FLAGH=0

diff --git a/Routines/XVEMG.m b/Routines/XVEMG.m
@@ -1,5 +1,5 @@
 XVEMG ;DJB,VGL**VGlobal Lister ; 5/1/16 6:46pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 EN ;Entry point
  I $G(DUZ)'>0 D ID^XVEMKU Q:$G(DUZ)=""

diff --git a/Routines/XVEMG1.m b/Routines/XVEMG1.m
@@ -1,5 +1,5 @@
 XVEMG1 ;DJB,VGL**Get Global ; 9/6/02 10:04am
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 GETGL ;Get Global
  ; FLAGPRM = Parameter passing. Used by VEDD,VGL,VRR

diff --git a/Routines/XVEMGE.m b/Routines/XVEMGE.m
@@ -1,5 +1,5 @@
 XVEMGE ;DJB,VGL**Edit Global Node ; 4/24/16 11:28pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 EDITV ;Edit node's value
  NEW CD1,FLAGQ,NEW,ND,NODE,OLD,TAB,TEMP,TEMP1,X

diff --git a/Routines/XVEMGE1.m b/Routines/XVEMGE1.m
@@ -1,5 +1,5 @@
 XVEMGE1 ;DJB,VGL**Edit Global Node - Range [2/25/99 3:22pm]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 RESET ;Reset scroll array. NUM1,NUM2=Node range.
  NEW CHK,GLNAM,I,NUM,NUM1,NUM2,PKGS,PKGV,TEMP

diff --git a/Routines/XVEMGH.m b/Routines/XVEMGH.m
@@ -1,5 +1,5 @@
 XVEMGH ;DJB,VGL**Help Text - Global Prompt [06/19/94]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 VGL1 ;;;
  ;;; V G L . . . . . . . . Victory Global Lister . . . . . . . . . . David Bolduc

diff --git a/Routines/XVEMGH1.m b/Routines/XVEMGH1.m
@@ -1,5 +1,5 @@
 XVEMGH1 ;DJB,VGL**Help Text - Main Screen [02/05/95]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 VGL2 ;;;
  ;;; V G L   E N T R Y   P O I N T S

diff --git a/Routines/XVEMGH2.m b/Routines/XVEMGH2.m
@@ -1,5 +1,5 @@
 XVEMGH2 ;DJB,VGL**Help Text - Main Screen [06/08/94]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 VGL2 ;;;
  ;;;

diff --git a/Routines/XVEMGI.m b/Routines/XVEMGI.m
@@ -1,5 +1,5 @@
 XVEMGI ;DJB,VGL**Loop,Print,Import ; 5/1/16 6:53pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 TOP(ZGR) ;ZGR contains starting point, such as ^VA(200).
  N $ESTACK,$ETRAP S $ETRAP="D ERROR^XVEMGI1,UNWIND^XVEMSY"

diff --git a/Routines/XVEMGI1.m b/Routines/XVEMGI1.m
@@ -1,5 +1,5 @@
 XVEMGI1 ;DJB,VGL**Reverse Video,Set variables,Error ; 11/14/02 7:10am
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 GLOBNAME(GLOB) ;Write Global name with variable subscripts in reverse video.
  I GLOB'?.E1"(".E Q GLOB

diff --git a/Routines/XVEMGM.m b/Routines/XVEMGM.m
@@ -1,5 +1,5 @@
 XVEMGM ;DJB,VGL**Main Menu ; 4/24/16 11:17pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 READ ;Get input
  ;Next: Quit if SKIP NODE

diff --git a/Routines/XVEMGM1.m b/Routines/XVEMGM1.m
@@ -1,5 +1,5 @@
 XVEMGM1 ;DJB,VGL**Main Menu cont. ; 4/24/16 11:21pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 PIECE ;List pieces
  NEW FLAG,FLAGXREF S FLAG=0

diff --git a/Routines/XVEMGMC.m b/Routines/XVEMGMC.m
@@ -1,5 +1,5 @@
 XVEMGMC ;DJB,VGL**Check FM, Check Node [6/14/95 10:39pm]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 GOTO ;Goto line number
  NEW ND,X

diff --git a/Routines/XVEMGO.m b/Routines/XVEMGO.m
@@ -1,5 +1,5 @@
 XVEMGO ;DJB,VGL**CODE SEARCH,SKIP ; 4/24/16 11:10pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 SKIP ;Skipping over nodes. Also, see first line of PRINT^XVEMGI.
  Q:'$G(FLAGSKIP)  NEW SUBCHK D GETSUB Q:$G(SUBCHK)']""

diff --git a/Routines/XVEMGP.m b/Routines/XVEMGP.m
@@ -1,5 +1,5 @@
 XVEMGP ;DJB,VGL**PIECES - Display Global Pieces ; 4/24/16 11:07pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 TOP ;FLAGTYPE="IorX^SWITCH" when switching between Int or eXt views
  N $ESTACK,$ETRAP S $ETRAP="D ERROR^XVEMGP,UNWIND^XVEMSY"

diff --git a/Routines/XVEMGPI.m b/Routines/XVEMGPI.m
@@ -1,5 +1,5 @@
 XVEMGPI ;DJB,VGL**PIECES - Scroller Import [5/5/97 5:40pm]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 IMPORT ;Import text to the scroller
  D SETARRAY,LIST

diff --git a/Routines/XVEMGPS.m b/Routines/XVEMGPS.m
@@ -1,5 +1,5 @@
 XVEMGPS ;DJB,VGL**PIECES - Xref,Word Proc,Zero Nodes [07/21/94]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 XREF ;Display field if Xref node
  NEW DD,FLAGQ,FNUM,LENGTH,TMP,TMP1

diff --git a/Routines/XVEMGR.m b/Routines/XVEMGR.m
@@ -1,5 +1,5 @@
 XVEMGR ;DJB,VGL**Process a Range of nodes [02/03/95]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 RANGE ;User asked for a range with ":" or ",,"
  ;Set up GLOBAL,START(),END()

diff --git a/Routines/XVEMGR1.m b/Routines/XVEMGR1.m
@@ -1,5 +1,5 @@
 XVEMGR1 ;DJB,VGL**Process Variables [10/25/94]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 VARIABLE ;Check if variable is valid and replace with its value
  NEW TEMP1,TEMP2,TEMPSP

diff --git a/Routines/XVEMGS.m b/Routines/XVEMGS.m
@@ -1,5 +1,5 @@
 XVEMGS ;DJB,VGL**SAVE,UNSAVE ; 4/24/16 10:45pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 SAVE ;Save lines of code (to be UNsaved to a new location).
  NEW CNT,GLNAM,I,ND,RNG

diff --git a/Routines/XVEMGU.m b/Routines/XVEMGU.m
@@ -1,5 +1,5 @@
 XVEMGU ;DJB,VGL**Utility Routine - ZDELIM,Get File,Heading [07/29/94]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 TRAN(X) ;Substitute ZDELIM with comma in subscript so I can check for $D.
  NEW ZDELIM,I,Y S ZDELIM=$C(127)_$C(124),Y=""

diff --git a/Routines/XVEMGUM.m b/Routines/XVEMGUM.m
@@ -1,5 +1,5 @@
 XVEMGUM ;DJB,VGL**Scroll Messages [2/24/99 10:39am]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 MSG(NUM,PAUSE) ;Messages
  ;NUM=Subroutine number  PAUSE=Pause screen

diff --git a/Routines/XVEMGY.m b/Routines/XVEMGY.m
@@ -1,5 +1,5 @@
 XVEMGY ;DJB,VGL**Init,Partition,Branching,Error ; 10/11/03 2:25pm
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 INIT ;Initialize variables
  S GLS=$S($G(GLS)=1:GLS+1,1:1) ;GLS is the current session number.

diff --git a/Routines/XVEMKC.m b/Routines/XVEMKC.m
@@ -1,5 +1,5 @@
 XVEMKC ;DJB,KRN**Select Choices ; 12/20/00 8:23am
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 CHOICE(OPTIONS,LEV,DX,DY) ;
  ;;OPTIONS=String containing options. Ex: "YES^NO"

diff --git a/Routines/XVEMKDT.m b/Routines/XVEMKDT.m
@@ -1,5 +1,5 @@
 XVEMKDT ;DJB,KRN**Date/Time [12/30/95 9:15am]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
  W !!?1,"Calling points: S DATE=$$DATE^XVEMKDT(1|2|3)"
  W !?1,"                S FMDATE=$$FMDATE^XVEMKDT()"

diff --git a/Routines/XVEMKE.m b/Routines/XVEMKE.m
@@ -1,5 +1,5 @@
 XVEMKE ;DJB,KRN**Line Editor [9/9/95 2:43pm]
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 EDIT(PROMPT) ;Calling point for VPE modules
  S PROMPT=$G(PROMPT)

diff --git a/Routines/XVEMKEA.m b/Routines/XVEMKEA.m
@@ -1,5 +1,5 @@
 XVEMKEA ;DJB,KRN**Screen Mode Line Editor ; 11/14/02 6:56am
- ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016
+ ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017
  ;
 SCREEN(PROMPT,LMAR,RMAR) ;Edit a line of text
  ;PROMPT = Prompt