source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SCMCPRE.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 353 bytes
Line 
1SCMCPRE ;ALB/REW - PCMM Post-init ; 2 May 1996
2 ;;5.3;Scheduling;**41**;AUG 13, 1993
3EN ;
4 D MESS("PCMM Pre-init Actions:","!")
5 D MESS(" ...done")
6 Q
7 ;
8MESS(TEXT,FORMAT) ;
9 S TEXT=$G(TEXT,"")
10 S FORMAT=$G(FORMAT,"!")
11 D EN^DDIOL(TEXT,"",FORMAT)
12 Q
13KILLFILE(FILE) ;
14 N DIU
15 D MESS("Deleting File "_FILE,"!")
16 S DIU(0)="D"
17 S DIU=FILE
18 D EN^DIU2
19 Q
20 ;
Note: See TracBrowser for help on using the repository browser.