| [613] | 1 | GMV12PST ;HIOFO/FT-POST-INSTALLATION FOR GMRV*5*12 ;6/16/05 14:16
|
|---|
| 2 | ;;5.0;GEN. MED. REC. - VITALS;**12**;Oct 31, 2002
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine uses the following IAs:
|
|---|
| 5 | ; #10141 - ^XPDUTL calls (supported)
|
|---|
| 6 | ;
|
|---|
| 7 | EN ; Driver subroutine
|
|---|
| 8 | D AHDRN,AHDRE
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | AHDRN ; Create AHDRNEW Index on GMRV Vital Measurement file (#120.5) for use
|
|---|
| 12 | ; by Health Data Repository (HDR)
|
|---|
| 13 | ; Calls HDR API whenever a new entry is made in FILE 120.5
|
|---|
| 14 | N GMVXR,GMVRES,GMVOUT
|
|---|
| 15 | S GMVXR("ACTIVITY")=""
|
|---|
| 16 | S GMVXR("FILE")=120.5
|
|---|
| 17 | S GMVXR("NAME")="AHDRNEW"
|
|---|
| 18 | S GMVXR("TYPE")="MU"
|
|---|
| 19 | S GMVXR("USE")="A"
|
|---|
| 20 | S GMVXR("EXECUTION")="F"
|
|---|
| 21 | S GMVXR("SHORT DESCR")="INDEX for HDR"
|
|---|
| 22 | S GMVXR("DESCR",1)="This cross-reference calls a Health Data Repository (HDR) API whenever a"
|
|---|
| 23 | S GMVXR("DESCR",2)="new entry is created."
|
|---|
| 24 | S GMVXR("DESCR",3)=" "
|
|---|
| 25 | S GMVXR("DESCR",4)="No actual cross-reference nodes are set or killed."
|
|---|
| 26 | S GMVXR("DESCR",5)=" "
|
|---|
| 27 | S GMVXR("DESCR",6)="Calls to the VDEFQM routine are covered by Integration Agreement 4253."
|
|---|
| 28 | S GMVXR("DESCR",7)="Calls to the VADPT routine are covered by Integration Agreement 3744."
|
|---|
| 29 | S GMVXR("DESCR",8)="Use of the XDRDVALF variable is covered by Integration Agreement 4690."
|
|---|
| 30 | S GMVXR("SET")="Q:$D(DIU(0))!($$TESTPAT^VADPT($P(^GMR(120.5,DA,0),U,2)))!($G(XDRDVALF)=1) N ERR,GMVFLAG I $T(QUEUE^VDEFQM)]"""" S GMVFLAG=$$QUEUE^VDEFQM(""ORU^R01"",""SUBTYPE=VTLS^IEN=""_DA,.ERR)"
|
|---|
| 31 | S GMVXR("KILL")="Q"
|
|---|
| 32 | S GMVXR("WHOLE KILL")="Q"
|
|---|
| 33 | S GMVXR("SET CONDITION")="I X1(1)="""",X2(1)'="""" S X=1"
|
|---|
| 34 | S GMVXR("VAL",1)=.02
|
|---|
| 35 | D CREIXN^DDMOD(.GMVXR,"k",.GMVRES,"GMVOUT")
|
|---|
| 36 | I GMVRES="" D
|
|---|
| 37 | .D BMES^XPDUTL("The AHDRNEW Index was not added to FILE 120.5. Please enter a Remedy ticket.")
|
|---|
| 38 | .Q
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | AHDRE ; Create AHDRERR Index on GMRV Vital Measurement file (#120.5) for use
|
|---|
| 42 | ; by Health Data Repository (HDR)
|
|---|
| 43 | ; Calls HDR API whenever a FILE 120.5 entry is marked as an error
|
|---|
| 44 | N GMVXR,GMVRES,GMVOUT
|
|---|
| 45 | S GMVXR("ACTIVITY")=""
|
|---|
| 46 | S GMVXR("FILE")=120.5
|
|---|
| 47 | S GMVXR("NAME")="AHDRERR"
|
|---|
| 48 | S GMVXR("TYPE")="MU"
|
|---|
| 49 | S GMVXR("USE")="A"
|
|---|
| 50 | S GMVXR("EXECUTION")="F"
|
|---|
| 51 | S GMVXR("SHORT DESCR")="INDEX for HDR"
|
|---|
| 52 | S GMVXR("DESCR",1)="This cross-reference calls a Health Data Repository (HDR) API whenever a"
|
|---|
| 53 | S GMVXR("DESCR",2)="FILE 120.5 entry is marked as entered-in-error."
|
|---|
| 54 | S GMVXR("DESCR",3)=" "
|
|---|
| 55 | S GMVXR("DESCR",4)="No actual cross-reference nodes are set or killed."
|
|---|
| 56 | S GMVXR("DESCR",5)=" "
|
|---|
| 57 | S GMVXR("DESCR",6)="Calls to the VDEFQM routine are covered by Integration Agreement 4253."
|
|---|
| 58 | S GMVXR("DESCR",7)="Calls to the VADPT routine are covered by Integration Agreement 3744."
|
|---|
| 59 | S GMVXR("DESCR",8)="Use of the XDRDVALF variable is covered by Integration Agreement 4690."
|
|---|
| 60 | S GMVXR("SET")="Q:$D(DIU(0))!($$TESTPAT^VADPT($P(^GMR(120.5,DA,0),U,2)))!($G(XDRDVALF)=1) N ERR,GMVFLAG I $T(QUEUE^VDEFQM)]"""" S GMVFLAG=$$QUEUE^VDEFQM(""ORU^R01"",""SUBTYPE=VTLS^IEN=""_DA,.ERR)"
|
|---|
| 61 | S GMVXR("KILL")="Q"
|
|---|
| 62 | S GMVXR("WHOLE KILL")="Q"
|
|---|
| 63 | S GMVXR("SET CONDITION")="I X1(1)="""",X2(1)]"""" S X=1"
|
|---|
| 64 | S GMVXR("VAL",1)=2
|
|---|
| 65 | D CREIXN^DDMOD(.GMVXR,"k",.GMVRES,"GMVOUT")
|
|---|
| 66 | I GMVRES="" D
|
|---|
| 67 | .D BMES^XPDUTL("The AHDRERR Index was not added to FILE 120.5. Please enter a Remedy ticket.")
|
|---|
| 68 | .Q
|
|---|
| 69 | Q
|
|---|
