AUPTFX.m

%AUPTFX ;BRJ/IHS OHPD DRIVER TO SWAP FILEMAN GLOBAL DFN VALUES [ 03/26/87  12:01 PM ]

EN ;

 D KILLS

 S AUPTPGM="<"_$T(+0)_">",(AUPTQUIT,AUPTDSPY)=0,U="^" S:'$D(DTIME) DTIME=300

 W !,AUPTPGM,?11,"Begin " D ^%D W "  " D ^%T

 W !!,AUPTPGM,?11,"I have some work to do before we get started.",!,?11,"SO PLEASE DON'T LEAVE!!"

 ;D ^%AUFIXPT

 W !!,AUPTPGM,?11,"That's over.  Now we can get started."

 D EN^AUPTFXT

FIX D EN^AUPTFXS:'AUPTQUIT

 W !!,AUPTPGM,?11,"Done!! " D ^%D W "  " D ^%T

 ;D KILLS

 Q

KILLS ;KILLS MY VARIABLES

 K U,X,L

 K AUPTFILE,AUPTY,AUPTANS,AUPTPGM,AUPTQUIT,AUPTHIT,AUPTSKIP,AUPTPFL,AUPTPFD,AUPTPSFL,AUPTPSFD,AUPTEC,AUPTI,AUPTDACT,AUPTPSNM,AUPTPGL,AUPTL,AUPTPO

 K AUPTDACT,AUPTDA,AUPTDAL,AUPTO,AUPTSOLD,AUPTSNEW,AUPTOLDX,AUPTOLDV,AUPTNEWX,AUPTUFLE,AUPTUGR,AUPTGNDE,AUPTI1,AUPTDSPY,AUPTP,AUPTO,AUPTXI1

 K ^AUPTFXD,^AUPTSTCK,AUPTFSTK,AUPTXGNW,AUPTXGFM,AUPTXGTO,AUPTXGLL,AUPTXGNT,AUPTXGTF,AUPTXGNF,AUPTXGYY,AUPTXGXX,AUPTXGWK,AUPTXGWV,AUPTXGGN,AUPTXGNE,AUPTXGEN,AUPTXGII

 Q

%AUPTFX   ;BRJ/IHS OHPD DRIVER TO SWAP FILEMAN GLOBAL DFN VALUES [ 03/26/87  12:01 PM ]

EN        ;

 +1        DO KILLS

 +2        SET AUPTPGM="<"_$TEXT(+0)_">"

           SET (AUPTQUIT,AUPTDSPY)=0

           SET U="^"

           IF '$DATA(DTIME)

               SET DTIME=300

 +3        WRITE !,AUPTPGM,?11,"Begin "

           DO ^%D

           WRITE "  "

           DO ^%T

 +4        WRITE !!,AUPTPGM,?11,"I have some work to do before we get started.",!,?11,"SO PLEASE DON'T LEAVE!!"

 +5       ;D ^%AUFIXPT

 +6        WRITE !!,AUPTPGM,?11,"That's over.  Now we can get started."

 +7        DO EN^AUPTFXT

FIX        IF 'AUPTQUIT

               DO EN^AUPTFXS

 +1        WRITE !!,AUPTPGM,?11,"Done!! "

           DO ^%D

           WRITE "  "

           DO ^%T

 +2       ;D KILLS

 +3        QUIT 

KILLS     ;KILLS MY VARIABLES

 +1        KILL U,X,L

 +2        KILL AUPTFILE,AUPTY,AUPTANS,AUPTPGM,AUPTQUIT,AUPTHIT,AUPTSKIP,AUPTPFL,AUPTPFD,AUPTPSFL,AUPTPSFD,AUPTEC,AUPTI,AUPTDACT,AUPTPSNM,AUPTPGL,AUPTL,AUPTPO

 +3        KILL AUPTDACT,AUPTDA,AUPTDAL,AUPTO,AUPTSOLD,AUPTSNEW,AUPTOLDX,AUPTOLDV,AUPTNEWX,AUPTUFLE,AUPTUGR,AUPTGNDE,AUPTI1,AUPTDSPY,AUPTP,AUPTO,AUPTXI1

 +4        KILL ^AUPTFXD,^AUPTSTCK,AUPTFSTK,AUPTXGNW,AUPTXGFM,AUPTXGTO,AUPTXGLL,AUPTXGNT,AUPTXGTF,AUPTXGNF,AUPTXGYY,AUPTXGXX,AUPTXGWK,AUPTXGWV,AUPTXGGN,AUPTXGNE,AUPTXGEN,AUPTXGII

 +5        QUIT