Routine: TIU144

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
Text Integration Utility	4	$$CLASS^TIUCNSLT ($$PNAME,$$PTNAME)^TIULC1 ($$DATE,$$NAME)^TIULS $$ISA^TIULX
VA Fileman	3	$$EXTERNAL^DILFD EN^DIQ1 ^DIR
Consult Request Tracking	1	$$CPPAT^GMRCCP
MailMan	1	^XMD

Package	Total	Caller Graph
Text Integration Utility	3	TIU144 ENHANCED MISMATCH LIST TIUADCL TIUADCL1

Name	Comments	DBIA/ICR reference
PRINT(CHEKD,FOUND)	; Print
BEGIN	; List mismatched Consults
PRINTX
MAIL(CHEKD,FOUND)	; Send msg to person who ran option & Pt Safety Committee
BUILD	; Build array of mismatched Consults
SETX
SETCONT()	; D form feed, Set TIUCONT
PATIENT(PTDA)	; Return Patient Name & last 4 of SSN ; Receives Patient file IEN
STOP()	;on screen paging check ; quits TIUCONT=1 if cont. ELSE quits TIUCONT=0

Name	Field # of Occurrence
^%ZIS	BEGIN+3
HOME^%ZIS	BEGIN+9
^%ZISC	BEGIN+10
^%ZTLOAD	BEGIN+7
$$EXTERNAL^DILFD	PRINT+18
EN^DIQ1	BUILD+38
^DIR	STOP+3
$$CPPAT^GMRCCP	BUILD+23
$$CLASS^TIUCNSLT	BUILD+3
$$PNAME^TIULC1	BUILD+30, BUILD+54
$$PTNAME^TIULC1	PATIENT+3
$$DATE^TIULS	BUILD+32, BUILD+40, BUILD+56
$$NAME^TIULS	PATIENT+3
$$ISA^TIULX	BUILD+18, BUILD+26, BUILD+27
$$FMTE^XLFDT	MAIL+7
$$NOW^XLFDT	MAIL+7
^XMD	MAIL+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Searching for mismatched Consults could take some time. Please" Line Location: BEGIN+1
Function Call: WRITE	Prompt: !,"remember to queue this option." Line Location: BEGIN+2
Function Call: WRITE	Prompt: ! Line Location: BEGIN+3
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Canceled!") Line Location: BEGIN+7
Function Call: WRITE	Prompt: !!,"Searching for Consult documents with mismatched patients...",! Line Location: BUILD+2
Function Call: WRITE	Prompt: @IOF,! Line Location: PRINT+3
Function Call: WRITE	Prompt: " Consult Documents with Mismatched Patients" Line Location: PRINT+4
Function Call: WRITE	Prompt: !!," ",CHEKD," documents processed" Line Location: PRINT+5
Function Call: WRITE	Prompt: !," No mismatches found" Line Location: PRINT+6
Function Call: WRITE	Prompt: !," ",FOUND," mismatched documents found" Line Location: PRINT+7
Function Call: WRITE	Prompt: !!," In listed mismatches, the patient for the request associated with the" Line Location: PRINT+8
Function Call: WRITE	Prompt: !,"document does not match the patient for the document. See the description for" Line Location: PRINT+9
Function Call: WRITE	Prompt: !,"patch TIU1144 in the National Patch Module for further explanation of this" Line Location: PRINT+10
Function Call: WRITE	Prompt: !,"display and for instructions on how to correct listed entries.",!! Line Location: PRINT+11
Function Call: WRITE	Prompt: !! Line Location: PRINT+16
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+17
Function Call: WRITE	Prompt: "===============================================================================",! Line Location: PRINT+20
Function Call: WRITE	Prompt: " Division: ",EXTDIV Line Location: PRINT+21
Function Call: WRITE	Prompt: !,"===============================================================================" Line Location: PRINT+22
Function Call: WRITE	Prompt: !! Line Location: PRINT+27
Function Call: WRITE	Prompt: ?2,MISMNUM,".",?7,"Note Title: ",$P(DOCDATA,U),?59,"#: ",$P(DOCDATA,U,2),?72,"Capt: ",$P(DOCDATA,U,5) Line Location: PRINT+31
Function Call: WRITE	Prompt: !,?2,"Pt: ",$P(DOCDATA,U,3),?59,"Rf Date: ",$P(DOCDATA,U,4) Line Location: PRINT+32
Function Call: WRITE	Prompt: !,?2,"Cnslt To Serv: ",$P(CNDATA,U),?59,"Cnslt #: ",$P(CNDATA,U,2),?75,$P(CNDATA,U,5) Line Location: PRINT+34
Function Call: WRITE	Prompt: !,?2,"Pt: ",$P(CNDATA,U,3),?59,"Date: ",$P(CNDATA,U,4) Line Location: PRINT+35
Function Call: WRITE	Prompt: !,?2,"Parent Title: ",$P(DADDATA,U),?59,"#: ",$P(DADDATA,U,2) Line Location: PRINT+38
Function Call: WRITE	Prompt: !,?2,"Rf Date: ",$P(DADDATA,U,4) Line Location: PRINT+39
Function Call: WRITE	Prompt: !,?2,"Consult # ",^TMP("TIU144",$J,DIV,TITLDA,TIUCNT,"EXTRA")," is ALSO linked to this document on the Consults side." Line Location: PRINT+40
Function Call: WRITE	Prompt: !! Line Location: PRINTX+0
Function Call: WRITE	Prompt: ?5,"================ ",FOUND," Mismatches Found."," =================" Line Location: PRINTX+0
Function Call: WRITE	Prompt: @IOF,! Line Location: STOP+5
Function Call: WRITE	Prompt: @IOF Line Location: SETCONT+6
Routine Call	%ZIS Line Location: BEGIN+9
Routine Call	DIR Line Location: STOP+3
Routine Call	%ZIS Line Location: BEGIN+3

FileNo	Call Tags
^GMR(123 - [#123]	Classic Fileman Calls
^SC - [#44]	EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PATIENT+5
^GMR(123 - [#123]	BUILD+60, BUILD+63
^SC - [#44]	BUILD+35
^TIU(8925 - [#8925]	BUILD+5, BUILD+11, BUILD+15, BUILD+27, BUILD+28, BUILD+33, BUILD+53
^TIU(8925.6 - [#8925.6]	BUILD+19, BUILD+52
^TMP("TIU144"	BUILD+46, BUILD+47, BUILD+57, BUILD+65, BUILD+68!, PRINT+14, PRINT+15, PRINT+24, PRINT+26, PRINT+29 , PRINT+33, PRINT+36, PRINT+40
^VA(200 - [#200]	MAIL+13

Name	Line Occurrences
$$PATIENT	BUILD+31, BUILD+42, BUILD+55
$$SETCONT	PRINT+28, PRINTX
$$STOP	PRINT+16, SETCONT+4
BUILD	BEGIN+10
MAIL	PRINTX+1
PRINT	BUILD+67
PRINTX	PRINT+6
SETX	SETCONT+3, SETCONT+4, SETCONT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	BEGIN+3*
CAPTURE	BUILD+12~, BUILD+29*, BUILD+46
CHEKD	PRINT~, PRINT+5, PRINTX+1, MAIL~, MAIL+8
CNDATA	PRINT+1~, PRINT+33*, PRINT+34, PRINT+35
CNSLT1	BUILD+14~, BUILD+60*, BUILD+61, BUILD+62, BUILD+63
CNSLT2	BUILD+14~, BUILD+63*, BUILD+64
CNSLTCLS	BUILD+1~, BUILD+3*, BUILD+18, BUILD+26, BUILD+27
CNSLTEDT	BUILD+13~, BUILD+40*, BUILD+47
CNSLTPT	BUILD+13~, BUILD+39, BUILD+42, BUILD+47
CNSLTST	BUILD+13~, BUILD+43, BUILD+44, BUILD+47
DA	BUILD+14~, BUILD+37*, BUILD+39, BUILD+40, BUILD+41, BUILD+43
DADDATA	PRINT+1~, PRINT+36*, PRINT+37, PRINT+38, PRINT+39
DADDFN	BUILD+50~, BUILD+51*, BUILD+55
DADDOC	BUILD+50~, BUILD+54*, BUILD+57
DADEDT	BUILD+50~, BUILD+56*, BUILD+57
DADPT	BUILD+50~, BUILD+55*, BUILD+57
DADSTATX	BUILD+50~, BUILD+52*, BUILD+57
DFN	BUILD+12~, BUILD+15*, BUILD+23, BUILD+31
DIC	BUILD+14~, BUILD+36*
DIQ	BUILD+14~, BUILD+37*
DIQ(0	BUILD+37*
DIR	STOP+2~
DIR(0	STOP+3*
DIV	BUILD+14~, BUILD+35, BUILD+46, BUILD+47, BUILD+57, BUILD+65, PRINT+1~, PRINT+13, PRINT+14*, PRINT+15 , PRINT+18, PRINT+24, PRINT+26, PRINT+29, PRINT+33, PRINT+36, PRINT+40
DOC	BUILD+12~, BUILD+30*, BUILD+46
DOCDATA	PRINT+1~, PRINT+29*, PRINT+31, PRINT+32
DR	BUILD+14~, BUILD+36*
DUZ	MAIL+3, MAIL+13
EDT	BUILD+13~, BUILD+32*, BUILD+46
EXTDIV	PRINT+1~, PRINT+18, PRINT+19, PRINT+21
EXTRA	BUILD+14~, BUILD+59, BUILD+62, BUILD+63, BUILD+64*, BUILD+65
FOUND	PRINT~, PRINT+6, PRINT+7, PRINTX, PRINTX+1, MAIL~, MAIL+9
IO	BEGIN+10
IO("Q"	BEGIN+4!
IOF	PRINT+3, PRINT+17, STOP+5, SETCONT+6
IOP	BEGIN+3!
IOSL	SETCONT+3, SETCONT+5
IOST	BUILD+2, PRINT+3, PRINT+16, SETCONT+3, SETCONT+4
LAST4	PATIENT+2~, PATIENT+5, PATIENT+6, PATIENT+7
LASTI	PATIENT+2~, PATIENT+4*, PATIENT+6
LOC	BUILD+13~, BUILD+34*, BUILD+35
MISMNUM	PRINT+1~, PRINT+13, PRINT+30, PRINT+31
NUMCHEKD	BUILD+1~, BUILD+4, BUILD+16, BUILD+67
NUMFOUND	BUILD+1~, BUILD+66*, BUILD+67
OK	BUILD+12~, BUILD+23*, BUILD+24
POP	BEGIN+3!
PT	BUILD+13~, BUILD+31, BUILD+46, PATIENT+2~, PATIENT+3, PATIENT+4, PATIENT+7*, PATIENT+8
PTDA	PATIENT~, PATIENT+3, PATIENT+5
STATX	BUILD+13~, BUILD+19*, BUILD+20, BUILD+21, BUILD+46
TITLDA	BUILD+12~, BUILD+16, BUILD+18, BUILD+26, BUILD+27, BUILD+46, BUILD+47, BUILD+49, BUILD+57, BUILD+65 , PRINT+1~, PRINT+23, PRINT+24*, PRINT+26, PRINT+29, PRINT+33, PRINT+36, PRINT+40
TIUCNNBR	BUILD+12~, BUILD+22*, BUILD+23, BUILD+37, BUILD+47, BUILD+58, BUILD+62, BUILD+64
TIUCNT	BUILD+1~, BUILD+45, BUILD+46, BUILD+47, BUILD+57, BUILD+65, BUILD+66, PRINT+1~, PRINT+25, PRINT+26* , PRINT+29, PRINT+33, PRINT+36, PRINT+40
TIUCONT	PRINT+1~, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+24, PRINT+26, PRINT+28, PRINTX, STOP+2~ , STOP+4, STOP+5, STOP+6, SETCONT+1~, SETCONT+2, SETCONT+4*, SETX
TIUCVPTR	BUILD+1~, BUILD+4, BUILD+5, BUILD+7, BUILD+9, BUILD+11, BUILD+18, BUILD+22
TIUD0	BUILD+12~, BUILD+15*, BUILD+16, BUILD+19, BUILD+27, BUILD+30
TIUD12	BUILD+13~, BUILD+33*, BUILD+34
TIUD13	BUILD+12~, BUILD+28*, BUILD+29, BUILD+32
TIUDA	BUILD+1~, BUILD+10, BUILD+11, BUILD+15, BUILD+28, BUILD+33, BUILD+46, BUILD+60, BUILD+63
TIUDAD	BUILD+12~, BUILD+27*, BUILD+53, BUILD+57
TIUDAD0	BUILD+12~, BUILD+27*, BUILD+51, BUILD+52, BUILD+54
TIUDAD13	BUILD+50~, BUILD+53*, BUILD+56
TIUMATCH	BUILD+13~
TIUMATCH(123	BUILD+39, BUILD+40, BUILD+41, BUILD+43
TIUTXT	MAIL+1~
TIUTXT(1	MAIL+5*
TIUTXT(2	MAIL+6*
TIUTXT(3	MAIL+7*
TIUTXT(4	MAIL+8*
TIUTXT(5	MAIL+9*
TIUTXT(6	MAIL+10*
TIUTXT(7	MAIL+11*
TIUTXT(8	MAIL+12*
TIUTXT(9	MAIL+13*
TOSERV	BUILD+13~, BUILD+41*, BUILD+47
U	BUILD+15, BUILD+19, BUILD+27, BUILD+29, BUILD+32, BUILD+34, BUILD+35, BUILD+46, BUILD+47, BUILD+51 , BUILD+52, BUILD+56, BUILD+57, PATIENT+5, PRINT+31, PRINT+32, PRINT+34, PRINT+35, PRINT+38, PRINT+39
XMDUZ	MAIL+1~, MAIL+2*
XMMG	MAIL+1~
XMSUB	MAIL+1~, MAIL+14*
XMTEXT	MAIL+1~, MAIL+14*
XMY	MAIL+1~
XMY(	MAIL+3, MAIL+4
XMY("G.PATIEN	T SAFETY NOTIFICATIONS" , MAIL+4*
XMZ	MAIL+1~
Y	STOP+2~, STOP+4
ZTDESC	BEGIN+6*, BEGIN+8!
ZTDTH	BEGIN+8!
ZTIO	BEGIN+8!
>> ZTQUEUED	PRINT+2
>> ZTREQ	PRINT+2*
ZTRTN	BEGIN+5*, BEGIN+8!
ZTSAVE	BEGIN+8!
ZTSAVE("DUZ"	BEGIN+5*
ZTSK	BEGIN+7, BEGIN+8!

Customize PDF page

Package: Text Integration Utility

Routine: TIU144

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: