Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
502 bytes
|
Line | |
---|
1 | XUINP348 ;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 | ;
|
---|
6 | POST ;
|
---|
7 | N I,X
|
---|
8 | D F2,F3
|
---|
9 | Q
|
---|
10 | ;
|
---|
11 | F2 ;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 | ;
|
---|
18 | F3 ;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.