Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
609 bytes
|
Line | |
---|
1 | SPNMAIL ;SAN/WDE-Mail server rtn for the spn* ;04/01/98@0904
|
---|
2 | ;;2.0;Spinal Cord Dysfunction;**6**;01/02/1997
|
---|
3 | MAIL ;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 ******
|
---|
9 | EN ;
|
---|
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.