Routine: VPRDTIU

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

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

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

Name	Field # of Occurrence
$$GET1^DIQ	EN1+12, INFO+11, MATCH+14, MATCH+18
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+17
$$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+10
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

FileNo	Call Tags
^TIU(8925 - [#8925]	GET1^DIQ
^TIU(8925.1 - [#8925.1]	GET1^DIQ
^TIU(8926.1 - [#8926.1]	GET1^DIQ, GETS^DIQ

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

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+8, MATCH+10, MATCH+12, MATCH+15, MATCH+19, MATCH+21, MATCH+22, MATCH+23
SETUP	EN+17
XML	EN+7, EN+8, EN+11, EN+13, EN+27

Name	Field # of Occurrence
^(0	LR+2

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+10
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+14
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+8, MATCH+10, MATCH+12
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+16~, MATCH+17*
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+4, INFO+6, INFO+7, INFO+9, INFO+12
J	RPT+1~, TEXT+2~, INFO+2~
LOC	EN1+25~*, EN1+26
LOCAL	MATCH+1~, MATCH+14*, MATCH+17, MATCH+18
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+7*, INFO+8, INFO+12
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+18*, MATCH+19, MATCH+20
NOTSUBJ	EN+16~, SETUP+8, SETUP+49, MATCH+23
NT	INFO+2~, INFO+9, INFO+10, INFO+11, INFO+12
OK	MATCH+1~, MATCH+15, MATCH+16, MATCH+17
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+21
SHOWADD	EN1+6~*
STATUS	EN+16~, EN+22, TEXT+2~, SETUP+8, SETUP+12, SETUP+31, SETUP+55, MATCH+5, MATCH+8, MATCH+12
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+15, MATCH+17
SUBJECT	EN+16~, SETUP+8, SETUP+34, SETUP+37, SETUP+40, SETUP+43, SETUP+46, MATCH+22
TAG	LOOP+1~, LOOP+2*
TITLE	EN+16~, SETUP+8*, MATCH+19
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+9, INFO+12, LOOP+2, MATCH+5, MATCH+8, MATCH+10, MATCH+12, MATCH+17, MATCH+19 , MATCH+21, MATCH+22, MATCH+23
>> VPR	ADD+2
VPRC	EN+16~, EN+21*
VPRCNT	EN+1~, EN+17, EN+21, EN+22, EN+24, EN+27
VPRERR	INFO+2~, INFO+4, INFO+5
>> 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, MATCH+8
VPRTIU	EN1+2~, INFO+2~
VPRTIU(	EN1+21, EN1+32, EN1+37, INFO+6, INFO+7, INFO+9
>> 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+7, INFO+10, INFO+12
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+16~, MATCH+17
X0	TEXT+2~, MATCH+1~, MATCH+20*, MATCH+21, MATCH+22, MATCH+23
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+12, INFO+13, XML+1~, XML+3, XML+4, XML+9, XML+11* , XML+12, XML+13, XML+14, XML+16, XML+17, MATCH+1~, MATCH+24*, MQ

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+10

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+14

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+8, MATCH+10, MATCH+12

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+16~, MATCH+17*

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+4, INFO+6, INFO+7, INFO+9, INFO+12

J

RPT+1~, TEXT+2~, INFO+2~

LOC

EN1+25~*, EN1+26

LOCAL

MATCH+1~, MATCH+14*, MATCH+17, MATCH+18

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+7*, INFO+8, INFO+12

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+18*, MATCH+19, MATCH+20

NOTSUBJ

EN+16~, SETUP+8*, SETUP+49*, MATCH+23

NT

INFO+2~, INFO+9*, INFO+10, INFO+11*, INFO+12

OK

MATCH+1~, MATCH+15, MATCH+16*, MATCH+17*

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+21

SHOWADD

EN1+6~*

STATUS

EN+16~, EN+22, TEXT+2~, SETUP+8*, SETUP+12*, SETUP+31, SETUP+55, MATCH+5, MATCH+8, MATCH+12

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+15, MATCH+17

SUBJECT

EN+16~, SETUP+8*, SETUP+34*, SETUP+37*, SETUP+40*, SETUP+43*, SETUP+46*, MATCH+22

TAG

LOOP+1~, LOOP+2*

TITLE

EN+16~, SETUP+8*, MATCH+19

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+9, INFO+12, LOOP+2, MATCH+5, MATCH+8, MATCH+10, MATCH+12, MATCH+17, MATCH+19
, MATCH+21, MATCH+22, MATCH+23

>> VPR

ADD+2

VPRC

EN+16~, EN+21*

VPRCNT

EN+1~, EN+17*, EN+21, EN+22, EN+24, EN+27*

VPRERR

INFO+2~, INFO+4, INFO+5

>> 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, MATCH+8

VPRTIU

EN1+2~, INFO+2~

VPRTIU(

EN1+21, EN1+32, EN1+37, INFO+6, INFO+7, INFO+9

>> 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+7*, INFO+10*, INFO+12

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+16~, MATCH+17*

X0

TEXT+2~, MATCH+1~, MATCH+20*, MATCH+21, MATCH+22, MATCH+23

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+12*, INFO+13, XML+1~, XML+3, XML+4*, XML+9*, XML+11*
, XML+12*, XML+13*, XML+14*, XML+16*, XML+17*, MATCH+1~*, MATCH+24*, MQ

Customize PDF page

Package: Virtual Patient Record

Routine: VPRDTIU

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed