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 ---[H[J[2J[HSD53143P 371 printed Dec 13, 2024@02:44:57 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
