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/XUINP348.m@ 975

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

initial load of WorldVistAEHR

File size: 502 bytes
Line 
1XUINP348 ;ISF/RWF - Patch XU*8*348 POST-INIT ;12/22/2004 09:29
2 ;;8.0;KERNEL;**348**;Jul 10, 1995
3 W !,"Patch XU*8*348 Post install"
4 Q
5 ;
6POST ;
7 N I,X
8 D F2,F3
9 Q
10 ;
11F2 ;Search the Terminal type file
12 S I=0
13 F S I=$O(^%ZIS(2,I)) Q:I'>0 S X=$P($G(^%ZIS(2,I,1)),U,3) I X>65500 D
14 . S $P(^%ZIS(2,I,1),U,3)=65500
15 . Q
16 Q
17 ;
18F3 ;Search the Device file
19 S I=0
20 F S I=$O(^%ZIS(1,I)) Q:I'>0 S X=$G(^%ZIS(1,I,91)) I $L(X) D
21 . S ^%ZIS(1,I,91)=$P(X,U,1)_"^^"_$S($P(X,U,3)>65500:65500,1:$P(X,U,3))
22 . Q
23 Q
Note: See TracBrowser for help on using the repository browser.