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: HMPDTIU

Package: Enterprise Health Management Platform

Routine: HMPDTIU


Information

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

Source Information

Source file <HMPDTIU.m>

Entry Points

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] GET1^DIQ
^TIU(8925.1 - [#8925.1] GET1^DIQ
^TIU(8926.1 - [#8926.1] GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call