MDPOST38.m

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 ---MDPOST38   1019     printed  Feb 18, 2025@23:09:47                                                                                                                                                                                                    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