SCMCPRE.m

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

 ;;5.3;Scheduling;**41**;AUG 13, 1993

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

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SCMCPRE   373     printed  Dec 13, 2024@02:41:10                                                                                                                                                                                                      Page 2

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

 +1       ;;5.3;Scheduling;**41**;AUG 13, 1993

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       ;