BFPMAIL License.txt

@@ -0,0 +1,20 @@
+WVLIC   ;BellFelder Productions, LLC FOIA Licensing ; 2013
+        ;Copyright 2013 - ad infinitum - BFP, LLC
+	; BFP Code is 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.
+        ;
+	Q

BFPMAIL.m

@@ -0,0 +1,46 @@
+BJMAIL	; PTLD/JEB	; Generic mail message	; January 1990
+	;;3.0;WORLD VISTA/JEB;** **;;Build: 3
+	;; General Public License: See WVLCI.txt 
+	;User program sets variables calls MSG^BJMAIL (See variable List)
+	; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	; | VARIABLE LIST:                                                           | 
+	; |  SET 'GROUP' TO THE MAIL GROUP NAME OR NUMBER                            |
+	; |  or                                                                      |
+	; |  K GROUP AND SET UP A 'TO()' ARRAY WITH THE DUZ AS THE SUBSCRIPT OF      |
+	; |   THE 'TO' ARRAY IF YOU WANT TO SEND A MSG TO AN INDIVIDUAL OR GROUP     |
+	; |   OF INDIVIDUALS WHO ARE NOT IN AN ESTABLISHED MAIL GROUP                |
+	; |  or                                                                      |
+	; |  SET 'GROUP' AND INDIVIDUAL 'T()' ARRAY NODES TO SEND TO THE             |
+	; |   ESTABLISHED GROUP AND INDIVIDUALS NOT IN THE GROUP                     |
+	; |  SET 'TITLE'=TO THE TITLE YOU WANT DISPLAYED                             |
+	; |  SET 'FROM' AS THE PERSON WHO IS SENDING THE MESSAGE ( A NULL 'FROM'     |
+	; |   WILL USE THE POSTMASTER).                                              |
+	; |  SET THE TEXT OF THE MESSAGE IN ARRAY USING 'T' AND SUBSCRIPT OF A NUMBER|
+	; |   I.,E                                                                   |
+	; |    T(1)="This is the first line of the message"                          |
+	; |    T(2)="This is the second line of the message, etc.                    |
+	; |  SET 'CONFIRM'=1 FOR A CONFIRMATION                                      |
+	; |  SET 'INFO'=1 FOR INFORMATION ONLYH (NO REPLIES ALLOWED) MESSAGE         |
+	; |  SET 'PRIO'=1 FOR PRIORITY DELIVERY                                      |
+MSG	; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	N XMINSTR
+	D GROUP
+	Q:$O(TO(""))=""
+	;
+	I $G(CONFIRM) S XMINSTR("FLAGS")=$G(XMINSTR("FLAGS"))_"R"
+	I $G(PRIO) S XMINSTR("FLAGS")=$G(XMINSTR("FLAGS"))_"P"
+	I $G(INFO) S XMINSTR("FLAGS")=$G(XMINSTR("FLAGS"))_"I"
+	I '$D(FROM) S FROM=.5
+	D SETFROM^XMD(.FROM,.XMINSTR)
+	I '$D(TITLE) S TITLE="Title not specified by sender"
+	I $L(TITLE)>65 S TITLE=$E(TITLE,1,65)
+	I $L(TITLE)<3 S TITLE=TITLE_"..."
+	D SENDMSG^XMXAPI(FROM,TITLE,"T",.TO,.XMINSTR)
+	K CONFIRM,FROM,GROUP,INFO,PRIO,T,TITLE,TO
+	Q
+GROUP	;
+	Q:$G(GROUP)=""
+	I +GROUP=GROUP S GROUP=$P($G(^XMB(3.8,GROUP,0)),"^")
+	S TO("G."_GROUP)=""
+	Q
+	;

GPLv3_License.txt

@@ -0,0 +1,12 @@
+    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 3 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, see <http://www.gnu.org/licenses/>.