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 ---[H[J[2J[HXU8P365 460 printed Nov 22, 2024@17:17:28 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
