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
Q
;
POST ; -- post init
D 560,SDA
D EN^VPRIDX
Q
;
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"
Q
;
SDA ;rebuild SDA index
N X,Y,DA,DIK
K ^DDE("SDA")
S DIK="^DDE(",DIK(1)=".06^SDA"
D ENALL^DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVPRP8I 709 printed Dec 13, 2024@02:45:40 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
