source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SC53286P.m@ 703

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

initial load of WorldVistAEHR

File size: 265 bytes
RevLine 
[613]1SC53286P ;BP/JS,DR - PCMM RESEED SD*5.3*286 3/12/03
2 ;;5.3;Scheduling;**286**;AUG 13, 1993
3 ;
4 IF '$D(^SCTM(404.44,1,1)) W !,"RESEED DID NOT RUN PLEASE CALL NATIONAL HELPDESK."
5 IF $D(^SCTM(404.44,1,1)) D
6 .S $P(^SCTM(404.44,1,1),"^",7)=""
7 ;.D EN^SCMCCV6(0,0)
8 Q
Note: See TracBrowser for help on using the repository browser.