This commit is contained in:
jbell
parent
5b4056f0a1
commit
a8d6e79cf4
|
|
@ -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
|
||||
|
|
|
|||
14
VWREGIT2.m
14
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_")"
|
||||
|
|
|
|||
18
VWREGIT3.m
18
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
|
||||
;
|
||||
|
|
|
|||
17
VWREGITP.m
17
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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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 *
|
||||
|
|
|
|||
10
VWREGITU.m
10
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
|
||||
;
|
||||
|
|
|
|||
20
VWREGITX.m
20
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),"^")
|
||||
|
|
|
|||
|
|
@ -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
|
||||
Loading…
Reference in New Issue