SDWLFULP ;;IOFO BAY PINES/TEH - EWL REPORT - REPORT VERSION 2;06/12/2002 ; 20 Aug 2002 2:10 PM
;;5.3;scheduling;**525**;AUG 13 1993;Build 47
;
;
;
;
;
;
;
;
;
;
;
;
;
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDWLFULP 551 printed Dec 13, 2024@03:02:41 Page 2
SDWLFULP ;;IOFO BAY PINES/TEH - EWL REPORT - REPORT VERSION 2;06/12/2002 ; 20 Aug 2002 2:10 PM
+1 ;;5.3;scheduling;**525**;AUG 13 1993;Build 47
+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
