diff --git a/Routines/XVEMBLD.m b/Routines/XVEMBLD.m index 0734f72..6b881fe 100644 --- 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 index 644af87..dda6a26 100644 --- 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 index f71fe1b..4700ff2 100644 --- 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 index 6b0dfb8..1420b70 100644 --- 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 index bfe76ed..2ea12f7 100644 --- 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 index da7233a..8e9eafb 100644 --- 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 index 2b32463..fb998e8 100644 --- 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 index 839e3f7..aef8021 100644 --- 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 index 9d00804..de907dc 100644 --- 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 index 1291bf1..a1472a2 100644 --- 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 index 10b69f7..6589f6d 100644 --- 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 index d6ab043..26ef2f2 100644 --- 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 index 2dfdf8d..c8d8d22 100644 --- 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 index 17e6b4a..2bc98a4 100644 --- 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 index 26d7c4d..b2e0581 100644 --- 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 index 9e4cf71..41a644f 100644 --- 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 index 625994f..904725c 100644 --- 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 index e21f829..0f63476 100644 --- 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 index 2366e3b..88036b4 100644 --- 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 index 6b6e5d9..2f08118 100644 --- 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 index f7fd153..aca55da 100644 --- 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 index 1e17a2e..68cb2ef 100644 --- 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 index 5aa8f7f..5c63f42 100644 --- 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 index 78e6d29..8971196 100644 --- 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 index 1a13003..d092457 100644 --- 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 index 5a61e98..7c267e1 100644 --- 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 index c98dd49..3302f28 100644 --- 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 index 73faf13..b8af476 100644 --- 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 index ba40c46..862645e 100644 --- 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 index 9d09834..4030e58 100644 --- 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 index d48b15a..f671780 100644 --- 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 index 25b8d63..5187b85 100644 --- 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 index 515efe1..fb67b96 100644 --- 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 index 290b056..349c787 100644 --- 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 index d1f0448..3e3d6b6 100644 --- 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 index bf44d31..842cb50 100644 --- 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 index b9ebe62..b96cec9 100644 --- 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 index 8524a56..0bff174 100644 --- 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 index a19577b..48606cf 100644 --- 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 index 86c4f5f..56a61e2 100644 --- 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 index f9b8fc1..a0aab1a 100644 --- 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 index baf8e01..cba2c63 100644 --- 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 index 0085984..80f411c 100644 --- 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 index ca9e841..8d57c81 100644 --- 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 index 72018ae..d007773 100644 --- 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 index 1820332..9ba5b38 100644 --- 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 index 96c1ac5..65e90ff 100644 --- 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 index 8baece8..f5c5ba0 100644 --- 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 index 6bc633b..91497c6 100644 --- 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 index 83bb262..fb9d10e 100644 --- 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 index 4677c79..b9800c3 100644 --- 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 index bcc7f37..b9812ce 100644 --- 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 index b87ed9c..ea91499 100644 --- 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 index cc37c00..21c4a1c 100644 --- 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 index 8da28f4..4adf32f 100644 --- 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 index 04f310d..2d05f70 100644 --- 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 index ef1b8a4..818f88e 100644 --- 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 diff --git a/Routines/XVEMKEB.m b/Routines/XVEMKEB.m index a999e48..f7c40fa 100644 --- a/Routines/XVEMKEB.m +++ b/Routines/XVEMKEB.m @@ -1,5 +1,5 @@ XVEMKEB ;DJB,KRN**INSERT,DELETE,PRINT ; 11/14/02 7:16am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; INSERT ;Insert a character NEW XVVY diff --git a/Routines/XVEMKEC.m b/Routines/XVEMKEC.m index cf4d582..31b5452 100644 --- a/Routines/XVEMKEC.m +++ b/Routines/XVEMKEC.m @@ -1,5 +1,5 @@ XVEMKEC ;DJB,KRN**ARROW,OTHER [02/14/95] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; ARROW ;Process arrow keys NEW I D @$E(XVVSHC,2,$L(XVVSHC)-1) diff --git a/Routines/XVEMKI1.m b/Routines/XVEMKI1.m index 86552ae..ed7463e 100644 --- a/Routines/XVEMKI1.m +++ b/Routines/XVEMKI1.m @@ -1,5 +1,5 @@ XVEMKI1 ;DJB,KRN**Indiv Fld DD ; 9/28/02 11:53am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; INDIV(DD,FNUM) ;Individual Field Summary ;DD = File number diff --git a/Routines/XVEMKI2.m b/Routines/XVEMKI2.m index 3c7f1fc..c783277 100644 --- a/Routines/XVEMKI2.m +++ b/Routines/XVEMKI2.m @@ -1,5 +1,5 @@ XVEMKI2 ;DJB,KRN**Indiv Fld DD - Old-Style Indexes,DESCRIP,DTYPE,HELPFRAME ; 12/12/00 9:51am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; OLDINDX ;Old-style Indexes NEW CNT,XREFNAM,XREFTYPE diff --git a/Routines/XVEMKI3.m b/Routines/XVEMKI3.m index 9b63d11..2233f11 100644 --- a/Routines/XVEMKI3.m +++ b/Routines/XVEMKI3.m @@ -1,5 +1,5 @@ XVEMKI3 ;DJB,KRN**Indiv Fld DD - STRING,WORD ; 12/12/00 9:49am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; ;Print STRING in lines of 59 characters STRING ;--> STRING=Code diff --git a/Routines/XVEMKI4.m b/Routines/XVEMKI4.m index cf9ccba..cd3d816 100644 --- a/Routines/XVEMKI4.m +++ b/Routines/XVEMKI4.m @@ -1,5 +1,5 @@ XVEMKI4 ;DJB,KRN**Indiv Fld DD - Keys, New-Style Indexes ; 12/12/00 6:31pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; KEYS ;Get Keys for this file/field. NEW IEN,IEN1,NAME,PRIOR,SEQ,ND,ND1,UNIQ diff --git a/Routines/XVEMKI5.m b/Routines/XVEMKI5.m index 54766d4..6fe97a9 100644 --- a/Routines/XVEMKI5.m +++ b/Routines/XVEMKI5.m @@ -1,5 +1,5 @@ XVEMKI5 ;DJB,KRN**Indiv Fld DD - New-Style Indexes cont ; 12/12/00 6:30pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; INDEXCD ;Nodes that contain Mumps code ; diff --git a/Routines/XVEMKP.m b/Routines/XVEMKP.m index 13da304..4c9b064 100644 --- a/Routines/XVEMKP.m +++ b/Routines/XVEMKP.m @@ -1,5 +1,5 @@ XVEMKP ;DJB,VRR**Printing [12/30/95 8:23am] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; TASK(DEFAULT) ;Get device. FLAGQ indicates job has been queued. ;DEFAULT=Default Device. Return FLAGQ=1 if taskman is used. diff --git a/Routines/XVEMKR.m b/Routines/XVEMKR.m index 57f44b9..1cd8ab3 100644 --- a/Routines/XVEMKR.m +++ b/Routines/XVEMKR.m @@ -1,5 +1,5 @@ XVEMKR ;DJB,KRN**OLD Single Character Read ; 12/16/00 7:30pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; READ(PROMPT,LENGTH,NOECHO) ; ;PROMPT Display prompt. diff --git a/Routines/XVEMKRN.m b/Routines/XVEMKRN.m index 22c4517..8eb87d2 100644 --- a/Routines/XVEMKRN.m +++ b/Routines/XVEMKRN.m @@ -1,5 +1,5 @@ XVEMKRN ;DJB,KRN**NEW Single Character Read ; 4/18/16 5:46pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; READ(PROMPT,LENGTH,NOECHO) ; ;PROMPT Display prompt. diff --git a/Routines/XVEMKST.m b/Routines/XVEMKST.m index 9bd8d2b..8aade8e 100644 --- a/Routines/XVEMKST.m +++ b/Routines/XVEMKST.m @@ -1,5 +1,5 @@ XVEMKST ;DJB,KRN**Save Symbol Table [07/22/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; SYMTAB(ACTION,MODULE,SESSION) ; Symbol Table ;ACTION ....: C=Clear R=Restore S=Save diff --git a/Routines/XVEMKT.m b/Routines/XVEMKT.m index 29e2228..85c4fd6 100644 --- a/Routines/XVEMKT.m +++ b/Routines/XVEMKT.m @@ -1,5 +1,5 @@ XVEMKT ;DJB,KRN**Txt Scroll-Start ; 4/18/16 7:47pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; IMPORT ;Display imported text passed in variable XVVT N $ESTACK,$ETRAP S $ETRAP="D ERROR^XVEMKT" diff --git a/Routines/XVEMKT1.m b/Routines/XVEMKT1.m index 23ed17d..52154fb 100644 --- a/Routines/XVEMKT1.m +++ b/Routines/XVEMKT1.m @@ -1,5 +1,5 @@ XVEMKT1 ;DJB,KRN**Txt Scroll-List TEXT ; 4/18/16 7:34pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; GETXVVT ;Set XVVT=Display text I $D(^TMP("XVV","K",$J,XVVT("BOT"))) S XVVT=^(XVVT("BOT")) Q diff --git a/Routines/XVEMKT2.m b/Routines/XVEMKT2.m index f1cab40..10aee25 100644 --- a/Routines/XVEMKT2.m +++ b/Routines/XVEMKT2.m @@ -1,5 +1,5 @@ XVEMKT2 ;DJB,KRN**Txt Scroll-Other,Help ; 11/14/02 6:59am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; SCROLL(CRSRON) ;End scroll, do form feed, start scroll D ENDSCR,STARTSCR($G(CRSRON)) diff --git a/Routines/XVEMKTF.m b/Routines/XVEMKTF.m index aaf8e81..7b00334 100644 --- a/Routines/XVEMKTF.m +++ b/Routines/XVEMKTF.m @@ -1,5 +1,5 @@ XVEMKTF ;DJB,KRN**Txt Scroll-Select FM Fields [2/1/97 10:23am] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 Q SELECT(XVVFILE,XVVLEVEL) ;Use Selector to get fields from a FM file. ;XVVFILE=File DD number diff --git a/Routines/XVEMKTG.m b/Routines/XVEMKTG.m index 18d3a42..275f403 100644 --- a/Routines/XVEMKTG.m +++ b/Routines/XVEMKTG.m @@ -1,5 +1,5 @@ XVEMKTG ;DJB,KRN**Txt Scroll-Get array ; 11/16/00 8:18am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; GETG ;Get XVVT from a GLOBAL NEW CHK,LN,MAR,NUM,TMP diff --git a/Routines/XVEMKTM.m b/Routines/XVEMKTM.m index 5debbf3..dd05bb8 100644 --- a/Routines/XVEMKTM.m +++ b/Routines/XVEMKTM.m @@ -1,5 +1,5 @@ XVEMKTM ;DJB,KRN**Txt Scroll-Highlight Menu [3/6/96 6:23pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; ENDFILE() ;1=End-of-file 0=Ok I XVVT("GAP") W $C(7) Q 1 diff --git a/Routines/XVEMKTR.m b/Routines/XVEMKTR.m index 90cd27c..8b1eaa5 100644 --- a/Routines/XVEMKTR.m +++ b/Routines/XVEMKTR.m @@ -1,5 +1,5 @@ XVEMKTR ;DJB,KRN**Txt Scroll-Get REF Number [4/16/95 5:54am] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; GETSCR(ND,PKG) ;Get scroll array equivilent for a given node ;ND=Node number from VGL display diff --git a/Routines/XVEMKTS.m b/Routines/XVEMKTS.m index afe3e26..f8b178e 100644 --- a/Routines/XVEMKTS.m +++ b/Routines/XVEMKTS.m @@ -1,5 +1,5 @@ XVEMKTS ;DJB,KRN**Txt Scroll-SELECTOR ; 4/18/16 7:22pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; TOP ; N $ESTACK,$ETRAP S $ETRAP="D ERROR^XVEMKT2,UNWIND^XVEMSY" diff --git a/Routines/XVEMKTT.m b/Routines/XVEMKTT.m index 65a8af7..47e9693 100644 --- a/Routines/XVEMKTT.m +++ b/Routines/XVEMKTT.m @@ -1,5 +1,5 @@ XVEMKTT ;DJB,KRN**Txt Scroll-SELECTOR READ ; 11/30/00 1:44pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; READ ;Get input ;Move highlight to top line diff --git a/Routines/XVEMKTU.m b/Routines/XVEMKTU.m index b1d1717..623cb3e 100644 --- a/Routines/XVEMKTU.m +++ b/Routines/XVEMKTU.m @@ -1,5 +1,5 @@ XVEMKTU ;DJB,KRN**Txt Scroll-SELECTOR Help [8/16/97 11:10am] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; HELP ; D ENDSCR^XVEMKT2 diff --git a/Routines/XVEMKU.m b/Routines/XVEMKU.m index 7bc67de..0c539b0 100644 --- a/Routines/XVEMKU.m +++ b/Routines/XVEMKU.m @@ -1,5 +1,5 @@ XVEMKU ;DJB,KRN**General Utilities ; 3/5/16 4:26pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; ASK(PROMPT,DEFAULT) ;Return: Y=YES, N=NO ;PROMPT=Display prompt, DEFAULT= 1-YES, 2-NO diff --git a/Routines/XVEMKU1.m b/Routines/XVEMKU1.m index 9b0a221..ff429ee 100644 --- a/Routines/XVEMKU1.m +++ b/Routines/XVEMKU1.m @@ -1,5 +1,5 @@ XVEMKU1 ;DJB,KRN**DATEDASH,CURSOR,YN,TRAP,ERRMSG,DISCLAIM ; 9/6/02 8:14am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; DATEDASH(DATE) ;Convert date to "3/4/93" format. I $G(DATE)']"" Q "" diff --git a/Routines/XVEMKY.m b/Routines/XVEMKY.m index 237bf5d..2468b3b 100644 --- a/Routines/XVEMKY.m +++ b/Routines/XVEMKY.m @@ -1,5 +1,5 @@ XVEMKY ;DJB,KRN**Kernel - Basic Init ; 2/24/17 9:28pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; INIT ;Initialize variables D TIME diff --git a/Routines/XVEMKY1.m b/Routines/XVEMKY1.m index cac7a12..712567b 100644 --- a/Routines/XVEMKY1.m +++ b/Routines/XVEMKY1.m @@ -1,5 +1,5 @@ XVEMKY1 ;DJB,KRN**BS,TRMREAD,ECHO,EXIST,XY,$ZE ; 2/24/17 8:57pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; BS ;Backspace options I '$D(XVV("ID")) S XVV("BS")="SAME" Q diff --git a/Routines/XVEMKY2.m b/Routines/XVEMKY2.m index 1664a60..105fd35 100644 --- a/Routines/XVEMKY2.m +++ b/Routines/XVEMKY2.m @@ -1,5 +1,5 @@ XVEMKY2 ;DJB,KRN**Screen Variables ; 3/26/16 10:32pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; ;;X XVVS("CRSR"),XVVS("RM0"). All others are: W @() SCRNVAR ;Screen Variables diff --git a/Routines/XVEMKY3.m b/Routines/XVEMKY3.m index ebfadb2..38e7ee4 100644 --- a/Routines/XVEMKY3.m +++ b/Routines/XVEMKY3.m @@ -1,5 +1,5 @@ XVEMKY3 ;DJB,KRN**Screen Variables ; 2/25/17 11:15pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; BLANK ; D BLANK1,BLANK2,BLANK3,BLANK4 diff --git a/Routines/XVEMKYB.m b/Routines/XVEMKYB.m index bb73d74..4246ab8 100644 --- a/Routines/XVEMKYB.m +++ b/Routines/XVEMKYB.m @@ -1,5 +1,5 @@ XVEMKYB ;DJB,KRN**Manual version of ^XVEMKY2 Variables ; 4/5/03 8:02am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; BLANK1 ;Blank - cursor to end-of-screen I $G(IOST(0))]"",$D(^%ZIS(2,IOST(0),5)),$P(^(5),"^",7)]"" W @($P(^(5),"^",7)) Q diff --git a/Routines/XVEMR.m b/Routines/XVEMR.m index 89f8b2d..d14e885 100644 --- a/Routines/XVEMR.m +++ b/Routines/XVEMR.m @@ -1,5 +1,5 @@ XVEMR ;DJB,VRR**SCROLL VRoutine Reader ; 2/26/17 10:04pm - ;;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/XVEMRC.m b/Routines/XVEMRC.m index 6f9e887..4aefad0 100644 --- a/Routines/XVEMRC.m +++ b/Routines/XVEMRC.m @@ -1,5 +1,5 @@ XVEMRC ;DJB,VRR**Saves editing changes ; 9/5/02 12:14pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; SAVE(ND) ;Sets up ^UTILITY so rtn editor can save changes. ;ND=Rtn Session # (VRRS) diff --git a/Routines/XVEMRE.m b/Routines/XVEMRE.m index e62bb15..f978496 100644 --- a/Routines/XVEMRE.m +++ b/Routines/XVEMRE.m @@ -1,5 +1,5 @@ XVEMRE ;DJB,VRR**EDIT - READ,UP,DOWN,LEFT,RIGHT ; 4/18/16 5:49pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; READ ;Get input N $ETRAP S $ETRAP="D ERROR1^XVEMRY" diff --git a/Routines/XVEMRE1.m b/Routines/XVEMRE1.m index 6234fb6..b640229 100644 --- a/Routines/XVEMRE1.m +++ b/Routines/XVEMRE1.m @@ -1,5 +1,5 @@ XVEMRE1 ;DJB,VRR**EDIT - DO Menu Options ; 9/24/02 1:28pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; QUIT ;Call here if you should Quit after returning to ^XVEMRE S QUIT=1 diff --git a/Routines/XVEMRE2.m b/Routines/XVEMRE2.m index 0d32616..9baccbc 100644 --- a/Routines/XVEMRE2.m +++ b/Routines/XVEMRE2.m @@ -1,5 +1,5 @@ XVEMRE2 ;DJB,VRR**EDIT - Block Mode ; 1/8/01 8:31am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; BLOCK ;Block Mode ;/: Highlight lines of code. diff --git a/Routines/XVEMREA.m b/Routines/XVEMREA.m index 30e1e92..f1a2d84 100644 --- a/Routines/XVEMREA.m +++ b/Routines/XVEMREA.m @@ -1,5 +1,5 @@ XVEMREA ;DJB,VRR**EDIT - Add Character ; 12/25/00 5:09pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; TOP ;Add a character to CD string NEW CD,FLAGNEW,HLD,HLDX,HLDY1,HLDY2,I,NUM,WHERE,XSAVE,YSAVE,YNDSAVE diff --git a/Routines/XVEMREB.m b/Routines/XVEMREB.m index 5b332e9..045c254 100644 --- a/Routines/XVEMREB.m +++ b/Routines/XVEMREB.m @@ -1,5 +1,5 @@ XVEMREB ;DJB,VRR**EDIT - Remove Character ; 1/6/01 1:19pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; TOP ; NEW CD,HLD,I,NUM,WHERE,XSAVE,YSAVE,YNDSAVE diff --git a/Routines/XVEMREJ.m b/Routines/XVEMREJ.m index bdfaa10..0ad6b23 100644 --- a/Routines/XVEMREJ.m +++ b/Routines/XVEMREJ.m @@ -1,5 +1,5 @@ XVEMREJ ;DJB,VRR**EDIT - JOIN,BREAK [10/22/96 12:11pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; BREAK ;Break a line NEW CD,CD1,CD2,XVAL diff --git a/Routines/XVEMREL.m b/Routines/XVEMREL.m index ddf6b33..5fa59a0 100644 --- a/Routines/XVEMREL.m +++ b/Routines/XVEMREL.m @@ -1,5 +1,5 @@ XVEMREL ;DJB,VRR**EDIT - Process Line Tags ; 12/25/00 4:58pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; ;Determine location of cursor in relation to the line of code, and ;allow the editing of line tags. diff --git a/Routines/XVEMREM.m b/Routines/XVEMREM.m index 27fd3c3..7019d92 100644 --- a/Routines/XVEMREM.m +++ b/Routines/XVEMREM.m @@ -1,5 +1,5 @@ XVEMREM ;DJB,VRR**EDIT - Move to different parts of a line ; 12/26/00 7:56am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; LNBEG ;Go to beginning of line NEW TMP diff --git a/Routines/XVEMREO.m b/Routines/XVEMREO.m index aa16d95..a48537d 100644 --- a/Routines/XVEMREO.m +++ b/Routines/XVEMREO.m @@ -1,5 +1,5 @@ XVEMREO ;DJB,VRR**EDIT - Open/Close/Blank/Unblank lines ; 12/25/00 5:02pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; OPEN ;Open a new line. S XCUR=0 diff --git a/Routines/XVEMREP.m b/Routines/XVEMREP.m index 5d66a60..c54ed38 100644 --- a/Routines/XVEMREP.m +++ b/Routines/XVEMREP.m @@ -1,5 +1,5 @@ XVEMREP ;DJB,VRR**EDIT - Web,Html,Parse Rtn/Global,RETURN ; 11/13/16 7:26pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; WEB ;Web Mode I FLAGMODE["WEB" D WEB^XVEMRER Q diff --git a/Routines/XVEMRER.m b/Routines/XVEMRER.m index dea2819..9c169d1 100644 --- a/Routines/XVEMRER.m +++ b/Routines/XVEMRER.m @@ -1,5 +1,5 @@ XVEMRER ;DJB,VRR**EDIT - RUN menu choices ; 12/27/00 11:24pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; RUN ; KILL DIRHLD ;Tracks cursor for & diff --git a/Routines/XVEMREW.m b/Routines/XVEMREW.m index fa8311d..d912d67 100644 --- a/Routines/XVEMREW.m +++ b/Routines/XVEMREW.m @@ -1,5 +1,5 @@ XVEMREW ;DJB,VRR**EDIT - WEB..Insert HTML Codes ; 8/25/02 10:08am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; WEB ;Insert HTML tags: NEW CD,I diff --git a/Routines/XVEMRH.m b/Routines/XVEMRH.m index 1882068..64c652f 100644 --- a/Routines/XVEMRH.m +++ b/Routines/XVEMRH.m @@ -1,5 +1,5 @@ XVEMRH ;DJB,VRR**Help Text ; 6/18/16 12:50pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; VRR1 ;;; ;;; V R R . . . . . . . . . Routine Reader/Editor . . . . . . . . . David Bolduc diff --git a/Routines/XVEMRH1.m b/Routines/XVEMRH1.m index 42ffe5a..e5f1f61 100644 --- a/Routines/XVEMRH1.m +++ b/Routines/XVEMRH1.m @@ -1,5 +1,5 @@ XVEMRH1 ;DJB,VRR**Help Text [10/22/96 8:35am] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; VRR1 ;;; ;;; B L O C K M O D E: diff --git a/Routines/XVEMRHK.m b/Routines/XVEMRHK.m index 9018ab8..0deceb2 100644 --- a/Routines/XVEMRHK.m +++ b/Routines/XVEMRHK.m @@ -1,5 +1,5 @@ XVEMRHK ;DJB,VRR**Help Text - Keyboard [9/23/95 12:05pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; VRR2 ; ;;; NOTES: =Arrow Up =Arrow Down =Arrow Left =Arrow Right diff --git a/Routines/XVEMRHL.m b/Routines/XVEMRHL.m index d5abb8e..61e4143 100644 --- a/Routines/XVEMRHL.m +++ b/Routines/XVEMRHL.m @@ -1,5 +1,5 @@ XVEMRHL ;DJB,VRR**Help Text - Rtn Lbry ; 11/30/00 1:30pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; LIBRARY ;;;Routine Library & Versioning ;;; INTRODUCTION diff --git a/Routines/XVEMRHW.m b/Routines/XVEMRHW.m index 3341e4c..0ae27e0 100644 --- a/Routines/XVEMRHW.m +++ b/Routines/XVEMRHW.m @@ -1,5 +1,5 @@ XVEMRHW ;DJB,VRR**Help Text - Web [12/14/96 6:34pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; WEB ;;; ;;; Insert HTML code onto new lines diff --git a/Routines/XVEMRI.m b/Routines/XVEMRI.m index dd28bdb..0d7c261 100644 --- a/Routines/XVEMRI.m +++ b/Routines/XVEMRI.m @@ -1,5 +1,5 @@ XVEMRI ;DJB,VRR**INSERT - READ,HELP,ADD,DELETE ; 6/18/16 12:32pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; INSERT(MODE) ;Processes the line tag portion of a new line. When user ;hits OR , return to EDIT mode. diff --git a/Routines/XVEMRI1.m b/Routines/XVEMRI1.m index a55728c..48b4b5c 100644 --- a/Routines/XVEMRI1.m +++ b/Routines/XVEMRI1.m @@ -1,5 +1,5 @@ XVEMRI1 ;DJB,VRR**INSERT - RETURN,TAB,OPEN,CLOSE ; 12/25/00 5:34pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; RETURN ; key hit ; diff --git a/Routines/XVEMRID.m b/Routines/XVEMRID.m index 082d6dc..8c58284 100644 --- a/Routines/XVEMRID.m +++ b/Routines/XVEMRID.m @@ -1,5 +1,5 @@ XVEMRID ;DJB,VRR**INSERT - Programmer Call ; 4/18/16 5:41pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; EN ;Insert programmer call into current program S ^TMP("VPE",$J)=$P(FLAGMENU,"^",1) ;...YND diff --git a/Routines/XVEMRIE.m b/Routines/XVEMRIE.m index 2fc42d8..3abaf81 100644 --- a/Routines/XVEMRIE.m +++ b/Routines/XVEMRIE.m @@ -1,5 +1,5 @@ XVEMRIE ;DJB,VRR**INSERT - Programmer Call cont.. [1/15/96 10:52pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; CODE ;Set CD array to Call code NEW CHK,I,LIMIT,RTN,TMP diff --git a/Routines/XVEMRLI.m b/Routines/XVEMRLI.m index 3787617..84bad50 100644 --- a/Routines/XVEMRLI.m +++ b/Routines/XVEMRLI.m @@ -1,5 +1,5 @@ XVEMRLI ;DJB,VRR**RTN LBRY - Sign In Rtns,ALL,Edit IDENTIFIER ; 4/18/16 5:33pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; ;--> ALL^XVEMRLI = to sign in all routines ; IDEDIT^XVEMRLI = to bulk edit IDENTIFIER field diff --git a/Routines/XVEMRLM.m b/Routines/XVEMRLM.m index 0030329..6ee9a15 100644 --- a/Routines/XVEMRLM.m +++ b/Routines/XVEMRLM.m @@ -1,5 +1,5 @@ XVEMRLM ;DJB,VRR**RTN LBRY - Menu ; 9/24/02 7:10am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; EN ;Entry Point ;--> User can type ..LBRY ON/OFF to activate/deactivate Rtn Lbry. diff --git a/Routines/XVEMRLO.m b/Routines/XVEMRLO.m index 9581df0..78fc61b 100644 --- a/Routines/XVEMRLO.m +++ b/Routines/XVEMRLO.m @@ -1,5 +1,5 @@ XVEMRLO ;DJB,VRR**RTN LBRY - Sign Out Rtns,Rtn Save ; 4/18/16 5:31pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; NEW FLAGQ,XVVID,XVVUSERI,XVVUSERN NEW %,%Y,%DT,D,D0,DA,DDH,DI,DIC,DIE,DQ,DR,DZ,X,Y diff --git a/Routines/XVEMRLP.m b/Routines/XVEMRLP.m index 2a7d6c9..d98013e 100644 --- a/Routines/XVEMRLP.m +++ b/Routines/XVEMRLP.m @@ -1,5 +1,5 @@ XVEMRLP ;DJB,VRR**RTN LBRY - Print ; 11/20/00 9:53pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; EN ;Entry Point NEW FLAGQ,PAGE,XVVANS,XVVUSERI,XVVUSERN diff --git a/Routines/XVEMRLU.m b/Routines/XVEMRLU.m index be0c635..08ba88a 100644 --- a/Routines/XVEMRLU.m +++ b/Routines/XVEMRLU.m @@ -1,5 +1,5 @@ XVEMRLU ;DJB,VRR**RTN LBRY - Utilities ; 9/6/02 8:16am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; ADD(RTN) ;Does user want to sign out current rtn? Q:$G(RTN)']"" diff --git a/Routines/XVEMRLV.m b/Routines/XVEMRLV.m index 54cffd4..53fb962 100644 --- a/Routines/XVEMRLV.m +++ b/Routines/XVEMRLV.m @@ -1,5 +1,5 @@ XVEMRLV ;DJB,VRR**RTN VER - Routine Editor Prompts ; 9/23/02 4:17pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; ADD(RTN) ;Create and store a version of the current rtn? ; diff --git a/Routines/XVEMRLX.m b/Routines/XVEMRLX.m index c834ec0..b16e92b 100644 --- a/Routines/XVEMRLX.m +++ b/Routines/XVEMRLX.m @@ -1,5 +1,5 @@ XVEMRLX ;DJB,VRR**RTN VER - Xref ; 3/5/16 4:27pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; ;=======================[ INPUT TRANSFORM 1]========================= KEY1 ;ROUTINE Field diff --git a/Routines/XVEMRLY.m b/Routines/XVEMRLY.m index 0a546f1..75ceb74 100644 --- a/Routines/XVEMRLY.m +++ b/Routines/XVEMRLY.m @@ -1,5 +1,5 @@ XVEMRLY ;DJB,VRR**RTN VER - ..LBRY Options ; 4/10/16 7:00pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; INQ ;Inquire NEW DATA,FLAGQ,I,LINE,LINE1,IEN,POP,RTN,VER diff --git a/Routines/XVEMRLZ.m b/Routines/XVEMRLZ.m index 067b94a..f516076 100644 --- a/Routines/XVEMRLZ.m +++ b/Routines/XVEMRLZ.m @@ -1,5 +1,5 @@ XVEMRLZ ;DJB,VRR**RTN VER - ..LBRY Options ; 4/10/16 5:56pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; DELETE ;Delete versions NEW CNT,DA,DESC,DIC,DIK,IEN,ND,RENUM,RTN,TMP,VER diff --git a/Routines/XVEMRM.m b/Routines/XVEMRM.m index 6cc9eea..875e121 100644 --- a/Routines/XVEMRM.m +++ b/Routines/XVEMRM.m @@ -1,5 +1,5 @@ XVEMRM ;DJB,VRR**Menu Bar ; 12/17/00 4:08pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; EN ;Because of FndTag/LctStrng, I need to be able to change the lines ;displayed when exiting back to edit mode. FLAGMENU allows this. diff --git a/Routines/XVEMRM1.m b/Routines/XVEMRM1.m index d4a8b8f..f486cb9 100644 --- a/Routines/XVEMRM1.m +++ b/Routines/XVEMRM1.m @@ -1,5 +1,5 @@ XVEMRM1 ;DJB,VRR**FndTag,LctStrg,Goto,More,Param ; 12/17/00 3:56pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; GETTAG ;Get tag from scroll array and convert to external format S TG=$P(TMP," "_$C(30),1) I TG?1.N1." " S TG="" Q diff --git a/Routines/XVEMRM2.m b/Routines/XVEMRM2.m index a948f71..2493c5a 100644 --- a/Routines/XVEMRM2.m +++ b/Routines/XVEMRM2.m @@ -1,5 +1,5 @@ XVEMRM2 ;DJB,VRR**Locate & Change ; 7/25/99 9:49pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; TOP ; NEW HELP,LN1,LN2,ND1,ND2,OFF,OLD,ON,NEW diff --git a/Routines/XVEMRMG.m b/Routines/XVEMRMG.m index b742c4f..7800125 100644 --- a/Routines/XVEMRMG.m +++ b/Routines/XVEMRMG.m @@ -1,5 +1,5 @@ XVEMRMG ;DJB,VRR**Goto Tag+Offset,XINDEX ; 3/5/16 6:35pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; EN ; I '$D(^TMP("XVV","IR"_VRRS,$J,1)) W $C(7) Q diff --git a/Routines/XVEMRMS.m b/Routines/XVEMRMS.m index fcb298c..d65dcd1 100644 --- a/Routines/XVEMRMS.m +++ b/Routines/XVEMRMS.m @@ -1,5 +1,5 @@ XVEMRMS ;DJB,VRR**Save Changes ; 3/27/16 8:30pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; SAVE ;Save changes on-the-fly. N $ESTACK,$ETRAP S $ETRAP="D ERROR,UNWIND^XVEMSY" diff --git a/Routines/XVEMRP.m b/Routines/XVEMRP.m index 3fe4ccd..b844811 100644 --- a/Routines/XVEMRP.m +++ b/Routines/XVEMRP.m @@ -1,5 +1,5 @@ XVEMRP ;DJB,VRR**Block Mode - Highlight Lines ; 12/28/00 7:56am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; UP ;F3 Up-arrow highlight Q:$$CHECK() diff --git a/Routines/XVEMRP1.m b/Routines/XVEMRP1.m index 92be1e4..ba3b7e1 100644 --- a/Routines/XVEMRP1.m +++ b/Routines/XVEMRP1.m @@ -1,5 +1,5 @@ XVEMRP1 ;DJB,VRR**Cut,Copy,Paste ; 12/28/00 5:59pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; CUT ;Save lines to clipboard, then delete ; Key combination diff --git a/Routines/XVEMRP2.m b/Routines/XVEMRP2.m index 581b9af..29cdc47 100644 --- a/Routines/XVEMRP2.m +++ b/Routines/XVEMRP2.m @@ -1,5 +1,5 @@ XVEMRP2 ;DJB,VRR**Block Mode - Highlight Characters ; 8/31/02 12:29pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; LEFT ;Char highlight - cursor left NEW CHAR,ND,TAGL,TMP diff --git a/Routines/XVEMRS.m b/Routines/XVEMRS.m index b503587..0c6a3aa 100644 --- a/Routines/XVEMRS.m +++ b/Routines/XVEMRS.m @@ -1,5 +1,5 @@ XVEMRS ;DJB,VRR**Get Program ; 6/18/16 1:09pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; EN ;Enter here from ^XVEMR I FLAGVPE["LBRY" D Q ;Use editor to review a previous version. diff --git a/Routines/XVEMRS1.m b/Routines/XVEMRS1.m index 61831df..8ac44e2 100644 --- a/Routines/XVEMRS1.m +++ b/Routines/XVEMRS1.m @@ -1,5 +1,5 @@ XVEMRS1 ;DJB,VRR**Set Scroll Array ; 9/5/02 3:13pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; SETGLB ;Put routine into global NEW I,TXT diff --git a/Routines/XVEMRSS.m b/Routines/XVEMRSS.m index 765968a..dc49ef3 100644 --- a/Routines/XVEMRSS.m +++ b/Routines/XVEMRSS.m @@ -1,5 +1,5 @@ XVEMRSS ;DJB,VRR**Rtn String Search ; 4/24/16 10:26pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 NEW ASK,CNT,EXCLUDE,FLAGEDT,FLAGQ,QUIT,STRING TOP ; D SELECT^XVEMRUS G:$O(^UTILITY($J," "))="" EX diff --git a/Routines/XVEMRU.m b/Routines/XVEMRU.m index 4751e9b..1be5dfa 100644 --- a/Routines/XVEMRU.m +++ b/Routines/XVEMRU.m @@ -1,5 +1,5 @@ XVEMRU ;DJB,VRR**Utilities ; 11/6/16 10:52pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; LNSTART(CD) ;Find start of line for EDIT mode. ;"2^11" - TAG starts at 2, LINE starts at 11 diff --git a/Routines/XVEMRUM.m b/Routines/XVEMRUM.m index c20b816..c14965f 100644 --- a/Routines/XVEMRUM.m +++ b/Routines/XVEMRUM.m @@ -1,5 +1,5 @@ XVEMRUM ;DJB,VRR**Messages ; 1/6/01 3:47pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; MSG(NUM) ;Msgs for rtn editor Q:$G(NUM)'>0 NEW XX diff --git a/Routines/XVEMRUS.m b/Routines/XVEMRUS.m index fe00fce..5e403b2 100644 --- a/Routines/XVEMRUS.m +++ b/Routines/XVEMRUS.m @@ -1,5 +1,5 @@ XVEMRUS ;DJB,VRR**Rtn Selector ; 2/25/17 11:34pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; SELECT ; NEW FLAGQ,QUIT diff --git a/Routines/XVEMRV.m b/Routines/XVEMRV.m index c9a8f56..6a3ddac 100644 --- a/Routines/XVEMRV.m +++ b/Routines/XVEMRV.m @@ -1,5 +1,5 @@ XVEMRV ;DJB,VRR**Verify/Convert Scroll Array,Chk Tag/Line ; 11/6/16 10:02pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; VERIFY(ND) ;When editor is exitted, verify that Lines and Tags are legal ;When VERIFY is called, FLAGQ=1 diff --git a/Routines/XVEMRY.m b/Routines/XVEMRY.m index 765626d..74c8615 100644 --- a/Routines/XVEMRY.m +++ b/Routines/XVEMRY.m @@ -1,5 +1,5 @@ XVEMRY ;DJB,VRR**Init,Branching,Error ; 6/18/16 12:22pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; INIT ;Initialize variables NEW X,Y diff --git a/Routines/XVEMS.m b/Routines/XVEMS.m index 13ceac3..23f0508 100644 --- a/Routines/XVEMS.m +++ b/Routines/XVEMS.m @@ -1,5 +1,5 @@ XVEMS ;DJB,VSHL**Setup VShell [11/17/96 12:47pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; Q NOTES ;General notes diff --git a/Routines/XVEMSCL.m b/Routines/XVEMSCL.m index dfd47dd..1e4ba89 100644 --- a/Routines/XVEMSCL.m +++ b/Routines/XVEMSCL.m @@ -1,5 +1,5 @@ XVEMSCL ;DJB,VSHL**Command Line History ; 2/29/16 8:45am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; EN(TYPE) ;TYPE=SHL/VEDD/VGL/VRR NEW CD,FLAGCLH,HOLD,X diff --git a/Routines/XVEMSCU.m b/Routines/XVEMSCU.m index b4e0316..02f1631 100644 --- a/Routines/XVEMSCU.m +++ b/Routines/XVEMSCU.m @@ -1,5 +1,5 @@ XVEMSCU ;DJB,VSHL**Command Line History Utility [11/06/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; QWIK(CLHCODE) ;Make a QWIK using CODE from Command Line History Q:$G(CLHCODE)']"" diff --git a/Routines/XVEMSD.m b/Routines/XVEMSD.m index 5b2c902..4b3f16d 100644 --- a/Routines/XVEMSD.m +++ b/Routines/XVEMSD.m @@ -1,5 +1,5 @@ XVEMSD ;DJB,VSHL**Delete Range of Variables (..ZD) [05/07/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; ;;S XVVZD="%,X,Z" D ^XVEMSD ;Use in QWIKs to delete a range I '$$EXIST^XVEMKU("%ZOSV") W !?2,"This QWIK requires routine ^%ZOSV.",! Q diff --git a/Routines/XVEMSF.m b/Routines/XVEMSF.m index 65d1c60..e9041d8 100644 --- a/Routines/XVEMSF.m +++ b/Routines/XVEMSF.m @@ -1,5 +1,5 @@ XVEMSF ;DJB,VSHL**FM Calls [3/6/96 6:16pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; EN ;Entry Point NEW CNT,COL,COLUMNS,COLCNT,HD,LAST,PROMPT,SET,SPACES,WIDTH,WRITE diff --git a/Routines/XVEMSF1.m b/Routines/XVEMSF1.m index 609f902..3c43321 100644 --- a/Routines/XVEMSF1.m +++ b/Routines/XVEMSF1.m @@ -1,5 +1,5 @@ XVEMSF1 ;DJB,VSHL**DDS,DIAC,DIB,DIM,DIO2 [04/17/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; DDS ;;; ;;; D D S ScreenMan diff --git a/Routines/XVEMSF2.m b/Routines/XVEMSF2.m index eab5e7f..fdaed65 100644 --- a/Routines/XVEMSF2.m +++ b/Routines/XVEMSF2.m @@ -1,5 +1,5 @@ XVEMSF2 ;DJB,VSHL**DIC [8/3/97 1:29pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; DIC ;;; ;;; D I C Look-up/Add New Entries diff --git a/Routines/XVEMSF3.m b/Routines/XVEMSF3.m index 5a31cb3..00a9367 100644 --- a/Routines/XVEMSF3.m +++ b/Routines/XVEMSF3.m @@ -1,5 +1,5 @@ XVEMSF3 ;DJB,VSHL**DIC1,DICN [04/17/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; DIC1 ;;; ;;; D I C 1 Custom Look-up & File Information Setup diff --git a/Routines/XVEMSF4.m b/Routines/XVEMSF4.m index 067dbc5..f12302d 100644 --- a/Routines/XVEMSF4.m +++ b/Routines/XVEMSF4.m @@ -1,5 +1,5 @@ XVEMSF4 ;DJB,VSHL**DICQ,DICRW,DID,DIEZ,DIFG,DICD,DIKZ [12/4/95 7:08pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; DICQ ;;; ;;; D I C Q Entry Display for Loop-ups diff --git a/Routines/XVEMSF5.m b/Routines/XVEMSF5.m index 1e16ff1..131e912 100644 --- a/Routines/XVEMSF5.m +++ b/Routines/XVEMSF5.m @@ -1,5 +1,5 @@ XVEMSF5 ;DJB,VSHL**DIE [12/4/95 7:12pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; DIE ;;; ;;; D I E Edit Data diff --git a/Routines/XVEMSF6.m b/Routines/XVEMSF6.m index 358f9b0..b98b2b4 100644 --- a/Routines/XVEMSF6.m +++ b/Routines/XVEMSF6.m @@ -1,5 +1,5 @@ XVEMSF6 ;DJB,VSHL**DIK,DIPZ,DIR,DIS [12/4/95 7:07pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; DIK ;;; ;;; D I K Entry Deletion and File Reindexing diff --git a/Routines/XVEMSF7.m b/Routines/XVEMSF7.m index ba1495b..285877e 100644 --- a/Routines/XVEMSF7.m +++ b/Routines/XVEMSF7.m @@ -1,5 +1,5 @@ XVEMSF7 ;DJB,VSHL**DIP,DIPT [07/16/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; DIP ;;; ;;; D I P Print Data diff --git a/Routines/XVEMSF8.m b/Routines/XVEMSF8.m index 4368564..4651758 100644 --- a/Routines/XVEMSF8.m +++ b/Routines/XVEMSF8.m @@ -1,5 +1,5 @@ XVEMSF8 ;DJB,VSHL**DIQ,DIQ1 [04/17/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; DIQ ;;; ;;; D I Q Data Display, Date Conversion diff --git a/Routines/XVEMSF9.m b/Routines/XVEMSF9.m index 6c42200..bff36aa 100644 --- a/Routines/XVEMSF9.m +++ b/Routines/XVEMSF9.m @@ -1,5 +1,5 @@ XVEMSF9 ;DJB,VSHL**DIWF [07/16/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; DIWF ;;; ;;; D I W F Form Document Print diff --git a/Routines/XVEMSFA.m b/Routines/XVEMSFA.m index 67bf0a9..69293af 100644 --- a/Routines/XVEMSFA.m +++ b/Routines/XVEMSFA.m @@ -1,5 +1,5 @@ XVEMSFA ;DJB,VSHL**DIU2,DIWE,DIWP,DIWW [04/17/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; DIU2 ;;; ;;; D I U 2 Data Dictionary Deletion diff --git a/Routines/XVEMSFB.m b/Routines/XVEMSFB.m index b2befa5..1cf8ef9 100644 --- a/Routines/XVEMSFB.m +++ b/Routines/XVEMSFB.m @@ -1,5 +1,5 @@ XVEMSFB ;DJB,VSHL**%DT,COMMA [04/17/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; %DT ;;; ;;; % D T Date and Time Input and Conversion diff --git a/Routines/XVEMSFC.m b/Routines/XVEMSFC.m index 301c7a1..677638d 100644 --- a/Routines/XVEMSFC.m +++ b/Routines/XVEMSFC.m @@ -1,5 +1,5 @@ XVEMSFC ;DJB,VSHL**%DTC [04/17/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; %DTC ;;; ;;; % D T C Date/Time Manipulation diff --git a/Routines/XVEMSFD.m b/Routines/XVEMSFD.m index f0f29fc..33c982d 100644 --- a/Routines/XVEMSFD.m +++ b/Routines/XVEMSFD.m @@ -1,5 +1,5 @@ XVEMSFD ;DJB,VSHL**%RCR,DIAXU,DDIOL [07/16/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; %RCR ;;; ;;; % R C R Array Moving diff --git a/Routines/XVEMSG.m b/Routines/XVEMSG.m index 2dc46f0..530bd21 100644 --- a/Routines/XVEMSG.m +++ b/Routines/XVEMSG.m @@ -1,5 +1,5 @@ XVEMSG ;DJB,VSHL**Global Loader ; 2/29/16 9:18am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016;COPYRIGHT David Bolduc @1993 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017;COPYRIGHT David Bolduc @1993 ; Q ALL ;Load entire ^XVEMS global diff --git a/Routines/XVEMSGH.m b/Routines/XVEMSGH.m index dfd6a37..ec2dd7a 100644 --- a/Routines/XVEMSGH.m +++ b/Routines/XVEMSGH.m @@ -1,5 +1,5 @@ XVEMSGH ;DJB,VSHL**VShell Global - Help Text ; 8/29/02 9:21pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; Q TEXT ;Load HELP and other text diff --git a/Routines/XVEMSGR.m b/Routines/XVEMSGR.m index e371f6f..8788c03 100644 --- a/Routines/XVEMSGR.m +++ b/Routines/XVEMSGR.m @@ -1,5 +1,5 @@ XVEMSGR ;DJB,VSHL**VShell Global - ZOSF Nodes ; 12/15/00 11:49pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; ZOSF ;Load system specific code into ZOSF nodes NEW I,ND,TXT,VEND diff --git a/Routines/XVEMSGS.m b/Routines/XVEMSGS.m index fdb2af5..ffee828 100644 --- a/Routines/XVEMSGS.m +++ b/Routines/XVEMSGS.m @@ -1,5 +1,5 @@ XVEMSGS ;DJB,VSHL**VShell Global - System QWIKs ; 11/6/16 10:56am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; SYSTEM ;Load the System QWIKs NEW I,QWIK,TYPE,TXT,VEN diff --git a/Routines/XVEMSGT.m b/Routines/XVEMSGT.m index e44edbe..586f817 100644 --- a/Routines/XVEMSGT.m +++ b/Routines/XVEMSGT.m @@ -1,5 +1,5 @@ XVEMSGT ;DJB,VSHL**VShell Global - System QWIKs cont.. ; 2/25/17 11:18pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; SYSTEM ;Load the System QWIKs NEW I,QWIK,TYPE,TXT,VEN diff --git a/Routines/XVEMSGU.m b/Routines/XVEMSGU.m index 88e49fc..6dad11c 100644 --- a/Routines/XVEMSGU.m +++ b/Routines/XVEMSGU.m @@ -1,5 +1,5 @@ XVEMSGU ;DJB,VSHL**VShell Global - System QWIKs cont.. ; 2/25/17 11:40pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; SYSTEM ;Load the System QWIKs NEW I,QWIK,TYPE,TXT,VEN diff --git a/Routines/XVEMSH.m b/Routines/XVEMSH.m index f3d7831..453c2f0 100644 --- a/Routines/XVEMSH.m +++ b/Routines/XVEMSH.m @@ -1,5 +1,5 @@ XVEMSH ;DJB,VSHL**Help Text Menu [3/6/96 6:15pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; EN ;Entry Point NEW CNT,COL,COLCNT,COLUMNS,HD,LAST,PROMPT,SET,SPACES,WIDTH,WRITE diff --git a/Routines/XVEMSH1.m b/Routines/XVEMSH1.m index 6b4527d..23b736e 100644 --- a/Routines/XVEMSH1.m +++ b/Routines/XVEMSH1.m @@ -1,5 +1,5 @@ XVEMSH1 ;DJB,VSHL**INTRO,PROTECTION ; 2/29/16 8:54am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; INTRO ;;; ;;; I N T R O D U C T I O N diff --git a/Routines/XVEMSH2.m b/Routines/XVEMSH2.m index 04f453a..f71f964 100644 --- a/Routines/XVEMSH2.m +++ b/Routines/XVEMSH2.m @@ -1,5 +1,5 @@ XVEMSH2 ;DJB,VSHL**KEYBOARD [9/30/95 6:57pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; KEYS ;;; ;;; K E Y B O A R D diff --git a/Routines/XVEMSH3.m b/Routines/XVEMSH3.m index 77350fe..77015a5 100644 --- a/Routines/XVEMSH3.m +++ b/Routines/XVEMSH3.m @@ -1,5 +1,5 @@ XVEMSH3 ;DJB,VSHL**QWIK COMMANDS,USER QWIKS [3/6/95 7:27am] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; QWIK ;;; ;;; Q W I K C O M M A N D S diff --git a/Routines/XVEMSH4.m b/Routines/XVEMSH4.m index 5a60df7..d4fd3d5 100644 --- a/Routines/XVEMSH4.m +++ b/Routines/XVEMSH4.m @@ -1,5 +1,5 @@ XVEMSH4 ;DJB,VSHL**SYSTEM QWIKS [9/8/97 8:24pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; SYSTEM ;;; ;;; S Y S T E M Q W I K S diff --git a/Routines/XVEMSH5.m b/Routines/XVEMSH5.m index 9f55be2..55524f1 100644 --- a/Routines/XVEMSH5.m +++ b/Routines/XVEMSH5.m @@ -1,5 +1,5 @@ XVEMSH5 ;DJB,VSHL**BOXES [07/14/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; BOXES ;;; ;;; B O X E S diff --git a/Routines/XVEMSH6.m b/Routines/XVEMSH6.m index b7d2810..5368a04 100644 --- a/Routines/XVEMSH6.m +++ b/Routines/XVEMSH6.m @@ -1,5 +1,5 @@ XVEMSH6 ;DJB,VSHL**COMMAND LINE HISTORY,PROGRAMMER TOOLS [5/8/97 7:46pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; CLH ;;; ;;; C O M M A N D L I N E H I S T O R Y diff --git a/Routines/XVEMSH7.m b/Routines/XVEMSH7.m index e84ca1d..de7f632 100644 --- a/Routines/XVEMSH7.m +++ b/Routines/XVEMSH7.m @@ -1,5 +1,5 @@ XVEMSH7 ;DJB,VSHL**PARAMETER PASSING [04/17/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; PARAM ;;; ;;; P A R A M E T E R P A S S I N G diff --git a/Routines/XVEMSH8.m b/Routines/XVEMSH8.m index 9bc28c7..a260de1 100644 --- a/Routines/XVEMSH8.m +++ b/Routines/XVEMSH8.m @@ -1,5 +1,5 @@ XVEMSH8 ;DJB,VSHL**MISCELLANEOUS ; 3/27/16 12:48am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; MISC ;;; ;;; M I S C E L L A N E O U S diff --git a/Routines/XVEMSH9.m b/Routines/XVEMSH9.m index 855295b..9b9a5dd 100644 --- a/Routines/XVEMSH9.m +++ b/Routines/XVEMSH9.m @@ -1,5 +1,5 @@ XVEMSH9 ;DJB,VSHL**VA KERNEL ; 2/29/16 8:56am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; KERN ;;; ;;; V A K E R N E L diff --git a/Routines/XVEMSHY.m b/Routines/XVEMSHY.m index 4615441..97603ad 100644 --- a/Routines/XVEMSHY.m +++ b/Routines/XVEMSHY.m @@ -1,5 +1,5 @@ XVEMSHY ;DJB,VSHL**Help Text Menu Init [11/12/95 8:57am] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; HD ;Heading NEW MAR diff --git a/Routines/XVEMSI.m b/Routines/XVEMSI.m index 3415e1d..3733903 100644 --- a/Routines/XVEMSI.m +++ b/Routines/XVEMSI.m @@ -1,5 +1,5 @@ XVEMSI ;FWS/DLW - ZInsert a routine into VPE ; 3/5/16 5:53pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; ; Enter a routine. Sort of a ZInsert routine. This is a system QWIK ; and is called by typing ..ZI while in the VSHELL. diff --git a/Routines/XVEMSID.m b/Routines/XVEMSID.m index fb930ef..190b90d 100644 --- a/Routines/XVEMSID.m +++ b/Routines/XVEMSID.m @@ -1,5 +1,5 @@ XVEMSID ;DJB,VSHL**Utilities - LIST USERS,ID NOTES [9/28/95 8:28am] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; LIST ;List Users I '$D(^XVEMS("ID"))&('$D(^("PARAM")))&('$D(^("QU"))) D Q diff --git a/Routines/XVEMSL.m b/Routines/XVEMSL.m index 07a68ba..5283672 100644 --- a/Routines/XVEMSL.m +++ b/Routines/XVEMSL.m @@ -1,5 +1,5 @@ XVEMSL ;DJB,VSHL**VA KERNEL Library Functions [3/6/96 6:17pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; EN ;Entry Point NEW CNT,COL,COLUMNS,COLCNT,HD,LAST,PROMPT,SET,SPACES,WIDTH,WRITE diff --git a/Routines/XVEMSLA.m b/Routines/XVEMSLA.m index 5aa40a0..d70a4a9 100644 --- a/Routines/XVEMSLA.m +++ b/Routines/XVEMSLA.m @@ -1,5 +1,5 @@ XVEMSLA ;DJB,VSHL**VA KERNEL Library Functions - Dates [8/18/95 1:30pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; DATE ;;; ;;; DATE FUNCTIONS - XLFDT diff --git a/Routines/XVEMSLB.m b/Routines/XVEMSLB.m index 6ae209f..9a35181 100644 --- a/Routines/XVEMSLB.m +++ b/Routines/XVEMSLB.m @@ -1,5 +1,5 @@ XVEMSLB ;DJB,VSHL**VA KERNEL Library Functions - String [8/18/95 1:31pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; STRING ;;; ;;; STRING FUNCTIONS - XLFSTR diff --git a/Routines/XVEMSLC.m b/Routines/XVEMSLC.m index e094e34..f6d795f 100644 --- a/Routines/XVEMSLC.m +++ b/Routines/XVEMSLC.m @@ -1,5 +1,5 @@ XVEMSLC ;DJB,VSHL**VA KERNEL Library Functions - Math [04/17/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; MATH ;;; ;;; MATH FUNCTIONS - XLFMTH diff --git a/Routines/XVEMSLD.m b/Routines/XVEMSLD.m index c842ece..8a2852c 100644 --- a/Routines/XVEMSLD.m +++ b/Routines/XVEMSLD.m @@ -1,5 +1,5 @@ XVEMSLD ;DJB,VSHL**VA KERNEL Library Functions - Measurement [04/17/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; MEAS ;;; ;;; MEASUREMENT FUNCTIONS - XLFMSMT diff --git a/Routines/XVEMSN.m b/Routines/XVEMSN.m index 49e4258..d4fabda 100644 --- a/Routines/XVEMSN.m +++ b/Routines/XVEMSN.m @@ -1,5 +1,5 @@ XVEMSN ;DJB,VSHL**VPE Notes [2/1/97 10:32am] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; NOTES ;;;; ;;; -----> V P E P A R A M E T E R P A S S I N G diff --git a/Routines/XVEMSNR.m b/Routines/XVEMSNR.m index 2fa6b26..ab4bba8 100644 --- a/Routines/XVEMSNR.m +++ b/Routines/XVEMSNR.m @@ -1,5 +1,5 @@ XVEMSNR ;DJB,VSHL**Enter New Routine ; 2/25/17 11:39pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; TOP ;Allow user to start a new routine NEW CNT,CODE,DEF,FLAGQ,I,LINE,RTN,TMP,TAG,XVVS,X diff --git a/Routines/XVEMSO.m b/Routines/XVEMSO.m index 11224d4..5406f86 100644 --- a/Routines/XVEMSO.m +++ b/Routines/XVEMSO.m @@ -1,5 +1,5 @@ XVEMSO ;DJB,VSHL**Run Kernel Menu Option ; 3/27/16 5:09pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; KERNEL(OPT) ;Calls KERNEL ^XQ ;OPT=Name/number of entry in OPTION file (#19) diff --git a/Routines/XVEMSO1.m b/Routines/XVEMSO1.m index 469ca66..20724b8 100644 --- a/Routines/XVEMSO1.m +++ b/Routines/XVEMSO1.m @@ -1,5 +1,5 @@ XVEMSO1 ;DJB,VSHL**A,E,I,P,R [07/01/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; ;==================================================================== A ;ACTION type option diff --git a/Routines/XVEMSP.m b/Routines/XVEMSP.m index f254ac0..4b7949c 100644 --- a/Routines/XVEMSP.m +++ b/Routines/XVEMSP.m @@ -1,5 +1,5 @@ XVEMSP ;DJB,VSHL**System Parameters [11/17/96 12:49pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; TOP ;Edit System Parameters NEW DOT,FLAGQ,I,LINE,NUM diff --git a/Routines/XVEMSPS.m b/Routines/XVEMSPS.m index 27dcb2b..1bdd8a1 100644 --- a/Routines/XVEMSPS.m +++ b/Routines/XVEMSPS.m @@ -1,5 +1,5 @@ XVEMSPS ;DJB,VSHL**Print Symbol Table (..ZW) ; 2/25/17 11:12pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; WRITE(StarT) ; ; StartT is mixed case so it isn't already in symbol table diff --git a/Routines/XVEMSQ.m b/Routines/XVEMSQ.m index 2f5dd0a..57d89ce 100644 --- a/Routines/XVEMSQ.m +++ b/Routines/XVEMSQ.m @@ -1,5 +1,5 @@ XVEMSQ ;DJB,VSHL**QWIKs - Add/Edit ; 3/27/16 5:33pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; N $ETRAP,$ESTACK S $ETRAP="D ERROR^XVEMSQL,UNWIND^XVEMSY" NEW BOX,BX,CD,CDHLD,FLAGJMP,FLAGQ,I,NAM,PROMPT diff --git a/Routines/XVEMSQA.m b/Routines/XVEMSQA.m index d9d2d4a..07f9805 100644 --- a/Routines/XVEMSQA.m +++ b/Routines/XVEMSQA.m @@ -1,5 +1,5 @@ XVEMSQA ;DJB,VSHL**QWIKs - Display,Msg [1/16/96 11:04pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; DISPLAY ;Display QWIK info NEW CD,I,LMAR,PROMPT,START,WIDTH diff --git a/Routines/XVEMSQE.m b/Routines/XVEMSQE.m index 3665c8b..e881e5e 100644 --- a/Routines/XVEMSQE.m +++ b/Routines/XVEMSQE.m @@ -1,5 +1,5 @@ XVEMSQE ;DJB,VSHL**QWIKs - Edit Name,Code,Description,Param,Box [9/9/95 6:34pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; NAME ;Edit QWIK Name Q:$G(NAM)']"" Q:'$D(^XVEMS("QU",XVV("ID"),NAM)) diff --git a/Routines/XVEMSQL.m b/Routines/XVEMSQL.m index 1cd125f..cfafa40 100644 --- a/Routines/XVEMSQL.m +++ b/Routines/XVEMSQL.m @@ -1,5 +1,5 @@ XVEMSQL ;DJB,VSHL**QWIKs - List QWIKs ; 3/27/16 5:32pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; LISTQ(BOX,TYPE) ;List QWIKs. BOX=Display Box ;TYPE=1-User Desc,2-User Code,3-Sys Desc,4-Sys Code diff --git a/Routines/XVEMSQS.m b/Routines/XVEMSQS.m index 6707ac7..13cbd9c 100644 --- a/Routines/XVEMSQS.m +++ b/Routines/XVEMSQS.m @@ -1,5 +1,5 @@ XVEMSQS ;DJB,VSHL**QWIKs - List & Select ; 3/26/16 10:44pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; QWIK(CD) ;User's entry used the "." or ".." syntax. NEW I,TYPE diff --git a/Routines/XVEMSQU.m b/Routines/XVEMSQU.m index 338a86d..73dd7bd 100644 --- a/Routines/XVEMSQU.m +++ b/Routines/XVEMSQU.m @@ -1,5 +1,5 @@ XVEMSQU ;DJB,VSHL**QWIKs - Delete,Copy,Boxes [11/06/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; DELETE ;Delete a QWIK W !?1,"*** Delete QWIK Command ***" diff --git a/Routines/XVEMSQV.m b/Routines/XVEMSQV.m index e92e853..db026d9 100644 --- a/Routines/XVEMSQV.m +++ b/Routines/XVEMSQV.m @@ -1,5 +1,5 @@ XVEMSQV ;DJB,VSHL**QWIKs - Vendor Specific Code [9/27/95 6:39pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; VENDOR ;Add a Vendor Specific QWIK. NEW BOX,BX,CHK,CD,CDHLD,CODE,FLAGJMP,FLAGQ,I,NAM,PROMPT,VEN diff --git a/Routines/XVEMSQW.m b/Routines/XVEMSQW.m index ca5bb74..6f219d0 100644 --- a/Routines/XVEMSQW.m +++ b/Routines/XVEMSQW.m @@ -1,5 +1,5 @@ XVEMSQW ;DJB,VSHL**QWIKs - Vendor List [9/9/95 6:40pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; VENLIST ;List Vendor Specific Code NEW CD,FLAGQ,NAM,TYPE diff --git a/Routines/XVEMSRL.m b/Routines/XVEMSRL.m index 23d40af..0b9db8c 100644 --- a/Routines/XVEMSRL.m +++ b/Routines/XVEMSRL.m @@ -1,5 +1,5 @@ XVEMSRL ;DJB,VSHL**Routine Lister [9/29/97 8:03pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; EN ; NEW %,CEMETHOD,LINE,RLIOF,RLSIZE,RTNSIZE,TYPE diff --git a/Routines/XVEMSS.m b/Routines/XVEMSS.m index 468897b..5daf5bf 100644 --- a/Routines/XVEMSS.m +++ b/Routines/XVEMSS.m @@ -1,5 +1,5 @@ XVEMSS ;DJB,VSHL**..SAVE ; 9/7/02 1:42pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; SAVE ; NEW BOX,CNT,CODE,FLAGQ,ID,MENU,QWIK,RTN,TEMP,VEN,X,XVVS,XX diff --git a/Routines/XVEMSS1.m b/Routines/XVEMSS1.m index f9e2faf..d61df0e 100644 --- a/Routines/XVEMSS1.m +++ b/Routines/XVEMSS1.m @@ -1,5 +1,5 @@ XVEMSS1 ;DJB,VSHL**..SAVE cont.. ; 2/29/16 8:59am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; BUILD ;Build ^UTILITY($J,0) Global NEW CNT,QWIK,VRRPGM,X diff --git a/Routines/XVEMST.m b/Routines/XVEMST.m index c49104c..a22107e 100644 --- a/Routines/XVEMST.m +++ b/Routines/XVEMST.m @@ -1,5 +1,5 @@ XVEMST ;DJB,VSHL** VShell Tool Kit [03/02/95 10:28pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; CALENDAR ;Author: Roger Ackerman Albuquerque,NM NEW %H,%Y,AD,AL,DAYS,DOW,L,M,MM,N,X,Y,NY,NM diff --git a/Routines/XVEMSU.m b/Routines/XVEMSU.m index 34eed89..3a9bae6 100644 --- a/Routines/XVEMSU.m +++ b/Routines/XVEMSU.m @@ -1,5 +1,5 @@ XVEMSU ;DJB,VSHL**Util - PURGE,KERNSAVE,RESSYM ; 3/27/16 12:06am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; USEZERO ;After executing code, reuse device 0 I $G(XVV("IO"))="" U 0 Q diff --git a/Routines/XVEMSU1.m b/Routines/XVEMSU1.m index 4152cf3..1d1abc8 100644 --- a/Routines/XVEMSU1.m +++ b/Routines/XVEMSU1.m @@ -1,5 +1,5 @@ XVEMSU1 ;DJB,VSHL**Utilities - KEY,DIC,DIET,DIPT,DIBT ; 3/27/16 12:20am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; KEY ;Display escape sequence for any key hit. NEW COL,FLAGQ,HLD,I,X,Y diff --git a/Routines/XVEMSU2.m b/Routines/XVEMSU2.m index 05a5261..66d14aa 100644 --- a/Routines/XVEMSU2.m +++ b/Routines/XVEMSU2.m @@ -1,5 +1,5 @@ XVEMSU2 ;DJB,VSHL**Utilities - ZPrint,ZRemove,Version ; 6/18/16 1:31pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; ZPRINT ;ZP System QWIK to print a routine I $G(%1)']"" D ZPMSG Q diff --git a/Routines/XVEMSY.m b/Routines/XVEMSY.m index 39d68aa..68e8562 100644 --- a/Routines/XVEMSY.m +++ b/Routines/XVEMSY.m @@ -1,5 +1,5 @@ XVEMSY ;DJB,VSHL**Init,Error ; 2/25/17 11:51pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; INIT ;Initialize variables NEW XVVSIZE,X,Y diff --git a/Routines/XVEMSY1.m b/Routines/XVEMSY1.m index 4308103..2383b2f 100644 --- a/Routines/XVEMSY1.m +++ b/Routines/XVEMSY1.m @@ -1,5 +1,5 @@ XVEMSY1 ;DJB,VSHL**Init cont.. [10/17/97 8:45pm] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; CLH ;Resequence Command Line History nodes NEW I,TYPE,X diff --git a/Routines/XVEMSY2.m b/Routines/XVEMSY2.m index b27c5ec..34a0809 100644 --- a/Routines/XVEMSY2.m +++ b/Routines/XVEMSY2.m @@ -1,5 +1,5 @@ XVEMSY2 ;DJB,VSHL**Init cont.. [01/11/94] - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; RVCHK ;Check reverse video NEW NODE5,RVOFF,RVON,X diff --git a/Routines/XVSA.m b/Routines/XVSA.m index 25acd49..bbcb468 100644 --- a/Routines/XVSA.m +++ b/Routines/XVSA.m @@ -1,5 +1,5 @@ XVSA ; Paideia/SMH,TOAD - VPE Main Shell Loop ; 3/7/16 4:48pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ;;XV ; Contains code from ^XVEMS("ZA") EN ; ZA1 diff --git a/Routines/XVSC.m b/Routines/XVSC.m index 9b7c6a4..075358a 100644 --- a/Routines/XVSC.m +++ b/Routines/XVSC.m @@ -1,5 +1,5 @@ XVSC ; Paideia/SMH - VPE warn of a global kill; ; 10/17/09 11:16pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ;;XV ; Q:$G(XVVWARN)="QWIK" diff --git a/Routines/XVSE.m b/Routines/XVSE.m index 81cea4e..f09af94 100644 --- a/Routines/XVSE.m +++ b/Routines/XVSE.m @@ -1,5 +1,5 @@ XVSE ; VEN/SMH - VPE Editor Init Code; replaces ^%ZVEMS("E") ; 6/18/16 10:54am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ; ; E ; Edit Entry Point diff --git a/Routines/XVSK.m b/Routines/XVSK.m index 877bf09..f714982 100644 --- a/Routines/XVSK.m +++ b/Routines/XVSK.m @@ -1,5 +1,5 @@ XVSK ; Paideia/SMH - VPE 'Kill' logic ; 2/29/16 8:06am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ;;XV ; Notes: Corresponds to ^XVEMS("ZK") ZK1 ; diff --git a/Routines/XVSO.m b/Routines/XVSO.m index d33e002..eb24b5e 100644 --- a/Routines/XVSO.m +++ b/Routines/XVSO.m @@ -1,5 +1,5 @@ XVSO ; Paideia/SMH - VPE 'Other' functions ; 2/27/16 4:01pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ;;XV ; Notes: This corresponds to ^XVEMS("ZO") ; diff --git a/Routines/XVSQ.m b/Routines/XVSQ.m index 8666388..85adcd2 100644 --- a/Routines/XVSQ.m +++ b/Routines/XVSQ.m @@ -1,5 +1,5 @@ XVSQ ; Paideia/SMH - VPE Process QWIKs ; 5/1/16 7:07pm - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ;;XV ; N HLD diff --git a/Routines/XVSR.m b/Routines/XVSR.m index 14d42b2..6da1ac7 100644 --- a/Routines/XVSR.m +++ b/Routines/XVSR.m @@ -1,5 +1,5 @@ XVSR ; Paideia/SMH - VPE Single Character Reads ; 2/29/16 6:44am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ;;XV ; ZR1 ; Main diff --git a/Routines/XVSS.m b/Routines/XVSS.m index e92e185..4dc0694 100644 --- a/Routines/XVSS.m +++ b/Routines/XVSS.m @@ -1,5 +1,5 @@ XVSS ; Paideia/SMH,TOAD - VPE Symbol Table Save ; 2/29/16 7:35am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 ;;XV ; Sam's Notes: = ^XVEMS("ZS") SAVE ; Save XVV variables (= ZS1,7,9) diff --git a/Routines/XVST.m b/Routines/XVST.m index cac0f85..e88051f 100644 --- a/Routines/XVST.m +++ b/Routines/XVST.m @@ -1,5 +1,5 @@ XVST ; Paideia/SMH - VPE handle timeout ; 10/18/09 12:29am - ;;13.1;VICTORY PROG ENVIRONMENT;;May 23, 2016 + ;;14.0;VICTORY PROG ENVIRONMENT;;Feb 27, 2017 S XVVSHC=$G(^XVEMS("QU",XVV("ID"),"TO")) Q:XVVSHC="" S:XVVSHC="HALT"!(XVVSHC="halt") XVVSHC="^"