source: WorldVistAEHR/trunk/r/GEN_MED_OTHER-GMV/GMV2PST.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.7 KB
Line 
1GMV2PST ;HIOFO/FT-Create Indexes for HDR ;10/7/04 17:06
2 ;;5.0;GEN. MED. REC. - VITALS;**2**;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 MSG,RESULT,XREF
15 D BMES^XPDUTL("Creating AHDRNEW Index on GMRV VITAL MEASUREMENT (#120.5) file.")
16 S XREF("ACTIVITY")=""
17 S XREF("FILE")=120.5
18 S XREF("ROOT FILE")=120.5
19 S XREF("TYPE")="MU"
20 S XREF("SHORT DESCR")="INDEX for HDR"
21 S XREF("DESCR",1)="This cross-reference calls a Health Data Repository (HDR) API whenever a"
22 S XREF("DESCR",2)="new entry is created."
23 S XREF("DESCR",3)=" "
24 S XREF("DESCR",4)="No actual cross-reference nodes are set or killed."
25 S XREF("DESCR",5)=" "
26 S XREF("DESCR",6)="Calls to the VDEFQM routine are covered by Integration Agreement 4253."
27 S XREF("USE")="ACTION"
28 S XREF("EXECUTION")="F"
29 S XREF("WHOLE KILL")="Q"
30 S XREF("VAL",1)=.01
31 S XREF("NAME")="AHDRNEW"
32 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)"
33 S XREF("KILL")="Q"
34 S XREF("SET CONDITION")="S:X1(1)="""" X=1"
35 D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
36 I RESULT="" D
37 .D BMES^XPDUTL("The AHDRNEW Index was not added to FILE 120.5. Please enter a NOIS.")
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 MSG,RESULT,XREF
45 D BMES^XPDUTL("Creating AHDRERR Index on GMRV VITAL MEASUREMENT (#120.5) file.")
46 S XREF("ACTIVITY")=""
47 S XREF("FILE")=120.5
48 S XREF("ROOT FILE")=120.5
49 S XREF("TYPE")="MU"
50 S XREF("SHORT DESCR")="INDEX for HDR"
51 S XREF("DESCR",1)="This cross-reference calls a Health Data Repository (HDR) API whenever a"
52 S XREF("DESCR",2)="FILE 120.5 entry is marked as entered-in-error."
53 S XREF("DESCR",3)=" "
54 S XREF("DESCR",4)="No actual cross-reference nodes are set or killed."
55 S XREF("DESCR",5)=" "
56 S XREF("DESCR",6)="Calls to the VDEFQM routine are covered by Integration Agreement 4253."
57 S XREF("USE")="ACTION"
58 S XREF("EXECUTION")="F"
59 S XREF("WHOLE KILL")="Q"
60 S XREF("VAL",1)=2
61 S XREF("NAME")="AHDRERR"
62 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)"
63 S XREF("KILL")="Q"
64 S XREF("SET CONDITION")="I X1(1)="""",X2(1)]"""" S X=1"
65 D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
66 I RESULT="" D
67 .D BMES^XPDUTL("The AHDRERR Index was not added to FILE 120.5. Please enter a NOIS.")
68 .Q
69 Q
Note: See TracBrowser for help on using the repository browser.