source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RA33PST.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1RA33PST ;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
4CRAD ;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
Note: See TracBrowser for help on using the repository browser.