XUINPCH3.m

XUINPCH3 ;SFISC/RWF - KERNEL PATCH POST-INIT'S ;10/17/2000  11:46 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1007**;APR 1, 2003

 ;;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

XUINPCH3  ;SFISC/RWF - KERNEL PATCH POST-INIT'S ;10/17/2000  11:46 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;**115,176**;Feb 22, 1999

 +3        WRITE !,"NO ENTRY FROM TOP"

           QUIT 

 +4       ;

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