MAGNAN03 ;WOIFO/NST - Get image annotations ; 10 Apr 2018 3:59 PM
;;3.0;IMAGING;**185,197**;Mar 19, 2002;Build 4525;May 01, 2013
;; 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
;
;***** Get image annotations by CPRS context or Image IEN
;
; RPC: MAGN ANNOT GET IMAGE ANNOT
;
; Input Parameters
; ================
;
; DATA - ContextID in format
; e.g. 'RPT^CPRS^29027^RA^79029185.9998-1'
; or
; RPT^CPRS^4658^TIU^2243408^^^^^^^^1
; or
; ^ ^ ^MAG^10454
;
; Return Values
; =============
;
; if error MAGRY(0) = 0 ^Error message^
; if success MAGRY(0) = 1
; MAGRY(1..n) = NEXT_CONTEXTID | CONTEXTID | 0 or 1 |
; NEXT_IMAGE | IMAGE IEN
; images in format defined in RPC [MAGJ STUDY_DATA] or
; [MAG ANNOT GET IMAGE DETAIL], [MAG ANNOT GET IMAGE]
;
IMAGEL(MAGRY,DATA) ;RPC [MAGN ANNOT GET IMAGE ANNOT]
N MAGNCNT,MAGNX,RARPT
N $ETRAP,$ESTACK S $ETRAP="D AERRA^MAGGTERR"
S MAGRY=$NA(^TMP("MAGNTRAI",$J))
K @MAGRY
S @MAGRY@(0)=0
S MAGNCNT=0
S MAGNX=$P(DATA,"^",4)
I MAGNX="RA" D Q
. D GRAANNCX(MAGRY,MAGNCNT,DATA) ; get RAD annotations
. Q
;
I MAGNX="TIU" D Q
. D GTUIANN(MAGRY,MAGNCNT,DATA) ; Get TIU annotations
. Q
;
I MAGNX="MAG" D Q
. D GMAGANN(MAGRY,MAGNCNT,DATA) ; Get TIU annotations
. Q
;
S MAGNCNT=MAGNCNT+1
S @MAGRY@(MAGNCNT)="NEXT_CONTEXTID|"_DATA_"|0|"_"Invalid ContextId Type"
S @MAGRY@(0)=1
Q
;
GRAANNCX(MAGRY,MAGNCNT,MAGNCXT) ; Get RAD annotations by CPRS Context ID
N MAGX,MAGNRPT,DATA
;
S MAGNRPT=$$GRARPT(MAGNCXT) ; Get RA Report IEN by CPRS Context
S MAGNCNT=MAGNCNT+1
S @MAGRY@(MAGNCNT)="NEXT_CONTEXTID|"_MAGNCXT_"|"_MAGNRPT_"|RAD"
I MAGNRPT'>0 Q
;
; e.g. MAGNCXT=RPT^CPRS^29027^RA^79029185.9998-1
; See MAGJEX3
; MAGX--TXID ^ DFN ^ DTI ^ CNI ^ RARPT ^ MAGIEN ^ PSDETAIL
S $P(MAGX,"^",1)=3 ; TXID Key and Interp Images
S $P(MAGX,"^",2)=$P(MAGNCXT,"^",3) ; DFN
S $P(MAGX,"^",3)=$P($P(MAGNCXT,"^",5),"-",1)
S $P(MAGX,"^",4)=$P($P(MAGNCXT,"^",5),"-",2)
S $P(MAGX,"^",5)=MAGNRPT ; Report IEN
S $P(MAGX,"^",7)=1 ; PSDETAIL
;
D GRAANN(MAGRY,.MAGNCNT,MAGNCXT,MAGX)
;
; Get Clinical Annotations
D GIMGRARP(.DATA,MAGNRPT)
D GIENANN(MAGRY,.MAGNCNT,MAGNCXT,.DATA)
Q
;
GRAANNRP(MAGRY,MAGNCNT,MAGNCXT,MAGNRPT) ; Get RAD annotations by RA Report
N MAGX
;
S MAGNCNT=MAGNCNT+1
S @MAGRY@(MAGNCNT)="NEXT_CONTEXTID|"_MAGNCXT_"|"_MAGNRPT_"|RAD"
I MAGNRPT'>0 Q
;
; e.g. MAGNCXT=^^^MAG^10454
; See MAGJEX3
; MAGX--TXID ^ DFN ^ DTI ^ CNI ^ RARPT ^ MAGIEN ^ PSDETAIL
S $P(MAGX,"^",1)=3 ; TXID Key and Interp Images
S $P(MAGX,"^",2)="" ; DFN
S $P(MAGX,"^",3)=""
S $P(MAGX,"^",4)=""
S $P(MAGX,"^",5)=MAGNRPT ; Report IEN
S $P(MAGX,"^",7)=1 ; PSDETAIL
;
D GRAANN(MAGRY,.MAGNCNT,MAGNCXT,MAGX)
Q
;
GRAANN(MAGRY,MAGNCNT,MAGNCXT,MAGX) ; Get Radiology study annotations
N J,MAGOUT
;
D RPCIN^MAGJEX3(.MAGOUT,MAGX)
S @MAGRY@(MAGNCNT)="NEXT_CONTEXTID|"_MAGNCXT_"|"_@MAGOUT@(0)_"|RAD"
S J=0
F S J=$O(@MAGOUT@(J)) Q:'J D
. S MAGNCNT=MAGNCNT+1
. S @MAGRY@(MAGNCNT)=@MAGOUT@(J)
. Q
K @MAGOUT
S @MAGRY@(0)=1
Q
;
GTUIANN(MAGRY,MAGNCNT,MAGNCXT) ;Get TIU annotations
N DATA,MAGNTIU
;
S MAGNTIU=$P(MAGNCXT,"^",5)
D IMAGES^MAGGNTI(.DATA,MAGNTIU) ; Get all images for TIU
;
D GIENANN(MAGRY,.MAGNCNT,MAGNCXT,.DATA) ;Get annotations for image IEN
;
Q
;
GMAGANN(MAGRY,MAGNCNT,MAGNCXT) ; Get study annotations by image ien
N DATA,MAGIEN,MAGROOT,MAGD0
;
S MAGIEN=$P(MAGNCXT,"^",5)
S MAGROOT=$$GET1^DIQ(2005,MAGIEN,16)
S MAGD0=$$GET1^DIQ(2005,MAGIEN,17)
;
I MAGROOT="TIU" D Q
. D IMAGES^MAGGNTI(.DATA,MAGD0) ; Get all images for TIU
. D GIENANN(MAGRY,.MAGNCNT,MAGNCXT,.DATA) ;Get annotations for image IEN
. Q
;
I MAGROOT="RADIOLOGY" D Q
. D GRAANNRP(MAGRY,MAGNCNT,MAGNCXT,MAGD0)
. ; Try to get images in case of Capture (Clinical) annotation
. D IMAGES(.DATA,MAGIEN) ; Get Images by Group image IEN
. D GIENANN(MAGRY,.MAGNCNT,MAGNCXT,.DATA) ;Get annotations for image IEN
. Q
;
I MAGROOT="" D ; No report
. D IMAGES(.DATA,MAGIEN) ; Get Images by Group image IEN
. D GIENANN(MAGRY,.MAGNCNT,MAGNCXT,.DATA) ;Get annotations for image IEN
. Q
Q
;
GRARPT(DATA) ; Get RA Report IEN by CPRS Context
N DFN,ENT,INVDTTM,INVDT,INVTM,RARPT
S DFN=+$P(DATA,U,3)
S ENT=+$P($P(DATA,U,5),"-",2)
S INVDTTM=$P($P(DATA,U,5),"-",1)
S INVDT=$P(INVDTTM,".",1)
S INVTM=$P(INVDTTM,".",2)
F Q:($L(INVDT)<8) S INVDT=$E(INVDT,2,$L(INVDT))
S INVDTTM=INVDT_"."_INVTM
S RARPT=0
I '$D(^RADPT(DFN,"DT",INVDTTM,"P",ENT,0)) Q "0^INVALID Data : Attempt to access Exam failed."
S RARPT=$P(^RADPT(DFN,"DT",INVDTTM,"P",ENT,0),U,17)
I 'RARPT Q "0^No Report for selected Exam"
I $P($G(^RARPT(RARPT,0)),U,2)'=DFN Q "-2^Patient Mismatch. Radiology File"
Q RARPT
;
GIENANN(MAGRY,MAGNCNT,MAGNCXT,DATA) ;Get annotations for image IEN
; MAGRY = Output array
; MAGNCNT = initial output counter
; MAGNCXT = Context ID
; DATA(0) = Result output
; DATA(1..n) = Image IEN
;
N J,I,MAGIEN,MAGNTIU,MAGOUT
;
I '$D(DATA(0)) Q ; no data to report
S MAGNCNT=MAGNCNT+1
S @MAGRY@(MAGNCNT)="NEXT_CONTEXTID|"_MAGNCXT_"|"_DATA(0)_"|CLN"
I 'DATA(0) Q ; Error quit
;
S I=0
F S I=$O(DATA(I)) Q:'I D
. S MAGIEN=$P(DATA(I),"^",2)
. K MAGOUT
. ;P122 handles only one type of annotation (Clinic or VistARAD), but not on both
. I '$D(^MAG(2005.002,MAGIEN,0)) Q ; VistA Rad annotations are present. Quit. We need only Clinic
. D GETD^MAGSANNO(.MAGOUT,MAGIEN) ; Get annotation details by image IEN
. S MAGNCNT=MAGNCNT+1
. S @MAGRY@(MAGNCNT)="NEXT_IMAGE|"_MAGIEN_"|"_MAGOUT(0)
. I 'MAGOUT(0) Q ; Error, get next one
. S J=0
. F S J=$O(MAGOUT(J)) Q:'J D
. . S MAGNCNT=MAGNCNT+1
. . S @MAGRY@(MAGNCNT)=MAGOUT(J)
. . Q
. Q
S @MAGRY@(0)=1
Q
;
IMAGES(DATA,MAGIEN) ; Get all Images for a Group Image IEN
N GROUP
S GROUP=$$ISGRP^MAGGI11(MAGIEN)
S DATA(0)=1 ; Set result to okay
I GROUP D Q
. N NO,CH
. S NO=0
. F S NO=$O(^MAG(2005,MAGIEN,1,NO)) Q:'NO D
. . S CH=+$G(^MAG(2005,MAGIEN,1,NO,0))
. . Q:'CH
. . S $P(DATA(NO),"^",2)=CH
. Q
S $P(DATA(1),"^",2)=MAGIEN
Q
;
GIMGRARP(DATA,RARPT) ; Get list of images by radiology report
; RARPT -- Radiology report IEN
; and returns a list in DATA(1..n).
;
N GROUPS,OUT,REQDFN
;
N CT,OI,IGCT,MAGIEN1,MAGQI,MAGX
K MAGZRY
S IGCT=+$P($G(^RARPT(RARPT,2005,0)),U,4)
; Quit if no images for RARPT
I IGCT=0 Q
;
; Check all Image entries in RARPT 2005 NODE. for Patient match Pointer match, from both
; RARPT end, and Imaging end.
S MAGQI=1
S OI=0,CT=1 F S OI=$O(^RARPT(RARPT,2005,OI)) Q:'OI D Q:(MAGQI<1)
. S MAGIEN1=$P(^RARPT(RARPT,2005,OI,0),U)
. ; Assure magdfn = rarpt dfn
. I $P($G(^RARPT(RARPT,0)),U,2)'=$P($G(^MAG(2005,MAGIEN1,0)),U,7) S MAGQI="-2^Patient Mismatch. Radiology Report" Q
. ; Assure magien1 is pointing to this rarpt
. I $P($G(^MAG(2005,MAGIEN1,2)),U,7)'=RARPT S MAGQI="-2^Pointer Mismatch. Radiology Report" Q
. ; Now run the Imaging integrity check
. D CHK^MAGGSQI(.MAGX,MAGIEN1) I 'MAGX(0) S MAGQI="-2^"_$P(MAGX(0),U,2,99) Q
;
I MAGQI<1 S DATA(0)=MAGQI Q ; Integrity error
S CT=0
;
S OI=0,CT=1 F S OI=$O(^RARPT(RARPT,2005,OI)) Q:'OI D
. S MAGIEN1=$P(^RARPT(RARPT,2005,OI,0),U) S $P(DATA(OI),"^",2)=MAGIEN1
. Q
S DATA(0)=1 ; okay result
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGNAN03 8541 printed Nov 22, 2024@17:17:18 Page 2
MAGNAN03 ;WOIFO/NST - Get image annotations ; 10 Apr 2018 3:59 PM
+1 ;;3.0;IMAGING;**185,197**;Mar 19, 2002;Build 4525;May 01, 2013
+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 ;***** Get image annotations by CPRS context or Image IEN
+20 ;
+21 ; RPC: MAGN ANNOT GET IMAGE ANNOT
+22 ;
+23 ; Input Parameters
+24 ; ================
+25 ;
+26 ; DATA - ContextID in format
+27 ; e.g. 'RPT^CPRS^29027^RA^79029185.9998-1'
+28 ; or
+29 ; RPT^CPRS^4658^TIU^2243408^^^^^^^^1
+30 ; or
+31 ; ^ ^ ^MAG^10454
+32 ;
+33 ; Return Values
+34 ; =============
+35 ;
+36 ; if error MAGRY(0) = 0 ^Error message^
+37 ; if success MAGRY(0) = 1
+38 ; MAGRY(1..n) = NEXT_CONTEXTID | CONTEXTID | 0 or 1 |
+39 ; NEXT_IMAGE | IMAGE IEN
+40 ; images in format defined in RPC [MAGJ STUDY_DATA] or
+41 ; [MAG ANNOT GET IMAGE DETAIL], [MAG ANNOT GET IMAGE]
+42 ;
IMAGEL(MAGRY,DATA) ;RPC [MAGN ANNOT GET IMAGE ANNOT]
+1 NEW MAGNCNT,MAGNX,RARPT
+2 NEW $ETRAP,$ESTACK
SET $ETRAP="D AERRA^MAGGTERR"
+3 SET MAGRY=$NAME(^TMP("MAGNTRAI",$JOB))
+4 KILL @MAGRY
+5 SET @MAGRY@(0)=0
+6 SET MAGNCNT=0
+7 SET MAGNX=$PIECE(DATA,"^",4)
+8 IF MAGNX="RA"
Begin DoDot:1
+9 ; get RAD annotations
DO GRAANNCX(MAGRY,MAGNCNT,DATA)
+10 QUIT
End DoDot:1
QUIT
+11 ;
+12 IF MAGNX="TIU"
Begin DoDot:1
+13 ; Get TIU annotations
DO GTUIANN(MAGRY,MAGNCNT,DATA)
+14 QUIT
End DoDot:1
QUIT
+15 ;
+16 IF MAGNX="MAG"
Begin DoDot:1
+17 ; Get TIU annotations
DO GMAGANN(MAGRY,MAGNCNT,DATA)
+18 QUIT
End DoDot:1
QUIT
+19 ;
+20 SET MAGNCNT=MAGNCNT+1
+21 SET @MAGRY@(MAGNCNT)="NEXT_CONTEXTID|"_DATA_"|0|"_"Invalid ContextId Type"
+22 SET @MAGRY@(0)=1
+23 QUIT
+24 ;
GRAANNCX(MAGRY,MAGNCNT,MAGNCXT) ; Get RAD annotations by CPRS Context ID
+1 NEW MAGX,MAGNRPT,DATA
+2 ;
+3 ; Get RA Report IEN by CPRS Context
SET MAGNRPT=$$GRARPT(MAGNCXT)
+4 SET MAGNCNT=MAGNCNT+1
+5 SET @MAGRY@(MAGNCNT)="NEXT_CONTEXTID|"_MAGNCXT_"|"_MAGNRPT_"|RAD"
+6 IF MAGNRPT'>0
QUIT
+7 ;
+8 ; e.g. MAGNCXT=RPT^CPRS^29027^RA^79029185.9998-1
+9 ; See MAGJEX3
+10 ; MAGX--TXID ^ DFN ^ DTI ^ CNI ^ RARPT ^ MAGIEN ^ PSDETAIL
+11 ; TXID Key and Interp Images
SET $PIECE(MAGX,"^",1)=3
+12 ; DFN
SET $PIECE(MAGX,"^",2)=$PIECE(MAGNCXT,"^",3)
+13 SET $PIECE(MAGX,"^",3)=$PIECE($PIECE(MAGNCXT,"^",5),"-",1)
+14 SET $PIECE(MAGX,"^",4)=$PIECE($PIECE(MAGNCXT,"^",5),"-",2)
+15 ; Report IEN
SET $PIECE(MAGX,"^",5)=MAGNRPT
+16 ; PSDETAIL
SET $PIECE(MAGX,"^",7)=1
+17 ;
+18 DO GRAANN(MAGRY,.MAGNCNT,MAGNCXT,MAGX)
+19 ;
+20 ; Get Clinical Annotations
+21 DO GIMGRARP(.DATA,MAGNRPT)
+22 DO GIENANN(MAGRY,.MAGNCNT,MAGNCXT,.DATA)
+23 QUIT
+24 ;
GRAANNRP(MAGRY,MAGNCNT,MAGNCXT,MAGNRPT) ; Get RAD annotations by RA Report
+1 NEW MAGX
+2 ;
+3 SET MAGNCNT=MAGNCNT+1
+4 SET @MAGRY@(MAGNCNT)="NEXT_CONTEXTID|"_MAGNCXT_"|"_MAGNRPT_"|RAD"
+5 IF MAGNRPT'>0
QUIT
+6 ;
+7 ; e.g. MAGNCXT=^^^MAG^10454
+8 ; See MAGJEX3
+9 ; MAGX--TXID ^ DFN ^ DTI ^ CNI ^ RARPT ^ MAGIEN ^ PSDETAIL
+10 ; TXID Key and Interp Images
SET $PIECE(MAGX,"^",1)=3
+11 ; DFN
SET $PIECE(MAGX,"^",2)=""
+12 SET $PIECE(MAGX,"^",3)=""
+13 SET $PIECE(MAGX,"^",4)=""
+14 ; Report IEN
SET $PIECE(MAGX,"^",5)=MAGNRPT
+15 ; PSDETAIL
SET $PIECE(MAGX,"^",7)=1
+16 ;
+17 DO GRAANN(MAGRY,.MAGNCNT,MAGNCXT,MAGX)
+18 QUIT
+19 ;
GRAANN(MAGRY,MAGNCNT,MAGNCXT,MAGX) ; Get Radiology study annotations
+1 NEW J,MAGOUT
+2 ;
+3 DO RPCIN^MAGJEX3(.MAGOUT,MAGX)
+4 SET @MAGRY@(MAGNCNT)="NEXT_CONTEXTID|"_MAGNCXT_"|"_@MAGOUT@(0)_"|RAD"
+5 SET J=0
+6 FOR
SET J=$ORDER(@MAGOUT@(J))
if 'J
QUIT
Begin DoDot:1
+7 SET MAGNCNT=MAGNCNT+1
+8 SET @MAGRY@(MAGNCNT)=@MAGOUT@(J)
+9 QUIT
End DoDot:1
+10 KILL @MAGOUT
+11 SET @MAGRY@(0)=1
+12 QUIT
+13 ;
GTUIANN(MAGRY,MAGNCNT,MAGNCXT) ;Get TIU annotations
+1 NEW DATA,MAGNTIU
+2 ;
+3 SET MAGNTIU=$PIECE(MAGNCXT,"^",5)
+4 ; Get all images for TIU
DO IMAGES^MAGGNTI(.DATA,MAGNTIU)
+5 ;
+6 ;Get annotations for image IEN
DO GIENANN(MAGRY,.MAGNCNT,MAGNCXT,.DATA)
+7 ;
+8 QUIT
+9 ;
GMAGANN(MAGRY,MAGNCNT,MAGNCXT) ; Get study annotations by image ien
+1 NEW DATA,MAGIEN,MAGROOT,MAGD0
+2 ;
+3 SET MAGIEN=$PIECE(MAGNCXT,"^",5)
+4 SET MAGROOT=$$GET1^DIQ(2005,MAGIEN,16)
+5 SET MAGD0=$$GET1^DIQ(2005,MAGIEN,17)
+6 ;
+7 IF MAGROOT="TIU"
Begin DoDot:1
+8 ; Get all images for TIU
DO IMAGES^MAGGNTI(.DATA,MAGD0)
+9 ;Get annotations for image IEN
DO GIENANN(MAGRY,.MAGNCNT,MAGNCXT,.DATA)
+10 QUIT
End DoDot:1
QUIT
+11 ;
+12 IF MAGROOT="RADIOLOGY"
Begin DoDot:1
+13 DO GRAANNRP(MAGRY,MAGNCNT,MAGNCXT,MAGD0)
+14 ; Try to get images in case of Capture (Clinical) annotation
+15 ; Get Images by Group image IEN
DO IMAGES(.DATA,MAGIEN)
+16 ;Get annotations for image IEN
DO GIENANN(MAGRY,.MAGNCNT,MAGNCXT,.DATA)
+17 QUIT
End DoDot:1
QUIT
+18 ;
+19 ; No report
IF MAGROOT=""
Begin DoDot:1
+20 ; Get Images by Group image IEN
DO IMAGES(.DATA,MAGIEN)
+21 ;Get annotations for image IEN
DO GIENANN(MAGRY,.MAGNCNT,MAGNCXT,.DATA)
+22 QUIT
End DoDot:1
+23 QUIT
+24 ;
GRARPT(DATA) ; Get RA Report IEN by CPRS Context
+1 NEW DFN,ENT,INVDTTM,INVDT,INVTM,RARPT
+2 SET DFN=+$PIECE(DATA,U,3)
+3 SET ENT=+$PIECE($PIECE(DATA,U,5),"-",2)
+4 SET INVDTTM=$PIECE($PIECE(DATA,U,5),"-",1)
+5 SET INVDT=$PIECE(INVDTTM,".",1)
+6 SET INVTM=$PIECE(INVDTTM,".",2)
+7 FOR
if ($LENGTH(INVDT)<8)
QUIT
SET INVDT=$EXTRACT(INVDT,2,$LENGTH(INVDT))
+8 SET INVDTTM=INVDT_"."_INVTM
+9 SET RARPT=0
+10 IF '$DATA(^RADPT(DFN,"DT",INVDTTM,"P",ENT,0))
QUIT "0^INVALID Data : Attempt to access Exam failed."
+11 SET RARPT=$PIECE(^RADPT(DFN,"DT",INVDTTM,"P",ENT,0),U,17)
+12 IF 'RARPT
QUIT "0^No Report for selected Exam"
+13 IF $PIECE($GET(^RARPT(RARPT,0)),U,2)'=DFN
QUIT "-2^Patient Mismatch. Radiology File"
+14 QUIT RARPT
+15 ;
GIENANN(MAGRY,MAGNCNT,MAGNCXT,DATA) ;Get annotations for image IEN
+1 ; MAGRY = Output array
+2 ; MAGNCNT = initial output counter
+3 ; MAGNCXT = Context ID
+4 ; DATA(0) = Result output
+5 ; DATA(1..n) = Image IEN
+6 ;
+7 NEW J,I,MAGIEN,MAGNTIU,MAGOUT
+8 ;
+9 ; no data to report
IF '$DATA(DATA(0))
QUIT
+10 SET MAGNCNT=MAGNCNT+1
+11 SET @MAGRY@(MAGNCNT)="NEXT_CONTEXTID|"_MAGNCXT_"|"_DATA(0)_"|CLN"
+12 ; Error quit
IF 'DATA(0)
QUIT
+13 ;
+14 SET I=0
+15 FOR
SET I=$ORDER(DATA(I))
if 'I
QUIT
Begin DoDot:1
+16 SET MAGIEN=$PIECE(DATA(I),"^",2)
+17 KILL MAGOUT
+18 ;P122 handles only one type of annotation (Clinic or VistARAD), but not on both
+19 ; VistA Rad annotations are present. Quit. We need only Clinic
IF '$DATA(^MAG(2005.002,MAGIEN,0))
QUIT
+20 ; Get annotation details by image IEN
DO GETD^MAGSANNO(.MAGOUT,MAGIEN)
+21 SET MAGNCNT=MAGNCNT+1
+22 SET @MAGRY@(MAGNCNT)="NEXT_IMAGE|"_MAGIEN_"|"_MAGOUT(0)
+23 ; Error, get next one
IF 'MAGOUT(0)
QUIT
+24 SET J=0
+25 FOR
SET J=$ORDER(MAGOUT(J))
if 'J
QUIT
Begin DoDot:2
+26 SET MAGNCNT=MAGNCNT+1
+27 SET @MAGRY@(MAGNCNT)=MAGOUT(J)
+28 QUIT
End DoDot:2
+29 QUIT
End DoDot:1
+30 SET @MAGRY@(0)=1
+31 QUIT
+32 ;
IMAGES(DATA,MAGIEN) ; Get all Images for a Group Image IEN
+1 NEW GROUP
+2 SET GROUP=$$ISGRP^MAGGI11(MAGIEN)
+3 ; Set result to okay
SET DATA(0)=1
+4 IF GROUP
Begin DoDot:1
+5 NEW NO,CH
+6 SET NO=0
+7 FOR
SET NO=$ORDER(^MAG(2005,MAGIEN,1,NO))
if 'NO
QUIT
Begin DoDot:2
+8 SET CH=+$GET(^MAG(2005,MAGIEN,1,NO,0))
+9 if 'CH
QUIT
+10 SET $PIECE(DATA(NO),"^",2)=CH
End DoDot:2
+11 QUIT
End DoDot:1
QUIT
+12 SET $PIECE(DATA(1),"^",2)=MAGIEN
+13 QUIT
+14 ;
GIMGRARP(DATA,RARPT) ; Get list of images by radiology report
+1 ; RARPT -- Radiology report IEN
+2 ; and returns a list in DATA(1..n).
+3 ;
+4 NEW GROUPS,OUT,REQDFN
+5 ;
+6 NEW CT,OI,IGCT,MAGIEN1,MAGQI,MAGX
+7 KILL MAGZRY
+8 SET IGCT=+$PIECE($GET(^RARPT(RARPT,2005,0)),U,4)
+9 ; Quit if no images for RARPT
+10 IF IGCT=0
QUIT
+11 ;
+12 ; Check all Image entries in RARPT 2005 NODE. for Patient match Pointer match, from both
+13 ; RARPT end, and Imaging end.
+14 SET MAGQI=1
+15 SET OI=0
SET CT=1
FOR
SET OI=$ORDER(^RARPT(RARPT,2005,OI))
if 'OI
QUIT
Begin DoDot:1
+16 SET MAGIEN1=$PIECE(^RARPT(RARPT,2005,OI,0),U)
+17 ; Assure magdfn = rarpt dfn
+18 IF $PIECE($GET(^RARPT(RARPT,0)),U,2)'=$PIECE($GET(^MAG(2005,MAGIEN1,0)),U,7)
SET MAGQI="-2^Patient Mismatch. Radiology Report"
QUIT
+19 ; Assure magien1 is pointing to this rarpt
+20 IF $PIECE($GET(^MAG(2005,MAGIEN1,2)),U,7)'=RARPT
SET MAGQI="-2^Pointer Mismatch. Radiology Report"
QUIT
+21 ; Now run the Imaging integrity check
+22 DO CHK^MAGGSQI(.MAGX,MAGIEN1)
IF 'MAGX(0)
SET MAGQI="-2^"_$PIECE(MAGX(0),U,2,99)
QUIT
End DoDot:1
if (MAGQI<1)
QUIT
+23 ;
+24 ; Integrity error
IF MAGQI<1
SET DATA(0)=MAGQI
QUIT
+25 SET CT=0
+26 ;
+27 SET OI=0
SET CT=1
FOR
SET OI=$ORDER(^RARPT(RARPT,2005,OI))
if 'OI
QUIT
Begin DoDot:1
+28 SET MAGIEN1=$PIECE(^RARPT(RARPT,2005,OI,0),U)
SET $PIECE(DATA(OI),"^",2)=MAGIEN1
+29 QUIT
End DoDot:1
+30 ; okay result
SET DATA(0)=1
+31 QUIT
