source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDWLTR1.m@ 648

Last change on this file since 648 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 940 bytes
Line 
1SDWLTR1 ;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
4FLAGS(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 ;
16MESS(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
Note: See TracBrowser for help on using the repository browser.