Changeset 1806 for VWGUIRegistration

Timestamp:

May 13, 2019, 12:00:15 PM (6 years ago)

Author:

Jim B.

Message:

 

Location:

VWGUIRegistration/trunk

Files:

• VWREGIT.m (modified) (2 diffs)
• VWREGIT2.m (modified) (2 diffs)
• VWREGIT3.m (modified) (1 diff)
• VWREGITP.m (modified) (1 diff)
• VWREGITS.m (modified) (2 diffs)
• VWREGITT.m (modified) (1 diff)
• VWREGITU.m (modified) (1 diff)
• VWREGITX.m (modified) (1 diff)
• VWREGPI.m (added)

VWGUIRegistration/trunk/VWREGIT.m

@@ -1 +1 @@
 VWREGIT ;Portland,OR/Jim Bell, et al Patient Registration Utility August 2015
-        ;;2.0;B/FProductions,LLC,WORLD VISTA;**LOCAL**;;Build 2
+        ;;2.0;WORLD VISTA;**LOCAL**;;Build 2
         ;*******************************************************************
         ;* VW Registration is designed for patient specific fields as      *
@@ -33 +33 @@
         ;
 EN(RESULT)         ;Template name and ID labels
+        ;W "
         ;Get the input template list
         ;housekeeping

VWGUIRegistration/trunk/VWREGIT2.m

@@ -1 @@
-VWREGIT2        ;Portland/WorldVista/BFP,LLC/Jim Bell, et al... - Post-Install for VWREG        
-        ;;1.0;WORLD VISTA;**HOME **;;Build 2
+VWREGIT2        ;Portland/WorldVista//Jim Bell, et al... - Post-Install for VWREG       
+        ;;2.0;WORLD VISTA;**HOME **;;Build 4
+        ;*****************************************************************
+        ;* Licensed under GNU 2.0 or greater - see license.txt file      *
+        ;* Program/application is for the management of input templates  *
+        ;* owned by the user (DUZ).                                      *
+        ;* REMINDER: All template fields pertain only to the Patient File*
+        ;*  (#2)!                                                        *
+        ;*****************************************************************
         ;
         ;Continued from VWREGIT
@@ -16 +23 @@
 PI      ;Post Installation install
         ;Checking for a home directory & file
-        I $O(^XMB(3.8,"B","VW REG ERROR REPORT",0)) W !?5,"Installation has already occurred" Q
+        ;I $O(^XMB(3.8,"B","VW REG ERROR REPORT",0)) W !?5,"Installation has already occurred" Q
+        D PRE
         S AR=1,AR(1)="[TEMPLATES]"
         S N=0 F  S N=$O(^DIE(N)) Q:'+N  S X=$P(^(N,0),"^") D

VWGUIRegistration/trunk/VWREGIT3.m

@@ -1 @@
-VWREGIT3        ;VWEHR/BFProd-Jim Bell, et al - World VistA GUI Pat Reg Utility
-        ;;1.0;WORLD VISTA;** **;;Build 2
-        ;
-        ;This routine utility is for patient specific fields and
-        ;is used to build input templates for registration
-        ;
-        ;GNU License: See WVLIC.txt
-        ;Modified FOIA VISTA,
-        ;Copyright 2013 WorldVistA.  Licensed under the terms of the GNU
+VWREGIT3        ;WorldVistA.org,Portland/Jim Bell, et al - World VistA GUI Pat Reg Utility
+        ;;2.0;WORLD VISTA;** **;;Build 4
+        ;*****************************************************************
+        ;* Licensed under GNU 2.0 or greater - see license.txt file      *
+        ;* Program/application is for the management of input templates  *
+        ;* owned by the user (DUZ).                                      *
+        ;* REMINDER: All template fields pertain only to the Patient File*
+        ;*  (#2)!                                                        *
+        ;*****************************************************************      ;
         Q
         ;

VWGUIRegistration/trunk/VWREGITP.m

@@ -1 @@
-VWREGITP        ;BFP/Portland,OR-Jim Bell,et al - Client Registration Utility
-               ;2.0;BFP for WorldVistA;**LOCAL**;;;Build 2
-        ; *******************************************
-        ; * Copyright 2015 ad infinitum et ultra    *
-        ; * Gets data for existing clients/patients *
-        ; * GPL License: See License.txt            *
-        ; *******************************************
+VWREGITP        ;Portland,OR/Jim Bell,et al - Client Registration Utility
+        ;2.0;For WorldVistA;**LOCAL**;;;Build 4; Copyright 2015 ad infinitum et ultra    *
+        ;Gets data for existing clients/patients
+        ;*****************************************************************
+        ;* Licensed under GNU 2.0 or greater - see license.txt file      *
+        ;* Program/application is for the management of input templates  *
+        ;* owned by the user (DUZ).                                      *
+        ;* REMINDER: All template fields pertain only to the Patient File*
+        ;*  (#2)!                                                        *
+        ;*****************************************************************
         Q  ;No fall through - jeb
         ;

VWGUIRegistration/trunk/VWREGITS.m

@@ -1 +1 @@
 VWREGITS        ;Portland,OR/jeb et al Save utility for VWREG* routines 11/2015
-        ;V.2;;**LOCAL**;;;Build 2
-        ;c2014 ad infiniti, BellFelder Productions (BF Productions) & WorldVistA
+        ;V.2;;**LOCAL**;;;Build 3
         ;License: See License.txt that with install
         ;No fall thru - jeb
@@ -66 +65 @@
         D M  ;File any multiple fields
         S RESULT(0)="Filed..."
-        K ^DIZ("DS",$J)
+        ;K ^DIZ("DS",$J)
         Q
         ;

VWGUIRegistration/trunk/VWREGITT.m

@@ -1 @@
-VWREGITT        ;Portland\Jim Bell, BFP,LLC Input Template Management 2016
-        ;2.0**LOCAL** Copyright April 2016 ad infinitum;;;;;Build 1
+VWREGITT        ;Portland\Jim Bell,  Input Template Management 2016
+        ;2.0**LOCAL** Copyright April 2016 ad infinitum;;;;;Build 4
         ;*****************************************************************
         ;* Licensed under GNU 2.0 or greater - see license.txt file      *

VWGUIRegistration/trunk/VWREGITU.m

@@ -1 +1 @@
 VWREGITU        ;Portland, OR/jeb et al World Vista Registration Utilities
-        ;V.2;;**LOCAL**;; 2015;Build 2
-        ;;c2014, BellFelder Productions(BF Productions)
+        ;2.0;;**LOCAL**;;2015;Build 4;;c2014
+        ;*****************************************************************
+        ;* Licensed under GNU 2.0 or greater - see license.txt file      *
+        ;* Program/application is for the management of input templates  *
+        ;* owned by the user (DUZ).                                      *
+        ;* REMINDER: All template fields pertain only to the Patient File*
+        ;*  (#2)!                                                        *
+        ;*****************************************************************
         ;No Fall thru - jeb
         Q

VWGUIRegistration/trunk/VWREGITX.m

@@ -1 @@
-VWREGITX        ;VWEHR/BFProd-Jim Bell, et al - World VistA GUI Pat Reg Utility
-        ;;;;;;Build 2
-        ;;1.0;WORLD VISTA;**LOCAL **;;Build 26
-        ;
-        ;This routine utility is for patient specific fields and
-        ;is used to build input templates for registration
-        ;
-        ;GNU License: See WVLIC.txt
-        ;Modified FOIA VISTA,
-        ;Copyright 2013 WorldVistA.  Licensed under the terms of the GNU
+VWREGITX        ;Portland,OR/Jim Bell, et al - World VistA GUI Pat Reg Utility
+        ;;2.0;WORLD VISTA;**LOCAL **;;Build 26
+        ;*****************************************************************
+        ;* Licensed under GNU 2.0 or greater - see license.txt file      *
+        ;* Program/application is for the management of input templates  *
+        ;* owned by the user (DUZ).                                      *
+        ;* REMINDER: All template fields pertain only to the Patient File*
+        ;*  (#2)!                                                        *
+        ;*****************************************************************
+        ;No fall thru
         Q
         ;