| 1 | RA33PST ;HOIFO/SWM-Post Install for RA*5*33 ;10/12/2004
|
|---|
| 2 | ;;5.0;Radiology/Nuclear Medicine;**33**;Mar 16, 1998
|
|---|
| 3 | ; IA #3736 grants use of DCERRMSG^PXRMP12I
|
|---|
| 4 | CRAD ;Create cross-reference for RAD/NUC MED PATIENT file.
|
|---|
| 5 | ; code below is taken from CRAD^PXRMP12X
|
|---|
| 6 | N MSG,RESULT,XREF
|
|---|
| 7 | D BMES^XPDUTL("Creating RAD/NUC MED PATIENT cross-reference.")
|
|---|
| 8 | ;Set the XREF nodes
|
|---|
| 9 | S XREF("FILE")=70
|
|---|
| 10 | S XREF("ROOT FILE")=70.03
|
|---|
| 11 | S XREF("WHOLE KILL")="K ^PXRMINDX(70)"
|
|---|
| 12 | S XREF("TYPE")="MU"
|
|---|
| 13 | S XREF("SHORT DESCR")="Clinical Reminders index."
|
|---|
| 14 | S XREF("DESCR",1)="This cross-reference builds two indexes, one for finding"
|
|---|
| 15 | S XREF("DESCR",2)="all patients with a particular radiology procedure and one for finding all"
|
|---|
| 16 | S XREF("DESCR",3)="the radiology procedures a patient has."
|
|---|
| 17 | S XREF("DESCR",4)="The indexes are stored in the Clinical Reminders index global as:"
|
|---|
| 18 | S XREF("DESCR",5)=" ^PXRMINDX(70,""IP"",PROCEDURE,DFN,EXAM DATE,DAS) and"
|
|---|
| 19 | S XREF("DESCR",6)=" ^PXRMINDX(70,""PI"",DFN,PROCEDURE,EXAM DATE,DAS)"
|
|---|
| 20 | S XREF("DESCR",7)="respectively."
|
|---|
| 21 | S XREF("DESCR",8)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
|
|---|
| 22 | S XREF("USE")="ACTION"
|
|---|
| 23 | S XREF("EXECUTION")="R"
|
|---|
| 24 | S XREF("ACTIVITY")="IR"
|
|---|
| 25 | S XREF("VAL",1)=2
|
|---|
| 26 | S XREF("VAL",1,"SUBSCRIPT")=1
|
|---|
| 27 | ;
|
|---|
| 28 | S XREF("NAME")="ACR"
|
|---|
| 29 | S XREF("SET")="D SRAD^RAPXRM(.X,.DA)"
|
|---|
| 30 | S XREF("KILL")="D KRAD^RAPXRM(.X,.DA)"
|
|---|
| 31 | D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
|
|---|
| 32 | I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
|
|---|
| 33 | Q
|
|---|
