- 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 Jan 18, 2025@04:03:19 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