ISIRAR01 ; ISI/BT - RAD Report ; 10/17/2022
;;1.1;ESL ISI IMAGING;**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
;
; ##### Get RAD 'Standard' reports
;
; OUTPUT
; ISIOUT Array contains all of RAD 'Standard' reports
; ISIOUT(1) = Number of Records or 0^Error Message
; ISIOUT(2..n) = IEN ^ 'Standard' Report Name
;
GETSTD(ISIOUT) ;RPC [ISI GET RAD STANDARD REPORTS]
K ISIOUT
S ISIOUT(1)=0_U_"No 'Standard' Report found"
N LST D LIST^DIC(74.1,,"@;.01",,,,,,,,"LST")
N ID,CNT S (ID,CNT)=0
F S ID=$O(LST("DILIST","ID",ID)) Q:'ID S CNT=CNT+1,ISIOUT(CNT+1)=ID_U_LST("DILIST","ID",ID,.01)
S:CNT ISIOUT(1)=CNT
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HISIRAR01 1182 printed Oct 16, 2024@18:44:54 Page 2
ISIRAR01 ; ISI/BT - RAD Report ; 10/17/2022
+1 ;;1.1;ESL ISI IMAGING;**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 ;
+13 ; ##### Get RAD 'Standard' reports
+14 ;
+15 ; OUTPUT
+16 ; ISIOUT Array contains all of RAD 'Standard' reports
+17 ; ISIOUT(1) = Number of Records or 0^Error Message
+18 ; ISIOUT(2..n) = IEN ^ 'Standard' Report Name
+19 ;
GETSTD(ISIOUT) ;RPC [ISI GET RAD STANDARD REPORTS]
+1 KILL ISIOUT
+2 SET ISIOUT(1)=0_U_"No 'Standard' Report found"
+3 NEW LST
DO LIST^DIC(74.1,,"@;.01",,,,,,,,"LST")
+4 NEW ID,CNT
SET (ID,CNT)=0
+5 FOR
SET ID=$ORDER(LST("DILIST","ID",ID))
if 'ID
QUIT
SET CNT=CNT+1
SET ISIOUT(CNT+1)=ID_U_LST("DILIST","ID",ID,.01)
+6 if CNT
SET ISIOUT(1)=CNT
+7 QUIT
