Routine: NHINVRA

Information

NHINVRA ;SLC/MKB -- Radiology extract

Source file <NHINVRA.m>

Name	Comments	DBIA/ICR reference
EN(DFN,BEG,END,MAX,ID)	; -- find patient's radiology exams
EN1(ID,EXM)	; -- return an exam in EXM("attribute")=value ; Expects ^TMP($J,"RAE1",DFN,ID) from EN1^RAO7PC1
CPT(IEN)	; -- return code^description for CPT code, or "^" if error
RPT(DFN,ID,RPT)	; -- return report as a TIU document
XML(EXM)	; -- Return exams as XML
LOOP()	; -- build sub-items string from NAMES and X
ADD(X)	; -- Add a line @NHIN@(n)=X

FileNo	Call Tags
70.02	GET1^DIQ
70.03	GET1^DIQ