| [613] | 1 | GMPLP27I ;SLC/JVS - Create cross-references. ;10/08/2004
|
|---|
| 2 | ;;2.0;Problem List;**27**;Aug 25, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | ;===============================================================
|
|---|
| 6 | CPROB ;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
|
|---|
