PSBIHS5.m

PSBIHS5 ;;KF/VAOIT  PSB BCMA BCBU PRINT

 ;;1.0;PSB BCMA CPS FOXK;**1018**;;Build 27

 N ALPBDAYS,ALPBMLOG,ALPBOTYP

 D NOW^%DTC

 S ALPBDAYS=7,ALPBMLOG=3,ALPBOTYP="A"

 S CPSFILE="BCMA_BACKUPS.TXT"

 S CPSDIR=$$DEFDIR^%ZISH()_"BCMAMEDBACK\"

 D OPEN^%ZISH("HFS",CPSDIR,CPSFILE,"W")

 U IO D DQ^ALPBPALL ;PRINT ALL MARS

 D CLOSE^%ZISH("HFS")

STOP ;

 K %,CPSDIR,CPSFILE

 Q

PSBIHS5   ;;KF/VAOIT  PSB BCMA BCBU PRINT

 +1       ;;1.0;PSB BCMA CPS FOXK;**1018**;;Build 27

 +2        NEW ALPBDAYS,ALPBMLOG,ALPBOTYP

 +3        DO NOW^%DTC

 +4        SET ALPBDAYS=7

           SET ALPBMLOG=3

           SET ALPBOTYP="A"

 +5        SET CPSFILE="BCMA_BACKUPS.TXT"

 +6        SET CPSDIR=$$DEFDIR^%ZISH()_"BCMAMEDBACK\"

 +7        DO OPEN^%ZISH("HFS",CPSDIR,CPSFILE,"W")

 +8       ;PRINT ALL MARS

           USE IO

           DO DQ^ALPBPALL

 +9        DO CLOSE^%ZISH("HFS")

STOP      ;

 +1        KILL %,CPSDIR,CPSFILE

 +2        QUIT