Routine: TIUSRVLO

Information

TIUSRVLO ;SLC/JER - Server fns - lists for CPRS ;Apr 06, 2021@11:27:34

Package	Total	Call Graph
Text Integration Utility	8	($$PREFIX,PREFIX)^TIULA2 ($$HASADDEN,$$PNAME,DOCPRM)^TIULC1 $$PERSPRF^TIULE $$CANDO^TIULP ($$DATE,$$LOWER,$$NAME,$$SIGNAME)^TIULS $$URGENCY^TIURM ($$HASDAD,$$HASKIDS,GETUND,RESEQ,SETDAD,SETKIDS)^TIUSRVLI APTCL^TIUSRVLP
Kernel	1	$$NOW^XLFDT
Toolkit	1	(END,STRT1)^AWCMCPR1
VA FileMan	1	$$GET1^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 29

Package	Total	Caller Graph
Order Entry Results Reporting	7	ORCHTAB1 ORDV02A ORDV04 ORQQCN1 ORWGAPIA ORWORB ORWTIU
Enterprise Health Management Platform	6	HMPDJ0 HMPDJ02 HMPDJ03 HMPDJ08 HMPDMC HMPDTIU
Text Integration Utility	6	TIU DOCUMENTS BY CONTEXT TIU NOTES TIU SUMMARIES TIUSRVLI TIUSRVLP TIUSRVLR
Virtual Patient Record	5	VPRDJ0 VPRDJ03 VPRDJ08 VPRDMC VPRDTIU
Clinical Reminders	1	PXRMTIU
Consult Request Tracking	1	GMRCTIUL
Imaging	1	MAGGSTI
National Health Information Network	1	NHINVTIU
Scheduling	1	SDESGETTIUDOC

Entry Points

Name	Comments	DBIA/ICR reference
NOTES(TIUY,DFN,EARLY,LATE,PERSON,SEQUENCE)	; Get notes
SUMMARY(TIUY,DFN,EARLY,LATE)	; Get Summaries
CONTEXT(TIUY,CLASS,CONTEXT,DFN,EARLY,LATE,PERSON,OCCLIM,SEQUENCE,SHOWADD,INCUND,SHOW,TIUIEN)	; main ; --- Call with: TIUY - RETURN ARRAY pass by reference ; CLASS - Pointer to TIU DOCUMENT DEFINITION #8925.1 ; CONTEXT - 1=All Signed (by PT), ; - 2="Unsigned (by PT&(AUTHOR!TANSCRIBER)) ; - 3="Uncosigned (by PT&EXPECTED COSIGNER ; - 4="Signed notes (by PT&selected author) ; - 5="Signed notes (by PT&date range) ; DFN - Pointer to Patient (#2) ; [EARLY] - FM date/time to begin search ; [LATE] - FM date/time to end search ; [PERSON] - Pointer to file 200 (DUZ if not passed) ; [OCCLIM] - Occurrence Limit (optional) ; [SEQUENCE]- "A"=ascending (Regular date/time) ; - "D"=descending (Reverse date/time) (dflt) ; [INCUND] - Boolean: include undictated & untranscribed ; SHOW - Boolean: Return "0^SHOW MORE" in return ; array when additional notes available for ; context of 1 or 5 when occurrence limit ; prevents all notes from displaying ; TIUIEN - Starting TIU IEN for additional return ; when "SHOW MORE" was received in previous ; return array (LATE date/time will be set ; to Reference date of this TIU document)
CTXQ	;
SWAP(TIUX,TIUY)	; Swap variables
EXPRANGE(TIUX,TIUY)	; Expand range when same for early & late
ACLPT(TIUY,CLASS,DFN,TIME1,TIME2,OCCLIM,SEQUENCE,SHOW,TIUIEN)	; Signed, by patient
ACLAU(TIUY,CLASS,AUTHOR,DFN,TIME1,TIME2,SEQUENCE,INCUND)	; Unsigned
ACLEC(TIUY,CLASS,EXCOSIGN,DFN,TIME1,TIME2,SEQUENCE)	; Uncosigned
ACLSB(TIUY,CLASS,SIGNEDBY,DFN,TIME1,TIME2,SEQUENCE)	; Signed, by author
RESOLVE(DA)	; Resolve to external data
IMGCNT(TIUDA)	; Get the number of images associated with a document
IDSORT(TIUDA)	; Get ID Sort indicator when appropriate

External References

Name	Field # of Occurrence
END^AWCMCPR1	CTXQ+2
STRT1^AWCMCPR1	CONTEXT+29
$$GET1^DIQ	RESOLVE+36
$$PREFIX^TIULA2	RESOLVE+17
PREFIX^TIULA2	RESOLVE+16
$$HASADDEN^TIULC1	RESOLVE+24, RESOLVE+25
$$PNAME^TIULC1	RESOLVE+8, RESOLVE+9, RESOLVE+10
DOCPRM^TIULC1	IDSORT+2
$$PERSPRF^TIULE	NOTES+1, SUMMARY+1
$$CANDO^TIULP	ACLPT+22, ACLAU+11, ACLEC+10, ACLSB+10
$$DATE^TIULS	RESOLVE+29, RESOLVE+30
$$LOWER^TIULS	RESOLVE+27
$$NAME^TIULS	RESOLVE+32
$$SIGNAME^TIULS	RESOLVE+36
$$URGENCY^TIURM	RESOLVE+26
$$HASDAD^TIUSRVLI	ACLPT+31, ACLAU+15, ACLEC+14, ACLSB+14, ACLSB+15
$$HASKIDS^TIUSRVLI	ACLPT+37, ACLAU+21, ACLEC+20, ACLSB+21
GETUND^TIUSRVLI	ACLAU+22
RESEQ^TIUSRVLI	ACLPT+40
SETDAD^TIUSRVLI	ACLPT+31, ACLAU+15, ACLEC+14, ACLSB+15
SETKIDS^TIUSRVLI	ACLPT+39, ACLAU+21, ACLEC+20, ACLSB+21
APTCL^TIUSRVLP	CONTEXT+56, CONTEXT+57
$$NOW^XLFDT	EXPRANGE+1

Used in RPC

RPC Name	Call Tags
TIU NOTES	NOTES
TIU SUMMARIES	SUMMARY
TIU DOCUMENTS BY CONTEXT	CONTEXT

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	RESOLVE+7
^SC - [#44]	RESOLVE+28
^TIU(8925 - [#8925]	CONTEXT+33, CONTEXT+47, CONTEXT+52, CONTEXT+57, ACLPT+8, ACLPT+19, ACLPT+20, ACLPT+22, ACLPT+28, ACLPT+33 , ACLPT+34, ACLPT+35, ACLPT+36, ACLPT+44, ACLAU+2, ACLAU+6, ACLAU+7, ACLAU+11, ACLAU+17, ACLAU+18 , ACLAU+19, ACLAU+20, ACLEC+2, ACLEC+6, ACLEC+10, ACLEC+16, ACLEC+17, ACLEC+18, ACLEC+19, ACLSB+2 , ACLSB+6, ACLSB+10, ACLSB+17, ACLSB+18, ACLSB+19, ACLSB+20, RESOLVE+4, RESOLVE+5, RESOLVE+6, RESOLVE+10 , IDSORT+2
^TIU(8925.6 - [#8925.6]	RESOLVE+27
^TIU(8925.91 - [#8925.91]	IMGCNT+2
^TMP("TIUR"	CONTEXT+25

Label References

Name	Line Occurrences
$$IDSORT	RESOLVE+18
$$IMGCNT	RESOLVE+38
$$RESOLVE	ACLPT+27, ACLAU+12, ACLEC+11, ACLSB+11
ACLAU	CONTEXT+46, CONTEXT+47
ACLEC	CONTEXT+51, CONTEXT+52
ACLPT	CONTEXT+42
CONTEXT	NOTES+4, SUMMARY+4
CTXQ	CONTEXT+41, CONTEXT+44, CONTEXT+49, CONTEXT+54
EXPRANGE	CONTEXT+34
SWAP	CONTEXT+32

Naked Globals

Name	Field # of Occurrence
^(14	RESOLVE+5
^(17	RESOLVE+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AUT	RESOLVE+1~, RESOLVE+35, RESOLVE+36, RESOLVE+38
AUTHOR	ACLAU~, ACLAU+2
>> AWCSTRT	CTXQ+2
CLASS	CONTEXT~, CONTEXT+28, CONTEXT+42, CONTEXT+46, CONTEXT+47, CONTEXT+51, CONTEXT+52, CONTEXT+56, CONTEXT+57, ACLPT~ , ACLPT+8, ACLAU~, ACLAU+2, ACLAU+22, ACLEC~, ACLEC+2, ACLSB~, ACLSB+2
CONTEXT	CONTEXT~, CONTEXT+27, CONTEXT+29, CONTEXT+30, CONTEXT+31, CONTEXT+33, CONTEXT+41, CONTEXT+44, CONTEXT+49, CONTEXT+54 , ACLPT+45, RESOLVE+41
DA	ACLPT+1~, ACLPT+11, ACLPT+13, ACLPT+19, ACLPT+20, ACLPT+22, ACLPT+23, ACLPT+25, ACLPT+27, ACLPT+28 , ACLPT+29, ACLPT+31, ACLPT+33, ACLPT+34, ACLPT+35, ACLPT+37, ACLPT+39, ACLPT+42, ACLPT+44, ACLPT+45 , ACLAU+1~, ACLAU+5, ACLAU+6, ACLAU+7, ACLAU+9, ACLAU+11, ACLAU+12, ACLAU+13, ACLAU+15, ACLAU+17 , ACLAU+18, ACLAU+19, ACLAU+21, ACLEC+1~, ACLEC+5, ACLEC+6, ACLEC+8, ACLEC+10, ACLEC+11, ACLEC+12 , ACLEC+14, ACLEC+16, ACLEC+17, ACLEC+18, ACLEC+20, ACLSB+1~, ACLSB+5*, ACLSB+6, ACLSB+8, ACLSB+10 , ACLSB+11, ACLSB+12, ACLSB+14, ACLSB+15, ACLSB+17, ACLSB+18, ACLSB+19, ACLSB+21, RESOLVE~, RESOLVE+4 , RESOLVE+5, RESOLVE+6, RESOLVE+17, RESOLVE+18, RESOLVE+24, RESOLVE+25, RESOLVE+26, RESOLVE+38
DATTIM	ACLPT+1~, ACLPT+9, ACLPT+10, ACLPT+11, ACLPT+15, ACLPT+20, ACLPT+41, ACLAU+1~, ACLAU+3, ACLAU+4 , ACLAU+5, ACLAU+6, ACLAU+7, ACLEC+1~, ACLEC+3, ACLEC+4, ACLEC+5, ACLEC+6, ACLSB+1~, ACLSB+3* , ACLSB+4*, ACLSB+5, ACLSB+6
DFN	NOTES~, NOTES+4, SUMMARY~, SUMMARY+4, CONTEXT~, CONTEXT+38, CONTEXT+42, CONTEXT+45, CONTEXT+46, CONTEXT+47 , CONTEXT+50, CONTEXT+51, CONTEXT+52, CONTEXT+55, CONTEXT+56, CONTEXT+57, ACLPT~, ACLPT+8, ACLAU~, ACLAU+2 , ACLAU+22, ACLEC~, ACLEC+2, ACLSB~, ACLSB+2
DOC	RESOLVE+1~, RESOLVE+8, RESOLVE+9, RESOLVE+10, RESOLVE+19, RESOLVE+25, RESOLVE+26, RESOLVE+38
DT	EXPRANGE+1
DUZ	NOTES+1, NOTES+2, SUMMARY+1, SUMMARY+2, CONTEXT+35, ACLPT+22, ACLAU+11, ACLEC+10, ACLSB+10
EARLY	NOTES~, NOTES+4, SUMMARY~, SUMMARY+4, CONTEXT~, CONTEXT+30, CONTEXT+32, CONTEXT+33, CONTEXT+34, CONTEXT+39 , CONTEXT+42, CONTEXT+46, CONTEXT+47, CONTEXT+51, CONTEXT+52, CONTEXT+56, CONTEXT+57
EDT	RESOLVE+1~, RESOLVE+37*, RESOLVE+38
EDTCNT	RESOLVE+2~, RESOLVE+37*
EXCOSIGN	ACLEC~, ACLEC+2
IDPARENT	RESOLVE+2~, RESOLVE+6*, RESOLVE+41
IDSORT	RESOLVE+2~, RESOLVE+18*, RESOLVE+41
IMGDA	IMGCNT+1~, IMGCNT+2
INCUND	CONTEXT~, CONTEXT+46, CONTEXT+47, ACLAU~, ACLAU+22
LATE	NOTES~, NOTES+4, SUMMARY~, SUMMARY+4, CONTEXT~, CONTEXT+31, CONTEXT+32, CONTEXT+33, CONTEXT+34, CONTEXT+39* , CONTEXT+42, CONTEXT+46, CONTEXT+47, CONTEXT+51, CONTEXT+52, CONTEXT+56, CONTEXT+57
LOC	RESOLVE+1~, RESOLVE+28*, RESOLVE+38
LOCTYP	RESOLVE+2~, RESOLVE+28*, RESOLVE+29
LSTDA	ACLPT+1~, ACLPT+2, ACLPT+23, ACLPT+25*, ACLPT+42
LSTDT	ACLPT+44~*, ACLPT+45
NGD	ACLPT+1~, ACLPT+2, ACLPT+4, ACLPT+12, ACLPT+14*
OCCLIM	CONTEXT~, CONTEXT+37, CONTEXT+42, ACLPT~, ACLPT+7, ACLPT+10, ACLPT+11, ACLPT+24*, ACLPT+41
OCCLIM2	ACLPT+1~, ACLPT+7*, ACLPT+24
PERSON	NOTES~, NOTES+2, NOTES+4, SUMMARY+2, SUMMARY+4, CONTEXT~, CONTEXT+35*, CONTEXT+46, CONTEXT+47, CONTEXT+51 , CONTEXT+52, CONTEXT+56, CONTEXT+57
PREFIX	RESOLVE+2~, RESOLVE+3, RESOLVE+17, RESOLVE+18, RESOLVE+19, RESOLVE+24*, RESOLVE+25, RESOLVE+40
PRVRTNDT	ACLPT+1~, ACLPT+6, ACLPT+15
PT	RESOLVE+1~, RESOLVE+32*, RESOLVE+34, RESOLVE+38
ROOT	ACLPT+1~, ACLPT+8, ACLPT+10, ACLPT+11, ACLPT+20, ACLAU+1~, ACLAU+2, ACLAU+4, ACLAU+5, ACLAU+6 , ACLAU+7, ACLEC+1~, ACLEC+2, ACLEC+4, ACLEC+5, ACLEC+6, ACLSB+1~, ACLSB+2, ACLSB+4, ACLSB+5 , ACLSB+6
SEQUENCE	NOTES~, NOTES+3, NOTES+4, SUMMARY+3, SUMMARY+4, CONTEXT~, CONTEXT+36*, CONTEXT+42, CONTEXT+46, CONTEXT+47 , CONTEXT+51, CONTEXT+52, CONTEXT+56, CONTEXT+57, ACLPT~, ACLPT+26, ACLPT+43, ACLAU~, ACLAU+8, ACLAU+22 , ACLEC~, ACLEC+7, ACLSB~, ACLSB+7
SHOW	CONTEXT~, CONTEXT+42, ACLPT~, ACLPT+41
SHOWADD	CONTEXT~, ACLPT+19, ACLPT+30, ACLAU+14, ACLEC+13, ACLSB+13, RESOLVE+19, RESOLVE+25, RESOLVE+31
SIGNEDBY	ACLSB~, ACLSB+2
STATUS	RESOLVE+2~, RESOLVE+27*, RESOLVE+38
STRTDT	ACLPT+1~, ACLPT+2, ACLPT+5
TIME1	ACLPT~, ACLPT+5, ACLPT+9, ACLAU~, ACLAU+3, ACLAU+22, ACLEC~, ACLEC+3, ACLSB~, ACLSB+3
TIME2	ACLPT~, ACLPT+10, ACLPT+41, ACLAU~, ACLAU+4, ACLAU+22, ACLEC~, ACLEC+4, ACLSB~, ACLSB+4
TIUADT	RESOLVE+2~, RESOLVE+29, RESOLVE+31, RESOLVE+38
TIUDA	IMGCNT~, IMGCNT+2, IDSORT~, IDSORT+2
TIUDDT	RESOLVE+2~, RESOLVE+30, RESOLVE+31, RESOLVE+38
TIUDPRM	IDSORT+1~, IDSORT+2
TIUDPRM(0	IDSORT+3
TIUI	ACLPT+1~, ACLPT+26, ACLPT+27, ACLPT+29, ACLPT+31, ACLPT+36, ACLPT+39, ACLPT+40, ACLPT+43, ACLPT+45 , ACLAU+1~, ACLAU+8, ACLAU+12, ACLAU+13, ACLAU+15, ACLAU+20, ACLAU+21, ACLAU+22, ACLEC+1~, ACLEC+7 , ACLEC+11, ACLEC+12, ACLEC+14, ACLEC+19, ACLEC+20, ACLSB+1~, ACLSB+7, ACLSB+11, ACLSB+12, ACLSB+15 , ACLSB+20, ACLSB+21, IMGCNT+1~, IMGCNT+3*, IMGCNT+4
TIUIEN	CONTEXT~, CONTEXT+33, CONTEXT+42, ACLPT~, ACLPT+3, ACLPT+13, ACLPT+40
TIUJ	ACLPT+1~, ACLPT+8, ACLPT+10, ACLPT+11, ACLPT+24, ACLPT+28, ACLPT+41
TIULST4	RESOLVE+1~, RESOLVE+33, RESOLVE+34, RESOLVE+38
TIUOCC	NOTES+1~, NOTES+2, NOTES+4, SUMMARY+1~, SUMMARY+2, SUMMARY+4
TIUP	ACLPT+1~, ACLPT+31, ACLAU+15, ACLEC+14, ACLSB+15
TIUPREF	NOTES+1~, NOTES+2, SUMMARY+1~, SUMMARY+2
TIUPT	ACLPT+32~, ACLPT+33, ACLPT+34, ACLPT+35, ACLPT+36, ACLAU+16~, ACLAU+17, ACLAU+18, ACLAU+19, ACLAU+20 , ACLEC+15~, ACLEC+16, ACLEC+17, ACLEC+18, ACLEC+19, ACLSB+16~, ACLSB+17, ACLSB+18, ACLSB+19, ACLSB+20 , RESOLVE+1~, RESOLVE+7*, RESOLVE+32, RESOLVE+33
TIUR0	RESOLVE+1~, RESOLVE+4*, RESOLVE+7, RESOLVE+8, RESOLVE+9, RESOLVE+10, RESOLVE+27, RESOLVE+29, RESOLVE+30, RESOLVE+31 , RESOLVE+41
TIUR12	RESOLVE+1~, RESOLVE+4*, RESOLVE+28, RESOLVE+35, RESOLVE+36
TIUR13	RESOLVE+1~, RESOLVE+5*, RESOLVE+37
TIUR14	RESOLVE+1~, RESOLVE+5*, RESOLVE+38
TIUR17	RESOLVE+2~, RESOLVE+5*, RESOLVE+39
TIUREC	RESOLVE+1~, RESOLVE+38, RESOLVE+39, RESOLVE+40, RESOLVE+41, RESOLVE+42
TIUTMP	SWAP+1~*
TIUX	SWAP~, SWAP+1*, EXPRANGE~, EXPRANGE+1
TIUY	NOTES~, NOTES+4, SUMMARY~, SUMMARY+4, CONTEXT~, CONTEXT+25, CONTEXT+26, CONTEXT+42, CONTEXT+46, CONTEXT+47 , CONTEXT+51, CONTEXT+52, CONTEXT+56, CONTEXT+57, CTXQ+1, SWAP~, SWAP+1, EXPRANGE~, EXPRANGE+1, EXPRANGE+2 , ACLPT~, ACLPT+23, ACLPT+27, ACLPT+28, ACLPT+29, ACLPT+31, ACLPT+36, ACLPT+39, ACLPT+40, ACLPT+45 , ACLAU~, ACLAU+9, ACLAU+12, ACLAU+13, ACLAU+15, ACLAU+20, ACLAU+21, ACLAU+22, ACLEC~, ACLEC+8 , ACLEC+11, ACLEC+12, ACLEC+14, ACLEC+19, ACLEC+20, ACLSB~, ACLSB+8, ACLSB+11, ACLSB+12, ACLSB+15 , ACLSB+20, ACLSB+21
U	NOTES+2, SUMMARY+2, CONTEXT+33, ACLPT+22, ACLPT+27, ACLPT+28, ACLAU+7, ACLAU+11, ACLAU+12, ACLEC+10 , ACLEC+11, ACLSB+10, ACLSB+11, RESOLVE+7, RESOLVE+10, RESOLVE+27, RESOLVE+28, RESOLVE+29, RESOLVE+30, RESOLVE+31 , RESOLVE+32, RESOLVE+33, RESOLVE+35, RESOLVE+36, RESOLVE+38, RESOLVE+39, RESOLVE+40, RESOLVE+41, IDSORT+3

Marked Items

Name	Field # of Occurrence
$T(PREFIX^TIULA2	RESOLVE+16

Customize PDF page

Package: Text Integration Utility