Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MAGIP350

MAGIP350.m

Go to the documentation of this file. 
  1. MAGIP350 ;WOIFO/PMK - Install code for MAG*3.0*350; Jun 03, 2024@14:10:12
  1.  ;;3.0;IMAGING;**350**;Mar 19, 2002;Build 4
  1.  ;; Per VHA Directive 2004-038, this routine should not be modified.
  1.  ;; +---------------------------------------------------------------+
  1.  ;; | Property of the US Government.                                |
  1.  ;; | No permission to copy or redistribute this software is given. |
  1.  ;; | Use of unreleased versions of this software requires the user |
  1.  ;; | to execute a written test agreement with the VistA Imaging    |
  1.  ;; | Development Office of the Department of Veterans Affairs,     |
  1.  ;; | telephone (301) 734-0100.                                     |
  1.  ;; | The Food and Drug Administration classifies this software as  |
  1.  ;; | a medical device.  As such, it may not be changed in any way. |
  1.  ;; | Modifications to this software may result in an adulterated   |
  1.  ;; | medical device under 21CFR820, the use of which is considered |
  1.  ;; | to be a violation of US Federal Statutes.                     |
  1.  ;; +---------------------------------------------------------------+
  1.  ;;
  1.  ; There are no environment checks here 
  1.  ; 
  1.  Q
  1.  ;
  1.  ;+++++ INSTALLATION ERROR HANDLING
  1. ERROR ;
  1.  S:$D(XPDNM) XPDABORT=1
  1.  ;--- Display the messages and store them to the INSTALL file
  1.  D DUMP^MAGUERR1(),ABTMSG^MAGKIDS()
  1.  Q
  1.  ;
  1.  ;
  1.  ;
  1.  ;***** PRE-INSTALL CODE
  1. PRE ;
  1.  Q
  1.  ;
  1.  ;***** POST-INSTALL CODE
  1. POST ;
  1.  N CALLBACK
  1.  D CLEAR^MAGUERR(1)
  1.  ;
  1.  ;--- Various Updates
  1.  D REASON ; add new reason to STATUS REASON file (#2005.88)
  1.  ;
  1.  ;--- Send the notification e-mail
  1.  D BMES^XPDUTL("Post Install Mail Message: "_$$FMTE^XLFDT($$NOW^XLFDT))
  1.  D INS^MAGQBUT4(XPDNM,DUZ,$$NOW^XLFDT,XPDA)
  1.  Q
  1.  ;
  1. REASON ; add new reason to STATUS REASON file (#2005.88)
  1.  N DIC,IEN,IENS,MAGERR,MAGIENS,REASON,REASONIEN,X,Y
  1.  S REASON="Corrected DICOM image generated by Patch MAG*3.0*350"
  1.  S REASONIEN=$O(^MAG(2005.88,"B",$E(REASON,1,30),""))
  1.  I REASONIEN W !!,"STATUS REASON (file #2005.88) previously updated",! Q  ; already added
  1.  ;
  1.  ; create the new IEN for the STATUS REASON
  1.  S IEN=$O(^MAG(2005.88,99999),-1)
  1.  S IEN=IEN+1
  1.  S IENS="+1,"
  1.  S MAGFDA(2005.88,IENS,.01)=REASON ; REASON
  1.  S MAGFDA(2005.88,IENS,.02)="S"    ; TYPE (S=Change image status)
  1.  S MAGFDA(2005.88,IENS,.03)=""     ; DATE OF INACTIVATION
  1.  S MAGFDA(2005.88,IENS,.04)=IEN    ; CODE (same as IEN)
  1.  D UPDATE^DIE("","MAGFDA","MAGIENS","MAGERR")
  1.  I $D(MAGERR) W !!,"Error #1 in REASON^MAGIP350",! Q
  1.  ;
  1.  ; Add the DESCRIPTION (Word-Processing Field and must be saved separately)
  1.  N REASON
  1.  S REASON(1,0)="A problem was caused by patch MAG*3.0*226 (October 2019) which changed"
  1.  S REASON(2,0)="the way that Clinical Capture stored DICOM images."
  1.  S REASON(3,0)=" "
  1.  S REASON(4,0)="Instead of saving them as DICOM objects, they were stored as raw JPEG"
  1.  S REASON(5,0)="images with a *.DCM extension (that is, JPEG.DCM)."
  1.  S REASON(6,0)=" "
  1.  S REASON(7,0)="These images have been converted to DICOM by MAG*3.0*350 and reprocessed."
  1.  D WP^DIE(2005.88,IEN_",",1,"K","REASON","MAGERR")
  1.  I $D(MAGERR) W !!,"Error #2 in REASON^MAGIP350",! Q
  1.  ;
  1.  W !!,"STATUS REASON (file #2005.88) successfuly updated",!
  1.  Q
  1.  ;
  1. UPDATE() ; nothing to update
  1.  Q 0