VPRP10 ;SLC/MKB -- SDA updates for patch 10 ;3/14/19 20:13
;;1.0;VIRTUAL PATIENT RECORD;**10**;Sep 01, 2011;Build 16
;;Per VHA Directive 6402, this routine should not be modified.
;
; External References DBIA#
; ------------------- -----
; XUSAP 4677
;
;
POST ; -- postinit tasks
D LRAP
;D PRXY
Q
;
LRAP ; -- switch protocol items
N DA,DR,DIE,XQOR,LRAP
S DA(1)=+$O(^ORD(101,"B","LR7O AP EVSEND OR",0)) Q:DA(1)<1
S XQOR=+$O(^ORD(101,"B","VPR XQOR EVENTS",0))
S LRAP=+$O(^ORD(101,"B","VPR LRAP EVENTS",0))
S DA=$O(^ORD(101,"AD",LRAP,DA(1),0)) I DA D
. S DR=".01////"_XQOR,DIE="^ORD(101,"_DA(1)_",10,"
. D ^DIE
Q
;
PRXY ; -- create proxy user
I '$O(^VA(200,"B","VDIF,APPLICATION PROXY",0)) D
. N X S X=$$CREATE^XUSAP("VDIF,APPLICATION PROXY","")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVPRP10 840 printed Sep 23, 2025@20:21:47 Page 2
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
+2 ;;Per VHA Directive 6402, this routine should not be modified.
+3 ;
+4 ; External References DBIA#
+5 ; ------------------- -----
+6 ; XUSAP 4677
+7 ;
+8 ;
POST ; -- postinit tasks
+1 DO LRAP
+2 ;D PRXY
+3 QUIT
+4 ;
LRAP ; -- switch protocol items
+1 NEW DA,DR,DIE,XQOR,LRAP
+2 SET DA(1)=+$ORDER(^ORD(101,"B","LR7O AP EVSEND OR",0))
if DA(1)<1
QUIT
+3 SET XQOR=+$ORDER(^ORD(101,"B","VPR XQOR EVENTS",0))
+4 SET LRAP=+$ORDER(^ORD(101,"B","VPR LRAP EVENTS",0))
+5 SET DA=$ORDER(^ORD(101,"AD",LRAP,DA(1),0))
IF DA
Begin DoDot:1
+6 SET DR=".01////"_XQOR
SET DIE="^ORD(101,"_DA(1)_",10,"
+7 DO ^DIE
End DoDot:1
+8 QUIT
+9 ;
PRXY ; -- create proxy user
+1 IF '$ORDER(^VA(200,"B","VDIF,APPLICATION PROXY",0))
Begin DoDot:1
+2 NEW X
SET X=$$CREATE^XUSAP("VDIF,APPLICATION PROXY","")
End DoDot:1
+3 QUIT
