SDWLTR1.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDWLTR1   964     printed  Dec 13, 2024@03:03:27                                                                                                                                                                                                      Page 2

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

 +1       ;;5.3;scheduling;**446**;AUG 13 1993;Build 77

 +2        QUIT 

FLAGS(SWIEN,SDWLREJN,SDWLSREM,SDWLINTR,SDWL120F,SDWLMULT,SDWLINTE,SDWLIDES) ;

 +1        NEW SDWLARR

 +2        DO GETS^DIQ(409.3,SWIEN,"32;33;34;36;38","I","SDWLARR")

 +3        SET SDWLREJN=SDWLARR(409.3,SWIEN_",",32,"I")

 +4        SET SDWLSREM=SDWLARR(409.3,SWIEN_",",33,"I")

           if SDWLSREM="Y"

               SET SDWLSREM=1

 +5        SET SDWLINTR=SDWLARR(409.3,SWIEN_",",34,"I")

 +6        SET SDWL120F=SDWLARR(409.3,SWIEN_",",36,"I")

 +7        SET SDWLMULT=SDWLARR(409.3,SWIEN_",",38,"I")

           if SDWLMULT=0

               SET SDWLMULT=""

 +8        SET (SDWLINTE,SDWLIDES)=""

 +9        SET SDWLINTE=$$GETTRN^SDWLIFT1(SWIEN,,.SDWLIDES)

           if SDWLINTE=0

               SET SDWLINTE=""

 +10       QUIT 

 +11      ;

MESS(MN)  ;Send msg

 +1        SET MN=MN+1

 +2        NEW XMSUB,XMY,XMTEXT,XMDUZ

 +3        SET XMSUB="EWL FILE TRANSMISSION"_" MESSAGE # "_MN

 +4        SET XMY("G.SD WAIT LIST TRANS TO AAC")=""

 +5        SET XMTEXT="^TMP(""EWL"",$J,"

 +6        SET XMDUZ="POSTMASTER"

 +7        DO ^XMD

           KILL ^TMP("EWL",$JOB)

 +8        QUIT