- 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 Feb 19, 2025@00:10:46 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
