source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNMAIL.m@ 1398

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

initial load of FOIAVistA 6/30/08 version

File size: 609 bytes
Line 
1SPNMAIL ;SAN/WDE-Mail server rtn for the spn* ;04/01/98@0904
2 ;;2.0;Spinal Cord Dysfunction;**6**;01/02/1997
3MAIL ;spn mail call to send us the data/reports
4 ; spntxt(n) holds the message text
5 ; spngrp is the mail group name
6 ; if spngrp is null a default group of G.SPNL SCD REGISTRY
7 ; will be used
8 ; spndesc is the subject title & is ****** Reguired ******
9EN ;
10 Q:$G(SPNDESC)=""
11 S XMDUZ=.5
12 S XMTEXT="SPNTXT(",XMSUB=SPNDESC
13 I $D(SPNGRP) S XMY(SPNGRP)=""
14 S XMY("G.SPNL SCD REGISTRY@SAN-DIEGO.VA.GOV")=""
15 D ^XMD
16 K SPNTXT,XMY,XMDUZ,SPNGRP,SPNSUB
17 K XMSUB,XMTEXT
18 Q
Note: See TracBrowser for help on using the repository browser.