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

MAGGSIA.m

Go to the documentation of this file.
  1. MAGGSIA ;WOIFO/GEK/SG/NST - Imaging RPC Broker calls. Add/Modify Image entry ; Dec 05, 2018@10:43am
  1. ;;3.0;IMAGING;**7,21,8,59,93,201,221**;Dec 02, 2009;Build 163
  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. ;; | |
  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. ;
  1. ;**** CALLING ROUTINE is responsible for RENAMING THE IMAGE FILE
  1. ;**** on DISK TO THE NEW FILE NAME RETURNED BY THIS CALL.
  1. ;
  1. ADD(MAGRY,MAGARRAY) ; RPC [MAG4 ADD IMAGE]
  1. ; Calls UPDATE^DIE to Add an Image File entry
  1. ; Called from Import API Delphi component and ImportX (Active X) control.
  1. ; Parameters :
  1. ; MAGARRAY - array of field numbers and their entries
  1. ; i.e. MAGARRAY(1)=".5^38" field# .5 data is 38
  1. ; If Long Description is included in array (field 11), we create a new
  1. ; array to hold the text, and pass that to UPDATE^DIE
  1. ; If this entry is an Image Group
  1. ; i.e. MAGARRAY(n)="2005.04^344"
  1. ; (the field 2005.04 is the OBJECT GROUP MULTIPLE)
  1. ; ( 344 is the pointer to the Image File Entry that will be added
  1. ; ( as a member of this new/existing Group)
  1. ;
  1. ; Return Variable
  1. ;
  1. ; MAGRY(0) - Array
  1. ; Successful MAGRY(0) = IEN^FILE NAME (with full path)
  1. ; UNsuccessful MAGRY(0) = 0^Error desc
  1. ; MAGRY(0)(1..n) = Errors and warnings.
  1. ;
  1. ; CALLING ROUTINE is responsible for RENAMING THE IMAGE FILE on DISK
  1. ; TO THE NEW FILE NAME RETURNED BY THIS CALL.
  1. ; Changed to include hierarchical directory hash - PMK 04/23/98
  1. ;----------------------------------------------------------------
  1. N MAGGFDA,MAGGDRV,MAGGRP,MAGCHLD,GRPCT,MAGGDA,MAGGFNM
  1. N MAGGWP,MAGERR,MAGREF,MAGDHASH,MAGTEMP,MAGACT,MAGGIEN,MAGGXE
  1. N NEWIEN,I,J,X,Y,Z,WPCT
  1. ;
  1. N $ETRAP,$ESTACK S $ETRAP="D ERRA^MAGGSERR"
  1. I ($D(MAGARRAY)<10) S MAGRY(0)="0^No input data, Operation CANCELED" Q
  1. ;
  1. S MAGRY(0)="0^Creating VistA Image Entry..."
  1. S MAGERR="",MAGGRP=0,GRPCT=1,WPCT=0
  1. ; Validate the Data, and Action codes in the Input Array
  1. D VAL^MAGGSIV(.MAGRY,.MAGARRAY) I 'MAGRY(0) Q
  1. ;
  1. ; Make the FileMan FDA array and the Imaging Action array.
  1. D MAKEFDA^MAGGSIU2(.MAGGFDA,.MAGARRAY,.MAGACT,.MAGCHLD,.MAGGRP,.MAGGWP)
  1. I '$D(MAGGFDA(2005,"+1,")) S MAGRY(0)="0^No data to file. Operation CANCELED." Q
  1. ;
  1. ;Q:'$$VALINDEX^MAGGSIV1(.MAGRY,$G(MAGGFDA(2005,"+1,",42)),$G(MAGGFDA(2005,"+1,",44)),$G(MAGGFDA(2005,"+1,",43)))
  1. ; Check on some possible problems: required fields, create default values etc.
  1. D PRE^MAGGSIA1(.MAGERR,.MAGGFDA,MAGGRP,.MAGGDRV,.MAGREF) I $L(MAGERR) S MAGRY(0)=MAGERR Q
  1. ; Locking Patch 8. Get latest Image IEN and Deleted IEN take the greater of the two.
  1. S (MAGGIEN(1),NEWIEN)=$$NEWIEN^MAGGI12() ; SG - MAG*3*93
  1. D UPDATE^DIE("S","MAGGFDA","MAGGIEN","MAGGXE")
  1. ;
  1. ; ERROR: QUIT
  1. I '$G(MAGGIEN(1)) D S MAGRY(0)=MAGERR Q
  1. . S MAGERR="0^ERROR Creating new Image File Entry "
  1. . I $D(DIERR) D RTRNERR^MAGGSIU1(.MAGERR)
  1. . D CLEAN
  1. ;
  1. S MAGGDA=MAGGIEN(1)
  1. ;
  1. D ACTION^MAGGTAU("CAP^"_MAGGFDA(2005,"+1,",5)_"^"_MAGGDA)
  1. ;
  1. ; IF a group, UpDate the GROUP PARENT in each Group Object and QUIT
  1. ; The Return (MAGRY(0)) will be IEN with NO Filename. Groups don't get Filename
  1. I MAGGRP D G C1
  1. . D UPDCHLD^MAGGSIM(.MAGCHLD,MAGGDA)
  1. . S MAGRY(0)=MAGGDA_U
  1. . D CLEAN
  1. . Q
  1. ; ENTRY in Image File has been made, if any errors from here on
  1. ; then we have to delete the image entry.
  1. ; IF This image is a member of a Group, Update the Group Entry with new child.
  1. S X=$G(MAGGFDA(2005,"+1,",14)) I +X D I $L(MAGERR) Q
  1. . D UPDPAR^MAGGSIM(.MAGERR,X,.MAGACT,MAGGDA)
  1. . I $L(MAGERR) S MAGRY(0)=MAGERR D CLEAN
  1. ;
  1. ; Now generate the Image FileName. This is passed back to the calling app,
  1. ; and the calling app is responsible for renaming/copying the Image File to
  1. ; this new name.
  1. I $D(MAGGFDA(2005,"+1,",1)) S MAGGFNM=MAGGFDA(2005,"+1,",1)
  1. E D I $L(MAGERR) S MAGRY(0)=MAGERR Q
  1. . N MAGXFDA
  1. . S X=$$DA2NAME^MAGGTU1(MAGGDA,$G(MAGACT("EXT"))) I 'X D Q
  1. . . S MAGERR=X
  1. . . D KILLENT^MAGGSIU1(MAGGDA)
  1. . . D CLEAN
  1. . ;
  1. . S MAGGFNM=$P(X,U,2),Y=MAGGDA_","
  1. . S MAGXFDA(2005,Y,1)=MAGGFNM
  1. . D UPDATE^DIE("","MAGXFDA","","MAGGXE")
  1. . ; in case of an error
  1. . I $D(DIERR) D Q
  1. . . D RTRNERR^MAGGSIU1(.MAGERR,.MAGGXE)
  1. . . D KILLENT^MAGGSIU1(MAGGDA)
  1. . . D CLEAN
  1. ;
  1. C1 ; 59
  1. K MAGGFDA ; P59.
  1. ;P59 Now we Auto-Generate the Index Fields, if they don't exist for this entry
  1. I '$D(^MAG(2005,MAGGDA,40)) D
  1. . N INDXD
  1. . D GENIEN^MAGXCVI(MAGGDA,.INDXD)
  1. . D COMIEN^MAGXCVC(MAGGDA,.INDXD)
  1. . S ^MAGIXCVT(2006.96,MAGGDA)=1 ; Flag. Says fields were converted by index generation
  1. . ; TRKING ID TRKID = MAGGFDA(2005,"+1,",108)
  1. . ;;D ACTION^MAGGTAU("GENINDX^"_MAGGFDA(2005,"+1,",5)_"^"_MAGGDA_"$$"_MAGGFDA(2005,"+1,",108))
  1. . D ACTION^MAGGTAU("INDEX-ALL^"_$P(^MAG(2005,MAGGDA,0),"^",7)_"^"_MAGGDA_"$$"_$P(^MAG(2005,MAGGDA,100),"^",5))
  1. . Q
  1. ;
  1. ;P59 If TYPE INDEX is missing we Auto-Generate Index Type and other missing Index Term values.
  1. I '$P(^MAG(2005,MAGGDA,40),"^",3) D
  1. . N INDXD,OLD40,N40
  1. . S (N40,OLD40)=^MAG(2005,MAGGDA,40)
  1. . D GENIEN^MAGXCVI(MAGGDA,.INDXD)
  1. . ; If Origin doesn't exist in existing, this will put V in.
  1. . I $P(INDXD,"^",6)="" S $P(INDXD,"^",6)="V"
  1. . ; We're not changing existing values of Spec,Proc or Origin
  1. . F J=1:1:6 I '$L($P(N40,"^",J)) S $P(N40,"^",J)=$P(INDXD,"^",J)
  1. . ;Validate the merged Spec and Proc, if not valid, revert back to old Spec and Proc
  1. . I '$$VALINDEX^MAGGSIV1(.X,$P(N40,"^",3),$P(N40,"^",5),$P(N40,"^",4)) S $P(N40,"^",4,5)=$P(OLD40,"^",4,5)
  1. . S ^MAG(2005,MAGGDA,40)=N40
  1. . ;;D ACTION^MAGGTAU("INDEX-42^"_$P(^MAG(2005,MAGGDA,0),"^",7)_"^"_MAGGDA) ;_"$$"_MAGGFDA(2005,"+1,",108))
  1. . D ACTION^MAGGTAU("INDEX-42^"_$P(^MAG(2005,MAGGDA,0),"^",7)_"^"_MAGGDA_"$$"_$P(^MAG(2005,MAGGDA,100),"^",5))
  1. . D ENTRY^MAGLOG("INDEX-42",DUZ,MAGGDA,"P59",$P(^MAG(2005,MAGGDA,0),"^",7),1)
  1. . Q
  1. ;** ABS and JB image queues AREN'T SET WHEN ADDING AN IMAGE.
  1. ;** RPC =-> 'MAG ABSJB' after abstract is/isn't created on the workstation
  1. ;
  1. ; The Return is: IEN ^ DRIVE:DIR ^ FILE.EXT [^ DRIVE:DIR ^ FILE.BIG]
  1. ; example: 487^C:\IMAGE\^DC000487.TIF
  1. ; The calling routine is responsible for renaming/naming the file
  1. ; to the returned DRIVE:\DIR\FILENAME.EXT
  1. ;
  1. ; Modified 4/23/98 to include hierarchical directory structure -- PMK
  1. I 'MAGGRP D
  1. . S MAGDHASH=$$DIRHASH^MAGFILEB(MAGGFNM,MAGREF)
  1. . ; For now, BIG files are in same directory as FullRes (or PACS) file
  1. . S MAGRY(0)=MAGGDA_U_MAGGDRV_MAGDHASH_U_MAGGFNM
  1. . ; If BIG file also, add it's Drive, Hash, Filename to end of Return string.
  1. . I $G(MAGACT("BIG")) D
  1. . . S X=$P(MAGGFNM,".",1)_".BIG"
  1. . . S MAGRY(0)=MAGRY(0)_U_MAGGDRV_MAGDHASH_U_X
  1. . . Q
  1. . Q
  1. ;
  1. N MAGOUT
  1. D NWI2005^MAGNWRK1(.MAGOUT,MAGGDA) ; add a new storage work item
  1. ;
  1. CLEAN ; Called as tag
  1. D CLEAN^DILF
  1. L -^MAG(2005,NEWIEN)
  1. Q