Routine: BTIUVSIT

Package	Total	Call Graph
Text Integration Utility	6	$$PATIENT^TIULA ($$IDATE,$$NOW)^TIULC $$PERSPRF^TIULE $$INAME^TIULS $$READ^TIUU $$SELLOC^TIUVSIT
IHS Mods To Text Integration Utilities	2	$$ADDEVNT^BTIUCHLP MSG^BTIUU
VA Fileman	2	^DIC $$GET1^DIQ
Authorization Subscription	1	$$ISA^USRLM
IHS Electronic Health Record	1	$$FNDVIS^BEHOENCX
IHS VA Utilities	1	ENP^XBDIQ1
Patient Care Component	1	(,EN)^APCDALV

Package	Total	Caller Graph
Text Integration Utility	3	TIUVSIT TIUVSIT1 TIUVSITH
IHS Mods To Text Integration Utilities	1	BTIUPUTP

Entry Points

Name	Comments	DBIA/ICR reference
HELP(X)	;EP; Offer help
VISITSET	; -- sets visit variables ; -- pre-answer some questions
GETCLN()	; -- returns clinic code ien for dictator if defined
SETINPT(VISIT)	; -- set ^tmp for hospitalization
GETAPPT(DFN,CLINIC,OCCLIM,INDEX,COUNT,LAST,EARLY)	;EP; Get list of visits ; -- changed list from list of appts to list of visits ; TIUMODE=1 for interactive user mode; =0 for background
STUFVST(DFN,VDATE,APCDCLN)	; -- auto-add of visit if not found
PROV(V)	;EP; -- returns primary provider for visit
MSG(A,B,C,D)	; -- display line to screen
ADD(DFN,ASK,TIUCLNC)	;EP; Add a visit for patient
VSTSET
GETSURG(VISIT,DFN,HRCN,SRGDT,CLINIC)	;EP; Get list of surgeries ; -- also called by TIUPUTPN
INPT(DFN,VDATE)	; -- return 1 if patient was inpatient on this date
FINDVST	;EP; -- IHS setup code to find visit for note

External References

Name	Field # of Occurrence
^APCDALV	STUFVST+13
EN^APCDALV	ADD+32
$$FNDVIS^BEHOENCX	FINDVST+10
$$ADDEVNT^BTIUCHLP	ADD+9
MSG^BTIUU	MSG+1, VSTSET+1, STUFVST+14
^DIC	GETCLN+10
$$GET1^DIQ	GETAPPT+39, GETSURG+6, ADD+28, VSTSET+6, STUFVST+17, VISITSET+5, PROV+4, GETCLN+12
$$PATIENT^TIULA	GETSURG+3
$$IDATE^TIULC	GETAPPT+36
$$NOW^TIULC	GETAPPT+9
$$PERSPRF^TIULE	FINDVST+7
$$INAME^TIULS	GETCLN+10
$$READ^TIUU	GETAPPT+45, ADD+7, ADD+20, ADD+28, STUFVST+3, STUFVST+7, STUFVST+9
$$SELLOC^TIUVSIT	ADD+24
$$ISA^USRLM	GETAPPT+6
ENP^XBDIQ1	GETAPPT+18, VSTSET+2, STUFVST+15, SETINPT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?2,"*Visit Date in Header: ",$G(TIUHDR("TIUVDT")) Line Location: ADD+17
Function Call: WRITE	Prompt: "* Remember to add time",! Line Location: ADD+18
Function Call: WRITE	Prompt: !!?2,"Visit Date in Header: ",$G(TIUHDR("TIUVDT"))," Remember to add time",! Line Location: STUFVST+6
Routine Call	DIC Line Location: GETCLN+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SRF - [#130]	GET1^DIQ
^DIC(40.7 - [#40.7]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^USR(8930.3 - [#8930.3]	GET1^DIQ
^APCDSITE - [#9001001.2]	GET1^DIQ
^AUTTLOC - [#9999999.06]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL(0	VISITSET+3
^APCDSITE - [#9001001.2]	VISITSET+3
^AUPNVINP - [#9000010.02]	INPT+5
^AUPNVINP("AD"	INPT+4, INPT+5
^AUPNVPRV - [#9000010.06]	PROV+3, PROV+4
^AUPNVPRV("AD"	PROV+2
^AUPNVSIT("AA"	GETAPPT+15, GETAPPT+16
^AUPNVSIT("AAH"	INPT+2, INPT+3
^DD(9000010.06	PROV+4
^DIC(40.7 - [#40.7]	VSTSET+13, STUFVST+21, GETCLN+1, GETCLN+7
^SC - [#44]	FINDVST+4, FINDVST+9, VSTSET+12, VSTSET+13, STUFVST+20, STUFVST+21
^SRF("AIHS4"	GETSURG+5
^TIU(8925.1 - [#8925.1]	GETCLN+4, GETCLN+5
^TMP("TIUIHSV"	FINDVST+13!, GETAPPT+40, VSTSET+8, STUFVST+18, SETINPT+6
^TMP("TIUVDT"	GETAPPT+40, VSTSET+8, STUFVST+18, SETINPT+6
^TMP("TIUVN"	FINDVST+15, GETAPPT+39, VSTSET+6, STUFVST+17, SETINPT+5
^TMP("TIUVNI"	FINDVST+17, FINDVST+19, GETAPPT+38, GETAPPT+42, VSTSET+4, STUFVST+16, SETINPT+4
^USR(8930.3 - [#8930.3]	GETCLN+11

Label References

Name	Line Occurrences
$$GETCLN	GETAPPT+30
$$INPT	GETAPPT+43
$$PROV	GETAPPT+39, VSTSET+6, STUFVST+17
ADD	GETAPPT+46
GETAPPT	FINDVST+15
MSG	HELP+1, HELP+2, HELP+3, HELP+4, HELP+5
SETINPT	GETAPPT+43
VISITSET	ADD+12, STUFVST+5
VSTSET	ADD+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	MSG~, MSG+1
>> APCDCAT	ADD+7, ADD+8, ADD+9, ADD+29, STUFVST+3, STUFVST+4, STUFVST+10
APCDCLN	ADD+28, ADD+29!, STUFVST~, STUFVST+9, STUFVST+10!
>> APCDDATE	ADD+20, ADD+21, STUFVST+7, STUFVST+8
APCDHL	ADD+4~, ADD+24*, ADD+25, ADD+28, VSTSET+12, VSTSET+13, STUFVST+20, STUFVST+21
>> APCDLOC	ADD+12, STUFVST+5, VISITSET+2, VISITSET+3, VISITSET+4, VISITSET+5
>> APCDPAT	VISITSET+6*
>> APCDTYPE	VISITSET+5*
>> APCDVSIT	ADD+9*, VSTSET, VSTSET+2, VSTSET+6, VSTSET+8, STUFVST+13, STUFVST+15, STUFVST+17, STUFVST+18
ASK	ADD~
B	MSG~, MSG+1
>> BTIUQ	FINDVST+3, FINDVST+17, FINDVST+19*
C	MSG~, MSG+1
CLINIC	GETAPPT~, GETAPPT+27, GETAPPT+29, GETAPPT+30*, GETAPPT+31, GETAPPT+32, GETAPPT+36, GETSURG~
CODE	GETCLN+2~, GETCLN+5, GETCLN+6, GETCLN+11, GETCLN+12, GETCLN+13
COUNT	GETAPPT~, GETAPPT+12
D	MSG~, MSG+1
DA	ADD+1~, STUFVST+2~
DEFAULT	ADD+1~, ADD+15, ADD+19, ADD+20, STUFVST+2~
DFN	FINDVST+10, FINDVST+15, GETAPPT~, GETAPPT+15, GETAPPT+16, GETAPPT+43, GETAPPT+46, GETSURG~, GETSURG+3*, GETSURG+5 , ADD~, ADD+9, STUFVST~, VISITSET+6, INPT~, INPT+2, INPT+3
DIC	GETCLN+2~, GETCLN+10*
DIC(0	GETCLN+10*
DIE	ADD+1~, STUFVST+2~
DR	ADD+1~, STUFVST+2~
DSCH	INPT+1~, INPT+5*, INPT+6
DT	GETAPPT+9*, GETAPPT+11
DUZ	FINDVST+5, FINDVST+7, GETAPPT+6
DUZ(2	VISITSET+2
EARLY	GETAPPT~, GETAPPT+10*, GETAPPT+15, GETAPPT+43, GETAPPT+46
HRCN	GETSURG~
IDX	FINDVST+6~, FINDVST+8*, FINDVST+9
INDEX	GETAPPT~, GETAPPT+11
LAST	GETAPPT~, GETAPPT+12, GETAPPT+15
LASTA	INPT+1~, INPT+2*, INPT+3
OCCLIM	GETAPPT~, GETAPPT+6*, GETAPPT+15, GETAPPT+36
QUES	ADD+1~, STUFVST+2~
REVDT	SETINPT+1~, SETINPT+3*, SETINPT+4, SETINPT+6
SRGDT	GETSURG~, GETSURG+5
STOP	GETAPPT+29~, GETAPPT+31, GETAPPT+32*
>> TIU("VISIT"	FINDVST+11*
>> TIUAUTH	GETAPPT+29, GETCLN+10
>> TIUCAT	FINDVST+10
TIUCLNC	GETAPPT+46, ADD~, GETCLN+1, GETCLN+2~, GETCLN+7
TIUCNT	GETAPPT+3~, GETAPPT+12, GETAPPT+15, GETAPPT+35, GETAPPT+36*
TIUEND	GETAPPT+3~
>> TIUER	ADD+8, ADD+21, ADD+25, VSTSET, VSTSET+16, STUFVST+4, STUFVST+8, STUFVST+13, STUFVST+22*
>> TIUHDR	GETAPPT+46, ADD+4, ADD+16
>> TIUHDR("TIUVDT"	ADD+17, STUFVST+6
TIUI	GETAPPT+3~, GETAPPT+11, GETAPPT+15, GETAPPT+16, GETSURG+2~, GETSURG+4, GETSURG+5, GETSURG+6
TIUJ	GETAPPT+3~, GETAPPT+12, GETAPPT+35, GETAPPT+38, GETAPPT+39, GETAPPT+40
>> TIULAST	FINDVST+15
>> TIULDT	FINDVST+15
>> TIULOC	FINDVST+10, FINDVST+15
>> TIUMODE	FINDVST+3, FINDVST+19, GETAPPT+31, GETAPPT+44
>> TIUOCC	FINDVST+15
>> TIUOK	VSTSET+16*
TIUPREF	FINDVST+6~, FINDVST+7*, FINDVST+8
>> TIUSDC	VSTSET+13, STUFVST+21
TIUSREC	GETAPPT+3~
>> TIUSSN	GETSURG+3
>> TIUTYPE	GETCLN+4, GETCLN+5
>> TIUVDT	FINDVST+10, FINDVST+15, GETAPPT+36, GETAPPT+46
TIUX	GETSURG+2~, GETSURG+4, GETSURG+6, GETSURG+7
TIUY	ADD+1~, STUFVST+2~
TIUY("LOC"	FINDVST+4, FINDVST+5, FINDVST+9
TIUZ	GETAPPT+17~, GETSURG+2~, ADD+1~, STUFVST+2~, SETINPT+1~
TIUZ(	GETAPPT+21, GETAPPT+27, GETAPPT+32, GETAPPT+36, GETAPPT+38, GETAPPT+39, GETAPPT+40, GETSURG+7*, GETSURG+8, VSTSET+4 , VSTSET+6, VSTSET+8, VSTSET+10, STUFVST+16, STUFVST+17, STUFVST+18, SETINPT+3, SETINPT+4, SETINPT+5
TIUZ(0	GETSURG+8
>> TIUZV	GETAPPT+16*, GETAPPT+18, GETAPPT+39, GETAPPT+40
U	FINDVST+4, FINDVST+8, FINDVST+9, GETAPPT+38, GETAPPT+39, GETAPPT+43, VSTSET+4, VSTSET+6, VSTSET+12, VSTSET+13 , STUFVST+16, STUFVST+17, STUFVST+20, STUFVST+21, INPT+4, INPT+7, SETINPT+4, SETINPT+5, PROV+3, PROV+4
USR	GETCLN+2~, GETCLN+11*, GETCLN+12
V	PROV~, PROV+2
VDATE	STUFVST~, INPT~, INPT+2, INPT+6
VIEN	FINDVST+2~, FINDVST+10*, FINDVST+11
VISIT	GETSURG~, GETSURG+8, GETSURG+9, INPT+1~, INPT+3*, INPT+4, INPT+5, INPT+7, SETINPT~, SETINPT+2 , SETINPT+6
>> VLOC	FINDVST+4
VSIT	ADD+1~, STUFVST+2~
>> VSTR	VSTSET+10*
VTYPE	ADD+1~, STUFVST+2~
X	GETAPPT+17~, GETAPPT+21, GETAPPT+29, GETAPPT+31, GETAPPT+32, GETAPPT+36, HELP~, ADD+1~, STUFVST+2~, PROV+1~ , PROV+2, PROV+3, PROV+4, GETCLN+1, GETCLN+2~, GETCLN+7, GETCLN+10*
Y	GETAPPT+43, GETAPPT+45, ADD+1~, STUFVST+2~, PROV+1~, PROV+2, PROV+4, PROV+5, GETCLN+2~, GETCLN+4 , GETCLN+5, GETCLN+10, GETCLN+11

Customize PDF page

Package: IHS Mods To Text Integration Utilities

Routine: BTIUVSIT

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: