source: WorldVistAEHR/trunk/r/GEN_MED_OTHER-GMV/GMV6PST.m@ 1006

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1GMV6PST ;HIOFO/FT-Create Clinical Reminders Index ;10/14/04 11:35
2 ;;5.0;GEN. MED. REC. - VITALS;**6**;Oct 31, 2002
3 ;
4 ; This routine uses the following IAs:
5 ; #3736 - ^PXRMP12I calls (private)
6 ; #10141 - ^XPDUTL calls (supported)
7 ;
8CGMRVVM ; Create cross-reference for GMRV Vital Measurement file (#120.5)
9 N MSG,RESULT,XREF
10 D BMES^XPDUTL("Creating GMRV Vital Measurement cross-reference.")
11 S XREF("FILE")=120.5
12 S XREF("ROOT FILE")=120.5
13 S XREF("TYPE")="MU"
14 S XREF("SHORT DESCR")="Clinical Reminders cross-reference."
15 S XREF("DESCR",1)="This cross-reference builds two indexes, one for finding"
16 S XREF("DESCR",2)="all patients with a particular vital measurement and one for finding all"
17 S XREF("DESCR",3)="the vital measurements a patient has."
18 S XREF("DESCR",4)="The index is stored in the Clinical Reminders index global as:"
19 S XREF("DESCR",5)=" ^PXRMINDX(120.5,""IP"",MEASUREMENT,DFN,DATE/TIME TAKEN,DAS)"
20 S XREF("DESCR",6)=" ^PXRMINDX(120.5,""PI"",DFN,MEASUREMENT,DATE/TIME TAKEN,DAS)"
21 S XREF("DESCR",7)="Entries that are marked as entered-in-error are not indexed."
22 S XREF("DESCR",8)="Permission to use the PXRM namespace is documented in IAs 3736 and 4114."
23 S XREF("DESCR",9)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
24 S XREF("USE")="ACTION"
25 S XREF("EXECUTION")="R"
26 S XREF("ACTIVITY")="IR"
27 S XREF("WHOLE KILL")="K ^PXRMINDX(120.5)"
28 S XREF("VAL",1)=.01
29 S XREF("VAL",1,"SUBSCRIPT")=1
30 S XREF("VAL",2)=.02
31 S XREF("VAL",2,"SUBSCRIPT")=2
32 S XREF("VAL",3)=.03
33 S XREF("VAL",3,"SUBSCRIPT")=3
34 S XREF("VAL",4)=2
35 S XREF("NAME")="ACR"
36 S XREF("SET")="D SVITAL^GMVPXRM(.X,.DA)"
37 S XREF("KILL")="D KVITAL^GMVPXRM(.X,.DA)"
38 D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
39 I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
40 Q
Note: See TracBrowser for help on using the repository browser.