Routine: TIUVISIT

Package	Total	Call Graph
Text Integration Utility	5	$$PATIENT^TIULA $$DATE^TIULS PATVADPT^TIULV $$CHKAPPT^TIUPXAP2 (ADD,VADPT)^TIUVSIT
Kernel	2	($$FMADD,$$NOW)^XLFDT $$UP^XLFSTR
VA Fileman	2	C^%DTC EN^DIQ1
Scheduling	1	$$SDAPI^SDAMA301

Package	Total	Caller Graph
Text Integration Utility	2	TIULA1 TIUVSIT

Entry Points

Name	Comments	DBIA/ICR reference
WRITE	; Writes each list element
AGN
HELP(X)	; Offer help
MAIN(TIUY,DFN,TIUSSN,TIUVDT,TIULDT,TIUDFLT,TIUMODE,TIULOC,TIUOCC,LETNEW,FILTER,UNSONLY,TIUFUTUR)	;Control
VADPT	; Call PATVADPT^TIULV to fill TIUY array
CLEAN
BREAK	; Handle prompting

External References

Name	Field # of Occurrence
C^%DTC	BREAK+11
EN^DIQ1	WRITE+3
$$SDAPI^SDAMA301	BREAK+5
$$PATIENT^TIULA	AGN+3
$$DATE^TIULS	AGN+45, WRITE+4
PATVADPT^TIULV	VADPT+3
$$CHKAPPT^TIUPXAP2	AGN+18
ADD^TIUVSIT	BREAK+26
VADPT^TIUVSIT	AGN+36, AGN+40
$$FMADD^XLFDT	AGN+7, AGN+8
$$NOW^XLFDT	BREAK+14
$$UP^XLFSTR	BREAK+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No UNSCHEDULED VISITS on file",! Line Location: AGN+10
Function Call: WRITE	Prompt: !!,"The following",$S(FILTER["H":" UNSCHEDULED",1:"")," VISITS are available:",! Line Location: AGN+31
Function Call: WRITE	Prompt: " ",$$DATE^TIULS(+$P(TIUX,U,2),"AMTH DD CCYY@HR:MIN") Line Location: AGN+45
Function Call: WRITE	Prompt: !,"CHOOSE 1-",TIUII," or" Line Location: BREAK+3
Function Call: WRITE	Prompt: !,"An error occurred while accessing the appointments database" Line Location: BREAK+7
Function Call: WRITE	Prompt: !," Please contact IRM!",! Line Location: BREAK+8
Function Call: WRITE	Prompt: ": " Line Location: BREAK+19
Function Call: WRITE	Prompt: $P(^TMP("TIUVN",$J,TIUPICK),U),"// " Condition for execution: $D(TIUPICK) Line Location: BREAK+19
Function Call: WRITE	Prompt: !!,$C(7),"INVALID RESPONSE",! Line Location: BREAK+28
Function Call: WRITE	Prompt: !!?3,"Indicate the visit with which the document is associated by choosing" Line Location: HELP+1
Function Call: WRITE	Prompt: !?3,"the corresponding number. To add a new visit (e.g., for unscheduled or" Line Location: HELP+2
Function Call: WRITE	Prompt: !?3,"telephone contacts), enter ""N"".",!! Line Location: HELP+3
Function Call: WRITE	Prompt: !,$J(TIUI,4),"> ",$$DATE^TIULS(+TIUVR,"AMTH DD, CCYY@HR:MIN") Line Location: WRITE+4
Function Call: WRITE	Prompt: ?27,$E($G(TIUVISIT(9000010,DA,.07,"E")),1,18) Line Location: WRITE+5
Function Call: WRITE	Prompt: ?47,$E($S(TIUVISIT(9000010,DA,.22,"E")]"":TIUVISIT(9000010,DA,.22,"E"),1:TIUVISIT(9000010,DA,.08,"E")),1,18) Line Location: WRITE+6
Function Call: WRITE	Prompt: !?23,TIUVISIT(9000010,DA,.21,"E") Line Location: WRITE+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVSIT - [#9000010]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	AGN+16, AGN+19
^AUPNVSIT("AA"	AGN+10, AGN+11, AGN+13
^DISV(	AGN+44*
^SC("B"	AGN+5
^TMP("TIUVD"	AGN!, AGN+21*, AGN+22, AGN+23, AGN+24, CLEAN!
^TMP("TIUVDA"	AGN!, AGN+24*, CLEAN!
^TMP("TIUVN"	AGN!, AGN+23*, AGN+25, AGN+26, AGN+28, AGN+29, AGN+32, AGN+34, AGN+44, CLEAN! , BREAK+18, BREAK+19, BREAK+25, BREAK+26, BREAK+28
^TMP($J	BREAK+13, BREAK+14, BREAK+15!, BREAK+16!
^XTMP("TIUSDAMA"	BREAK+12, BREAK+14

Label References

Name	Line Occurrences
AGN	AGN+39, AGN+42
BREAK	AGN+36, AGN+40, BREAK+28
CLEAN	AGN+38, AGN+40, AGN+41
HELP	BREAK+23
VADPT	AGN+27
WRITE	AGN+35

Naked Globals

Name	Field # of Occurrence
^(	AGN+34

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	AGN+1~, AGN+22, AGN+23, AGN+24
D	AGN+14~, AGN+19*, AGN+20, AGN+21
DA	WRITE+1~, WRITE+2*, WRITE+5, WRITE+6
DFN	MAIN~, AGN+3*, AGN+10, AGN+11, AGN+13, VADPT+3, BREAK+4, BREAK+26
DIC	WRITE+1~, WRITE+2*
DIQ	WRITE+1~, WRITE+2*
DIQ(0	WRITE+2*
DR	WRITE+1~, WRITE+3*
DT	BREAK+11, BREAK+12
DTIME	BREAK+19
DUZ	AGN+44
FILTER	MAIN~, AGN+15*, AGN+16, AGN+31
I	AGN+1~, AGN+11, AGN+13, AGN+22, AGN+23, AGN+24, WRITE+1~
J	WRITE+1~
LETNEW	MAIN~, AGN+2*, BREAK+17, BREAK+25, BREAK+26
N	AGN+1~, AGN+12~, AGN+13, AGN+16, AGN+18, AGN+19, AGN+21
TIUAPT	BREAK+1~, BREAK+5*, BREAK+6, BREAK+17
TIUARR	BREAK+1~, BREAK+5
TIUARR("FLDS"	BREAK+4*
TIUARR("MAX"	BREAK+4*
TIUARR(4	BREAK+4*
TIUDFLT	MAIN~, AGN+27
TIUER	AGN+1~, AGN+30, AGN+32, AGN+39, AGN+42, BREAK+9, BREAK+21, BREAK+25, BREAK+26*
TIUERR	BREAK+10~, BREAK+13*, BREAK+14
TIUFUTUR	MAIN~, BREAK+24*
TIUI	AGN+1~, AGN+28~, AGN+29, AGN+30, AGN+32, AGN+34, AGN+36, AGN+37, WRITE+4
TIUII	AGN+1~, AGN+34*, AGN+40, BREAK+2, BREAK+3, BREAK+18, BREAK+25, BREAK+26
TIULDT	MAIN~, AGN+7*, AGN+8, AGN+11
TIULOC	MAIN~, AGN+5*, AGN+20
TIUMODE	MAIN~, AGN+4*, AGN+25, AGN+27
TIUNVIS	AGN+1~, AGN+43
TIUOCC	MAIN~, AGN+4*
TIUOK	AGN+1~, AGN+30, AGN+32, AGN+43, AGN+44, BREAK+2, BREAK+29*
>> TIUOUT	AGN+3, AGN+32, AGN+36, AGN+38, AGN+41, BREAK+9, BREAK+21, BREAK+24, BREAK+25, BREAK+26*
>> TIUPICK	BREAK+19, BREAK+22
>> TIUSDC	BREAK+26
TIUSSN	MAIN~, AGN+3
TIUVDA	AGN+1~, AGN+34*, WRITE+2
TIUVDATE	AGN+1~, AGN+6*, AGN+9
TIUVDT	MAIN~, AGN+6, AGN+7, AGN+8, AGN+9, AGN+11
TIUVISIT	WRITE+1~
TIUVISIT(9000010	WRITE+5, WRITE+6
TIUVR	AGN+33~, AGN+34*, WRITE+4
TIUVSTR	VADPT+1~, VADPT+2*, VADPT+3
>> TIUVTRY	BREAK+26*
TIUX	AGN+1~, AGN+27, AGN+29, AGN+36, AGN+40, AGN+44, AGN+45, VADPT+2, BREAK+26
TIUY	MAIN~, VADPT+3
U	AGN+16, AGN+20, AGN+21, AGN+45, VADPT+2, BREAK+19
UNSONLY	MAIN~, AGN+2*, AGN+18
X	AGN+1~, AGN+37, AGN+42, BREAK+2, BREAK+10~, BREAK+12, BREAK+19, BREAK+20, BREAK+21, BREAK+22* , BREAK+23, BREAK+24, BREAK+25, BREAK+26, BREAK+27, BREAK+28, BREAK+29, HELP~, WRITE+1~
X1	BREAK+10~, BREAK+11*
X2	BREAK+10~, BREAK+11*
Y	WRITE+1~

Customize PDF page

Package: Text Integration Utility

Routine: TIUVISIT

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: