SDWLAHR3.m

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

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

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 Q

EN ;ENTRY POINT

 D HD

 S DHD="EWL AD HOC REPORT - VERSION 2"

 S DIC=409.3 D EN^DIS

END K DIC,DHD Q

HD ;

 W:$D(IOF) @IOF W !,?80-$L("Custom AD HOC Report - VERSION 2")\2,"Custom AD HOC Report - VERSION 2",!

 Q

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

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

 +2       ;

 +3       ;

 +4       ;

 +5       ;

 +6       ;

 +7       ;

 +8       ;

 +9       ;

 +10      ;

 +11      ;

 +12      ;

 +13      ;

 +14      ;

 +15      ;

 +16      ;

 +17      ;

 +18      ;

 +19       QUIT 

EN        ;ENTRY POINT

 +1        DO HD

 +2        SET DHD="EWL AD HOC REPORT - VERSION 2"

 +3        SET DIC=409.3

           DO EN^DIS

END        KILL DIC,DHD

           QUIT 

HD        ;

 +1        IF $DATA(IOF)

               WRITE @IOF

           WRITE !,?80-$LENGTH("Custom AD HOC Report - VERSION 2")\2,"Custom AD HOC Report - VERSION 2",!

 +2        QUIT