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