Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: VPRSDAR

Package: Virtual Patient Record

Routine: VPRSDAR


Information

VPRSDAR ;SLC/MKB -- SDA Radiology utilities ;8/6/18 12:21

Source Information

Source file <VPRSDAR.m>

Entry Points

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
70.03 GET1^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call