SDWLAHR2.m

SDWLAHR2 ;;IOFO BAY PINES/TEH - EWL REPORT - REPORT VERSION 2;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 1"

 S DIC=409.3 D EN1^DIP

END K DIC,DHD Q

HD ;

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

 Q

SDWLAHR2  ;;IOFO BAY PINES/TEH - EWL REPORT - REPORT VERSION 2;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       QUIT 

EN        ;ENTRY POINT

 +1        DO HD

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

 +3        SET DIC=409.3

           DO EN1^DIP

END        KILL DIC,DHD

           QUIT 

HD        ;

 +1        IF $DATA(IOF)

               WRITE @IOF

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

 +2        QUIT