Routine: TIUVSIT

Call Graph

Call Graph Total: 22

Package	Total	Call Graph
Text Integration Utility	14	$$PATIENT^TIULA DOCPRM^TIULC1 GETTIU^TIULD $$PERSLOC^TIULE $$DATE^TIULS PATVADPT^TIULV MAIN^TIUMOVE $$WORKOK^TIUPXAP1 $$LNKVST^TIUPXAP3 CREDIT^TIUPXAPI $$READ^TIUU MAIN^TIUVISIT ($$NOTFOUND,GETAPPT)^TIUVSIT1 HELP^TIUVSITH
IHS Mods To Text Integration Utilities	2	VV^BTIUPCC (ADD,FINDVST)^BTIUVSIT
Kernel	2	($$FMADD,$$NOW)^XLFDT $$UP^XLFSTR
VA Fileman	2	^DIC ^DIE
RPC Broker	1	$$BROKER^XWBLIB
Scheduling	1	$$SDAPI^SDAMA301

Package	Total	Caller Graph
Text Integration Utility	23	TIUCHLP TIUCNFIX TIUEDI3 TIUEDIM TIUEDIT TIUEDITR TIUGEDIT TIUHL7U2 TIULD TIUPFFIX TIUPNAPI TIUPNFIX TIUPUTCN TIUPUTCP TIUPUTPF TIUPUTPN TIUPXAP2 TIUPXAPC TIURA TIURD3 TIURS TIUSRVP TIUVISIT
IHS Mods To Text Integration Utilities	6	BTIUCHLP BTIUEDIT BTIULD BTIUPUTP BTIURS BTIUVSIT
IHS Electronic Health Record	1	BEHODCP
Order Entry Results Reporting	1	ORWPT16

Package

Total

Caller Graph

Text Integration Utility

TIUCHLP  TIUCNFIX  TIUEDI3  TIUEDIM  TIUEDIT  TIUEDITR  TIUGEDIT  TIUHL7U2
TIULD  TIUPFFIX  TIUPNAPI  TIUPNFIX  TIUPUTCN  TIUPUTCP  TIUPUTPF  TIUPUTPN
TIUPXAP2  TIUPXAPC  TIURA  TIURD3  TIURS  TIUSRVP  TIUVISIT

IHS Mods To Text Integration Utilities

BTIUCHLP BTIUEDIT BTIULD BTIUPUTP BTIURS BTIUVSIT

IHS Electronic Health Record

BEHODCP

Order Entry Results Reporting

ORWPT16

Entry Points

Name	Comments	DBIA/ICR reference
WRITE	; Writes each list element
MAIN(TIUY,DFN,TIUSSN,TIUVDT,TIULDT,TIUDFLT,TIUMODE,TIULOC,TIUOCC,LETNEW,TIUCAT)	;Control
SELLOC()	; Select Hospital Location
CREDIT(TIUDA)	; Call EN3^SDACS to Credit Stop Code
INOUT()	; Ask INPATIENT/OUTPATIENT
DEFER(DA,TIUSDC)	; Mark record for deferred crediting of stop code
AGN
REMFLAG(DA)	; Remove credit flag from TIU Document Record
IHS1	;IHS/ITSC/LJF 02/27/2003 Added line label
GETVSIT(TIUOK)	; Get associated visit
BREAK	; Handle prompting
ADD(DFN,VSTR,ASK,VSTOP)	; Add a visit for patient
GETAPPT(DFN,CLINIC,OCCLIM,INDEX,COUNT,LAST,EARLY,FUTURE)	; Get list
FUTURE	; Get future appointments
VADPT
ENPN(TIUY,DFN,ALLOWNEW)	; Entry point for Progress Notes
CLEAN
VSITYPE(VSTOP)	; Call reader to get VISIT TYPE
MORE	; Modify date range, list more visits

External References

Name	Field # of Occurrence
VV^BTIUPCC	BREAK+18
ADD^BTIUVSIT	ADD+8
FINDVST^BTIUVSIT	AGN+7
^DIC	SELLOC+6
^DIE	DEFER+6, REMFLAG+2
$$SDAPI^SDAMA301	AGN+11
$$PATIENT^TIULA	AGN+4
DOCPRM^TIULC1	CREDIT+4
GETTIU^TIULD	CREDIT+8
$$PERSLOC^TIULE	SELLOC+3
$$DATE^TIULS	AGN+33, IHS1+26, ADD+18
PATVADPT^TIULV	VADPT
MAIN^TIUMOVE	ENPN+4, ENPN+8
$$WORKOK^TIUPXAP1	DEFER+4
$$LNKVST^TIUPXAP3	DEFER+8
CREDIT^TIUPXAPI	CREDIT+9
$$READ^TIUU	INOUT+3, ADD+5, ADD+13, VSITYPE+5
MAIN^TIUVISIT	AGN+19, AGN+37, IHS1+12, IHS1+21
$$NOTFOUND^TIUVSIT1	AGN+34
GETAPPT^TIUVSIT1	AGN+23, MORE+3, FUTURE+1, GETAPPT+1
HELP^TIUVSITH	BREAK+19
$$FMADD^XLFDT	AGN+33, FUTURE+7
$$NOW^XLFDT	FUTURE+5
$$UP^XLFSTR	AGN+34, BREAK+15, VSITYPE+6
$$BROKER^XWBLIB	DEFER+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Could not retrieve patient information due to a problem with the database.",!,"Please contact IRM" Line Location: AGN+14
Function Call: WRITE	Prompt: !!,"No SCHEDULED APPOINTMENTS on file" Line Location: AGN+18
Function Call: WRITE	Prompt: !!,$G(^TMP("TIUVERR",$J)),! Line Location: AGN+26
Function Call: WRITE	Prompt: ^TMP("TIUVERR",$J,115),! Line Location: AGN+27
Function Call: WRITE	Prompt: !!,"No SCHEDULED APPOINTMENTS found through " Line Location: AGN+32
Function Call: WRITE	Prompt: $$DATE^TIULS($$FMADD^XLFDT(DT,1),"AMTH DD, CCYY"),"...",! Line Location: AGN+33
Function Call: WRITE	Prompt: !!,"The following VISITS are available:",! Line Location: IHS1+8
Function Call: WRITE	Prompt: " ",$$DATE^TIULS(+$P(TIUX,";",2),"AMTH DD CCYY@HR:MIN") Line Location: IHS1+26
Function Call: WRITE	Prompt: !,"CHOOSE 1-",TIUII,", or",! Line Location: BREAK+2
Function Call: WRITE	Prompt: "<U>NSCHEDULED VISITS, " Line Location: BREAK+5
Function Call: WRITE	Prompt: "<V>IEW VISITS, " Line Location: BREAK+6
Function Call: WRITE	Prompt: "<F>UTURE VISITS, " Line Location: BREAK+7
Function Call: WRITE	Prompt: !!,$C(7),"INVALID RESPONSE",! Line Location: BREAK+27
Function Call: WRITE	Prompt: !!,$G(^TMP("TIUVERR",$J)),! Line Location: FUTURE+3
Function Call: WRITE	Prompt: ^TMP("TIUVERR",$J,115),! Line Location: FUTURE+4
Function Call: WRITE	Prompt: !!,"No Future Appointments found...",! Line Location: FUTURE+6
Function Call: WRITE	Prompt: !!,"No Appointments found more than one day in future..." Line Location: FUTURE+8
Function Call: WRITE	Prompt: ! Line Location: ADD+1
Function Call: WRITE	Prompt: !,$C(7),$C(7),"Patient & Visit are Required...",! Line Location: ADD+4
Function Call: WRITE	Prompt: !!,$C(7)," Item #",+$G(^TMP("TIUNOT",$J,+VLOC,+TIUAPDT)) Line Location: ADD+17
Function Call: WRITE	Prompt: " is scheduled for ",$$DATE^TIULS(TIUAPDT,"MM/DD/YY HR:MIN") Line Location: ADD+18
Function Call: WRITE	Prompt: " at this location..." Line Location: ADD+19
Function Call: WRITE	Prompt: !!,"Please select the existing appointment, rather than creating a " Line Location: ADD+20
Function Call: WRITE	Prompt: "redundant one.",! Line Location: ADD+21
Function Call: WRITE	Prompt: !,$J(TIUII,4),"> ",$P(TIUX,U),?27,$E($P(TIUX,U,3),1,21),?50,$P(TIUX,U,2) Line Location: WRITE+2
Function Call: WRITE	Prompt: " ",$P(Y,U,2),! Line Location: VSITYPE+5
Routine Call	DIE Line Location: DEFER+6 REMFLAG+2
Routine Call	DIC Line Location: SELLOC+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	VSITYPE+1
^DISV(	SELLOC+4
^DPT - [#2]	ENPN+4, INOUT+2
^SC - [#44]	GETVSIT+5, ADD+12, SELLOC+4
^TIU(8925 - [#8925]	CREDIT+2
^TMP("TIUIHSV"	GETVSIT+1
^TMP("TIUNOT"	AGN!, CLEAN!, ADD+15, ADD+17
^TMP("TIUVDT"	AGN!, CLEAN!, MORE+2
^TMP("TIUVERR"	AGN+25, AGN+26, AGN+27, AGN+28!, FUTURE+2, FUTURE+3, FUTURE+4
^TMP("TIUVN"	AGN!, AGN+23, AGN+30, IHS1+9, CLEAN!, BREAK+10, BREAK+23, BREAK+25, BREAK+27, WRITE+1
^TMP("TIUVNI"	AGN!, AGN+41, IHS1+3, IHS1+5, CLEAN!, FUTURE+5, FUTURE+7, GETVSIT+3
^TMP($J	AGN!, AGN+12!

Label References

Name	Line Occurrences
$$GETVSIT	IHS1+4, IHS1+25
$$INOUT	ENPN+5
$$SELLOC	ADD+10
$$VSITYPE	ADD+23
ADD	AGN+21, AGN+38, AGN+40, BREAK+25
AGN	AGN+30, IHS1+17, IHS1+19, IHS1+20, IHS1+23
BREAK	IHS1+11, IHS1+20, BREAK+18, BREAK+27
CLEAN	IHS1+18, IHS1+22
IHS1	AGN+7
MAIN	ENPN+3, ENPN+7
MORE	BREAK+20
VADPT	AGN+22, AGN+30, IHS1+2
WRITE	IHS1+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALLOWNEW	ENPN~, ENPN+3, ENPN+7
APPT	GETVSIT+2~, GETVSIT+3*, GETVSIT+4, GETVSIT+7
ASK	ADD~, ADD+2*, ADD+3, ADD+6
BTIUQ	AGN+7!
>> BTIUVSIT	GETVSIT+1*
C	AGN+1~
CLINIC	GETAPPT~, GETAPPT+1
COUNT	GETAPPT~, GETAPPT+1
DA	ADD+1~, DEFER~, DEFER+4, DEFER+8, CREDIT+1~, REMFLAG~
DFLT	VSITYPE+1~, VSITYPE+2*, VSITYPE+5
DFN	ENPN~, ENPN+2, ENPN+3, ENPN+4, ENPN+7, ENPN+8, MAIN~, AGN+4, AGN+10, AGN+19 , AGN+21, AGN+23, AGN+37, AGN+38, AGN+40, IHS1+12, IHS1+21, VADPT, BREAK+25, INOUT+2 , MORE+3, FUTURE+1, ADD~, ADD+8, CREDIT+1~, CREDIT+7, CREDIT+9, GETAPPT~, GETAPPT+1
DIC	SELLOC+1~*
DIC("A"	SELLOC+2*
DIC("B"	SELLOC+3, SELLOC+4
DIC("S"	SELLOC+5*, SELLOC+6!
DIC(0	SELLOC+1*
DIE	ADD+1~, DEFER+1~, DEFER+3, REMFLAG+1~, REMFLAG+2
>> DIROUT	AGN+35
DIRUT	ENPN+1~, ENPN+6
DR	ADD+1~, DEFER+1~, DEFER+4, DEFER+5, REMFLAG+1~, REMFLAG+2*
DT	AGN+33, FUTURE+7
DTIME	BREAK+12
DTOUT	ENPN+1~, AGN+35
DUOUT	ENPN+1~, AGN+35
DUZ	SELLOC+3, SELLOC+4
EARLY	GETAPPT~, GETAPPT+1
FUTURE	GETAPPT~, GETAPPT+1
I	AGN+1~
INDEX	GETAPPT~, GETAPPT+1
LAST	GETAPPT~, GETAPPT+1
LETNEW	MAIN~, AGN+3*, AGN+19, AGN+21, AGN+30, AGN+37, AGN+38, IHS1+12, IHS1+21, BREAK+8 , BREAK+23, BREAK+25
N	AGN+1~
OCCLIM	GETAPPT~, GETAPPT+1
PROMPT	VSITYPE+1~, VSITYPE+3*, VSITYPE+5
TIU	CREDIT+1~, CREDIT+8, CREDIT+9
TIUAPDT	ADD+1~, ADD+15*, ADD+16, ADD+17, ADD+18, SELLOC+1~
TIUAPPTS	AGN+2~, AGN+11*, AGN+13, AGN+15, AGN+17, AGN+22
TIUARR	AGN+2~, AGN+11
TIUARR("FLDS"	AGN+9*
TIUARR("MAX"	AGN+10*
TIUARR(1	AGN+10*
TIUARR(4	AGN+10*
TIUCAT	MAIN~, MAIN+2*
TIUCNT	MORE+1~, MORE+2*, MORE+3
TIUD0	CREDIT+1~, CREDIT+2*, CREDIT+3, CREDIT+4, CREDIT+7
TIUDA	AGN+1~, CREDIT~, CREDIT+2, CREDIT+8
TIUDFLT	MAIN~, AGN+19, AGN+37, IHS1+2, IHS1+5, IHS1+12, IHS1+21
TIUDPRM	CREDIT+1~, CREDIT+4
TIUDPRM(0	CREDIT+6
TIUER	AGN+1~, IHS1+6, IHS1+9, IHS1+16, IHS1+19, IHS1+23, BREAK+16, BREAK+23, BREAK+25, ADD+6 , ADD+11, ADD+14, ADD+22, ADD+25, ADD+26*
TIUFUTUR	MAIN+1~, AGN+19, AGN+23, AGN+30, AGN+37, AGN+39, IHS1+12, IHS1+16, IHS1+17, IHS1+20 , IHS1+21, FUTURE+9
TIUI	AGN+1~, IHS1+3~, IHS1+4, IHS1+6, IHS1+9, IHS1+10, IHS1+11, IHS1+14, BREAK+18, MORE+1~ , MORE+2, MORE+3, FUTURE+9*, WRITE+1
TIUII	AGN+1~, IHS1+10*, IHS1+20, BREAK+1, BREAK+2, BREAK+6, BREAK+10, BREAK+23, BREAK+25, WRITE+2
TIUINOUT	ENPN+1~, ENPN+5*, ENPN+7
TIULAST	AGN+2~, AGN+23, MORE+3, FUTURE+1
TIULDT	MAIN~, AGN+19, AGN+23, AGN+37, IHS1+12, IHS1+21, FUTURE+1
TIULOC	ENPN+1~, MAIN~, AGN+19, AGN+23, AGN+37, IHS1+12, IHS1+21, MORE+3, FUTURE+1
TIUMODE	MAIN~, AGN+3*, AGN+15, AGN+17, AGN+19, AGN+25, AGN+30, AGN+37, AGN+41, IHS1+2 , IHS1+5, IHS1+12, IHS1+20, IHS1+21
TIUNVIS	AGN+1~, IHS1+24, ADD+26*
TIUOCC	MAIN~, AGN+5*, AGN+19, AGN+23, AGN+37, IHS1+12, IHS1+21, MORE+3, FUTURE+1
TIUOK	AGN+1~, IHS1+6, IHS1+9, IHS1+16, IHS1+24, IHS1+25, BREAK+1, BREAK+28*, GETVSIT~, GETVSIT+1 , GETVSIT+3
TIUOUT	AGN+1~, AGN+4, AGN+20, IHS1+9, IHS1+13, IHS1+17, IHS1+18, IHS1+22, BREAK+16, BREAK+23* , BREAK+25*
TIUPICK	AGN+2~, IHS1+5*, BREAK+17
TIUPRMT	INOUT+1~*, INOUT+3
TIUSDC	AGN+2~, AGN+21, AGN+38, AGN+40, VADPT, BREAK+25, ADD+8, DEFER~, DEFER+2, DEFER+5
TIUSSN	MAIN~, AGN+4, AGN+19, AGN+37, IHS1+12, IHS1+21
TIUVDT	MAIN~, AGN+19, AGN+23, AGN+37, IHS1+12, IHS1+21, FUTURE+1
TIUVSIT	GETVSIT+2~, GETVSIT+8*, GETVSIT+9, DEFER+1~, DEFER+8
TIUVTRY	AGN+2~, AGN+21, AGN+38
TIUX	AGN+1~, AGN+17, AGN+21, AGN+22, AGN+30, AGN+38, AGN+40, IHS1+2, IHS1+4, IHS1+9 , IHS1+16, IHS1+25, IHS1+26, VADPT, BREAK+25, ADD+6, WRITE+1~, WRITE+2
TIUY	ENPN~, ENPN+3, ENPN+4, ENPN+7, ENPN+8, MAIN~, AGN+19, AGN+21, AGN+37, AGN+38 , IHS1+12, IHS1+16, IHS1+21, VADPT, ADD+1~, ADD+5*, ADD+6
U	ENPN+7, GETVSIT+4, GETVSIT+5, GETVSIT+7, ADD+12, WRITE+2, SELLOC+3, SELLOC+4, CREDIT+6, CREDIT+7 , VSITYPE+1, VSITYPE+5, VSITYPE+6
VAERR	AGN+1~
VASD	AGN+1~
VDT	GETVSIT+2~, GETVSIT+4, GETVSIT+8, ADD+1~, ADD+13, ADD+14, ADD+15, ADD+16, ADD+24, ADD+26
VLOC	GETVSIT+2~, GETVSIT+4, GETVSIT+5, GETVSIT+8, ADD+1~, ADD+10, ADD+11, ADD+12, ADD+15, ADD+17 , ADD+24
VSIT	CREDIT+1~, CREDIT+7*, CREDIT+9
VSTOP	GETVSIT+2~, GETVSIT+5, ADD~, ADD+12, ADD+23, VSITYPE~, VSITYPE+1*, VSITYPE+2
VSTR	ADD~, ADD+24*, ADD+25
VTYPE	GETVSIT+2~, GETVSIT+7, GETVSIT+8, ADD+1~, ADD+23, ADD+24
WHATNOW	AGN+31~, AGN+34*, AGN+36, AGN+39, AGN+40
X	AGN+1~, IHS1+11, IHS1+14, IHS1+15, IHS1+20, IHS1+23, BREAK+1, BREAK+12, BREAK+15, BREAK+16 , BREAK+17, BREAK+18, BREAK+19, BREAK+20, BREAK+23, BREAK+25, BREAK+26, BREAK+27, BREAK+28, ADD+1~ , SELLOC+1~, DEFER+1~, REMFLAG+1~, VSITYPE+1~, VSITYPE+4*, VSITYPE+5
Y	ADD+1~, SELLOC+1~, SELLOC+7, DEFER+1~, REMFLAG+1~, VSITYPE+1~, VSITYPE+5, VSITYPE+6, VSITYPE+7

Customize PDF page

Package: Text Integration Utility

Routine: TIUVSIT

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Caller Graph Total: 31

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: