|
Last change
on this file since 703 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.
