source: WorldVistAEHR/trunk/r/WORLDVISTA-VW/VWAMACR.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1VWAMACR ;WorldVistA/Port Clinton/SO- Add AMA Copyright notice to Kernel Intro;7:45 PM 9 Nov 2009
2 ;;1.0;WorldVistA 30-June-08;;;Build 1
3 ;
4 ;Modified from FOIA VISTA,
5 ;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
6 ;General Public License See attached copy of the License.
7 ;
8 ;This program is free software; you can redistribute it and/or modify
9 ;it under the terms of the GNU General Public License as published by
10 ;the Free Software Foundation; either version 2 of the License, or
11 ;(at your option) any later version.
12 ;
13 ;This program is distributed in the hope that it will be useful,
14 ;but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;GNU General Public License for more details.
17 ;
18 ;You should have received a copy of the GNU General Public License along
19 ;with this program; if not, write to the Free Software Foundation, Inc.,
20 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
21 ;
22 N IEN S IEN=0
23 S IEN=+$O(^XTV(8989.3,IEN))
24 I 'IEN D MES^XPDUTL("You are missing your Kernel System Parameter entry!") Q
25 N TXT,DIERR
26 S TXT=""
27 S TXT(1)=" "
28 S TXT(2)="CPT copyright AMA 2006 American Medical Association. All rights reserved."
29 D WP^DIE(8989.3,IEN_",",240,"A","TXT")
30 I $G(DIERR)]"" D MES^XPDUTL("Updating error, please contact WorldVistA.") D CLEAN^DILF Q
31 D CLEAN^DILF
32 D MES^XPDUTL("AMA Copyright has been successfully at to the Kernel Intro text.")
33 Q
Note: See TracBrowser for help on using the repository browser.