Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
502 bytes
|
Rev | Line | |
---|
[628] | 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.