ACHSARC1.m

ACHSARC1 ; IHS/ITSC/PMF - GENERIC BACKUP/ARCHIVE UTILITY ;  [ 10/16/2001   8:16 AM ]

 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 ;

ENDX ;EP

 I $D(ACHSZDEV) S IO=ACHSZDEV,IONOFF="" D ^%ZISC

 K ACHSDEDT,ACHSDSAV,ACHSFCNT,DIR,X,Y,Z,ACHSI,ACHSLDAT,ACHSR,ACHSRR,ACHSX,ACHSXSAV,ACHSY,ACHSYY,ACHSZ,ACHSCMD,ACHSZOPT

 Q

 ;

ABEND ;EP

 Q

 ;

JCANCEL ;EP

 U IO(0)

 W *7,!!,ACHSEMSG,!

 I $$DIR^XBDIR("E","ENTER <RETURN> TO EXIT")

 G ENDX

 ;

ACHSARC1  ; IHS/ITSC/PMF - GENERIC BACKUP/ARCHIVE UTILITY ;  [ 10/16/2001   8:16 AM ]

 +1       ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 +2       ;

ENDX      ;EP

 +1        IF $DATA(ACHSZDEV)

               SET IO=ACHSZDEV

               SET IONOFF=""

               DO ^%ZISC

 +2        KILL ACHSDEDT,ACHSDSAV,ACHSFCNT,DIR,X,Y,Z,ACHSI,ACHSLDAT,ACHSR,ACHSRR,ACHSX,ACHSXSAV,ACHSY,ACHSYY,ACHSZ,ACHSCMD,ACHSZOPT

 +3        QUIT 

 +4       ;

ABEND     ;EP

 +1        QUIT 

 +2       ;

JCANCEL   ;EP

 +1        USE IO(0)

 +2        WRITE *7,!!,ACHSEMSG,!

 +3        IF $$DIR^XBDIR("E","ENTER <RETURN> TO EXIT")

 +4        GOTO ENDX

 +5       ;