Changeset 623 for WorldVistAEHR/trunk/r/IMAGING-MAG-ZMAG/MAGGTRA.m
- Timestamp:
- Dec 4, 2009, 12:11:15 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
WorldVistAEHR/trunk/r/IMAGING-MAG-ZMAG/MAGGTRA.m
r613 r623 1 MAGGTRA ;WOIFO/GEK - RPC Call to list Patient's Rad/Nuc Exams, Reports ; [ 06/20/2001 08:57 ] 2 ;;3.0;IMAGING;**59**;Nov 27, 2007;Build 20 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 4 ;; +---------------------------------------------------------------+ 5 ;; | Property of the US Government. | 6 ;; | No permission to copy or redistribute this software is given. | 7 ;; | Use of unreleased versions of this software requires the user | 8 ;; | to execute a written test agreement with the VistA Imaging | 9 ;; | Development Office of the Department of Veterans Affairs, | 10 ;; | telephone (301) 734-0100. | 11 ;; | The Food and Drug Administration classifies this software as | 12 ;; | a medical device. As such, it may not be changed in any way. | 13 ;; | Modifications to this software may result in an adulterated | 14 ;; | medical device under 21CFR820, the use of which is considered | 15 ;; | to be a violation of US Federal Statutes. | 16 ;; +---------------------------------------------------------------+ 17 ;; 18 Q 19 LIST(MAGRY,DATA) ; 20 ; SOME OLD IMAGING EXECUTABLES (IMGVWP10) STILL CALL HERE 21 ; THIS HAS BEEN SWITCHED TO LIST^MAGGTRA1 22 ; 23 ;MAGRY - return array of patient's exams. 24 ;DATA - RADFN - Radiology Patient's DFN ^RADPT( 25 ; 26 D LIST^MAGGTRA1(.MAGRY,.DATA) 27 Q 28 MAGPTR(MAGRY,XDUZ,MAGIEN,DATA) ;RPC Call to file Image pointer into Radiology 29 ; File and Radiology pointer into Image File. 30 ; 31 ; MAGRY is the return string = 1^success if things work okay. 32 ; 0^message if things not okay. 33 ; DATA is The data that was sent in LIST^MAGGTRA 34 ; it is the display data _ to ^TMP($J,"RAEX",RACNT 35 ; the ^TMP is setup by RAPTLU, (and MAGGTRA) in the lookup 36 ; of patient exams, we keep it, and send it back in case 37 ; we need to create a new report. 38 ; 39 ; XDUZ is not used from parameter list anymore. 40 ; MAGIEN is Image File IEN ^MAG(2005,IEN 41 ; 42 N Y,I,CT,MAGERR,DIQUIET 43 N RADFN,RADTI,RACNI,RANME,RASSN,RADATE,RADTE,RACN,RAPRC,RARPT,RAST,MAGGP 44 IF $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ERR^MAGGTERR" 45 E S X="ERR^MAGGTERR",@^%ZOSF("TRAP") 46 S DIQUIET=1,MAGERR=0,CT=0 47 D DT^DICRW 48 ; The list entry selected has the following data associated with it 49 ; it was created using parts of RAPTLU routine to list rad exams 50 ;^TMP($J,"RAEX",RACNT)=RADFN_"^"_RADTI_"^"_RACNI_"^"_RANME_"^"_RASSN_"^"_RADATE_"^"_RADTE_"^"_RACN_"^"_RAPRC_"^"_RARPT_"^"_RAST 51 ; 52 S DATA=$P(DATA,"^",7,99) 53 F I="RADFN","RADTI","RACNI","RANME","RASSN","RADATE","RADTE","RACN","RAPRC","RARPT","RAST" S CT=CT+1,@I=$P(DATA,"^",CT) 54 ; 55 ; let us check a few things first 56 ; Do we have a valid IMAGE IEN ^MAG(2005, 57 I '$D(^MAG(2005,MAGIEN,0)) S MAGRY="0^OPERATION CANCEDED: INVALID Imaging (2005) entry" Q 58 ; Does this Imaging entry already point to a Report. 59 I $D(^MAG(2005,MAGIEN,2)) S Z=^(2) D 60 . F I=6,7,8 S X=$P(Z,U,I) I $L(X) S MAGERR=1 Q 61 I MAGERR S MAGRY="0^OPERATION CANCELED: Imaging File entry already has an associated Report" Q 62 ; Does the Imaging entry patient, match the Rad Exam entry patient 63 I $P(^MAG(2005,MAGIEN,0),U,7)'=RADFN S MAGRY="0^OPERATION CANCELED: Imaging Patient doesn't match Radiology Patient" Q 64 I RARPT,'$D(^RARPT(RARPT,0)) S MAGRY="0^OPERATION CANCELED: INVALID Radiology Report Number" Q 65 I '$G(RARPT) D CREATE^RARIC I '$G(RARPT) S MAGRY="0^OPERATION FAILED creating new Radiology Report entry" Q 66 ; Now lets file the Image pointer in the ^RARPT( file. 67 S MAGGP=MAGIEN 68 D PTR^RARIC 69 I Y<1 S MAGRY="0^OPERATION FAILED Creating Image pointer in Report File" Q 70 ; Now SET the Parent fields in the Image File 71 S $P(^MAG(2005,MAGIEN,2),U,6,8)=74_U_RARPT_U_+Y 72 ; DONE. 73 S MAGRY="1^Image pointer filed successfully" 74 D LINKDT^MAGGTU6(.X,MAGIEN) 75 Q 1 MAGGTRA ;WOIFO/GEK - RPC Call to list Patient's Rad/Nuc Exams, Reports ; [ 06/20/2001 08:57 ] 2 ;;3.0;IMAGING;;Mar 01, 2002 3 ;; +---------------------------------------------------------------+ 4 ;; | Property of the US Government. | 5 ;; | No permission to copy or redistribute this software is given. | 6 ;; | Use of unreleased versions of this software requires the user | 7 ;; | to execute a written test agreement with the VistA Imaging | 8 ;; | Development Office of the Department of Veterans Affairs, | 9 ;; | telephone (301) 734-0100. | 10 ;; | | 11 ;; | The Food and Drug Administration classifies this software as | 12 ;; | a medical device. As such, it may not be changed in any way. | 13 ;; | Modifications to this software may result in an adulterated | 14 ;; | medical device under 21CFR820, the use of which is considered | 15 ;; | to be a violation of US Federal Statutes. | 16 ;; +---------------------------------------------------------------+ 17 ;; 18 Q 19 LIST(MAGRY,DATA) ; 20 ; SOME OLD IMAGING EXECUTABLES (IMGVWP10) STILL CALL HERE 21 ; THIS HAS BEEN SWITCHED TO LIST^MAGGTRA1 22 ; 23 ;MAGRY - return array of patient's exams. 24 ;DATA - RADFN - Radiology Patient's DFN ^RADPT( 25 ; 26 D LIST^MAGGTRA1(.MAGRY,.DATA) 27 Q 28 MAGPTR(MAGRY,XDUZ,MAGIEN,DATA) ;RPC Call to file Image pointer into Radiology 29 ; File and Radiology pointer into Image File. 30 ; 31 ; MAGRY is the return string = 1^success if things work okay. 32 ; 0^message if things not okay. 33 ; DATA is The data that was sent in LIST^MAGGTRA 34 ; it is the display data _ to ^TMP($J,"RAEX",RACNT 35 ; the ^TMP is setup by RAPTLU, (and MAGGTRA) in the lookup 36 ; of patient exams, we keep it, and send it back in case 37 ; we need to create a new report. 38 ; 39 ; XDUZ is not used from parameter list anymore. 40 ; MAGIEN is Image File IEN ^MAG(2005,IEN 41 ; 42 N Y,I,CT,MAGERR 43 N RADFN,RADTI,RACNI,RANME,RASSN,RADATE,RADTE,RACN,RAPRC,RARPT,RAST 44 IF $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ERR^MAGGTERR" 45 E S X="ERR^MAGGTERR",@^%ZOSF("TRAP") 46 S DIQUIET=1,MAGERR=0,CT=0 47 D DT^DICRW 48 ; The list entry selected has the following data associated with it 49 ; it was created using parts of RAPTLU routine to list rad exams 50 ;^TMP($J,"RAEX",RACNT)=RADFN_"^"_RADTI_"^"_RACNI_"^"_RANME_"^"_RASSN_"^"_RADATE_"^"_RADTE_"^"_RACN_"^"_RAPRC_"^"_RARPT_"^"_RAST 51 ; 52 S DATA=$P(DATA,"^",7,99) 53 F I="RADFN","RADTI","RACNI","RANME","RASSN","RADATE","RADTE","RACN","RAPRC","RARPT","RAST" S CT=CT+1,@I=$P(DATA,"^",CT) 54 ; 55 ; let us check a few things first 56 ; Do we have a valid IMAGE IEN ^MAG(2005, 57 I '$D(^MAG(2005,MAGIEN,0)) S MAGRY="0^OPERATION CANCEDED: INVALID Imaging (2005) entry" Q 58 ; Does this Imaging entry already point to a Report. 59 I $D(^MAG(2005,MAGIEN,2)) S Z=^(2) D 60 . F I=6,7,8 S X=$P(Z,U,I) I $L(X) S MAGERR=1 Q 61 I MAGERR S MAGRY="0^OPERATION CANCELED: Imaging File entry already has an associated Report" Q 62 ; Does the Imaging entry patient, match the Rad Exam entry patient 63 I $P(^MAG(2005,MAGIEN,0),U,7)'=RADFN S MAGRY="0^OPERATION CANCELED: Imaging Patient doesn't match Radiology Patient" Q 64 I RARPT,'$D(^RARPT(RARPT,0)) S MAGRY="0^OPERATION CANCELED: INVALID Radiology Report Number" Q 65 I '$G(RARPT) D CREATE^RARIC I '$G(RARPT) S MAGRY="0^OPERATION FAILED creating new Radiology Report entry" Q 66 ; Now lets file the Image pointer in the ^RARPT( file. 67 S MAGGP=MAGIEN 68 D PTR^RARIC 69 I Y<1 S MAGRY="0^OPERATION FAILED Creating Image pointer in Report File" Q 70 ; Now SET the Parent fields in the Image File 71 S $P(^MAG(2005,MAGIEN,2),U,6,8)=74_U_RARPT_U_+Y 72 ; DONE. 73 S MAGRY="1^Image pointer filed successfully" 74 Q
Note:
See TracChangeset
for help on using the changeset viewer.