| [613] | 1 | XUINPCH3 ;SFISC/RWF - KERNEL PATCH POST-INIT'S ;10/17/2000 11:46
|
|---|
| 2 | ;;8.0;KERNEL;**115,176**;Feb 22, 1999
|
|---|
| 3 | W !,"NO ENTRY FROM TOP" Q
|
|---|
| 4 | ;
|
|---|
| 5 | POST115 ;Build new X-ref in file 200.
|
|---|
| 6 | N DA,DIK,DIC,DR,DIE
|
|---|
| 7 | S DA=1,DIE="^XTV(8989.3,",DR="230///180" D ^DIE
|
|---|
| 8 | F DA(1)=0:0 S DA(1)=$O(^VA(200,DA(1))) Q:DA(1)'>0 I $D(^VA(200,DA(1),2)) S DIK="^VA(200,"_DA(1)_",2,",DIK(1)=.01 D ENALL^DIK
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | POST176 ;Rebuild the X-ref of the fields that patch XU*8*176 is fixing.
|
|---|
| 12 | N DA,DIK,DIC,DIE,DR
|
|---|
| 13 | K ^VA(200,"APS1") ;Delete any old entries
|
|---|
| 14 | S DIK="^VA(200,",DIK(1)=53.2 D ENALL^DIK ;Rebuild PS1, DEA#
|
|---|
| 15 | K ^VA(200,"APS2") ;Delete any old entries
|
|---|
| 16 | S DIK="^VA(200,",DIK(1)=53.3 D ENALL^DIK ;Rebuild PS2, VA#
|
|---|
| 17 | ;Remove extra fields sent out.
|
|---|
| 18 | ;Remove experamental fields.
|
|---|
| 19 | F DA=10.2,10.3,10.4,10.5 S DA(1)=200,DIK="^DD(200," D ^DIK
|
|---|
| 20 | ;Remove the OE/RR field removed by OR v3.
|
|---|
| 21 | F XDA=11,12,13,14,15,16,17,18,19,21,22,23,24,25,26,27 S DA="100."_XDA,DA(1)=200,DIK="^DD(200," D ^DIK
|
|---|
| 22 | Q
|
|---|
