VPRP29 ;SLC/MKB -- Patch 29 postinit ;3/4/20 12:07
;;1.0;VIRTUAL PATIENT RECORD;**29**;Sep 01, 2011;Build 11
;;Per VHA Directive 6402, this routine should not be modified.
;
POST ; -- post-init [add AVPR index to #230]
N VPRX,VPRY
S VPRX("FILE")=230
S VPRX("NAME")="AVPR"
S VPRX("TYPE")="MU"
S VPRX("USE")="A"
S VPRX("EXECUTION")="F"
S VPRX("ACTIVITY")=""
S VPRX("SHORT DESCR")="Trigger updates to VPR"
S VPRX("DESCR",1)="This is an action index that updates the Virtual Patient Record (VPR)"
S VPRX("DESCR",2)="when this record is updated. No actual cross-reference nodes are set"
S VPRX("DESCR",3)="or killed."
S VPRX("SET")="D:$L($T(EDP^VPRENC)) EDP^VPRENC(DA)"
S VPRX("KILL")="Q"
S VPRX("WHOLE KILL")="Q"
S VPRX("VAL",1)=.07 ;Closed
S VPRX("VAL",2)=1.2 ;Disposition
D CREIXN^DDMOD(.VPRX,"kW",.VPRY) ;VPRY=ien^name of index
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVPRP29 900 printed Sep 23, 2025@20:21:58 Page 2
VPRP29 ;SLC/MKB -- Patch 29 postinit ;3/4/20 12:07
+1 ;;1.0;VIRTUAL PATIENT RECORD;**29**;Sep 01, 2011;Build 11
+2 ;;Per VHA Directive 6402, this routine should not be modified.
+3 ;
POST ; -- post-init [add AVPR index to #230]
+1 NEW VPRX,VPRY
+2 SET VPRX("FILE")=230
+3 SET VPRX("NAME")="AVPR"
+4 SET VPRX("TYPE")="MU"
+5 SET VPRX("USE")="A"
+6 SET VPRX("EXECUTION")="F"
+7 SET VPRX("ACTIVITY")=""
+8 SET VPRX("SHORT DESCR")="Trigger updates to VPR"
+9 SET VPRX("DESCR",1)="This is an action index that updates the Virtual Patient Record (VPR)"
+10 SET VPRX("DESCR",2)="when this record is updated. No actual cross-reference nodes are set"
+11 SET VPRX("DESCR",3)="or killed."
+12 SET VPRX("SET")="D:$L($T(EDP^VPRENC)) EDP^VPRENC(DA)"
+13 SET VPRX("KILL")="Q"
+14 SET VPRX("WHOLE KILL")="Q"
+15 ;Closed
SET VPRX("VAL",1)=.07
+16 ;Disposition
SET VPRX("VAL",2)=1.2
+17 ;VPRY=ien^name of index
DO CREIXN^DDMOD(.VPRX,"kW",.VPRY)
+18 QUIT
