- 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 ---[H[J[2J[HSCMCPRE 373 printed Jan 18, 2025@03:42:18 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 ;