MDPOST38 ;ASMR/MKB - Post Installation Tasks;02 Mar 2008 ; 12/12/13 8:52pm
;;1.0;CLINICAL PROCEDURES;**38**;Sep 25, 2015;Build 290
;Per VA Directive 6402, this routine should not be modified
;
; External References -
; CREIXN^DDMOD - IA # 2916
;
EN ; -- create ASTATUS index on OBS file #704.117
Q:$O(^DD("IX","BB",704.117,"ASTATUS",0)) ;exists
N VPRX,VPRY
S VPRX("FILE")=704.117,VPRX("NAME")="ASTATUS"
S VPRX("TYPE")="MU",VPRX("USE")="A"
S VPRX("EXECUTION")="F",VPRX("ACTIVITY")=""
S VPRX("SHORT DESCR")="Used to trigger MD OBSERVATION UPDATE protocol"
S VPRX("DESCR",1)="This index invokes the MD OBSERVATION UPDATE protocol when the"
S VPRX("DESCR",2)="status of OBS data is changed to or from verified."
S VPRX("DESCR",3)="No actual cross-reference nodes are set or killed."
S VPRX("SET")="D:((X1=""1"")!(X2=""1"")) PROT^MDCPROTD Q"
S VPRX("KILL")="Q",VPRX("WHOLE KILL")="Q"
S VPRX("VAL",1)=.09 ;Status
D CREIXN^DDMOD(.VPRX,"",.VPRY) ;VPRY=ien^name of index
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDPOST38 1019 printed Sep 23, 2025@19:19:23 Page 2
MDPOST38 ;ASMR/MKB - Post Installation Tasks;02 Mar 2008 ; 12/12/13 8:52pm
+1 ;;1.0;CLINICAL PROCEDURES;**38**;Sep 25, 2015;Build 290
+2 ;Per VA Directive 6402, this routine should not be modified
+3 ;
+4 ; External References -
+5 ; CREIXN^DDMOD - IA # 2916
+6 ;
EN ; -- create ASTATUS index on OBS file #704.117
+1 ;exists
if $ORDER(^DD("IX","BB",704.117,"ASTATUS",0))
QUIT
+2 NEW VPRX,VPRY
+3 SET VPRX("FILE")=704.117
SET VPRX("NAME")="ASTATUS"
+4 SET VPRX("TYPE")="MU"
SET VPRX("USE")="A"
+5 SET VPRX("EXECUTION")="F"
SET VPRX("ACTIVITY")=""
+6 SET VPRX("SHORT DESCR")="Used to trigger MD OBSERVATION UPDATE protocol"
+7 SET VPRX("DESCR",1)="This index invokes the MD OBSERVATION UPDATE protocol when the"
+8 SET VPRX("DESCR",2)="status of OBS data is changed to or from verified."
+9 SET VPRX("DESCR",3)="No actual cross-reference nodes are set or killed."
+10 SET VPRX("SET")="D:((X1=""1"")!(X2=""1"")) PROT^MDCPROTD Q"
+11 SET VPRX("KILL")="Q"
SET VPRX("WHOLE KILL")="Q"
+12 ;Status
SET VPRX("VAL",1)=.09
+13 ;VPRY=ien^name of index
DO CREIXN^DDMOD(.VPRX,"",.VPRY)
+14 QUIT
