source: FOIAVistA/tag/r/GEN_MED_OTHER-GMV/GMV12PST.m@ 628

Last change on this file since 628 was 628, checked in by George Lilly, 14 years ago

initial load of FOIAVistA 6/30/08 version
File size: 3.0 KB
Line 
1GMV12PST ;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 ;
7EN ; Driver subroutine
8 D AHDRN,AHDRE
9 Q
10 ;
11AHDRN ; 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 ;
41AHDRE ; 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
Note: See TracBrowser for help on using the repository browser.