- 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 Feb 19, 2025@00:12:07 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