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

VPRP10.m

Go to the documentation of this file.
  1. VPRP10 ;SLC/MKB -- SDA updates for patch 10 ;3/14/19 20:13
  1. ;;1.0;VIRTUAL PATIENT RECORD;**10**;Sep 01, 2011;Build 16
  1. ;;Per VHA Directive 6402, this routine should not be modified.
  1. ;
  1. ; External References DBIA#
  1. ; ------------------- -----
  1. ; XUSAP 4677
  1. ;
  1. ;
  1. POST ; -- postinit tasks
  1. D LRAP
  1. ;D PRXY
  1. Q
  1. ;
  1. LRAP ; -- switch protocol items
  1. N DA,DR,DIE,XQOR,LRAP
  1. S DA(1)=+$O(^ORD(101,"B","LR7O AP EVSEND OR",0)) Q:DA(1)<1
  1. S XQOR=+$O(^ORD(101,"B","VPR XQOR EVENTS",0))
  1. S LRAP=+$O(^ORD(101,"B","VPR LRAP EVENTS",0))
  1. S DA=$O(^ORD(101,"AD",LRAP,DA(1),0)) I DA D
  1. . S DR=".01////"_XQOR,DIE="^ORD(101,"_DA(1)_",10,"
  1. . D ^DIE
  1. Q
  1. ;
  1. PRXY ; -- create proxy user
  1. I '$O(^VA(200,"B","VDIF,APPLICATION PROXY",0)) D
  1. . N X S X=$$CREATE^XUSAP("VDIF,APPLICATION PROXY","")
  1. Q