SD53143P.m

SD53143P ;ALB/JLU;Post init for SD*5.3*143;2/10/98

 ;;5.3;Scheduling;**143**;AUG 13,1993

 ;

EN ;main entry point.

 ;This is to reindex the 'C' x ref that sites have killed off because of

 ;the A020 problems.

 ;

 W !!,"Re-indexing the 'C' cross reference in the Clinic Stop file."

 N DIK

 S DIK="^DIC(40.7,"

 S DIK(1)="1^C"

 D ENALL^DIK

 W !,"Completed."

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SD53143P   371     printed  Apr 09, 2024@22:00:48                                                                                                                                                                                                     Page 2

SD53143P  ;ALB/JLU;Post init for SD*5.3*143;2/10/98

 +1       ;;5.3;Scheduling;**143**;AUG 13,1993

 +2       ;

EN        ;main entry point.

 +1       ;This is to reindex the 'C' x ref that sites have killed off because of

 +2       ;the A020 problems.

 +3       ;

 +4        WRITE !!,"Re-indexing the 'C' cross reference in the Clinic Stop file."

 +5        NEW DIK

 +6        SET DIK="^DIC(40.7,"

 +7        SET DIK(1)="1^C"

 +8        DO ENALL^DIK

 +9        WRITE !,"Completed."

 +10       QUIT