Changeset 1806


Ignore:
Timestamp:
May 13, 2019, 12:00:15 PM (22 months ago)
Author:
Jim B.
Message:
 
Location:
VWGUIRegistration/trunk
Files:
1 added
8 edited

Legend:

Unmodified
Added
Removed
  • VWGUIRegistration/trunk/VWREGIT.m

    r1798 r1806  
    11VWREGIT ;Portland,OR/Jim Bell, et al Patient Registration Utility August 2015
    2         ;;2.0;B/FProductions,LLC,WORLD VISTA;**LOCAL**;;Build 2
     2        ;;2.0;WORLD VISTA;**LOCAL**;;Build 2
    33        ;*******************************************************************
    44        ;* VW Registration is designed for patient specific fields as      *
     
    3333        ;
    3434EN(RESULT)         ;Template name and ID labels
     35        ;W "
    3536        ;Get the input template list
    3637        ;housekeeping
  • VWGUIRegistration/trunk/VWREGIT2.m

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

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

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

    r1798 r1806  
    11VWREGITS        ;Portland,OR/jeb et al Save utility for VWREG* routines 11/2015
    2         ;V.2;;**LOCAL**;;;Build 2
    3         ;c2014 ad infiniti, BellFelder Productions (BF Productions) & WorldVistA
     2        ;V.2;;**LOCAL**;;;Build 3
    43        ;License: See License.txt that with install
    54        ;No fall thru - jeb
     
    6665        D M  ;File any multiple fields
    6766        S RESULT(0)="Filed..."
    68         K ^DIZ("DS",$J)
     67        ;K ^DIZ("DS",$J)
    6968        Q
    7069        ;
  • VWGUIRegistration/trunk/VWREGITT.m

    r1798 r1806  
    1 VWREGITT        ;Portland\Jim Bell, BFP,LLC Input Template Management 2016
    2         ;2.0**LOCAL** Copyright April 2016 ad infinitum;;;;;Build 1
     1VWREGITT        ;Portland\Jim Bell, Input Template Management 2016
     2        ;2.0**LOCAL** Copyright April 2016 ad infinitum;;;;;Build 4
    33        ;*****************************************************************
    44        ;* Licensed under GNU 2.0 or greater - see license.txt file      *
  • VWGUIRegistration/trunk/VWREGITU.m

    r1798 r1806  
    11VWREGITU        ;Portland, OR/jeb et al World Vista Registration Utilities
    2         ;V.2;;**LOCAL**;; 2015;Build 2
    3         ;;c2014, BellFelder Productions(BF Productions)
     2        ;2.0;;**LOCAL**;;2015;Build 4;;c2014
     3        ;*****************************************************************
     4        ;* Licensed under GNU 2.0 or greater - see license.txt file      *
     5        ;* Program/application is for the management of input templates  *
     6        ;* owned by the user (DUZ).                                      *
     7        ;* REMINDER: All template fields pertain only to the Patient File*
     8        ;*  (#2)!                                                        *
     9        ;*****************************************************************
    410        ;No Fall thru - jeb
    511        Q
  • VWGUIRegistration/trunk/VWREGITX.m

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