From a8d6e79cf4cde4aad0334ff4506e9b80da4e8957 Mon Sep 17 00:00:00 2001 From: jbell Date: Mon, 13 May 2019 16:00:15 +0000 Subject: [PATCH] --- VWREGIT.m | 3 ++- VWREGIT2.m | 14 +++++++++++--- VWREGIT3.m | 18 +++++++++--------- VWREGITP.m | 17 ++++++++++------- VWREGITS.m | 5 ++--- VWREGITT.m | 4 ++-- VWREGITU.m | 10 ++++++++-- VWREGITX.m | 20 ++++++++++---------- VWREGPI.m | 17 +++++++++++++++++ 9 files changed, 71 insertions(+), 37 deletions(-) create mode 100644 VWREGPI.m diff --git a/VWREGIT.m b/VWREGIT.m index ba4f35f..07202e7 100644 --- a/VWREGIT.m +++ b/VWREGIT.m @@ -1,5 +1,5 @@ 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 * ;* defined in Fileman Input Templates or ad hoc field selection. * @@ -32,6 +32,7 @@ CHECK() ; INR() Q $O(RESULT(" "),-1)+1 ; EN(RESULT) ;Template name and ID labels + ;W " ;Get the input template list ;housekeeping S DTIME=99999 diff --git a/VWREGIT2.m b/VWREGIT2.m index f3c87ee..ad97638 100644 --- a/VWREGIT2.m +++ b/VWREGIT2.m @@ -1,5 +1,12 @@ -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 ; @@ -15,7 +22,8 @@ PRE ;Did this installation happen already? Avoid a re-do? ; 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 . I X["VW " S AR($I(AR))=X_"("_N_")" diff --git a/VWREGIT3.m b/VWREGIT3.m index 85bdae1..7ce5812 100644 --- a/VWREGIT3.m +++ b/VWREGIT3.m @@ -1,11 +1,11 @@ -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 ; diff --git a/VWREGITP.m b/VWREGITP.m index 7531c02..7b44601 100644 --- a/VWREGITP.m +++ b/VWREGITP.m @@ -1,10 +1,13 @@ -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 ; GPD(RESULT,DATA) ;Get patient data diff --git a/VWREGITS.m b/VWREGITS.m index e17cad1..89800cf 100644 --- a/VWREGITS.m +++ b/VWREGITS.m @@ -1,6 +1,5 @@ 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 Q @@ -65,7 +64,7 @@ LDPT L +^DPT(DFN):1 G LDPT:'$T L -^DPT(DFN) D M ;File any multiple fields S RESULT(0)="Filed..." - K ^DIZ("DS",$J) + ;K ^DIZ("DS",$J) Q ; EXP ;Existing Patient diff --git a/VWREGITT.m b/VWREGITT.m index 41c276a..f89ec74 100644 --- a/VWREGITT.m +++ b/VWREGITT.m @@ -1,5 +1,5 @@ -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 * ;* Program/application is for the management of input templates * diff --git a/VWREGITU.m b/VWREGITU.m index fb98c1a..ce59961 100644 --- a/VWREGITU.m +++ b/VWREGITU.m @@ -1,6 +1,12 @@ 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 ; diff --git a/VWREGITX.m b/VWREGITX.m index c3b1fab..e49f122 100644 --- a/VWREGITX.m +++ b/VWREGITX.m @@ -1,13 +1,13 @@ -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 ; 1 ;CallerID = HRN; value is at $P($P(CALLERID,":",2),"^") diff --git a/VWREGPI.m b/VWREGPI.m new file mode 100644 index 0000000..8783df1 --- /dev/null +++ b/VWREGPI.m @@ -0,0 +1,17 @@ +VWREGPI ; VEN/SMH - VW MU REG 2.0 Post-install ; 11/5/12 12:51pm + ;;2.0;VW MU REG;;Nov 05, 2012;Build 18 + ;***************************************************************** + ;* 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)! * + ;***************************************************************** + ; Enter VW Local Registration Template into Site Parameters + ; PEPs: POST + ; +POST ; Post install hook + N DIE,DA,DR + S DIE="^DG(43,",DA=1,DR="70///VW LOCAL REGISTRATION TEMPLATE" + D ^DIE + QUIT