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