Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SCMCPRE

SCMCPRE.m

Go to the documentation of this file.
  1. SCMCPRE ;ALB/REW - PCMM Post-init ; 2 May 1996
  1. ;;5.3;Scheduling;**41**;AUG 13, 1993
  1. EN ;
  1. D MESS("PCMM Pre-init Actions:","!")
  1. D MESS(" ...done")
  1. Q
  1. ;
  1. MESS(TEXT,FORMAT) ;
  1. S TEXT=$G(TEXT,"")
  1. S FORMAT=$G(FORMAT,"!")
  1. D EN^DDIOL(TEXT,"",FORMAT)
  1. Q
  1. KILLFILE(FILE) ;
  1. N DIU
  1. D MESS("Deleting File "_FILE,"!")
  1. S DIU(0)="D"
  1. S DIU=FILE
  1. D EN^DIU2
  1. Q
  1. ;