| [613] | 1 | SDWLTR1 ;IOFO BAY PINES/DMR - WAIT LIST TRANSMISSION TO ACC - overflow for sacc 10k ; 29 Aug 2002 2:54 PM ; Compiled April 13, 2007 10:44:43
|
|---|
| 2 | ;;5.3;scheduling;**446**;AUG 13 1993;Build 77
|
|---|
| 3 | Q
|
|---|
| 4 | FLAGS(SWIEN,SDWLREJN,SDWLSREM,SDWLINTR,SDWL120F,SDWLMULT,SDWLINTE,SDWLIDES) ;
|
|---|
| 5 | N SDWLARR
|
|---|
| 6 | D GETS^DIQ(409.3,SWIEN,"32;33;34;36;38","I","SDWLARR")
|
|---|
| 7 | S SDWLREJN=SDWLARR(409.3,SWIEN_",",32,"I")
|
|---|
| 8 | S SDWLSREM=SDWLARR(409.3,SWIEN_",",33,"I") S:SDWLSREM="Y" SDWLSREM=1
|
|---|
| 9 | S SDWLINTR=SDWLARR(409.3,SWIEN_",",34,"I")
|
|---|
| 10 | S SDWL120F=SDWLARR(409.3,SWIEN_",",36,"I")
|
|---|
| 11 | S SDWLMULT=SDWLARR(409.3,SWIEN_",",38,"I") S:SDWLMULT=0 SDWLMULT=""
|
|---|
| 12 | S (SDWLINTE,SDWLIDES)=""
|
|---|
| 13 | S SDWLINTE=$$GETTRN^SDWLIFT1(SWIEN,,.SDWLIDES) S:SDWLINTE=0 SDWLINTE=""
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | MESS(MN) ;Send msg
|
|---|
| 17 | S MN=MN+1
|
|---|
| 18 | N XMSUB,XMY,XMTEXT,XMDUZ
|
|---|
| 19 | S XMSUB="EWL FILE TRANSMISSION"_" MESSAGE # "_MN
|
|---|
| 20 | S XMY("G.SD WAIT LIST TRANS TO AAC")=""
|
|---|
| 21 | S XMTEXT="^TMP(""EWL"",$J,"
|
|---|
| 22 | S XMDUZ="POSTMASTER"
|
|---|
| 23 | D ^XMD K ^TMP("EWL",$J)
|
|---|
| 24 | Q
|
|---|
