ORP351 ;BP/SMT Post init OR*3*351 ;7/06/11 11:09
;;3.0;ORDER ENTRY/RESULTS REPORTING;**351**;Jul 06, 2011;Build 4
;
; This routine will clear the CL x-ref and rebuild it.
;
Q
EN ;
N DIK
I $D(^ORAM(103,"CL")) D ;Lets check that values in the X-ref exist before rebuilding.
. S DIK="^ORAM(103,",DIK(1)="101^CL"
. D ENALL2^DIK ;Kill CL X-ref to clean up danglers
. D ENALL^DIK ;Rebuild CL X-ref.
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORP351 420 printed Oct 16, 2024@18:32:58 Page 2
ORP351 ;BP/SMT Post init OR*3*351 ;7/06/11 11:09
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**351**;Jul 06, 2011;Build 4
+2 ;
+3 ; This routine will clear the CL x-ref and rebuild it.
+4 ;
+5 QUIT
EN ;
+1 NEW DIK
+2 ;Lets check that values in the X-ref exist before rebuilding.
IF $DATA(^ORAM(103,"CL"))
Begin DoDot:1
+3 SET DIK="^ORAM(103,"
SET DIK(1)="101^CL"
+4 ;Kill CL X-ref to clean up danglers
DO ENALL2^DIK
+5 ;Rebuild CL X-ref.
DO ENALL^DIK
End DoDot:1
+6 QUIT
