Routine: VPRDTIU

Information

VPRDTIU ;SLC/MKB -- TIU extract ;8/2/11 15:29

Source file <VPRDTIU.m>

Name	Comments	DBIA/ICR reference
EN(DFN,BEG,END,MAX,ID)	; -- find patient's documents
ENQ	; end
EN1(VPRX,DOC)	; -- return a document in DOC("attribute")=value ; Expects DFN, VPRX=IEN^$$RESOLVE^TIUSRVLO(IEN)
CATG(DA)	; -- Return a code for document type #8925.1 DA
LR()	; -- Return ien of Lab class
SIG(X)	; -- Return Signature Block Name_Title
RPT(VPRY,IFN)	; -- Return text of document in @VPRY@(n)
TEXT(VPRIFN)	; -- Get document IFN text, return temp array name
INFO(IFN)	; -- Returns ien^localTitle^natlTitle^VUID ; or -1^STATUS if not viewable
XML(DOC)	; -- Return patient documents as XML
LOOP()	; -- build sub-items string from NAMES and X
ADD(X)	; Add a line @VPR@(n)=X
SETUP	; -- convert FILTER("attribute") = value to TIU criteria ; Expects: FILTER("category") = code (see $$CATG) ; FILTER("loinc") = LOINC ; FILTER("status") = 'all','completed','unsigned' ; Returns CLASS,[SUBCLASS,TITLE,SERVICE,SUBJECT,STATUS]
MATCH(DOC)	; -- Return 1 or 0, if document DA matches search criteria
MQ