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