Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VPRP8I

VPRP8I.m

Go to the documentation of this file.
  1. 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
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; External References DBIA#
  1. ; ------------------- -----
  1. ; VASITE 10112
  1. ;
  1. PRE ; -- pre init
  1. Q
  1. ;
  1. POST ; -- post init
  1. D 560,SDA
  1. D EN^VPRIDX
  1. Q
  1. ;
  1. 560 ;set up Subscription file
  1. I $P($G(^VPR(1,0)),U)="" D
  1. . N SITE S SITE=$P($$SITE^VASITE,U,2)
  1. . S:SITE="" SITE="VISTA"
  1. . S $P(^VPR(1,0),U)=SITE,^VPR("B",SITE,1)=""
  1. . S $P(^VPR(0),U,3,4)="1^1"
  1. Q
  1. ;
  1. SDA ;rebuild SDA index
  1. N X,Y,DA,DIK
  1. K ^DDE("SDA")
  1. S DIK="^DDE(",DIK(1)=".06^SDA"
  1. D ENALL^DIK
  1. Q