; Create the 'Error Reports' sub-record.
; Input: 'RADA': IEN of the report in file 74.
; Create the record, enter when the report was unverified.
WARN1
CHK17
; called from routine RARTE1
; check 17th piece of exam with same pat/dttm/longcn
; values of RAOK:
; 1 = unknown case no. or unknown case ien, CAN'T DELETE REPORT
; 2 = exm doesn't point to this rpt, CAN DELETE BUT NOT UPGRADE EXM STAT
; 3 = all okay
WARN2
WARNQ
ZERO
; setup the ^TMP($J,"RA AUTOE" global with a zero node