VPRSDAR ;SLC/MKB -- SDA Radiology utilities ;8/6/18 12:21
Source file <VPRSDAR.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PRE | ; -- PreProcessing for VPR RAD ORDER
; Expects DFN, DSTRT, DSTOP, DMAX from EN^DDEGET |
|
POST | ; -- PostProcessing for VPR RAD ORDER
|
|
ONE(RAID) | ; -- ID Processing for each VPR RAD RESULT (RAID = #75.1 ien)
; Returns VPRAE1 = ^TMP($J,"RAE1",DFN,Exam ID) ; VPRAE2 = $NA(^TMP($J,"RAE2",DFN,caseIEN,procedureName)) ; RARPT = Report #74 IEN ; RAPROC = Procedure name ; RAID = #70.03 IEN string |
|
ABN() | ; -- return "A" if any report for exam(s) is abnormal, else null
|
|
RPTS | ; -- find patient's radiology reports
|
|
RPT1 | ; -- ID Processing for each VPR RAD REPORT
; Returns VPRXID = Exam-Case ID ; VPRAE2 = $NA(^TMP($J,"RAE2",DFN,caseIEN,procedureName)) ; VPRAE3 = $NA(^TMP($J,"RAE3",DFN,caseIEN,procedureName)) ; RAPROC = Procedure name |
|
VNUM(DFN,EXAMID) | ; -- return Visit# for patient, examID
|