GMV2PST ;HIOFO/FT-Create Indexes for HDR ;10/7/04 17:06
;;5.0;GEN. MED. REC. - VITALS;**2**;Oct 31, 2002
;
; This routine uses the following IAs:
; #10141 - ^XPDUTL calls (supported)
;
EN ; Driver subroutine
D AHDRN,AHDRE
Q
;
AHDRN ; Create AHDRNEW Index on GMRV Vital Measurement file (#120.5) for use
; by Health Data Repository (HDR)
; Calls HDR API whenever a new entry is made in FILE 120.5
N MSG,RESULT,XREF
D BMES^XPDUTL("Creating AHDRNEW Index on GMRV VITAL MEASUREMENT (#120.5) file.")
S XREF("ACTIVITY")=""
S XREF("FILE")=120.5
S XREF("ROOT FILE")=120.5
S XREF("TYPE")="MU"
S XREF("SHORT DESCR")="INDEX for HDR"
S XREF("DESCR",1)="This cross-reference calls a Health Data Repository (HDR) API whenever a"
S XREF("DESCR",2)="new entry is created."
S XREF("DESCR",3)=" "
S XREF("DESCR",4)="No actual cross-reference nodes are set or killed."
S XREF("DESCR",5)=" "
S XREF("DESCR",6)="Calls to the VDEFQM routine are covered by Integration Agreement 4253."
S XREF("USE")="ACTION"
S XREF("EXECUTION")="F"
S XREF("WHOLE KILL")="Q"
S XREF("VAL",1)=.01
S XREF("NAME")="AHDRNEW"
S XREF("SET")="Q:$D(DIU(0)) N ERR,GMVFLAG I $T(QUEUE^VDEFQM)]"""" S GMVFLAG=$$QUEUE^VDEFQM(""ORU^R01"",""SUBTYPE=VTLS^IEN=""_DA,.ERR)"
S XREF("KILL")="Q"
S XREF("SET CONDITION")="S:X1(1)="""" X=1"
D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
I RESULT="" D
.D BMES^XPDUTL("The AHDRNEW Index was not added to FILE 120.5. Please enter a NOIS.")
.Q
Q
;
AHDRE ; Create AHDRERR Index on GMRV Vital Measurement file (#120.5) for use
; by Health Data Repository (HDR)
; Calls HDR API whenever a FILE 120.5 entry is marked as an error
N MSG,RESULT,XREF
D BMES^XPDUTL("Creating AHDRERR Index on GMRV VITAL MEASUREMENT (#120.5) file.")
S XREF("ACTIVITY")=""
S XREF("FILE")=120.5
S XREF("ROOT FILE")=120.5
S XREF("TYPE")="MU"
S XREF("SHORT DESCR")="INDEX for HDR"
S XREF("DESCR",1)="This cross-reference calls a Health Data Repository (HDR) API whenever a"
S XREF("DESCR",2)="FILE 120.5 entry is marked as entered-in-error."
S XREF("DESCR",3)=" "
S XREF("DESCR",4)="No actual cross-reference nodes are set or killed."
S XREF("DESCR",5)=" "
S XREF("DESCR",6)="Calls to the VDEFQM routine are covered by Integration Agreement 4253."
S XREF("USE")="ACTION"
S XREF("EXECUTION")="F"
S XREF("WHOLE KILL")="Q"
S XREF("VAL",1)=2
S XREF("NAME")="AHDRERR"
S XREF("SET")="Q:$D(DIU(0)) N ERR,GMVFLAG I $T(QUEUE^VDEFQM)]"""" S GMVFLAG=$$QUEUE^VDEFQM(""ORU^R01"",""SUBTYPE=VTLS^IEN=""_DA,.ERR)"
S XREF("KILL")="Q"
S XREF("SET CONDITION")="I X1(1)="""",X2(1)]"""" S X=1"
D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
I RESULT="" D
.D BMES^XPDUTL("The AHDRERR Index was not added to FILE 120.5. Please enter a NOIS.")
.Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMV2PST 2814 printed Dec 13, 2024@01:58:09 Page 2
GMV2PST ;HIOFO/FT-Create Indexes for HDR ;10/7/04 17:06
+1 ;;5.0;GEN. MED. REC. - VITALS;**2**;Oct 31, 2002
+2 ;
+3 ; This routine uses the following IAs:
+4 ; #10141 - ^XPDUTL calls (supported)
+5 ;
EN ; Driver subroutine
+1 DO AHDRN
DO AHDRE
+2 QUIT
+3 ;
AHDRN ; Create AHDRNEW Index on GMRV Vital Measurement file (#120.5) for use
+1 ; by Health Data Repository (HDR)
+2 ; Calls HDR API whenever a new entry is made in FILE 120.5
+3 NEW MSG,RESULT,XREF
+4 DO BMES^XPDUTL("Creating AHDRNEW Index on GMRV VITAL MEASUREMENT (#120.5) file.")
+5 SET XREF("ACTIVITY")=""
+6 SET XREF("FILE")=120.5
+7 SET XREF("ROOT FILE")=120.5
+8 SET XREF("TYPE")="MU"
+9 SET XREF("SHORT DESCR")="INDEX for HDR"
+10 SET XREF("DESCR",1)="This cross-reference calls a Health Data Repository (HDR) API whenever a"
+11 SET XREF("DESCR",2)="new entry is created."
+12 SET XREF("DESCR",3)=" "
+13 SET XREF("DESCR",4)="No actual cross-reference nodes are set or killed."
+14 SET XREF("DESCR",5)=" "
+15 SET XREF("DESCR",6)="Calls to the VDEFQM routine are covered by Integration Agreement 4253."
+16 SET XREF("USE")="ACTION"
+17 SET XREF("EXECUTION")="F"
+18 SET XREF("WHOLE KILL")="Q"
+19 SET XREF("VAL",1)=.01
+20 SET XREF("NAME")="AHDRNEW"
+21 SET XREF("SET")="Q:$D(DIU(0)) N ERR,GMVFLAG I $T(QUEUE^VDEFQM)]"""" S GMVFLAG=$$QUEUE^VDEFQM(""ORU^R01"",""SUBTYPE=VTLS^IEN=""_DA,.ERR)"
+22 SET XREF("KILL")="Q"
+23 SET XREF("SET CONDITION")="S:X1(1)="""" X=1"
+24 DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
+25 IF RESULT=""
Begin DoDot:1
+26 DO BMES^XPDUTL("The AHDRNEW Index was not added to FILE 120.5. Please enter a NOIS.")
+27 QUIT
End DoDot:1
+28 QUIT
+29 ;
AHDRE ; Create AHDRERR Index on GMRV Vital Measurement file (#120.5) for use
+1 ; by Health Data Repository (HDR)
+2 ; Calls HDR API whenever a FILE 120.5 entry is marked as an error
+3 NEW MSG,RESULT,XREF
+4 DO BMES^XPDUTL("Creating AHDRERR Index on GMRV VITAL MEASUREMENT (#120.5) file.")
+5 SET XREF("ACTIVITY")=""
+6 SET XREF("FILE")=120.5
+7 SET XREF("ROOT FILE")=120.5
+8 SET XREF("TYPE")="MU"
+9 SET XREF("SHORT DESCR")="INDEX for HDR"
+10 SET XREF("DESCR",1)="This cross-reference calls a Health Data Repository (HDR) API whenever a"
+11 SET XREF("DESCR",2)="FILE 120.5 entry is marked as entered-in-error."
+12 SET XREF("DESCR",3)=" "
+13 SET XREF("DESCR",4)="No actual cross-reference nodes are set or killed."
+14 SET XREF("DESCR",5)=" "
+15 SET XREF("DESCR",6)="Calls to the VDEFQM routine are covered by Integration Agreement 4253."
+16 SET XREF("USE")="ACTION"
+17 SET XREF("EXECUTION")="F"
+18 SET XREF("WHOLE KILL")="Q"
+19 SET XREF("VAL",1)=2
+20 SET XREF("NAME")="AHDRERR"
+21 SET XREF("SET")="Q:$D(DIU(0)) N ERR,GMVFLAG I $T(QUEUE^VDEFQM)]"""" S GMVFLAG=$$QUEUE^VDEFQM(""ORU^R01"",""SUBTYPE=VTLS^IEN=""_DA,.ERR)"
+22 SET XREF("KILL")="Q"
+23 SET XREF("SET CONDITION")="I X1(1)="""",X2(1)]"""" S X=1"
+24 DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
+25 IF RESULT=""
Begin DoDot:1
+26 DO BMES^XPDUTL("The AHDRERR Index was not added to FILE 120.5. Please enter a NOIS.")
+27 QUIT
End DoDot:1
+28 QUIT
