Routine: TIUP149P

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	$$CHKINF^TIUP149

Package	Total	Caller Graph
Text Integration Utility	1	TIUP149

Entry Points

Name	Comments	DBIA/ICR reference
PRINTQ
ASKEX(TIUOUT)	;Ask if user would like to exclude NDBI fix needed records ; Input -- None ; Output -- 1=Yes and 0=No ; TIUOUT Timeout or up-arow flag
HDR	; -- Header for report
LISTQ
LIST	; -- Entry point to generate list
ASK	; -- End of Page
LISTONE(TIUDA,TIULNK,EXNDBIF)	;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 ; EXNDBIF Exclude "NDBI Fix Needed" records flag (Optional) ; 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+11
HOME^%ZIS	PRINT+18
^%ZISC	PRINT+19
^%ZTLOAD	PRINT+16
EN^DIQ1	LISTONE+21
^DIR	ASKEX+7, ASK+3
$$CHKINF^TIUP149	PRINT+7
OERR^VADPT	LISTONE+14
$$FMTE^XLFDT	MAIL+8, MAIL+9, MAIL+21
^XMD	MAIL+33

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine will print the results of the clean up routine in patch" Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"TIU1149 which provides a clean up for documents pointing to a different" Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"patient's visit in the TIU DOCUMENT file (#8925)." Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,*7,"This report requires a column width of 132.",! Line Location: PRINT+10
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request queued",1:"Request Cancelled!") Line Location: PRINT+16
Function Call: WRITE	Prompt: ! Line Location: ASKEX+7
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+15
Function Call: WRITE	Prompt: ?30,TIUDA Line Location: LISTONE+16
Function Call: WRITE	Prompt: ?42,$E($P($G(^TIU(8925.1,+$G(^TIU(8925,+TIUDA,0)),0)),U,1),1,15) Line Location: LISTONE+17
Function Call: WRITE	Prompt: ?60,$G(TIUVISIT(9000010,DA,.01,"E")) Line Location: LISTONE+22
Function Call: WRITE	Prompt: ?84,$E($G(TIUVISIT(9000010,DA,.22,"E")),1,20) Line Location: LISTONE+23
Function Call: WRITE	Prompt: ?106,"Yes - Visit #"_$P(TIULNK,U,3) Line Location: LISTONE+24
Function Call: WRITE	Prompt: ?106,"No - " Line Location: LISTONE+26
Function Call: WRITE	Prompt: $S(TIUEX=1:"Entry in Use",TIUEX=2:"Unlinked Visit",TIUEX=3:"NDBI Fix Needed",1:"") Line Location: LISTONE+27
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: @IOF,"TIU1149 TIU DOCUMENTS LINKED TO A DIFFERENT PATIENT'S VISIT CLEAN-UP - Printed: ",TIUNOW Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Patient",?30,"Document #",?42,"Title",?60,"Visit Date/Time",?84,"Hospital Location",?106,"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+18
Routine Call	DIR Line Location: ASKEX+7 ASK+3
Routine Call	%ZIS Line Location: PRINT+11

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+9, LISTONE+17
^TIU(8925.1 - [#8925.1]	LISTONE+17
^XTMP("TIUP149"	LIST+4, LIST+6, MAIL+8, MAIL+9, MAIL+12, MAIL+14, MAIL+16, MAIL+18, MAIL+20, MAIL+21 , MAIL+31

Label References

Name	Line Occurrences
$$ASKEX	PRINT+7
ASK	LISTONE+8
HDR	LIST+3, LISTONE+8
LIST	PRINT+19
LISTONE	LIST+6
LISTONEQ	LISTONE+8, LISTONE+13
LISTQ	LIST+4
PRINTQ	PRINT+8, PRINT+11

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+11*, PRINT+17!
DA	LISTONE+19~, LISTONE+20*, LISTONE+22, LISTONE+23
DFN	LISTONE+7~, LISTONE+9*
DIC	LISTONE+19~, LISTONE+20*
DIQ	LISTONE+19~, LISTONE+20*
DIQ(0	LISTONE+20*
DIR	ASKEX+4~, ASK+2~
DIR("A"	ASKEX+5*
DIR("B"	ASKEX+6*
DIR(0	ASKEX+6, ASK+2
DR	LISTONE+19~, LISTONE+21*
DTOUT	ASKEX+4~, ASKEX+8, ASK+3
DUOUT	ASKEX+4~, ASKEX+8, ASK+3
DUZ	MAIL+4
EXNDBIF	PRINT+1~, PRINT+7*, PRINT+13, LIST+6, LISTQ!, LISTONE~, LISTONE+13
IO	PRINT+19, ASK+1
IO("Q"	PRINT+12!
IO(0	ASK+1
IOF	HDR+3
IOM	HDR+5
IOSL	LISTONE+8
IOST	ASK+1
LNE	HDR+1~, HDR+5*
>> NDBIF	MAIL+27
POP	PRINT+11!
TIUDA	LIST+1~, LIST+5, LIST+6, LISTONE~, LISTONE+9, LISTONE+16, LISTONE+17
TIUEX	LISTONE+7~, LISTONE+10*, LISTONE+13, LISTONE+27
TIULNK	LIST+1~, LIST+6*, LISTONE~, LISTONE+10, LISTONE+18, LISTONE+20, LISTONE+24
TIUNOW	HDR+1~, HDR+2*, HDR+3
TIUOUT	PRINT+1~, PRINT+7, PRINT+8, ASKEX~, ASKEX+8, LIST+1~, LIST+6, LISTONE+8, ASK+3*
TIURNG	MAIL+2~
TIUTXT	MAIL+2~
TIUTXT(1	MAIL+6*
TIUTXT(10	MAIL+16*
TIUTXT(11	MAIL+17*
TIUTXT(12	MAIL+18*
TIUTXT(13	MAIL+19*
TIUTXT(14	MAIL+21, MAIL+23
TIUTXT(15	MAIL+24*
TIUTXT(16	MAIL+25*
TIUTXT(17	MAIL+28*
TIUTXT(18	MAIL+29*
TIUTXT(19	MAIL+30*
TIUTXT(2	MAIL+7*
TIUTXT(20	MAIL+31*
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+19~
TIUVISIT(9000010	LISTONE+22, LISTONE+23
U	LISTONE+9, LISTONE+10, LISTONE+17, LISTONE+18, LISTONE+20, LISTONE+24
VA	LISTONE+7~
VA("BID"	LISTONE+15
VADM	LISTONE+7~
VADM(1	LISTONE+15
VAIN	LISTONE+7~
VAIP	LISTONE+7~
X	ASK+2~
XMDUZ	MAIL+1~, MAIL+3*
XMMG	MAIL+1~
XMSUB	MAIL+1~, MAIL+32*
XMTEXT	MAIL+1~, MAIL+32*
XMY	MAIL+1~
XMY(	MAIL+3, MAIL+4
XMY("G.PATIEN	T SAFETY NOTIFICATIONS" , MAIL+5*
XMZ	MAIL+1~
Y	ASKEX+4~, ASKEX+9, ASK+2~, HDR+2*
ZTDESC	PRINT+15*, PRINT+17!
ZTDTH	PRINT+17!
ZTIO	PRINT+17!
>> ZTQUEUED	LIST+2
>> ZTREQ	LIST+2*
ZTRTN	PRINT+14*, PRINT+17!
ZTSAVE	PRINT+17!
ZTSAVE("EXNDBIF"	PRINT+13*
ZTSK	PRINT+16, PRINT+17!

Customize PDF page

Package: Text Integration Utility

Routine: TIUP149P

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: