SCMCPRE.m

SCMCPRE ;ALB/REW - PCMM Post-init ; 2 May 1996

 ;;5.3;Scheduling;**41,1015**;AUG 13, 1993;Build 21

EN ;

 D MESS("PCMM Pre-init Actions:","!")

 D MESS("  ...done")

 Q

 ;

MESS(TEXT,FORMAT) ;

 S TEXT=$G(TEXT,"")

 S FORMAT=$G(FORMAT,"!")

 D EN^DDIOL(TEXT,"",FORMAT)

 Q

KILLFILE(FILE) ;

 N DIU

 D MESS("Deleting File "_FILE,"!")

 S DIU(0)="D"

 S DIU=FILE

 D EN^DIU2

 Q

 ;

SCMCPRE   ;ALB/REW - PCMM Post-init ; 2 May 1996

 +1       ;;5.3;Scheduling;**41,1015**;AUG 13, 1993;Build 21

EN        ;

 +1        DO MESS("PCMM Pre-init Actions:","!")

 +2        DO MESS("  ...done")

 +3        QUIT 

 +4       ;

MESS(TEXT,FORMAT) ;

 +1        SET TEXT=$GET(TEXT,"")

 +2        SET FORMAT=$GET(FORMAT,"!")

 +3        DO EN^DDIOL(TEXT,"",FORMAT)

 +4        QUIT 

KILLFILE(FILE) ;

 +1        NEW DIU

 +2        DO MESS("Deleting File "_FILE,"!")

 +3        SET DIU(0)="D"

 +4        SET DIU=FILE

 +5        DO EN^DIU2

 +6        QUIT 

 +7       ;