AVAP10.m

AVAP10 ;IHS/ASDST/GTH - CORRECT GIHS XREF FROM 200 TO 6 ; [ 02/24/1999  1:45 PM ]

 ;;93.2;VA SUPPORT FILES;**10**;JUL 01, 1993;Build 12

 ;

 S U="^"

 W !!!,"This is Patch 10 to AVA 93.2."

 W !!,"A correction will be made to the File 200 dd, Field 9999999.09,"

 W !,"which does not correctly set the GIHS x-ref on File 6."

 W !!,"Then, the x-ref will be fired for all entries in File 200, which"

 W !,"will correctly set the GIHS x-ref on File 6."

 W !!,"Based on your ",$P(^VA(200,0),U,4)," entries in File 200,"

 W !,"this should take about ",$FN($P(^VA(200,0),U,4)/100/60,"",2)," minutes."

 W !!,"Re-running this patch causes no harm."

 W !!

 NEW DIR

 S DIR(0)="YO",DIR("B")="NO"

 S DIR("A")="OKAY to run Patch 10"

 D ^DIR

 KILL DIR

 G:Y'=1 EOJ

 D WAIT^DICD

 ;

UPDATEDD ;

 W !,"Updating dd..."

 NEW DA

 F %=1:1 Q:'$D(^DD(200,9999999.09,1,%))  I $P(^(%,0),"^",2)="ACXIHS09" S DA=% Q

 I '$D(DA) W !,"X-REF 'ACXIHS09' not found in File 200, Field 9999999.09.",!,"Abnormal end of Patch 10!" G EOJ

 ;

 I '(^DD(200,9999999.09,1,DA,1)=$P($T(OLDSET),";",3)) W !,"You don't have the standard SET of the ACXIHS09 x-ref.",!,"Ending Patch 10 without updating." G EOJ

 ;

 I '(^DD(200,9999999.09,1,DA,2)=$P($T(OLDKILL),";",3)) W !,"You don't have the standard KILL of the ACXIHS09 x-ref.",!,"Ending Patch 10 without updating." G EOJ

 ;

 W !,"Updating SET of x-ref 'ACXIHS09'..."

 S ^DD(200,9999999.09,1,DA,1)=$P($T(SET),";",3)

 W "Done updating SET."

 ;

 W !,"Updating KILL of x-ref 'ACXIHS09'..."

 S ^DD(200,9999999.09,1,DA,2)=$P($T(KILL),";",3)

 W "Done updating KILL."

 ;

 S ^DD(200,9999999.09,"DT")=$$DT^XLFDT

 KILL DA

 ;

 W !,"dd update complete."

 ;

XREF ;

 W !!,"Beginning re-index of File 200, Field 9999999.09, x-ref 'ACXIHS09'..."

 NEW DIK

 S DIK="^VA(200,",DIK(1)="9999999.09^ACXIHS09"

 D ENALL^DIK

 KILL DIK

 W !,"Re-index complete."

 ;

 W !!,"Patch 10 to AVA 93.2 is complete.",!

 ;

EOJ ;     

 KILL DIC,DIR,DIE,DA,DR,X,Y

 Q

 ;

SET ;;N % S %=$P(^DIC(3,DA,0),U,16) I %]"" S:'$D(^DIC(6,%,9999999)) ^DIC(6,%,9999999)="" S $P(^(9999999),U,9)=X,^DIC(6,"GIHS",X,%)=""

 ;

KILL ;;N % S %=$P(^DIC(3,DA,0),U,16) I %]"",$D(^DIC(6,%,9999999)) S $P(^(9999999),U,9)="" K ^DIC(6,"GIHS",X,%)

 ;

OLDSET ;;N % S %=$P(^DIC(3,DA,0),U,16) I %]"" S:'$D(^DIC(6,%,9999999)) ^DIC(6,%,9999999)="" S $P(^(9999999),U,9)=X

 ;

OLDKILL ;;N % S %=$P(^DIC(3,DA,0),U,16) I %]"",$D(^DIC(6,%,9999999)) S $P(^(9999999),U,9)=""

 ;

AVAP10    ;IHS/ASDST/GTH - CORRECT GIHS XREF FROM 200 TO 6 ; [ 02/24/1999  1:45 PM ]

 +1       ;;93.2;VA SUPPORT FILES;**10**;JUL 01, 1993;Build 12

 +2       ;

 +3        SET U="^"

 +4        WRITE !!!,"This is Patch 10 to AVA 93.2."

 +5        WRITE !!,"A correction will be made to the File 200 dd, Field 9999999.09,"

 +6        WRITE !,"which does not correctly set the GIHS x-ref on File 6."

 +7        WRITE !!,"Then, the x-ref will be fired for all entries in File 200, which"

 +8        WRITE !,"will correctly set the GIHS x-ref on File 6."

 +9        WRITE !!,"Based on your ",$PIECE(^VA(200,0),U,4)," entries in File 200,"

 +10       WRITE !,"this should take about ",$FNUMBER($PIECE(^VA(200,0),U,4)/100/60,"",2)," minutes."

 +11       WRITE !!,"Re-running this patch causes no harm."

 +12       WRITE !!

 +13       NEW DIR

 +14       SET DIR(0)="YO"

           SET DIR("B")="NO"

 +15       SET DIR("A")="OKAY to run Patch 10"

 +16       DO ^DIR

 +17       KILL DIR

 +18       IF Y'=1

               GOTO EOJ

 +19       DO WAIT^DICD

 +20      ;

UPDATEDD  ;

 +1        WRITE !,"Updating dd..."

 +2        NEW DA

 +3        FOR %=1:1

               IF '$DATA(^DD(200,9999999.09,1,%))

                   QUIT 

               IF $PIECE(^(%,0),"^",2)="ACXIHS09"

                   SET DA=%

                   QUIT 

 +4        IF '$DATA(DA)

               WRITE !,"X-REF 'ACXIHS09' not found in File 200, Field 9999999.09.",!,"Abnormal end of Patch 10!"

               GOTO EOJ

 +5       ;

 +6        IF '(^DD(200,9999999.09,1,DA,1)=$PIECE($TEXT(OLDSET),";",3))

               WRITE !,"You don't have the standard SET of the ACXIHS09 x-ref.",!,"Ending Patch 10 without updating."

               GOTO EOJ

 +7       ;

 +8        IF '(^DD(200,9999999.09,1,DA,2)=$PIECE($TEXT(OLDKILL),";",3))

               WRITE !,"You don't have the standard KILL of the ACXIHS09 x-ref.",!,"Ending Patch 10 without updating."

               GOTO EOJ

 +9       ;

 +10       WRITE !,"Updating SET of x-ref 'ACXIHS09'..."

 +11       SET ^DD(200,9999999.09,1,DA,1)=$PIECE($TEXT(SET),";",3)

 +12       WRITE "Done updating SET."

 +13      ;

 +14       WRITE !,"Updating KILL of x-ref 'ACXIHS09'..."

 +15       SET ^DD(200,9999999.09,1,DA,2)=$PIECE($TEXT(KILL),";",3)

 +16       WRITE "Done updating KILL."

 +17      ;

 +18       SET ^DD(200,9999999.09,"DT")=$$DT^XLFDT

 +19       KILL DA

 +20      ;

 +21       WRITE !,"dd update complete."

 +22      ;

XREF      ;

 +1        WRITE !!,"Beginning re-index of File 200, Field 9999999.09, x-ref 'ACXIHS09'..."

 +2        NEW DIK

 +3        SET DIK="^VA(200,"

           SET DIK(1)="9999999.09^ACXIHS09"

 +4        DO ENALL^DIK

 +5        KILL DIK

 +6        WRITE !,"Re-index complete."

 +7       ;

 +8        WRITE !!,"Patch 10 to AVA 93.2 is complete.",!

 +9       ;

EOJ       ;     

 +1        KILL DIC,DIR,DIE,DA,DR,X,Y

 +2        QUIT 

 +3       ;

SET       ;;N % S %=$P(^DIC(3,DA,0),U,16) I %]"" S:'$D(^DIC(6,%,9999999)) ^DIC(6,%,9999999)="" S $P(^(9999999),U,9)=X,^DIC(6,"GIHS",X,%)=""

 +1       ;

KILL      ;;N % S %=$P(^DIC(3,DA,0),U,16) I %]"",$D(^DIC(6,%,9999999)) S $P(^(9999999),U,9)="" K ^DIC(6,"GIHS",X,%)

 +1       ;

OLDSET    ;;N % S %=$P(^DIC(3,DA,0),U,16) I %]"" S:'$D(^DIC(6,%,9999999)) ^DIC(6,%,9999999)="" S $P(^(9999999),U,9)=X

 +1       ;

OLDKILL   ;;N % S %=$P(^DIC(3,DA,0),U,16) I %]"",$D(^DIC(6,%,9999999)) S $P(^(9999999),U,9)=""

 +1       ;