| 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.
