GMPLP27I.m

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

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