Routine: TIUP134P

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA Fileman	3	NOW^%DTC EN^DIQ1 ^DIR
MailMan	1	^XMD
Registration	1	OERR^VADPT
Text Integration Utility	1	$$DATE^TIULS

Package	Total	Caller Graph
Text Integration Utility	1	TIUP134

Entry Points

Name	Comments	DBIA/ICR reference
PRINTQ
HDR	; -- Header for report
LISTQ
LIST	; -- Entry point to generate list
LISTONE(TIUDA,TIULNK)	;Entry point to list one record ; Input -- TIUDA TIU Document file (#8925) IEN ; TIULNK 1st piece= 1=Linked and 0=Not Linked ; 2nd piece= Exception type if not linked ; 3rd piece= Visit file (#9000010) IEN if linked ; Output -- None
ASK	; -- End of Page
LISTONEQ
PRINT	; -- Device Selection
MAIL	;Send completion message to user who initiated post-install

External References

Name	Field # of Occurrence
NOW^%DTC	HDR+2
^%ZIS	PRINT+5
HOME^%ZIS	PRINT+11
^%ZISC	PRINT+12
^%ZTLOAD	PRINT+9
EN^DIQ1	LISTONE+18
^DIR	ASK+3
$$DATE^TIULS	LISTONE+14
OERR^VADPT	LISTONE+10
$$FMTE^XLFDT	MAIL+8, MAIL+9, MAIL+12, MAIL+25
^XMD	MAIL+31

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine will print ALL records processed to date by the" Line Location: PRINT+1
Function Call: WRITE	Prompt: !,"auto-link routine independent of the date range selected at" Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"processing time." Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,*7,"This report requires a column width of 132.",! Line Location: PRINT+4
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request queued",1:"Request Cancelled!") Line Location: PRINT+9
Function Call: WRITE	Prompt: !?4,"No records in list." Line Location: LIST+4
Function Call: WRITE	Prompt: !,$E($G(VADM(1)),1,20)_" ("_$G(VA("BID"))_")" Line Location: LISTONE+11
Function Call: WRITE	Prompt: ?30,TIUDA Line Location: LISTONE+12
Function Call: WRITE	Prompt: ?42,$E($P($G(^TIU(8925.1,+$G(^TIU(8925,+TIUDA,0)),0)),U,1),1,10) Line Location: LISTONE+13
Function Call: WRITE	Prompt: ?53,$$DATE^TIULS(+$P($G(^TIU(8925,+TIUDA,13)),U,1),"MM/DD/CCYY HR:MIN") Line Location: LISTONE+14
Function Call: WRITE	Prompt: ?70,$E($G(TIUVISIT(9000010,DA,.22,"E")),1,15) Line Location: LISTONE+19
Function Call: WRITE	Prompt: ?86,$G(TIUVISIT(9000010,DA,.01,"E")) Line Location: LISTONE+20
Function Call: WRITE	Prompt: ?109,"Yes-Visit #"_$P(TIULNK,U,3) Line Location: LISTONE+21
Function Call: WRITE	Prompt: ?109,"No-" Line Location: LISTONE+23
Function Call: WRITE	Prompt: $S(TIUEX=1:"Multiple Visits",TIUEX=2:"Entry in Use",TIUEX=3:"No Matching Visit",1:"") Line Location: LISTONE+24
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: @IOF,"TIU1134 AUTO-LINK MISSING VISIT TO DOCUMENT LIST - Printed: ",TIUNOW Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Patient",?30,"Document #",?42,"Title",?53,"Reference Date",?70,"Visit Location",?86,"Visit Date/Time",?109,"Linked" Line Location: HDR+4
Function Call: WRITE	Prompt: ! Line Location: HDR+5
Function Call: WRITE	Prompt: LNE Line Location: HDR+5
Routine Call	%ZIS Line Location: PRINT+11
Routine Call	DIR Line Location: ASK+3
Routine Call	%ZIS Line Location: PRINT+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR+2
^TIU(8925 - [#8925]	LISTONE+8, LISTONE+13, LISTONE+14
^TIU(8925.1 - [#8925.1]	LISTONE+13
^XTMP("TIUP134"	LIST+4, LIST+6, MAIL+8, MAIL+9, MAIL+12, MAIL+15, MAIL+17, MAIL+18, MAIL+19, MAIL+20 , MAIL+22, MAIL+24, MAIL+25

Label References

Name	Line Occurrences
ASK	LISTONE+7
HDR	LIST+3, LISTONE+7
LIST	PRINT+12
LISTONE	LIST+6
LISTONEQ	LISTONE+7
LISTQ	LIST+4
PRINTQ	PRINT+5

Naked Globals

Name	Field # of Occurrence
^(	LIST+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HDR+2
%ZIS	PRINT+5*, PRINT+10!
DA	LISTONE+16~, LISTONE+17*, LISTONE+19, LISTONE+20
DFN	LISTONE+6~, LISTONE+8*
DIC	LISTONE+16~, LISTONE+17*
DIQ	LISTONE+16~, LISTONE+17*
DIQ(0	LISTONE+17*
DIR	ASK+2~
DIR(0	ASK+2*
DR	LISTONE+16~, LISTONE+18*
>> DTOUT	ASK+3
>> DUOUT	ASK+3
DUZ	MAIL+4
IO	PRINT+12, ASK+1
IO("Q"	PRINT+6!
IO(0	ASK+1
IOF	HDR+3
IOM	HDR+5
IOSL	LISTONE+7
IOST	ASK+1
LNE	HDR+1~, HDR+5*
POP	PRINT+5!
TIUDA	LIST+1~, LIST+5, LIST+6, LISTONE~, LISTONE+8, LISTONE+12, LISTONE+13, LISTONE+14
TIUEX	LISTONE+6~, LISTONE+9*, LISTONE+24
TIULNK	LIST+1~, LIST+6*, LISTONE~, LISTONE+9, LISTONE+15, LISTONE+17, LISTONE+21
TIUNOW	HDR+1~, HDR+2*, HDR+3
TIUOUT	LIST+1~, LIST+6, LISTONE+7, ASK+3
TIURNG	MAIL+2~, MAIL+12*, MAIL+13, MAIL+30
TIUTXT	MAIL+2~
TIUTXT(1	MAIL+5*
TIUTXT(10	MAIL+16*
TIUTXT(11	MAIL+17*
TIUTXT(12	MAIL+18*
TIUTXT(13	MAIL+19*
TIUTXT(14	MAIL+20*
TIUTXT(15	MAIL+21*
TIUTXT(16	MAIL+22*
TIUTXT(17	MAIL+23*
TIUTXT(18	MAIL+25, MAIL+27
TIUTXT(19	MAIL+28*
TIUTXT(2	MAIL+6*
TIUTXT(20	MAIL+29*
TIUTXT(3	MAIL+7*
TIUTXT(4	MAIL+8*
TIUTXT(5	MAIL+9*
TIUTXT(6	MAIL+10*
TIUTXT(7	MAIL+13*
TIUTXT(8	MAIL+14*
TIUTXT(9	MAIL+15*
TIUVISIT	LISTONE+16~
TIUVISIT(9000010	LISTONE+19, LISTONE+20
U	LISTONE+8, LISTONE+9, LISTONE+13, LISTONE+14, LISTONE+15, LISTONE+17, LISTONE+21, MAIL+12
VA	LISTONE+6~
VA("BID"	LISTONE+11
VADM	LISTONE+6~
VADM(1	LISTONE+11
VAIN	LISTONE+6~
VAIP	LISTONE+6~
X	ASK+2~
XMDUZ	MAIL+1~, MAIL+3*
XMMG	MAIL+1~
XMSUB	MAIL+1~, MAIL+30*
XMTEXT	MAIL+1~, MAIL+30*
XMY	MAIL+1~
XMY(	MAIL+3, MAIL+4
XMZ	MAIL+1~
Y	ASK+2~, HDR+2*
ZTDESC	PRINT+8*, PRINT+10!
ZTDTH	PRINT+10!
ZTIO	PRINT+10!
>> ZTQUEUED	LIST+2
>> ZTREQ	LIST+2*
ZTRTN	PRINT+7*, PRINT+10!
ZTSK	PRINT+9, PRINT+10!

Customize PDF page

Package: Text Integration Utility

Routine: TIUP134P

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: