source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDWLFULP.m@ 623

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

initial load of WorldVistAEHR

File size: 525 bytes
RevLine 
[613]1SDWLFULP ;;IOFO BAY PINES/TEH - EWL REPORT - REPORT VERSION 2;06/12/2002 ; 20 Aug 2002 2:10 PM
2 ;;5.3;scheduling;**525**;AUG 13 1993;Build 47
3 ;
4 ;
5 ;
6 ;
7 ;
8 ;
9 ;
10 ;
11 ;
12 ;
13 ;
14 ;
15 ;
16 Q
17EN ;ENTRY POINT
18 D HD
19 I '$D(^XTMP("SDWLFULSTAT",$J,3)) W !,"You need to run OPTION 3 before a report can be produced." Q
20 S DHD="EWL ENROLLEE STATUS CLEAN-UP REPORT"
21 S DIC=409.39 D EN1^DIP
22 S ^XTMP("SDWLFULSTAT",$J,4)=""
23END K DIC,DHD Q
24HD ;
25 W:$D(IOF) @IOF W !,?80-$L("EWL Enrollee Clean-up Report")\2,"EWL Enrollee Clean-up Report",!
26 Q
Note: See TracBrowser for help on using the repository browser.