- MAGDIRVE ;WOIFO/PMK - Serious Fatal Image Processing Error Messages ; 17 Sep 2008 7:42 AM
- ;;3.0;IMAGING;**11,30,54**;03-July-2009;;Build 1424
- ;; Per VHA Directive 2004-038, this routine should not be modified.
- ;; +---------------------------------------------------------------+
- ;; | Property of the US Government. |
- ;; | No permission to copy or redistribute this software is given. |
- ;; | Use of unreleased versions of this software requires the user |
- ;; | to execute a written test agreement with the VistA Imaging |
- ;; | Development Office of the Department of Veterans Affairs, |
- ;; | telephone (301) 734-0100. |
- ;; | The Food and Drug Administration classifies this software as |
- ;; | a medical device. As such, it may not be changed in any way. |
- ;; | Modifications to this software may result in an adulterated |
- ;; | medical device under 21CFR820, the use of which is considered |
- ;; | to be a violation of US Federal Statutes. |
- ;; +---------------------------------------------------------------+
- ;;
- Q
- ;
- ; new version for RPC client-server image processing error messages
- ;
- MAGZERO(RTN,LASTIEN,LASTIMG) ; from ^MAGDIR84 for bad ^MAG(2005)
- N TITLE
- K MSG
- S TITLE="DICOM IMAGE PROCESSING ERROR - IMAGE FILE CORRUPTION"
- S MSG(2)="The ^MAG(2005) file has been corrupted so that new images will"
- S MSG(3)="overwrite old ones and general image database inconsistency"
- S MSG(4)="will result."
- S MSG(5)=""
- S MSG(6)="Latest internal entry number processed: "
- S MSG(6)=MSG(6)_LASTIMG ; ^MAGDICOM(2006.563,1,"LAST IMAGE POINTER")
- S MSG(7)="Bad ^MAG(2005,0) internal entry number: "_LASTIEN
- D BADERROR(RTN,TITLE,.MSG)
- Q
- ;
- ZERONODE(RTN,LASTIEN,LASTPTR,FILE,FILENAME) ; from ^MAGDIR84
- ; invoked for an arbitrary file corrupted value
- N TITLE,ZERONODE
- K MSG
- S TITLE="DICOM IMAGE PROCESSING ERROR - "_FILE_" FILE CORRUPTION"
- S MSG(2)="The "_FILENAME_" file has been corrupted so that new reports will"
- S MSG(3)="overwrite old ones and general image/report database inconsistency"
- S MSG(4)="will result."
- S MSG(5)=""
- S MSG(6)="Latest internal entry number processed: "
- S MSG(6)=MSG(6)_LASTPTR ; from ^MAGDICOM(2006.563,1,"LAST ... POINTER")
- S ZERONODE=$S(FILE[")":$P(FILE,")")_",0)",1:FILE_"(0)")
- S MSG(7)="Bad "_ZERONODE_" internal entry number: "_LASTIEN
- D BADERROR(RTN,TITLE,.MSG)
- Q
- ;
- OBJECT(RTN,MAGGP) ; from ^MAGDIR9B
- N TITLE
- K MSG
- S TITLE="DICOM IMAGE PROCESSING ERROR - WRONG GROUP OBJECT TYPE"
- S MSG(2)="The group entry in ^MAG(2005) does not have the proper group"
- S MSG(3)="object type."
- S MSG(4)=""
- S MSG(5)="The expected value is 11. The value in the group entry is "
- S MSG(5)=MSG(5)_$P($G(^MAG(2005,MAGGP,0),"^^^^^not defined"),"^",6)_"."
- S MSG(6)=""
- S MSG(7)="Internal entry number of incorrect group: "_MAGGP
- D BADERROR(RTN,TITLE,.MSG)
- Q
- ;
- MISMATCH(RTN,DFN,MAGGP) ; from ^MAGDIR9A/B/E for a patient mismatch
- N GROUPDFN,TITLE
- K MSG
- S TITLE="DICOM IMAGE PROCESSING ERROR - PATIENT MISMATCH PROBLEM"
- S GROUPDFN=$P($G(^MAG(2005,MAGGP,0)),"^",7)
- S MSG(2)="The image and the group point to different patients."
- S MSG(3)=""
- S MSG(4)="The Image points to PATIENT file internal entry number "_DFN
- S MSG(5)=$$PATDEMO(DFN)
- S MSG(6)=""
- S MSG(7)="The Group points to PATIENT file internal entry number "_GROUPDFN
- S MSG(8)=$$PATDEMO(GROUPDFN)
- S MSG(9)=""
- S MSG(10)="Internal entry number of group: ^MAG(2005,"_MAGGP_")"
- D BADERROR(RTN,TITLE,.MSG)
- Q
- ;
- PATDEMO(DFN) ; display patient demographics
- N %,%H,DISYS,DTIME,VA,VADM,VAERR
- Q:'$G(DFN) "<null DFN>"
- D DEM^VADPT
- Q "("_$P($G(VADM(5)),"^",2)_" - "_$P($G(VADM(3)),"^",2)_")" ; sex & dob
- ;
- RADMISS(RTN,DFN,RARPT,RARPTDFN) ; from ^MAGDIR9A for a patient mismatch
- ; this is bad DFN value for the radiology report in ^RARPT
- N TITLE
- K MSG
- S TITLE="DICOM IMAGE PROCESSING ERROR - RAD PATIENT/REPORT MISMATCH"
- S MSG(2)="The image and the radiology report point to different patients."
- S MSG(3)=""
- S MSG(4)="The Image points to PATIENT file internal entry number "_DFN
- S MSG(5)=$$PATDEMO(DFN)
- S MSG(6)=""
- S MSG(7)="The Rad Report points to PATIENT file internal entry number "_RARPTDFN
- S MSG(8)=$$PATDEMO(RARPTDFN)
- S MSG(9)=""
- S MSG(10)="Internal entry number of report: ^RARPT("_RARPT_")"
- D BADERROR(RTN,TITLE,.MSG)
- Q
- ;
- TIUMISS(RTN,DFN,TIUIEN,TIUDFN) ; from ^MAGDIR9E for a patient mismatch
- ; this is bad DFN value for the consult/procedure request note in ^TIU(8925)
- N TITLE
- K MSG
- S TITLE="DICOM IMAGE PROCESSING ERROR - TIU PATIENT/REPORT MISMATCH"
- S MSG(2)="The image and the TIU note point to different patients."
- S MSG(3)=""
- S MSG(4)="The Image points to PATIENT file internal entry number "_DFN
- S MSG(5)=$$PATDEMO(DFN)
- S MSG(6)=""
- S MSG(7)="The TIU note points to PATIENT file internal entry number "_TIUDFN
- S MSG(8)=$$PATDEMO(TIUDFN)
- S MSG(9)=""
- S MSG(10)="Internal entry number of TIU note: ^TIU(8925,"_TIUIEN_")"
- D BADERROR(RTN,TITLE,.MSG)
- Q
- ;
- TIUMISS2(RTN,TIUIEN1,TIUIEN2,TIUXDIEN,MAGGP) ; from ^MAGDIR9E - TIU mismatch
- ; mismatch between TIU, TIU External Data File, and the image group
- N TITLE
- K MSG
- S TITLE="DICOM IMAGE PROCESSING ERROR - TIU/IMAGE GROUP MISMATCH"
- S MSG(2)="The image group and TIU point to different notes."
- S MSG(3)=""
- S MSG(4)="TIU points to TUI note ien #"_TIUIEN1
- S MSG(5)="The image points to TIU note ien #"_TIUIEN2
- S MSG(6)="TIU External Data File (8925.91) ien #"_TIUXDIEN
- S MSG(7)="points to image group ien #"_MAGGP
- D BADERROR(RTN,TITLE,.MSG)
- Q
- ;
- TMPMISS(RTN,PARENTFP,MAGGP) ; from ^MAGDIR9E
- ; the image group does not have 2006.5839 for the PARENT FILE
- N TITLE
- K MSG
- S TITLE="DICOM IMAGE PROCESSING ERROR - IMAGE GROUP MISMATCH"
- S MSG(2)="The image group does not point to PARENT FILE 2006.5839."
- S MSG(3)=""
- S MSG(4)="The image group should point to PARENT FILE 2006.5839."
- S MSG(5)="Instead it point to PARENT FILE #"_PARENTFP
- S MSG(6)="The image group is ^MAG(2005,"_MAGGP_")"
- D BADERROR(RTN,TITLE,.MSG)
- Q
- ;
- IMAGEPTR(RTN,IMAGEPTR,LASTIMG) ; from ^MAGDIR9B for a corrupted image pointer value
- N TITLE
- K MSG
- S TITLE="DICOM IMAGE PROCESSING ERROR - IMAGE ENTRY NUMBER PROBLEM"
- S MSG(2)="The internal entry number for this image is less than that of the"
- S MSG(3)="last processed image. This will cause new images to overwrite"
- S MSG(4)="old ones and general image database inconsistency will result."
- S MSG(5)=""
- S MSG(6)="Latest internal entry number processed: "
- S MSG(6)=MSG(6)_LASTIMG ; ^MAGDICOM(2006.563,1,"LAST IMAGE POINTER")
- S MSG(7)="Bad internal entry number of new image: "_IMAGEPTR
- D BADERROR(RTN,TITLE,.MSG)
- Q
- ;
- GROUPPTR(RTN,MAGGP,LASTIMG) ; from ^MAGDIR9A for bad group pointer
- N TITLE
- K MSG
- S TITLE="DICOM IMAGE PROCESSING ERROR - GROUP ENTRY NUMBER PROBLEM"
- S MSG(2)="The internal entry number for this group is less than that of the"
- S MSG(3)="last processed image. This will cause new images to overwrite"
- S MSG(4)="old ones and general image database inconsistency will result."
- S MSG(5)=""
- S MSG(6)="Latest internal entry number processed: "
- S MSG(6)=MSG(6)_LASTIMG ; ^MAGDICOM(2006.563,1,"LAST IMAGE POINTER")
- S MSG(7)="Bad internal entry number of new group: "_MAGGP
- D BADERROR(RTN,TITLE,.MSG)
- Q
- ;
- BADERROR(RTN,TITLE,MSG) ; final common pathway for all msgs
- ; invoked by other image processing error checking code as well
- N I
- S I=$O(MSG(" "),-1)
- S MSG(1)=$G(MSG(1)) ; usually null
- S MSG(I+1)="Gateway: """_$G(SYSTITLE,"<unknown>")_""""
- S MSG(I+2)=""
- S MSG(I+3)=" This is a VERY SERIOUS ERROR. Image processing"
- S MSG(I+4)=" will be halted until it is resolved."
- S MSG(I+5)=""
- S MSG(I+6)="Call IRM and the National VistA Support Help Desk (888) 596-HELP"
- S MSG(I+7)=""
- S MSG(I+8)="Problem detected by routine "_RTN_"."
- S MSG(I+9)=""
- S MSG("TITLE")=TITLE,MSG("CRITICAL")=1 ; send email to Silver Spring
- Q
- ;
- ERROR(RTN,TITLE,MSG) ; application error - local to the site - no email
- N I
- S I=$O(MSG(" "),-1)
- S MSG(I+1)="Problem detected by routine "_RTN_"."
- S MSG(I+2)=""
- S MSG("TITLE")=TITLE,MSG("CRITICAL")=0 ; no email to Silver Spring
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGDIRVE 8349 printed Jan 18, 2025@03:01:44 Page 2
- MAGDIRVE ;WOIFO/PMK - Serious Fatal Image Processing Error Messages ; 17 Sep 2008 7:42 AM
- +1 ;;3.0;IMAGING;**11,30,54**;03-July-2009;;Build 1424
- +2 ;; Per VHA Directive 2004-038, this routine should not be modified.
- +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 ;; | The Food and Drug Administration classifies this software as |
- +11 ;; | a medical device. As such, it may not be changed in any way. |
- +12 ;; | Modifications to this software may result in an adulterated |
- +13 ;; | medical device under 21CFR820, the use of which is considered |
- +14 ;; | to be a violation of US Federal Statutes. |
- +15 ;; +---------------------------------------------------------------+
- +16 ;;
- +17 QUIT
- +18 ;
- +19 ; new version for RPC client-server image processing error messages
- +20 ;
- MAGZERO(RTN,LASTIEN,LASTIMG) ; from ^MAGDIR84 for bad ^MAG(2005)
- +1 NEW TITLE
- +2 KILL MSG
- +3 SET TITLE="DICOM IMAGE PROCESSING ERROR - IMAGE FILE CORRUPTION"
- +4 SET MSG(2)="The ^MAG(2005) file has been corrupted so that new images will"
- +5 SET MSG(3)="overwrite old ones and general image database inconsistency"
- +6 SET MSG(4)="will result."
- +7 SET MSG(5)=""
- +8 SET MSG(6)="Latest internal entry number processed: "
- +9 ; ^MAGDICOM(2006.563,1,"LAST IMAGE POINTER")
- SET MSG(6)=MSG(6)_LASTIMG
- +10 SET MSG(7)="Bad ^MAG(2005,0) internal entry number: "_LASTIEN
- +11 DO BADERROR(RTN,TITLE,.MSG)
- +12 QUIT
- +13 ;
- ZERONODE(RTN,LASTIEN,LASTPTR,FILE,FILENAME) ; from ^MAGDIR84
- +1 ; invoked for an arbitrary file corrupted value
- +2 NEW TITLE,ZERONODE
- +3 KILL MSG
- +4 SET TITLE="DICOM IMAGE PROCESSING ERROR - "_FILE_" FILE CORRUPTION"
- +5 SET MSG(2)="The "_FILENAME_" file has been corrupted so that new reports will"
- +6 SET MSG(3)="overwrite old ones and general image/report database inconsistency"
- +7 SET MSG(4)="will result."
- +8 SET MSG(5)=""
- +9 SET MSG(6)="Latest internal entry number processed: "
- +10 ; from ^MAGDICOM(2006.563,1,"LAST ... POINTER")
- SET MSG(6)=MSG(6)_LASTPTR
- +11 SET ZERONODE=$SELECT(FILE[")":$PIECE(FILE,")")_",0)",1:FILE_"(0)")
- +12 SET MSG(7)="Bad "_ZERONODE_" internal entry number: "_LASTIEN
- +13 DO BADERROR(RTN,TITLE,.MSG)
- +14 QUIT
- +15 ;
- OBJECT(RTN,MAGGP) ; from ^MAGDIR9B
- +1 NEW TITLE
- +2 KILL MSG
- +3 SET TITLE="DICOM IMAGE PROCESSING ERROR - WRONG GROUP OBJECT TYPE"
- +4 SET MSG(2)="The group entry in ^MAG(2005) does not have the proper group"
- +5 SET MSG(3)="object type."
- +6 SET MSG(4)=""
- +7 SET MSG(5)="The expected value is 11. The value in the group entry is "
- +8 SET MSG(5)=MSG(5)_$PIECE($GET(^MAG(2005,MAGGP,0),"^^^^^not defined"),"^",6)_"."
- +9 SET MSG(6)=""
- +10 SET MSG(7)="Internal entry number of incorrect group: "_MAGGP
- +11 DO BADERROR(RTN,TITLE,.MSG)
- +12 QUIT
- +13 ;
- MISMATCH(RTN,DFN,MAGGP) ; from ^MAGDIR9A/B/E for a patient mismatch
- +1 NEW GROUPDFN,TITLE
- +2 KILL MSG
- +3 SET TITLE="DICOM IMAGE PROCESSING ERROR - PATIENT MISMATCH PROBLEM"
- +4 SET GROUPDFN=$PIECE($GET(^MAG(2005,MAGGP,0)),"^",7)
- +5 SET MSG(2)="The image and the group point to different patients."
- +6 SET MSG(3)=""
- +7 SET MSG(4)="The Image points to PATIENT file internal entry number "_DFN
- +8 SET MSG(5)=$$PATDEMO(DFN)
- +9 SET MSG(6)=""
- +10 SET MSG(7)="The Group points to PATIENT file internal entry number "_GROUPDFN
- +11 SET MSG(8)=$$PATDEMO(GROUPDFN)
- +12 SET MSG(9)=""
- +13 SET MSG(10)="Internal entry number of group: ^MAG(2005,"_MAGGP_")"
- +14 DO BADERROR(RTN,TITLE,.MSG)
- +15 QUIT
- +16 ;
- PATDEMO(DFN) ; display patient demographics
- +1 NEW %,%H,DISYS,DTIME,VA,VADM,VAERR
- +2 if '$GET(DFN)
- QUIT "<null DFN>"
- +3 DO DEM^VADPT
- +4 ; sex & dob
- QUIT "("_$PIECE($GET(VADM(5)),"^",2)_" - "_$PIECE($GET(VADM(3)),"^",2)_")"
- +5 ;
- RADMISS(RTN,DFN,RARPT,RARPTDFN) ; from ^MAGDIR9A for a patient mismatch
- +1 ; this is bad DFN value for the radiology report in ^RARPT
- +2 NEW TITLE
- +3 KILL MSG
- +4 SET TITLE="DICOM IMAGE PROCESSING ERROR - RAD PATIENT/REPORT MISMATCH"
- +5 SET MSG(2)="The image and the radiology report point to different patients."
- +6 SET MSG(3)=""
- +7 SET MSG(4)="The Image points to PATIENT file internal entry number "_DFN
- +8 SET MSG(5)=$$PATDEMO(DFN)
- +9 SET MSG(6)=""
- +10 SET MSG(7)="The Rad Report points to PATIENT file internal entry number "_RARPTDFN
- +11 SET MSG(8)=$$PATDEMO(RARPTDFN)
- +12 SET MSG(9)=""
- +13 SET MSG(10)="Internal entry number of report: ^RARPT("_RARPT_")"
- +14 DO BADERROR(RTN,TITLE,.MSG)
- +15 QUIT
- +16 ;
- TIUMISS(RTN,DFN,TIUIEN,TIUDFN) ; from ^MAGDIR9E for a patient mismatch
- +1 ; this is bad DFN value for the consult/procedure request note in ^TIU(8925)
- +2 NEW TITLE
- +3 KILL MSG
- +4 SET TITLE="DICOM IMAGE PROCESSING ERROR - TIU PATIENT/REPORT MISMATCH"
- +5 SET MSG(2)="The image and the TIU note point to different patients."
- +6 SET MSG(3)=""
- +7 SET MSG(4)="The Image points to PATIENT file internal entry number "_DFN
- +8 SET MSG(5)=$$PATDEMO(DFN)
- +9 SET MSG(6)=""
- +10 SET MSG(7)="The TIU note points to PATIENT file internal entry number "_TIUDFN
- +11 SET MSG(8)=$$PATDEMO(TIUDFN)
- +12 SET MSG(9)=""
- +13 SET MSG(10)="Internal entry number of TIU note: ^TIU(8925,"_TIUIEN_")"
- +14 DO BADERROR(RTN,TITLE,.MSG)
- +15 QUIT
- +16 ;
- TIUMISS2(RTN,TIUIEN1,TIUIEN2,TIUXDIEN,MAGGP) ; from ^MAGDIR9E - TIU mismatch
- +1 ; mismatch between TIU, TIU External Data File, and the image group
- +2 NEW TITLE
- +3 KILL MSG
- +4 SET TITLE="DICOM IMAGE PROCESSING ERROR - TIU/IMAGE GROUP MISMATCH"
- +5 SET MSG(2)="The image group and TIU point to different notes."
- +6 SET MSG(3)=""
- +7 SET MSG(4)="TIU points to TUI note ien #"_TIUIEN1
- +8 SET MSG(5)="The image points to TIU note ien #"_TIUIEN2
- +9 SET MSG(6)="TIU External Data File (8925.91) ien #"_TIUXDIEN
- +10 SET MSG(7)="points to image group ien #"_MAGGP
- +11 DO BADERROR(RTN,TITLE,.MSG)
- +12 QUIT
- +13 ;
- TMPMISS(RTN,PARENTFP,MAGGP) ; from ^MAGDIR9E
- +1 ; the image group does not have 2006.5839 for the PARENT FILE
- +2 NEW TITLE
- +3 KILL MSG
- +4 SET TITLE="DICOM IMAGE PROCESSING ERROR - IMAGE GROUP MISMATCH"
- +5 SET MSG(2)="The image group does not point to PARENT FILE 2006.5839."
- +6 SET MSG(3)=""
- +7 SET MSG(4)="The image group should point to PARENT FILE 2006.5839."
- +8 SET MSG(5)="Instead it point to PARENT FILE #"_PARENTFP
- +9 SET MSG(6)="The image group is ^MAG(2005,"_MAGGP_")"
- +10 DO BADERROR(RTN,TITLE,.MSG)
- +11 QUIT
- +12 ;
- IMAGEPTR(RTN,IMAGEPTR,LASTIMG) ; from ^MAGDIR9B for a corrupted image pointer value
- +1 NEW TITLE
- +2 KILL MSG
- +3 SET TITLE="DICOM IMAGE PROCESSING ERROR - IMAGE ENTRY NUMBER PROBLEM"
- +4 SET MSG(2)="The internal entry number for this image is less than that of the"
- +5 SET MSG(3)="last processed image. This will cause new images to overwrite"
- +6 SET MSG(4)="old ones and general image database inconsistency will result."
- +7 SET MSG(5)=""
- +8 SET MSG(6)="Latest internal entry number processed: "
- +9 ; ^MAGDICOM(2006.563,1,"LAST IMAGE POINTER")
- SET MSG(6)=MSG(6)_LASTIMG
- +10 SET MSG(7)="Bad internal entry number of new image: "_IMAGEPTR
- +11 DO BADERROR(RTN,TITLE,.MSG)
- +12 QUIT
- +13 ;
- GROUPPTR(RTN,MAGGP,LASTIMG) ; from ^MAGDIR9A for bad group pointer
- +1 NEW TITLE
- +2 KILL MSG
- +3 SET TITLE="DICOM IMAGE PROCESSING ERROR - GROUP ENTRY NUMBER PROBLEM"
- +4 SET MSG(2)="The internal entry number for this group is less than that of the"
- +5 SET MSG(3)="last processed image. This will cause new images to overwrite"
- +6 SET MSG(4)="old ones and general image database inconsistency will result."
- +7 SET MSG(5)=""
- +8 SET MSG(6)="Latest internal entry number processed: "
- +9 ; ^MAGDICOM(2006.563,1,"LAST IMAGE POINTER")
- SET MSG(6)=MSG(6)_LASTIMG
- +10 SET MSG(7)="Bad internal entry number of new group: "_MAGGP
- +11 DO BADERROR(RTN,TITLE,.MSG)
- +12 QUIT
- +13 ;
- BADERROR(RTN,TITLE,MSG) ; final common pathway for all msgs
- +1 ; invoked by other image processing error checking code as well
- +2 NEW I
- +3 SET I=$ORDER(MSG(" "),-1)
- +4 ; usually null
- SET MSG(1)=$GET(MSG(1))
- +5 SET MSG(I+1)="Gateway: """_$GET(SYSTITLE,"<unknown>")_""""
- +6 SET MSG(I+2)=""
- +7 SET MSG(I+3)=" This is a VERY SERIOUS ERROR. Image processing"
- +8 SET MSG(I+4)=" will be halted until it is resolved."
- +9 SET MSG(I+5)=""
- +10 SET MSG(I+6)="Call IRM and the National VistA Support Help Desk (888) 596-HELP"
- +11 SET MSG(I+7)=""
- +12 SET MSG(I+8)="Problem detected by routine "_RTN_"."
- +13 SET MSG(I+9)=""
- +14 ; send email to Silver Spring
- SET MSG("TITLE")=TITLE
- SET MSG("CRITICAL")=1
- +15 QUIT
- +16 ;
- ERROR(RTN,TITLE,MSG) ; application error - local to the site - no email
- +1 NEW I
- +2 SET I=$ORDER(MSG(" "),-1)
- +3 SET MSG(I+1)="Problem detected by routine "_RTN_"."
- +4 SET MSG(I+2)=""
- +5 ; no email to Silver Spring
- SET MSG("TITLE")=TITLE
- SET MSG("CRITICAL")=0
- +6 QUIT