Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDWLTR1

SDWLTR1.m

Go to the documentation of this file.
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