Routine: VPRP29

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVPRP29   900     printed  Feb 19, 2025@00:12:03                                                                                                                                                                                                       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

VPRP29.m