source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XU8P365.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 436 bytes
Line 
1XU8P365 ;;BP-OAK/BDT - CLEAN INVALID "D" X-REF IN FILE 19.1; 9/12/07
2 ;;8.0;KERNEL;**365**;JUL 10, 1995;Build 5
3 Q
4POST ; do post-init
5 D KGL,COM,REL
6 Q
7 ;
8KGL ;
9 I $D(^DIC(19.1,"D")) K ^DIC(19.1,"D")
10 Q
11 ;
12REL ; reload
13 X ^%ZOSF("EON")
14 D RELOAD^ZTMGRSET
15 X ^%ZOSF("EOFF")
16 Q
17 ;
18COM ; Compile template routine
19 N X,Y,DMAX
20 S X="XUFILE0"
21 S Y=$$FIND1^DIC(.4,"","MX","XUFILEINQ","","","ERR")
22 S DMAX=$$ROUSIZE^DILF
23 I +Y>0 D EN^DIPZ
24 Q
Note: See TracBrowser for help on using the repository browser.