Changeset 69 for ccr/trunk/p/CCRSYS.m
- Timestamp:
- Jul 17, 2008, 3:55:07 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/CCRSYS.m
r49 r69 1 1 CCRSYS ;CCDCCR/SMH - Routine to Get EHR System Information;6JUL2008 2 ;;0.1;CCDCCR;;; 2 ;;0.1;CCDCCR;;; 3 ;Copyright 2008 WorldVistA. Licensed under the terms of the GNU 4 ;General Public License See attached copy of the License. 5 ; 6 ;This program is free software; you can redistribute it and/or modify 7 ;it under the terms of the GNU General Public License as published by 8 ;the Free Software Foundation; either version 2 of the License, or 9 ;(at your option) any later version. 10 ; 11 ;This program is distributed in the hope that it will be useful, 12 ;but WITHOUT ANY WARRANTY; without even the implied warranty of 13 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 ;GNU General Public License for more details. 15 ; 16 ;You should have received a copy of the GNU General Public License along 17 ;with this program; if not, write to the Free Software Foundation, Inc., 18 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. 19 ; 20 W "Enter at appropriate points." Q 3 21 4 W "Enter at appropriate points." Q 22 ; Originally, I was going to use VEPERVER, but VEPERVER 23 ; actually kills ^TMP($J), outputs it to the screen in a user-friendly 24 ; manner (press any key to continue), 25 ; and is really a very half finished routine 5 26 6 ; Originally, I was going to use VEPERVER, but VEPERVER 7 ; actually kills ^TMP($J), outputs it to the screen in a user-friendly 8 ; manner (press any key to continue), 9 ; and is really a very half finished routine 10 11 ; So for now, I am hard-coding the values. 27 ; So for now, I am hard-coding the values. 12 28 13 29 SYSNAME() ;Get EHR System Name; PUBLIC; Extrinsic 14 15 30 Q "WorldVistA EHR/VOE" 31 ; 16 32 SYSVER() ;Get EHR System Version; PUBLIC; Extrinsic 17 18 33 Q "1.0" 34 ; 19 35
Note:
See TracChangeset
for help on using the changeset viewer.