25 lines
940 B
Mathematica
25 lines
940 B
Mathematica
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
|
|
;;5.3;scheduling;**446**;AUG 13 1993;Build 77
|
|
Q
|
|
FLAGS(SWIEN,SDWLREJN,SDWLSREM,SDWLINTR,SDWL120F,SDWLMULT,SDWLINTE,SDWLIDES) ;
|
|
N SDWLARR
|
|
D GETS^DIQ(409.3,SWIEN,"32;33;34;36;38","I","SDWLARR")
|
|
S SDWLREJN=SDWLARR(409.3,SWIEN_",",32,"I")
|
|
S SDWLSREM=SDWLARR(409.3,SWIEN_",",33,"I") S:SDWLSREM="Y" SDWLSREM=1
|
|
S SDWLINTR=SDWLARR(409.3,SWIEN_",",34,"I")
|
|
S SDWL120F=SDWLARR(409.3,SWIEN_",",36,"I")
|
|
S SDWLMULT=SDWLARR(409.3,SWIEN_",",38,"I") S:SDWLMULT=0 SDWLMULT=""
|
|
S (SDWLINTE,SDWLIDES)=""
|
|
S SDWLINTE=$$GETTRN^SDWLIFT1(SWIEN,,.SDWLIDES) S:SDWLINTE=0 SDWLINTE=""
|
|
Q
|
|
;
|
|
MESS(MN) ;Send msg
|
|
S MN=MN+1
|
|
N XMSUB,XMY,XMTEXT,XMDUZ
|
|
S XMSUB="EWL FILE TRANSMISSION"_" MESSAGE # "_MN
|
|
S XMY("G.SD WAIT LIST TRANS TO AAC")=""
|
|
S XMTEXT="^TMP(""EWL"",$J,"
|
|
S XMDUZ="POSTMASTER"
|
|
D ^XMD K ^TMP("EWL",$J)
|
|
Q
|