SDWLFULP.m

SDWLFULP ;;IOFO BAY PINES/TEH - EWL REPORT - REPORT VERSION 2;06/12/2002 ; 20 Aug 2002 2:10 PM

 ;;5.3;scheduling;**525,1015**;AUG 13 1993;Build 21

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 Q

EN ;ENTRY POINT

 D HD

 I '$D(^XTMP("SDWLFULSTAT",$J,3)) W !,"You need to run OPTION 3 before a report can be produced." Q

 S DHD="EWL ENROLLEE STATUS CLEAN-UP REPORT"

 S DIC=409.39 D EN1^DIP

 S ^XTMP("SDWLFULSTAT",$J,4)=""

END K DIC,DHD Q

HD ;

 W:$D(IOF) @IOF W !,?80-$L("EWL Enrollee Clean-up Report")\2,"EWL Enrollee Clean-up Report",!

 Q

SDWLFULP  ;;IOFO BAY PINES/TEH - EWL REPORT - REPORT VERSION 2;06/12/2002 ; 20 Aug 2002 2:10 PM

 +1       ;;5.3;scheduling;**525,1015**;AUG 13 1993;Build 21

 +2       ;

 +3       ;

 +4       ;

 +5       ;

 +6       ;

 +7       ;

 +8       ;

 +9       ;

 +10      ;

 +11      ;

 +12      ;

 +13      ;

 +14      ;

 +15       QUIT 

EN        ;ENTRY POINT

 +1        DO HD

 +2        IF '$DATA(^XTMP("SDWLFULSTAT",$JOB,3))

               WRITE !,"You need to run OPTION 3 before a report can be produced."

               QUIT 

 +3        SET DHD="EWL ENROLLEE STATUS CLEAN-UP REPORT"

 +4        SET DIC=409.39

           DO EN1^DIP

 +5        SET ^XTMP("SDWLFULSTAT",$JOB,4)=""

END        KILL DIC,DHD

           QUIT 

HD        ;

 +1        IF $DATA(IOF)

               WRITE @IOF

           WRITE !,?80-$LENGTH("EWL Enrollee Clean-up Report")\2,"EWL Enrollee Clean-up Report",!

 +2        QUIT