Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: VPRDTIU

Package: Virtual Patient Record

Routine: VPRDTIU


Information

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

Source Information

Source file <VPRDTIU.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Text Integration Utility 7 ($$CLASS,ISCNSLT)^TIUCNSLT  (CPCLASS,ISCP)^TIUCP  EXTRACT^TIULQ  $$ISA^TIULX  ($$CLASS,ISSURG)^TIUSROI  ($$RESOLVE,CONTEXT)^TIUSRVLO  TGET^TIUSRVR1  
Virtual Patient Record 4 ($$ESC,$$FAC,$$PROVSPC,$$PROVTAGS,$$VUID)^VPRD  (RPT1,RPTS)^VPRDLRA  (RPT1,RPTS)^VPRDMC  (RPT1,RPTS)^VPRDRA  
Kernel 1 ($$LOW,$$UP)^XLFSTR  
Radiology Nuclear Medicine 1 EN1^RAO7PC1  
VA FileMan 1 ($$GET1,GETS)^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Virtual Patient Record 9 VPRDGMRC  VPRDJ08  VPRDLRA  VPRDMC  VPRDRA  VPRDRMIM  VPRDSR  VPRDVSIT  
VPRSDAT  

Entry Points

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

External References

Name Field # of Occurrence
$$GET1^DIQ EN1+12, INFO+10, MATCH+11, MATCH+15
GETS^DIQ EN1+14
EN1^RAO7PC1 EN+10
$$CLASS^TIUCNSLT SETUP+16
ISCNSLT^TIUCNSLT CATG+2
CPCLASS^TIUCP SETUP+30
ISCP^TIUCP CATG+10
EXTRACT^TIULQ EN1+11, INFO+4
$$ISA^TIULX CATG+3, CATG+4, CATG+5, CATG+6, CATG+7, CATG+9, CATG+12, MATCH+14
$$CLASS^TIUSROI SETUP+29
ISSURG^TIUSROI CATG+11
$$RESOLVE^TIUSRVLO EN1+7
CONTEXT^TIUSRVLO EN+23
TGET^TIUSRVR1 RPT+2, TEXT+3
$$ESC^VPRD XML+14, XML+16, LOOP+2
$$FAC^VPRD EN1+26
$$PROVSPC^VPRD EN1+36, EN1+39, EN1+42
$$PROVTAGS^VPRD XML+8
$$VUID^VPRD EN1+19, INFO+9
RPT1^VPRDLRA EN+8
RPTS^VPRDLRA EN+20
RPT1^VPRDMC EN+7
RPTS^VPRDMC EN+18
RPT1^VPRDRA EN+11
RPTS^VPRDRA EN+19
$$LOW^XLFSTR SETUP+11
$$UP^XLFSTR SETUP+7

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC("B" EN1+25
^TIU(8925 - [#8925] INFO+3
^TIU(8925.1 - [#8925.1] LR+1, LR+2, INFO+8
^TIU(8926.1 - [#8926.1] MATCH+17
^TMP("VPRTEXT" ENQ+1!, EN1+3!, TEXT+4*, TEXT+5
^TMP($J EN+12!
^VA(200 - [#200] SIG+1

Label References

Name Line Occurrences
$$CATG EN1+21
$$LOOP XML+9, XML+17
$$LR CATG+12, SETUP+55
$$MATCH EN+25
$$SIG EN1+39, EN1+42
$$TEXT EN1+33
ADD XML+2, XML+3, XML+5, XML+9, XML+10, XML+13, XML+14, XML+15, XML+18
EN1 EN+13, EN+26
ENQ EN+6, EN+9, EN+13
MQ MATCH+2, MATCH+5, MATCH+7, MATCH+9, MATCH+12, MATCH+16, MATCH+18, MATCH+19, MATCH+20
SETUP EN+17
XML EN+7, EN+8, EN+11, EN+13, EN+27

Naked Globals

Name Field # of Occurrence
^(0 LR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ATT XML+1~, XML+3*, XML+4, XML+5, XML+6, XML+7, XML+8, XML+9, XML+10, XML+11
, XML+12, XML+16, XML+17
BEG EN~, EN+3*, EN+10*, EN+18, EN+19, EN+20, EN+23
CLASS EN+16~, EN+18, EN+19, EN+20, EN+21, TEXT+2~, SETUP+8*, SETUP+15*, SETUP+16*, SETUP+18*
SETUP+19*, SETUP+20*, SETUP+21*, SETUP+22*, SETUP+23*, SETUP+26*, SETUP+29*, SETUP+31*, SETUP+33*, SETUP+36*
SETUP+39*, SETUP+42*, SETUP+45*, SETUP+48*, SETUP+51*, SETUP+55*, SETUP+58*, SETUP+61*
CLS EN+16~, EN+21*, EN+23
CNT TEXT+2~
CP SETUP+6~, SETUP+30, SETUP+31, SETUP+33, SETUP+36, SETUP+39, SETUP+42, SETUP+45, SETUP+48, SETUP+51
CTXT EN+16~, EN+22*, EN+23, MATCH+7
DA EN1+6~*, EN1+7, CATG~, CATG+2, CATG+3, CATG+4, CATG+5, CATG+6, CATG+7, CATG+9
, CATG+10, CATG+11, CATG+12, MATCH+1~, MATCH+2*, MATCH+11
DFN EN~, EN+2*, EN+7, EN+8, EN+10, EN+11, EN+18, EN+19, EN+20, EN+23
DOC EN1~, EN1+3!, XML~, MATCH~, MATCH+2, MATCH+5, MATCH+7, MATCH+9
DOC( XML+3, XML+4, XML+6, XML+7, XML+11
DOC("category" EN1+21*
DOC("clinician" EN1+36*, EN1+39*, EN1+42*
DOC("content" EN1+33*
DOC("documentClass" EN1+22*
DOC("encounter" EN1+32*
DOC("facility" EN1+26*
DOC("id" EN1+10*
DOC("images" EN1+28*
DOC("localTitle" EN1+10*
DOC("loinc" EN1+20*
DOC("nationalTitle" EN1+15*, EN1+19*
DOC("parent" EN1+31*
DOC("referenceDateTime" EN1+23*
DOC("status" EN1+27*
DOC("subject" EN1+29*
DOC("type" EN1+21*
END EN~, EN+3*, EN+10*, EN+18, EN+19, EN+20, EN+23
ES EN1+2~, EN1+37*
ES(1501 EN1+37, EN1+39
ES(1502 EN1+38, EN1+39
ES(1507 EN1+40, EN1+42
ES(1508 EN1+41, EN1+42
>> FILTER("category" SETUP+7
>> FILTER("loinc" EN1+20, SETUP+7
>> FILTER("status" SETUP+11
FNUM EN1+13~, EN1+18*, EN1+19
I EN1+2~, EN1+16*, EN1+17, EN1+18, EN1+19, EN1+35*, EN1+36*, EN1+38*, EN1+39, EN1+41*
, EN1+42, RPT+1~, TEXT+2~, INFO+2~, XML+1~, XML+6*, XML+7, XML+14*, MATCH+13~, MATCH+14*
ID EN~, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11, EN+13
IEN EN1+2~, EN1+4*, EN1+10, EN1+11, EN1+12, EN1+21, EN1+32, EN1+33, EN1+37, TEXT+2~
IENS EN1+13~, EN1+14*, EN1+15, EN1+17, EN1+19
IFN RPT~, RPT+2, TEXT+2~, INFO~, INFO+2*, INFO+3, INFO+4, INFO+5, INFO+6, INFO+8
, INFO+11
J RPT+1~, TEXT+2~, INFO+2~
LOC EN1+25~*, EN1+26
LOCAL MATCH+1~, MATCH+11*, MATCH+14, MATCH+15
LOINC SETUP+6~, SETUP+7*, SETUP+16, SETUP+18, SETUP+23, SETUP+26, SETUP+29, SETUP+32, SETUP+35, SETUP+38
SETUP+41, SETUP+44, SETUP+47, SETUP+50, SETUP+55, SETUP+58, SETUP+61
LT INFO+2~, INFO+6*, INFO+7, INFO+11
MAX EN~, EN+3*, EN+18, EN+19, EN+20, EN+21, EN+22, EN+24
NAME EN1+2~, EN1+9*, EN1+10
NAMES XML+1~, XML+7*, XML+8*, XML+17*, LOOP+2
NATL MATCH+1~, MATCH+15*, MATCH+16, MATCH+17
NOTSUBJ EN+16~, SETUP+8*, SETUP+49*, MATCH+20
NT INFO+2~, INFO+8*, INFO+9, INFO+10*, INFO+11
OK MATCH+1~, MATCH+12, MATCH+13*, MATCH+14*
P LOOP+1~, LOOP+2*
SERVICE EN+16~, SETUP+8*, SETUP+18*, SETUP+34*, SETUP+37*, SETUP+40*, SETUP+43*, SETUP+46*, SETUP+48*, SETUP+52*
, MATCH+18
SHOWADD EN1+6~*
STATUS EN+16~, EN+22, TEXT+2~, SETUP+8*, SETUP+12*, SETUP+31, SETUP+55, MATCH+5, MATCH+9
STR LOOP+1~*, LOOP+2*, LOOP+3
STS SETUP+6~, SETUP+11*, SETUP+12
SUBCLASS EN+16~, SETUP+8*, SETUP+16*, SETUP+19*, SETUP+20*, SETUP+21*, SETUP+22*, SETUP+23*, MATCH+12, MATCH+14
SUBJECT EN+16~, SETUP+8*, SETUP+34*, SETUP+37*, SETUP+40*, SETUP+43*, SETUP+46*, MATCH+19
TAG LOOP+1~, LOOP+2*
TITLE EN+16~, SETUP+8*, MATCH+16
TIU EN1+13~
TIU( EN1+15, EN1+17, EN1+19
TYPE XML+1~, SETUP+6~, SETUP+7*, SETUP+15, SETUP+16, SETUP+19, SETUP+20, SETUP+21, SETUP+22, SETUP+23
SETUP+26, SETUP+29, SETUP+31, SETUP+55, SETUP+58, SETUP+61
U EN+21, EN+22, EN1+7, EN1+8, EN1+9, EN1+15, EN1+18, EN1+19, EN1+20, EN1+23
, EN1+24, EN1+27, EN1+28, EN1+29, EN1+31, EN1+35, EN1+36, EN1+39, EN1+42, LR+2
, SIG+2, INFO+8, INFO+11, LOOP+2, MATCH+5, MATCH+7, MATCH+9, MATCH+14, MATCH+16, MATCH+18
, MATCH+19, MATCH+20
>> VPR ADD+2
VPRC EN+16~, EN+21*
VPRCNT EN+1~, EN+17*, EN+21, EN+22, EN+24, EN+27*
>> VPRI ADD+1*, ADD+2
VPRIFN TEXT~, TEXT+3*, TEXT+4, TEXT+5
VPRITM EN+1~, EN+7, EN+8, EN+11, EN+13, EN+26!, EN+27
VPRN EN+1~, EN+24*, EN+25
VPRS EN+16~, EN+22*
>> VPRTEXT EN1+33
VPRTIU EN1+2~, INFO+2~
VPRTIU( EN1+21, EN1+32, EN1+37, INFO+5, INFO+6, INFO+8
>> VPRTOTL XML+2*
VPRX EN+1~, EN+25*, EN+26, EN1~, EN1+4, EN1+5, EN1+6, EN1+7*, EN1+8, EN1+9
, EN1+23, EN1+24, EN1+27, EN1+28, EN1+29, EN1+31, EN1+35
VPRY EN+1~, EN+23, EN+24, EN+25, EN+28, EN1+2~, RPT~, RPT+2, TEXT+1~, TEXT+3
, TEXT+4
VUID INFO+2~, INFO+6*, INFO+9*, INFO+11
X EN1+2~, EN1+12*, EN1+14, EN1+21*, EN1+22, EN1+24*, EN1+25, EN1+27*, EN1+35*, EN1+36
, EN1+38*, EN1+39, EN1+41*, EN1+42, CATG+1~, CATG+2, CATG+10, CATG+11, SIG~, SIG+1
, TEXT+2~, INFO+2~, XML+1~, XML+7*, XML+11*, XML+14, XML+16, XML+17, LOOP+2, ADD~
, ADD+2, MATCH+13~, MATCH+14*
X0 TEXT+2~, MATCH+1~, MATCH+17*, MATCH+18, MATCH+19, MATCH+20
X20 SIG+1~*, SIG+2
Y EN1+13~, EN1+17*, EN1+19, LR+1~*, LR+2*, LR+3, SIG+1~, SIG+2*, SIG+3, TEXT+1~
, TEXT+5*, TEXT+6, INFO+2~, INFO+11*, INFO+12, XML+1~, XML+3, XML+4*, XML+9*, XML+11*
, XML+12*, XML+13*, XML+14*, XML+16*, XML+17*, MATCH+1~*, MATCH+21*, MQ
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All