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

MAGGTRP1.m

Go to the documentation of this file. 
  1. MAGGTRP1 ;WOIFO/GEK - Display Associated Report ; [ 11/08/2001 17:18 ]
  1.  ;;3.0;IMAGING;**8**;Sep 15, 2004
  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. RAD(MAGRPTY,RARPT) ;RPC [MAGGRADREPORT] Call to retrun a Radiology report
  1.  ; MAGRPTY is the return array
  1.  ; RARPT is the Radiology Report IEN i.e. ^RARPT(RARPT
  1.  N ERRRES,RPTRES
  1.  S ERRRES=""
  1.  D OPENDEV Q:POP
  1.  D BUILD(RARPT)
  1.  S RPTRES=$G(@MAGRPTY@(0))
  1.  I 'RPTRES S ERRRES=RPTRES
  1.  I +RPTRES=-2 S ERRRES=RPTRES
  1.  D:IO'=IO(0) ^%ZISC
  1.  I $L(ERRRES) K @MAGRPTY S @MAGRPTY@(0)=ERRRES
  1.  ; Mod Patch5 block Questionable reports 
  1.  ; stop incorrectly report success on a failed report attempt.  this line is 
  1.  ; moved inside BUILD tag
  1.  ;S @MAGRPTY@(0)="1^OK"
  1.  Q
  1. BUILD(RARPT) ;Call to generate the Radiology Report
  1.  ; This call is called be various Imaging routines to get the Rad Report
  1.  ; This call assumes the device is already open.
  1.  ; New the variables that'll be defined in the call to RASET^RAUTL2
  1.  N RACN,RACNI,RADATE,RADFN,RADTE,RADTI
  1.  ; We'll use these
  1.  ; RADTI = Inverse date/time for rad order
  1.  ; RACNI = rad case number
  1.  ; RADFN = Patient DFN
  1.  N I,Y,X,MAGPRC,XINF
  1.  IF $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ERRA^MAGGTRP1"
  1.  E  S X="ERRA^MAGGTPR1",@^%ZOSF("TRAP")
  1.  I RARPT["PMRAD" S @MAGRPTY@(0)="-2^Patient Mismatch. Radiology Files" Q
  1.  I '$G(RARPT) S @MAGRPTY@(0)="0^NO Radiology Report number." Q
  1.  ; 
  1.  I '$$FIND1^DIC(74,"","A",+RARPT) S @MAGRPTY@(0)="0^Radiology report entry "_RARPT_" is not on file.  Contact IRM." Q
  1.  ;
  1.  S Y=RARPT
  1.  ; This call will define the needed variables RADTI,RACNI and RADFN
  1.  D RASET^RAUTL2
  1.  ;D RPT2DPT(RARPT,.XINF)
  1.  ;S ^TMP("MAGQIRP1",$J,"XINF")=XINF
  1.  ;I +XINF'=RADFN S @MAGRPTY@(0)="0^Patient Mismatch. Radiology Files"  Q
  1.  S ^TMP("MAGQIRP1",$J)="RADFN "_RADFN_" RADTI "_RADTI_" RACNI "_RACNI
  1.  S ^TMP("MAGQIRP1",$J,1)="RARPT "_RARPT_" ,0)="_$G(^RARPT(RARPT,0))
  1.  D EN3^RAO7PC3(RADFN_"^"_RADTI_"^"_RACNI)
  1.  I '$D(^TMP($J,"RAE3")) D  Q
  1.  . S @MAGRPTY@(0)="0^Radiology report not on file.  Contact IRM." Q
  1.  S MAGPRC=$O(^TMP($J,"RAE3",RADFN,RACNI,""))
  1.  S I=0 F  S I=$O(^TMP($J,"RAE3",RADFN,RACNI,MAGPRC,I)) Q:'I  D
  1.  . W !,$G(^TMP($J,"RAE3",RADFN,RACNI,MAGPRC,I))
  1.  ; 2.5P5  This line was moved from above.  So this BUILD function
  1.  ;        should now correctly return success or failure.
  1.  S @MAGRPTY@(0)="1^OK"
  1.  Q
  1. OPENDEV ;
  1.  S MAGRPTY=$NA(^TMP($J,"WSDAT"))
  1.  K @MAGRPTY ; clean it up first.
  1.  S IOP="IMAGING WORKSTATION",%ZIS=0 D ^%ZIS
  1.  I POP S @MAGRPTY@(0)="0^Can't open device IMAGING WORKSTATION" Q
  1.  U IO
  1.  Q
  1. ERRA ;
  1.  S @MAGRPTY@(0)="0^ERROR "_$$EC^%ZOSV
  1.  D @^%ZOSF("ERRTN")
  1.  Q
  1. GRPDESC(MAGIEN) ; PRINT LONG DESC OF IMAGE GROUP and ALL children in Group
  1.  ;DEVICE HAS ALREADY BEEN OPENED
  1.  N MAGCIEN,MAGJ,MAGDASH
  1.  S $P(MAGDASH,"_",79)="_"
  1.  K ^UTILITY($J,"W")
  1.  D GETDESC(MAGIEN)
  1.  S MAGCIEN=0
  1.  F  S MAGCIEN=$O(^MAG(2005,MAGIEN,1,MAGCIEN)) Q:'MAGCIEN  D
  1.  . S MAGJ=^MAG(2005,MAGIEN,1,MAGCIEN,0)
  1.  . I '$D(^MAG(2005,+MAGJ,3)) Q
  1.  . D GETDESC(MAGJ)
  1.  W MAGDASH
  1.  Q
  1. GETDESC(MAGIEN) ;
  1.  ;
  1.  N X,MAGI,DIWR,DIWL,DIWF,MAGHD
  1.  I $O(^MAG(2005,MAGIEN,1,0)) S MAGHD="Group"
  1.  E  S MAGHD="Image"
  1.  W MAGHD_" ID# "_MAGIEN,!
  1.  I $O(^MAG(2005,MAGIEN,3,0)) D
  1.  . S DIWR=80,DIWL=1,DIWF="N"
  1.  . W MAGHD_" : "_$P(^MAG(2005,MAGIEN,2),U,4),!
  1.  . W MAGHD_" Long Description:  ",!
  1.  . S MAGI=0
  1.  . F  S MAGI=$O(^MAG(2005,MAGIEN,3,MAGI)) Q:+MAGI<1  D
  1.  . . S X=^MAG(2005,MAGIEN,3,MAGI,0) D ^DIWP
  1.  . D ^DIWW
  1.  . W !
  1.  Q
  1. RPT2DPT(RARPT,RET) ; For input RARPT, return string RET containing case
  1.  ;                 subscript values for accessing ^RADPT
  1.  ; Stole this code from john, don't tell him.
  1.  ; * This subroutine may be called by other routines of the Radiology
  1.  ;   Imaging Workstation programs
  1.  ;
  1.  N DFN,DTI,CNI S (DFN,DTI,CNI)=""
  1.  I RARPT?1N.N,$D(^RARPT(RARPT)) S X=$G(^(RARPT,0)) I X]"" D
  1.  . S X=$P(X,U)
  1.  . S X=$O(^RADPT("ADC",X,0)) I X S DFN=X,DTI=$O(^(X,0)),CNI=$O(^(DTI,0))
  1.  . S RET=DFN_U_DTI_U_CNI
  1.  E  S RET=""
  1.  Q