SC53286P ;BP/JS,DR - PCMM RESEED SD*5.3*286 3/12/03
;;5.3;Scheduling;**286**;AUG 13, 1993
;
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSC53286P 273 printed Dec 13, 2024@02:37:40 Page 2
SC53286P ;BP/JS,DR - PCMM RESEED SD*5.3*286 3/12/03
+1 ;;5.3;Scheduling;**286**;AUG 13, 1993
+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