- 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 Feb 19, 2025@00:29:11 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