source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSP77I.m@ 1352

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1YSP77I ; SLC/PKR - Create cross-references. ;10/12/2004
2 ;;5.01;MENTAL HEALTH;**77**;Dec 30, 1994
3 ;
4 Q
5CMH ;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 ;
Note: See TracBrowser for help on using the repository browser.