XU8P365.m

XU8P365 ;;BP-OAK/BDT -  CLEAN INVALID "D" X-REF IN FILE 19.1; 9/12/07

 ;;8.0;KERNEL;**365**;JUL 10, 1995;Build 5

 Q

POST ; do post-init

 D KGL,COM,REL

 Q

 ;

KGL ;

 I $D(^DIC(19.1,"D")) K ^DIC(19.1,"D")

 Q

 ;

REL ; reload

 X ^%ZOSF("EON")

 D RELOAD^ZTMGRSET

 X ^%ZOSF("EOFF")

 Q

 ;

COM ; Compile template routine

 N X,Y,DMAX

 S X="XUFILE0"

 S Y=$$FIND1^DIC(.4,"","MX","XUFILEINQ","","","ERR")

 S DMAX=$$ROUSIZE^DILF

 I +Y>0 D EN^DIPZ

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XU8P365   460     printed  Apr 09, 2024@21:15:48                                                                                                                                                                                                      Page 2

XU8P365   ;;BP-OAK/BDT -  CLEAN INVALID "D" X-REF IN FILE 19.1; 9/12/07

 +1       ;;8.0;KERNEL;**365**;JUL 10, 1995;Build 5

 +2        QUIT 

POST      ; do post-init

 +1        DO KGL

           DO COM

           DO REL

 +2        QUIT 

 +3       ;

KGL       ;

 +1        IF $DATA(^DIC(19.1,"D"))

               KILL ^DIC(19.1,"D")

 +2        QUIT 

 +3       ;

REL       ; reload

 +1        XECUTE ^%ZOSF("EON")

 +2        DO RELOAD^ZTMGRSET

 +3        XECUTE ^%ZOSF("EOFF")

 +4        QUIT 

 +5       ;

COM       ; Compile template routine

 +1        NEW X,Y,DMAX

 +2        SET X="XUFILE0"

 +3        SET Y=$$FIND1^DIC(.4,"","MX","XUFILEINQ","","","ERR")

 +4        SET DMAX=$$ROUSIZE^DILF

 +5        IF +Y>0

               DO EN^DIPZ

 +6        QUIT