HMPIDX.m

HMPIDX ;SLC/MKB,ASMR/RRB,SRG - Create HMP triggers;Feb 01, 2016 14:22:27

 ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**;Sep 01, 2011;Build 63

 ;Per VA Directive 6402, this routine should not be modified.

 ;

 Q

 ;

 ;DE2818 documentation:

 ;  CREIXN^DDMOD - ICR 2916

 ;  EN^XPAR - ICR 2263

 ;

EN ; -- create index triggers

 ; Other indexes are created in HMP 2.0 PREREQUISITE BUNDLE patches

 ; Problems -- GMPL*2*36 provides protocol event

 ; CLiO     -- MD*2*38 provides protocol event

 ; TIU      -- TIU*2*106 provides index event

 D GMRV     ;Vitals            

 ;

 D EN^XPAR("PKG.VIRTUAL PATIENT RECORD","HMP TASK WAIT TIME",1,99)

 ;S ^XTMP("HMP",0)="3991231^3110101^HMP Patient Data Monitor"

 Q

 ;

GMRV ; -- create AHMP index on GMRV Measurement file #120.5

 ; DE3640: quit if index already exists, as deletion of old index by DIKCR will take a long time

 Q:$O(^DD("IX","BB",120.5,"AHMP",0))

 N HMPX,HMPY

 S HMPX("FILE")=120.5,HMPX("NAME")="AHMP"

 S HMPX("TYPE")="MU",HMPX("USE")="A"

 S HMPX("EXECUTION")="R",HMPX("ACTIVITY")=""

 S HMPX("SHORT DESCR")="Event for HMP"

 S HMPX("DESCR",1)="This index invokes a HMP event point when vitals are modified."

 S HMPX("DESCR",2)="No actual cross-reference nodes are set or killed."

 S HMPX("SET")="Q:$D(DIU(0))!($G(XDRDVALF)=1)  D GMRV^HMPEVNT(X,DA,$G(X(3)))"

 S HMPX("KILL")="Q",HMPX("WHOLE KILL")="Q"

 S HMPX("VAL",1)=.02            ;Patient

 S HMPX("VAL",2)=1.2            ;Rate

 S HMPX("VAL",3)=2              ;Entered in Error

 D CREIXN^DDMOD(.HMPX,"",.HMPY) ;HMPY=ien^name of index

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---HMPIDX   1579     printed  Apr 09, 2024@20:58:18                                                                                                                                                                                                      Page 2

HMPIDX    ;SLC/MKB,ASMR/RRB,SRG - Create HMP triggers;Feb 01, 2016 14:22:27

 +1       ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**;Sep 01, 2011;Build 63

 +2       ;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4        QUIT 

 +5       ;

 +6       ;DE2818 documentation:

 +7       ;  CREIXN^DDMOD - ICR 2916

 +8       ;  EN^XPAR - ICR 2263

 +9       ;

EN        ; -- create index triggers

 +1       ; Other indexes are created in HMP 2.0 PREREQUISITE BUNDLE patches

 +2       ; Problems -- GMPL*2*36 provides protocol event

 +3       ; CLiO     -- MD*2*38 provides protocol event

 +4       ; TIU      -- TIU*2*106 provides index event

 +5       ;Vitals            

           DO GMRV

 +6       ;

 +7        DO EN^XPAR("PKG.VIRTUAL PATIENT RECORD","HMP TASK WAIT TIME",1,99)

 +8       ;S ^XTMP("HMP",0)="3991231^3110101^HMP Patient Data Monitor"

 +9        QUIT 

 +10      ;

GMRV      ; -- create AHMP index on GMRV Measurement file #120.5

 +1       ; DE3640: quit if index already exists, as deletion of old index by DIKCR will take a long time

 +2        if $ORDER(^DD("IX","BB",120.5,"AHMP",0))

               QUIT 

 +3        NEW HMPX,HMPY

 +4        SET HMPX("FILE")=120.5

           SET HMPX("NAME")="AHMP"

 +5        SET HMPX("TYPE")="MU"

           SET HMPX("USE")="A"

 +6        SET HMPX("EXECUTION")="R"

           SET HMPX("ACTIVITY")=""

 +7        SET HMPX("SHORT DESCR")="Event for HMP"

 +8        SET HMPX("DESCR",1)="This index invokes a HMP event point when vitals are modified."

 +9        SET HMPX("DESCR",2)="No actual cross-reference nodes are set or killed."

 +10       SET HMPX("SET")="Q:$D(DIU(0))!($G(XDRDVALF)=1)  D GMRV^HMPEVNT(X,DA,$G(X(3)))"

 +11       SET HMPX("KILL")="Q"

           SET HMPX("WHOLE KILL")="Q"

 +12      ;Patient

           SET HMPX("VAL",1)=.02

 +13      ;Rate

           SET HMPX("VAL",2)=1.2

 +14      ;Entered in Error

           SET HMPX("VAL",3)=2

 +15      ;HMPY=ien^name of index

           DO CREIXN^DDMOD(.HMPX,"",.HMPY)

 +16       QUIT 

 +17      ;