- 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 Apr 23, 2025@18:21:50 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
