SDWLAHR3 ;IOFO BAY PINES/TEH - EWL REPORT - REPORT VERSION 3;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 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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDWLAHR3 432 printed Dec 13, 2024@03:02:09 Page 2
SDWLAHR3 ;IOFO BAY PINES/TEH - EWL REPORT - REPORT VERSION 3;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 ;
+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
