Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: SC53286P

SC53286P.m

Go to the documentation of this file.

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)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSC53286P   273     printed  Nov 22, 2024@17:47:38                                                                                                                                                                                                     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