DIPS94.m

DIPS94 ;SFOIFO/MKO-Recompile forms affected changed by XU*8*214 ;10:33 AM  19 Nov 2001

 ;;22.0;VA FileMan;**94**;Mar 30, 1999;Build 1

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 ;

RECOMP ;

 N DIPSFORM

 S DIPSFORM=$O(^DIST(.403,"B","XUEXISTING USER",0)) Q:'DIPSFORM

 D ENGRP^DDSZ(DIPSFORM)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DIPS94   326     printed  Dec 13, 2024@02:53:25                                                                                                                                                                                                       Page 2

DIPS94    ;SFOIFO/MKO-Recompile forms affected changed by XU*8*214 ;10:33 AM  19 Nov 2001

 +1       ;;22.0;VA FileMan;**94**;Mar 30, 1999;Build 1

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

RECOMP    ;

 +1        NEW DIPSFORM

 +2        SET DIPSFORM=$ORDER(^DIST(.403,"B","XUEXISTING USER",0))

           if 'DIPSFORM

               QUIT 

 +3        DO ENGRP^DDSZ(DIPSFORM)

 +4        QUIT