- 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 Feb 19, 2025@00:11:53 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