Routine: VPRP10

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

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

PRXY ; -- create proxy user

 I '$O(^VA(200,"B","VDIF,APPLICATION PROXY",0)) D

 . N X S X=$$CREATE^XUSAP("VDIF,APPLICATION PROXY","")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVPRP10   840     printed  Apr 09, 2024@21:47:05                                                                                                                                                                                                       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

VPRP10.m