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

MAGGSFT.m

Go to the documentation of this file. 
  1. MAGGSFT ;WOIFO/GEK - Utilities  ; 26 May 2010 10:20 AM
  1.  ;;3.0;IMAGING;**7,8,94,158**;Mar 19, 2002;Build 12;May 19, 2015
  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.  Q
  1. LIST(MAGRY) ;RPC [MAG4 GET SUPPORTED EXTENSIONS]
  1.  ;to return a list of supported image file extensions
  1.  N I,Y,CT,MAGN0
  1.  ;NAME [1F] ^ DESCRIPTION [2F] ^VIEWER [3S] ^ 
  1.  ;       Bitmap for Abstract [4F] ^Abstract Created [5S] ^ Default Object Type [6P]
  1.  ;
  1.  ;  2nd "|" piece is system info = Ien of 2005.021 ^ NAME ^ Default Object Type [6P]
  1.  S MAGRY(0)="0^Compiling list of supported extensions..."
  1.  S MAGRY(1)="Ext^Description^Imaging Viewer^Abs Bitmap^Abs Created"
  1.  S CT=1
  1.  S I=0 F  S I=$O(^MAG(2005.021,I)) Q:'I  S MAGN0=^(I,0) D
  1.  . I $P(^MAG(2005.021,I,0),"^",7)=0 Q
  1.  . S CT=CT+1
  1.  . S MAGRY(CT)=$P(MAGN0,U,1,5)_"|"_I_U_$P(MAGN0,U)_U_$P(MAGN0,U,6)
  1.  S MAGRY(0)="1^Okay"
  1.  Q
  1. EXTSUPP(MAGRY,MAGEXT) ; Is the Extension supported 
  1.  ; MAGRY(0) = 1|0 ^ message
  1.  ; 
  1.  N MAGIEN
  1.  S MAGEXT=$$UP^XLFSTR(MAGEXT) ; IA #10104
  1.  S MAGIEN=$O(^MAG(2005.021,"B",MAGEXT,""))
  1.  I 'MAGIEN S MAGRY(0)="0^Unsupported File Extension : "_MAGEXT Q 0
  1.  I $P(^MAG(2005.021,MAGIEN,0),"^",7)=0 S MAGRY(0)="0^No Longer Supported File Extension : "_MAGEXT Q 0
  1.  S MAGRY(0)="1^OK"
  1.  Q MAGIEN
  1.  ;
  1. INFO(MAGRY,MAGEXT) ;RPC [MAG4 GET FILE FORMAT INFO]
  1.  ;IMAGE FILE TYPES FILE ^MAG(2005.021
  1.  ;NAME [1F] ^ DESCRIPTION [2F] ^VIEWER [3S] ^ 
  1.  ; Bitmap for Abstract [4F] ^Abstract Created [5S] ^ Default Object Type [6P]
  1.  ;
  1.  ;"Ext^Description^Imaging Viewer^Abs Bitmap^Abs Created"
  1.  ; "|" IEN ^ NAME ^ Default Object Type [6P] 
  1.  ; 
  1.  N MAGN0,MAGIEN
  1.  K MAGRY
  1.  S MAGIEN=$$EXTSUPP(.MAGRY,MAGEXT) ; Set MAGRY(0) and get IEN
  1.  I 'MAGIEN Q
  1.  S MAGN0=^MAG(2005.021,MAGIEN,0)
  1.  S MAGRY(1)=$P(MAGN0,U,1,5)_"|"_MAGIEN_U_$P(MAGN0,U)_U_$P(MAGN0,U,6)
  1.  Q
  1. ABS4IMAG(MAGIEN) ; True, False  If the Image (MAGIEN) has an abstract
  1.  ;  We base this on the Extension of image, in the IMAGE FILE TYPES file.
  1.  N X,FTIEN
  1.  S X=$P($P($G(^MAG(2005,MAGIEN,0)),"^",2),".",2)
  1.  I '$L(X) Q 0
  1.  S FTIEN=$O(^MAG(2005.021,"B",X,""))
  1.  I 'FTIEN Q 0
  1.  Q $P(^MAG(2005.021,FTIEN,0),"^",5)
  1.  ;
  1. ABSPDFNO(VAL) ;PATCH 158 Backout routine.
  1.  ; if a site needs to turn OFF creation of abstracts for PDF's, they
  1.  ; can call this tag.
  1.  ;  Called with VAL = ""     it will default to 0)
  1.  ;  Called with VAL = 0      turn off creation of Abstracts for PDF's)
  1.  ;  Called with VAL = 1      turn ON creation of Abstracts for PDF's)
  1.  N PDFID
  1.  S PDFID=$O(^MAG(2005.021,"B","PDF",""))
  1.  I 'PDFID W !,"Error - PDF entry does not exist in IMAGE FILE TYPES File" Q
  1.  S VAL=$G(VAL,0)
  1.  ;   if turning off
  1.  I 'VAL D  W !,"Abstracts for PDF's will not be created" Q
  1.  . S $P(^MAG(2005.021,PDFID,0),"^",4)="magpdf.bmp" ;canned bitmap to use.
  1.  . S $P(^MAG(2005.021,PDFID,0),"^",5)="0"          ; abstracts created = 0  NO
  1.  . Q
  1.  I VAL D  W !,"Abstracts for PDF's will be created" Q
  1.  . S $P(^MAG(2005.021,PDFID,0),"^",4)=""     ; erase the canned bitmap.
  1.  . S $P(^MAG(2005.021,PDFID,0),"^",5)="1"    ; abstracts created = 1  YES
  1.  . Q
  1.  Q