source: FOIAVistA/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUINPCH3.m@ 811

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

initial load of FOIAVistA 6/30/08 version

File size: 947 bytes
Line 
1XUINPCH3 ;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 ;
5POST115 ;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 ;
11POST176 ;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
Note: See TracBrowser for help on using the repository browser.