SC53286P.m

SC53286P ;BP/JS,DR - PCMM RESEED  SD*5.3*286 3/12/03

 ;;5.3;Scheduling;**286,1015**;AUG 13, 1993;Build 21

 ;

 IF '$D(^SCTM(404.44,1,1)) W !,"RESEED DID NOT RUN PLEASE CALL NATIONAL HELPDESK."

 IF $D(^SCTM(404.44,1,1)) D

 .S $P(^SCTM(404.44,1,1),"^",7)=""

 ;.D EN^SCMCCV6(0,0)

 Q

SC53286P  ;BP/JS,DR - PCMM RESEED  SD*5.3*286 3/12/03

 +1       ;;5.3;Scheduling;**286,1015**;AUG 13, 1993;Build 21

 +2       ;

 +3        IF '$DATA(^SCTM(404.44,1,1))

               WRITE !,"RESEED DID NOT RUN PLEASE CALL NATIONAL HELPDESK."

 +4        IF $DATA(^SCTM(404.44,1,1))

               Begin DoDot:1

 +5                SET $PIECE(^SCTM(404.44,1,1),"^",7)=""

               End DoDot:1

 +6       ;.D EN^SCMCCV6(0,0)

 +7        QUIT