Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
609 bytes
|
Rev | Line | |
---|
[613] | 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.