Routine: TIUP146P

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

Package	Total	Caller Graph
Text Integration Utility	1	TIUP146

Entry Points

Name	Comments	DBIA/ICR reference
PRINTQ
HDR	; -- Header for report
LISTQ
LIST	; -- Entry point to generate list
ASK	; -- End of Page
LISTONE(TIUDA,TIUVSIT)	;Entry point to list one record ; Input -- TIUDA TIU Document file (#8925) IEN ; TIUVSIT Visit file (#9000010) IEN ; Output -- None
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
$$GET1^DIQ	LISTONE+15
EN^DIQ1	LISTONE+19
^DIR	ASK+3
$$DATE^TIULS	LISTONE+14
$$UPPER^TIULS	LISTONE+11
OERR^VADPT	LISTONE+9
$$FMTE^XLFDT	MAIL+8, MAIL+9, MAIL+17
^XMD	MAIL+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine will print the results of the search routine in patch" Line Location: PRINT+1
Function Call: WRITE	Prompt: !,"TIU1146 which identifies documents pointing to a different" Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"patient's visit in the TIU DOCUMENT file (#8925)." 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: !,TIUDA Line Location: LISTONE+10
Function Call: WRITE	Prompt: ?12,$E($$UPPER^TIULS($P($G(^TIU(8925.6,+$P(TIUD0,U,5),0)),U)),1,5) Line Location: LISTONE+11
Function Call: WRITE	Prompt: ?19,$S(DFN>0:$E($G(VADM(1)),1,20)_" ("_$G(VA("BID"))_")",1:"") Line Location: LISTONE+12
Function Call: WRITE	Prompt: ?48,$E($P($G(^TIU(8925.1,+TIUD0,0)),U,1),1,10) Line Location: LISTONE+13
Function Call: WRITE	Prompt: ?60,$$DATE^TIULS(+$P($G(^TIU(8925,+TIUDA,13)),U,1),"MM/DD/CCYY HR:MIN") Line Location: LISTONE+14
Function Call: WRITE	Prompt: ?78,$E($$GET1^DIQ(44,+TIUHL,.01,"E"),1,15) Line Location: LISTONE+15
Function Call: WRITE	Prompt: ?95,$G(TIUVISIT(9000010,DA,.01,"E")) Line Location: LISTONE+20
Function Call: WRITE	Prompt: ?118,TIUVSIT Line Location: LISTONE+21
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: @IOF,"TIU1146 TIU DOCUMENTS LINKED TO A DIFFERENT PATIENT'S VISIT - Printed: ",TIUNOW Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Document #",?12,"Status",?19,"Patient in Document",?48,"Title",?60,"Reference Date",?78,"Visit Location",?95,"Incorrect Visit Date &",?118,"Visit #" 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
^SC - [#44]	GET1^DIQ
^AUPNVSIT - [#9000010]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR+2
^TIU(8925 - [#8925]	LISTONE+6, LISTONE+7, LISTONE+14
^TIU(8925.1 - [#8925.1]	LISTONE+13
^TIU(8925.6 - [#8925.6]	LISTONE+11
^XTMP("TIUP146"	LIST+4, LIST+6, MAIL+8, MAIL+9, MAIL+12, MAIL+14, MAIL+16, MAIL+17

Label References

Name	Line Occurrences
ASK	LISTONE+5
HDR	LIST+3, LISTONE+5
LIST	PRINT+12
LISTONE	LIST+6
LISTONEQ	LISTONE+5
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+17~, LISTONE+18*, LISTONE+20
DFN	LISTONE+4~, LISTONE+8*, LISTONE+9, LISTONE+12
DIC	LISTONE+17~, LISTONE+18*
DIQ	LISTONE+17~, LISTONE+18*
DIQ(0	LISTONE+18*
DIR	ASK+2~
DIR(0	ASK+2*
DR	LISTONE+17~, LISTONE+19*
>> 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+5
IOST	ASK+1
LNE	HDR+1~, HDR+5*
POP	PRINT+5!
TIUD0	LISTONE+4~, LISTONE+6*, LISTONE+8, LISTONE+11, LISTONE+13
TIUDA	LIST+1~, LIST+5, LIST+6, LISTONE~, LISTONE+6, LISTONE+7, LISTONE+10, LISTONE+14
TIUHL	LISTONE+4~, LISTONE+7*, LISTONE+15
TIUNOW	HDR+1~, HDR+2*, HDR+3
TIUOUT	LIST+1~, LIST+6, LISTONE+5, ASK+3
TIUTXT	MAIL+2~
TIUTXT(1	MAIL+6*
TIUTXT(10	MAIL+17, MAIL+19
TIUTXT(11	MAIL+20*
TIUTXT(12	MAIL+21*
TIUTXT(2	MAIL+7*
TIUTXT(3	MAIL+8*
TIUTXT(4	MAIL+9*
TIUTXT(5	MAIL+10*
TIUTXT(6	MAIL+12*
TIUTXT(7	MAIL+13*
TIUTXT(8	MAIL+14*
TIUTXT(9	MAIL+15*
TIUVISIT	LISTONE+17~
TIUVISIT(9000010	LISTONE+20
TIUVSIT	LIST+1~, LIST+6*, LISTONE~, LISTONE+16, LISTONE+18, LISTONE+21
U	LISTONE+7, LISTONE+8, LISTONE+11, LISTONE+13, LISTONE+14
VA	LISTONE+4~
VA("BID"	LISTONE+12
VADM	LISTONE+4~
VADM(1	LISTONE+12
VAIN	LISTONE+4~
VAIP	LISTONE+4~
X	ASK+2~
XMDUZ	MAIL+1~, MAIL+3*
XMMG	MAIL+1~
XMSUB	MAIL+1~, MAIL+22*
XMTEXT	MAIL+1~, MAIL+22*
XMY	MAIL+1~
XMY(	MAIL+3, MAIL+4
XMY("G.PATIEN	T SAFETY NOTIFICATIONS" , MAIL+5*
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: TIUP146P

Information

Source Information

Call Graph

Call Graph Total: 11

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: