| 1 | YSP77I ; SLC/PKR - Create cross-references. ;10/12/2004
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;**77**;Dec 30, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | CMH ;Create cross-reference for Psych Instrument Patient File.
|
|---|
| 6 | N MSG,RESULT,XREF
|
|---|
| 7 | D BMES^XPDUTL("Creating Mental Health cross-reference.")
|
|---|
| 8 | S XREF("FILE")=601.2
|
|---|
| 9 | S XREF("ROOT FILE")=601.22
|
|---|
| 10 | S XREF("TYPE")="MU"
|
|---|
| 11 | S XREF("SHORT DESCR")="Clinical Reminders cross-reference."
|
|---|
| 12 | S XREF("DESCR",1)="This cross-reference builds two indexes, one for finding"
|
|---|
| 13 | S XREF("DESCR",2)="all patients with a particular mental health instrument and one for finding all"
|
|---|
| 14 | S XREF("DESCR",3)="the mental health instruments a patient has."
|
|---|
| 15 | S XREF("DESCR",4)="The index is stored in the Clinical Reminders index global as:"
|
|---|
| 16 | S XREF("DESCR",5)=" ^PXRMINDX(601.2,""IP"",INSTRUMENT,DFN,COMPLETION DATE,DAS)"
|
|---|
| 17 | S XREF("DESCR",6)=" ^PXRMINDX(601.2,""PI"",DFN,INSTRUMENT,COMPLETION DATE,DAS)"
|
|---|
| 18 | S XREF("DESCR",7)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
|
|---|
| 19 | S XREF("USE")="ACTION"
|
|---|
| 20 | S XREF("EXECUTION")="R"
|
|---|
| 21 | S XREF("ACTIVITY")="IR"
|
|---|
| 22 | S XREF("WHOLE KILL")="K ^PXRMINDX(601.2)"
|
|---|
| 23 | S XREF("VAL",1)=.01
|
|---|
| 24 | S XREF("VAL",1,"SUBSCRIPT")=1
|
|---|
| 25 | S XREF("NAME")="ACR"
|
|---|
| 26 | S XREF("SET")="D SMH^YTPXRM(.X,.DA)"
|
|---|
| 27 | S XREF("KILL")="D KMH^YTPXRM(.X,.DA)"
|
|---|
| 28 | D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
|
|---|
| 29 | I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
