XUINPCH3 ;SFISC/RWF - KERNEL PATCH POST-INIT'S ;10/17/2000 11:46
;;8.0;KERNEL;**115,176**;Feb 22, 1999
W !,"NO ENTRY FROM TOP" Q
;
POST115 ;Build new X-ref in file 200.
N DA,DIK,DIC,DR,DIE
S DA=1,DIE="^XTV(8989.3,",DR="230///180" D ^DIE
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
Q
;
POST176 ;Rebuild the X-ref of the fields that patch XU*8*176 is fixing.
N DA,DIK,DIC,DIE,DR
K ^VA(200,"APS1") ;Delete any old entries
S DIK="^VA(200,",DIK(1)=53.2 D ENALL^DIK ;Rebuild PS1, DEA#
K ^VA(200,"APS2") ;Delete any old entries
S DIK="^VA(200,",DIK(1)=53.3 D ENALL^DIK ;Rebuild PS2, VA#
;Remove extra fields sent out.
;Remove experamental fields.
F DA=10.2,10.3,10.4,10.5 S DA(1)=200,DIK="^DD(200," D ^DIK
;Remove the OE/RR field removed by OR v3.
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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUINPCH3 969 printed Dec 13, 2024@02:09:49 Page 2
XUINPCH3 ;SFISC/RWF - KERNEL PATCH POST-INIT'S ;10/17/2000 11:46
+1 ;;8.0;KERNEL;**115,176**;Feb 22, 1999
+2 WRITE !,"NO ENTRY FROM TOP"
QUIT
+3 ;
POST115 ;Build new X-ref in file 200.
+1 NEW DA,DIK,DIC,DR,DIE
+2 SET DA=1
SET DIE="^XTV(8989.3,"
SET DR="230///180"
DO ^DIE
+3 FOR DA(1)=0:0
SET DA(1)=$ORDER(^VA(200,DA(1)))
if DA(1)'>0
QUIT
IF $DATA(^VA(200,DA(1),2))
SET DIK="^VA(200,"_DA(1)_",2,"
SET DIK(1)=.01
DO ENALL^DIK
+4 QUIT
+5 ;
POST176 ;Rebuild the X-ref of the fields that patch XU*8*176 is fixing.
+1 NEW DA,DIK,DIC,DIE,DR
+2 ;Delete any old entries
KILL ^VA(200,"APS1")
+3 ;Rebuild PS1, DEA#
SET DIK="^VA(200,"
SET DIK(1)=53.2
DO ENALL^DIK
+4 ;Delete any old entries
KILL ^VA(200,"APS2")
+5 ;Rebuild PS2, VA#
SET DIK="^VA(200,"
SET DIK(1)=53.3
DO ENALL^DIK
+6 ;Remove extra fields sent out.
+7 ;Remove experamental fields.
+8 FOR DA=10.2,10.3,10.4,10.5
SET DA(1)=200
SET DIK="^DD(200,"
DO ^DIK
+9 ;Remove the OE/RR field removed by OR v3.
+10 FOR XDA=11,12,13,14,15,16,17,18,19,21,22,23,24,25,26,27
SET DA="100."_XDA
SET DA(1)=200
SET DIK="^DD(200,"
DO ^DIK
+11 QUIT
