source: WorldVistAEHR/trunk/r/PROBLEM_LIST-GMPL/GMPLP27I.m@ 767

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

initial load of WorldVistAEHR

File size: 2.3 KB
Line 
1GMPLP27I ;SLC/JVS - Create cross-references. ;10/08/2004
2 ;;2.0;Problem List;**27**;Aug 25, 1994
3 ;
4 Q
5 ;===============================================================
6CPROB ;Create cross-reference for Problem List.
7 N IND,MSG,NAME,RESULT,XREF
8 D BMES^XPDUTL("Creating Problem List cross-reference.")
9 S XREF("FILE")=9000011
10 S XREF("ROOT FILE")=9000011
11 S XREF("WHOLE KILL")="K ^PXRMINDX(9000011)"
12 S XREF("TYPE")="MU"
13 S XREF("SHORT DESCR")="Clinical Reminders index for ICD9 lookup."
14 S XREF("DESCR",1)="This cross-reference builds two indexes, one for finding"
15 S XREF("DESCR",2)="all patients with a particular ICD9 code and one for"
16 S XREF("DESCR",3)="finding all the ICD9 codes a patient has. The indexes are"
17 S XREF("DESCR",4)="stored in the Clinical Reminders index global as:"
18 S XREF("DESCR",5)=" ^PXRMINDX(9000011,""ISPP"",ICD9,STATUS,PRIORITY,DFN,DLM,DAS)"
19 S XREF("DESCR",6)=" ^PXRMINDX(9000011,""PSPI"",DFN,STATUS,PRIORITY,ICD9,DLM,DAS)"
20 S XREF("DESCR",8)="respectively."
21 S XREF("DESCR",9)=" "
22 S XREF("DESCR",10)="STATUS can be ""A"" for active or ""I"" for inactive."
23 S XREF("DESCR",11)="PRIORITY can be ""A"" for acute or ""C"" for chronic. If"
24 S XREF("DESCR",12)="PRIORITY is missing then a ""U"" will be stored in the index."
25 S XREF("DESCR",13)="For Problems whose PRIORITY is ""C"" Clinical Reminders uses"
26 S XREF("DESCR",14)="today's date for the date of the Problem. In all other"
27 S XREF("DESCR",15)="cases Clinical Reminders uses DLM where DLM is the date last modified."
28 S XREF("DESCR",16)="When Problems are ""removed"" then CONDITION is set"
29 S XREF("DESCR",17)="to ""H"" for hidden. Hidden Problems are not indexed."
30 S XREF("DESCR",18)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
31 S XREF("USE")="ACTION"
32 S XREF("EXECUTION")="R"
33 S XREF("ACTIVITY")="IR"
34 S XREF("VAL",1)=.01
35 S XREF("VAL",1,"SUBSCRIPT")=1
36 S XREF("VAL",2)=.02
37 S XREF("VAL",2,"SUBSCRIPT")=2
38 S XREF("VAL",3)=.03
39 S XREF("VAL",3,"SUBSCRIPT")=3
40 S XREF("VAL",4)=.12
41 S XREF("VAL",4,"SUBSCRIPT")=4
42 S XREF("VAL",5)=1.14
43 S XREF("VAL",6)=1.02
44 ;
45 S XREF("NAME")="ACR"
46 S XREF("SET")="D SPROB^GMPLPXRM(.X,.DA)"
47 S XREF("KILL")="D KPROB^GMPLPXRM(.X,.DA)"
48 S XREF("WHOLE KILL")="K ^PXRMINDX(9000011)"
49 D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
50 I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
51 Q
Note: See TracBrowser for help on using the repository browser.