ORP351.m

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 ---ORP351   420     printed  Apr 09, 2024@21:41:53                                                                                                                                                                                                       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