Routine: HMPDTIU

Information

HMPDTIU ;SLC/MKB,ASMR/RRB - TIU extract;Nov 23, 2015 18:02:20

Source file <HMPDTIU.m>

Name	Comments	DBIA/ICR reference
EN(DFN,BEG,END,MAX,ID)	; -- find patient's documents
ENQ	; end
EN1(HMPX,DOC)	; -- return a document in DOC("attribute")=value ; Expects DFN, HMPX=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(HMPY,IFN)	; -- Return text of document in @HMPY@(n)
TEXT(IFN)	; -- Get document IFN text, return temp array name
XML(DOC)	; -- Return patient documents as XML
LOOP()	; -- build sub-items string from NAMES and X
ADD(X)	; Add a line @HMP@(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,SBCLSS,SRVC,SBJCT,NTSBJ)	; Boolean function, Return 1 or 0, if document matches search criteria ; DOC - IEN in TIU DOCUMENT file (#8925) ; SBCLSS - subclass ; SRVC - service ; two pointers to TIU LOINC SUBJECT MATTER DOMAIN (#8926.2): ; SBJCT - subject to include, NTSUBJ - subject to exclude
MQ