Routine: VPRP8I

VPRP8I ;SLC/MKB -- VPR patch 8 pre install ;10/14/18  11:22

 ;;1.0;VIRTUAL PATIENT RECORD;**8**;Sep 01, 2011;Build 87

 ;;Per VA Directive 6402, this routine should not be modified.

 ; External References          DBIA#

 ; -------------------          -----

 ; VASITE                       10112

PRE ; -- pre init

POST ; -- post init

 D 560,SDA

 D EN^VPRIDX

560 ;set up Subscription file

 I $P($G(^VPR(1,0)),U)="" D

 . N SITE S SITE=$P($$SITE^VASITE,U,2)

 . S:SITE="" SITE="VISTA"

 . S $P(^VPR(1,0),U)=SITE,^VPR("B",SITE,1)=""

 . S $P(^VPR(0),U,3,4)="1^1"

SDA ;rebuild SDA index

 N X,Y,DA,DIK

 K ^DDE("SDA")

 S DIK="^DDE(",DIK(1)=".06^SDA"

 D ENALL^DIK

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVPRP8I   709     printed  Apr 09, 2024@21:46:42                                                                                                                                                                                                       Page 2

VPRP8I    ;SLC/MKB -- VPR patch 8 pre install ;10/14/18  11:22

 +1       ;;1.0;VIRTUAL PATIENT RECORD;**8**;Sep 01, 2011;Build 87

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4       ; External References          DBIA#

 +5       ; -------------------          -----

 +6       ; VASITE                       10112

 +7       ;

PRE       ; -- pre init

 +1        QUIT

 +2       ;

POST      ; -- post init

 +1        DO 560

           DO SDA

 +2        DO EN^VPRIDX

 +3        QUIT

 +4       ;

560       ;set up Subscription file

 +1        IF $PIECE($GET(^VPR(1,0)),U)=""

               Begin DoDot:1

 +2                NEW SITE

                   SET SITE=$PIECE($$SITE^VASITE,U,2)

 +3                if SITE=""

                       SET SITE="VISTA"

 +4                SET $PIECE(^VPR(1,0),U)=SITE

                   SET ^VPR("B",SITE,1)=""

 +5                SET $PIECE(^VPR(0),U,3,4)="1^1"

               End DoDot:1

 +6        QUIT

 +7       ;

SDA       ;rebuild SDA index

 +1        NEW X,Y,DA,DIK

 +2        KILL ^DDE("SDA")

 +3        SET DIK="^DDE("

           SET DIK(1)=".06^SDA"

 +4        DO ENALL^DIK

 +5        QUIT

VPRP8I.m