ISIRAR02 ; ISI/BT - RAD Report ; 10/17/2022
;;1.1;ESL ISI IMAGING;**102,110**;Dec 21, 2022;Build 41
;; This routine is the property of ViTel Net, and should not be modified.
;; This software is a medical device and is subject to FDA regulation.
;; Modifications to this software may only be made under the terms of
;; 21CFR820 regulation. 21CFR Subpart A 820.1: "The failure to comply
;; with any applicable provision in this part renders a device
;; adulterated under section 501(h) of the act. Such a device,
;; as well as any person responsible for the failure to comply,
;; is subject to regulatory action."
;
QUIT
;;
ERR ;
N ERR S ERR=$$EC^%ZOSV S @MAGGRY@(0)="0^4~"_ERR
D @^%ZOSF("ERRTN")
Q:$Q 1 Q
;
;
; ##### Given RAD Standard Report IEN(s), return the Impression and Report text
;
; INPUT
; ISIIENS = RAD Standard Report IENs ("^" delimited)
; Example : 1^2^3
; OUTPUT
; ISIOUT = Global Array contains all of RAD 'Standard' reports
; ISIOUT(0) = Number of Records or 0^Error Message
;
; Pattern for reply is:
; *REPORT Start for REPORT lines
; (1:N lines of text follow)
; *REPORT_END End
; *IMPRESSION Start IMPRESSION lines
; (1:N lines of text follow)
; *IMPRESSION_END end
;
;
GETSTDTX(ISIOUT,ISIIENS) ; RPC [ISI GET RAD STANDARD TEXT]
N $ETRAP,$ESTACK S $ETRAP="D ERR^ISIRAR02"
S ISIOUT=$NA(^TMP("ISIRAR02",$J))
K @ISIOUT
;
; -- transform IENS ("^" delimited to array)
N IDX,RAIEN,RAIENS
F IDX=1:1:$L(ISIIENS,U) S RAIEN=+$P(ISIIENS,U,IDX) S:RAIEN RAIENS(IDX)=RAIEN
I '$D(RAIENS) S @ISIOUT@(0)=0_U_"At least one Standard Report IEN required" QUIT
;
; -- compile Impression and Report text sections. Add blank line between reports
N CNT
S CNT=0
N FIL S FIL=74.1
N RTYPES S RTYPES("I")=300,RTYPES("R")=200
N IDX,TMPOUT,TYP,WP
;
F TYP="R","I" D
. S CNT(TYP)=0
. S IDX=0
. F S IDX=$O(RAIENS(IDX)) Q:'IDX S RAIEN=RAIENS(IDX) D
. . K WP S WP=$$GET1^DIQ(74.1,RAIEN,RTYPES(TYP),,"WP")
. . S WP=0 F I=0:1 S WP=$O(WP(WP)) Q:'WP S CNT(TYP)=CNT(TYP)+1,TMPOUT(TYP,CNT(TYP))=WP(WP)
. . S:I CNT(TYP)=CNT(TYP)+1,TMPOUT(TYP,CNT(TYP))=""
F TYP="R","I" I CNT(TYP) D
. S CNT=CNT+1,@ISIOUT@(CNT)=$S(TYP="R":"*REPORT",1:"*IMPRESSION")
. F I=1:1:CNT(TYP) S CNT=CNT+1,@ISIOUT@(CNT)=TMPOUT(TYP,I)
. S CNT=CNT+1,@ISIOUT@(CNT)=$S(TYP="R":"*REPORT_END",1:"*IMPRESSION_END")
;
I 'CNT S @ISIOUT@(0)=0_U_"No text for the selected Standard Report IEN(s)" QUIT
S @ISIOUT@(0)=CNT
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HISIRAR02 2573 printed Dec 13, 2024@02:44:20 Page 2
ISIRAR02 ; ISI/BT - RAD Report ; 10/17/2022
+1 ;;1.1;ESL ISI IMAGING;**102,110**;Dec 21, 2022;Build 41
+2 ;; This routine is the property of ViTel Net, and should not be modified.
+3 ;; This software is a medical device and is subject to FDA regulation.
+4 ;; Modifications to this software may only be made under the terms of
+5 ;; 21CFR820 regulation. 21CFR Subpart A 820.1: "The failure to comply
+6 ;; with any applicable provision in this part renders a device
+7 ;; adulterated under section 501(h) of the act. Such a device,
+8 ;; as well as any person responsible for the failure to comply,
+9 ;; is subject to regulatory action."
+10 ;
+11 QUIT
+12 ;;
ERR ;
+1 NEW ERR
SET ERR=$$EC^%ZOSV
SET @MAGGRY@(0)="0^4~"_ERR
+2 DO @^%ZOSF("ERRTN")
+3 if $QUIT
QUIT 1
QUIT
+4 ;
+5 ;
+6 ; ##### Given RAD Standard Report IEN(s), return the Impression and Report text
+7 ;
+8 ; INPUT
+9 ; ISIIENS = RAD Standard Report IENs ("^" delimited)
+10 ; Example : 1^2^3
+11 ; OUTPUT
+12 ; ISIOUT = Global Array contains all of RAD 'Standard' reports
+13 ; ISIOUT(0) = Number of Records or 0^Error Message
+14 ;
+15 ; Pattern for reply is:
+16 ; *REPORT Start for REPORT lines
+17 ; (1:N lines of text follow)
+18 ; *REPORT_END End
+19 ; *IMPRESSION Start IMPRESSION lines
+20 ; (1:N lines of text follow)
+21 ; *IMPRESSION_END end
+22 ;
+23 ;
GETSTDTX(ISIOUT,ISIIENS) ; RPC [ISI GET RAD STANDARD TEXT]
+1 NEW $ETRAP,$ESTACK
SET $ETRAP="D ERR^ISIRAR02"
+2 SET ISIOUT=$NAME(^TMP("ISIRAR02",$JOB))
+3 KILL @ISIOUT
+4 ;
+5 ; -- transform IENS ("^" delimited to array)
+6 NEW IDX,RAIEN,RAIENS
+7 FOR IDX=1:1:$LENGTH(ISIIENS,U)
SET RAIEN=+$PIECE(ISIIENS,U,IDX)
if RAIEN
SET RAIENS(IDX)=RAIEN
+8 IF '$DATA(RAIENS)
SET @ISIOUT@(0)=0_U_"At least one Standard Report IEN required"
QUIT
+9 ;
+10 ; -- compile Impression and Report text sections. Add blank line between reports
+11 NEW CNT
+12 SET CNT=0
+13 NEW FIL
SET FIL=74.1
+14 NEW RTYPES
SET RTYPES("I")=300
SET RTYPES("R")=200
+15 NEW IDX,TMPOUT,TYP,WP
+16 ;
+17 FOR TYP="R","I"
Begin DoDot:1
+18 SET CNT(TYP)=0
+19 SET IDX=0
+20 FOR
SET IDX=$ORDER(RAIENS(IDX))
if 'IDX
QUIT
SET RAIEN=RAIENS(IDX)
Begin DoDot:2
+21 KILL WP
SET WP=$$GET1^DIQ(74.1,RAIEN,RTYPES(TYP),,"WP")
+22 SET WP=0
FOR I=0:1
SET WP=$ORDER(WP(WP))
if 'WP
QUIT
SET CNT(TYP)=CNT(TYP)+1
SET TMPOUT(TYP,CNT(TYP))=WP(WP)
+23 if I
SET CNT(TYP)=CNT(TYP)+1
SET TMPOUT(TYP,CNT(TYP))=""
End DoDot:2
End DoDot:1
+24 FOR TYP="R","I"
IF CNT(TYP)
Begin DoDot:1
+25 SET CNT=CNT+1
SET @ISIOUT@(CNT)=$SELECT(TYP="R":"*REPORT",1:"*IMPRESSION")
+26 FOR I=1:1:CNT(TYP)
SET CNT=CNT+1
SET @ISIOUT@(CNT)=TMPOUT(TYP,I)
+27 SET CNT=CNT+1
SET @ISIOUT@(CNT)=$SELECT(TYP="R":"*REPORT_END",1:"*IMPRESSION_END")
End DoDot:1
+28 ;
+29 IF 'CNT
SET @ISIOUT@(0)=0_U_"No text for the selected Standard Report IEN(s)"
QUIT
+30 SET @ISIOUT@(0)=CNT
+31 QUIT
