| 1 | GMV6PST ;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 | ;
|
|---|
| 8 | CGMRVVM ; 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
|
|---|
