Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDWLFULP

SDWLFULP.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. Q
  1. EN ;ENTRY POINT
  1. D HD
  1. I '$D(^XTMP("SDWLFULSTAT",$J,3)) W !,"You need to run OPTION 3 before a report can be produced." Q
  1. S DHD="EWL ENROLLEE STATUS CLEAN-UP REPORT"
  1. S DIC=409.39 D EN1^DIP
  1. S ^XTMP("SDWLFULSTAT",$J,4)=""
  1. END K DIC,DHD Q
  1. HD ;
  1. W:$D(IOF) @IOF W !,?80-$L("EWL Enrollee Clean-up Report")\2,"EWL Enrollee Clean-up Report",!
  1. Q