Routine: TIU214

Package	Total	Call Graph
VA Fileman	5	DD^%DT YX^%DTC ^DIE $$GET1^DIQ ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Registration	3	DEM^VADPT CLEAR^VALM1 $$SITE^VASITE
Text Integration Utility	2	$$POSSPRNT^TIULP $$HRCN^TIUR2
MailMan	1	SENDMSG^XMXAPI

Package	Total	Caller Graph
Text Integration Utility	1	TIU MISMATCHED ID NOTES

Entry Points

Name	Comments	DBIA/ICR reference
HDR2(TIUFF)	;
SEARCH	;
EN	; Build array of mismatched ID documents
PNAME(PTDFN)	; Return Patient Name & last 4 of SSN
HDR1(TIUFF)	;
HDR3(TIUFF)	;
PAUSE	;
REPORT	;
MAIL	; EMAIL TOTALS TO B.PSI-06-030 TO TRACK COMPLIANCE

External References

Name	Field # of Occurrence
DD^%DT	SEARCH+14, SEARCH+26, SEARCH+34
YX^%DTC	MAIL+4
^%ZIS	EN+12
^%ZISC	SEARCH+39
^%ZTLOAD	EN+17
^DIE	REPORT+30, REPORT+57
$$GET1^DIQ	SEARCH+11, SEARCH+12, SEARCH+23, SEARCH+24, SEARCH+31, SEARCH+32
^DIR	EN+9, PAUSE+3
$$POSSPRNT^TIULP	SEARCH+29
$$HRCN^TIUR2	PNAME+8
DEM^VADPT	PNAME+4
CLEAR^VALM1	REPORT+6
$$SITE^VASITE	MAIL+3
SENDMSG^XMXAPI	MAIL+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?5,"Searching for Parent/Child ID Notes with mismatched patients...",!! Line Location: SEARCH+3
Function Call: WRITE	Prompt: $P(TIUCINFO,"^",1)," (" Condition for execution: TIUSHOW Line Location: REPORT+48
Function Call: WRITE	Prompt: $P(TIUCINFO,"^",2) Line Location: REPORT+48
Function Call: WRITE	Prompt: ")" Condition for execution: TIUSHOW Line Location: REPORT+48
Function Call: WRITE	Prompt: $P(TIUCINFO,"^",1)," (" Condition for execution: TIUSHOW Line Location: REPORT+74
Function Call: WRITE	Prompt: $P(TIUCINFO,"^",2) Line Location: REPORT+74
Function Call: WRITE	Prompt: ")" Condition for execution: TIUSHOW Line Location: REPORT+74
Function Call: WRITE	Prompt: !,@IOF Line Location: REPORT+81
Function Call: WRITE	Prompt: !!?15,"TOTAL COUNTS FOR MISMATCHED ID NOTES" Line Location: REPORT+82
Function Call: WRITE	Prompt: !?15,"------------------------------------",! Line Location: REPORT+83
Function Call: WRITE	Prompt: !?15,+^TMP("TIU214",$J)_" CROSS REFERENCES CHECKED" Line Location: REPORT+84
Function Call: WRITE	Prompt: !?15,+^TMP("TIU214",$J,"MISMATCH")_" MISSMATCHED NOTE(S) FOUND" Line Location: REPORT+85
Function Call: WRITE	Prompt: !?15,+^TMP("TIU214",$J,"MISSING")_" NON EXISTENT PARENT NOTE(S)" Line Location: REPORT+86
Function Call: WRITE	Prompt: !?15,+^TMP("TIU214",$J,"NONPRNT")_" PARENT MAY NOT BE AN ID NOTE" Line Location: REPORT+87
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+3
Function Call: WRITE	Prompt: ?18,"MISMATCHED INTERDISCIPLINARY NOTES" Line Location: HDR1+4
Function Call: WRITE	Prompt: !!?10,"CHILD DOCUMENT",?45,"PARENT DOCUMENT" Line Location: HDR1+5
Function Call: WRITE	Prompt: !?10,"---------------",?45,"--------------" Line Location: HDR1+6
Function Call: WRITE	Prompt: @IOF Line Location: HDR2+3
Function Call: WRITE	Prompt: !?11,"CHILD ID NOTES POINTING TO A NON-EXISTENT PARENT ID NOTE" Line Location: HDR2+4
Function Call: WRITE	Prompt: @IOF Line Location: HDR3+3
Function Call: WRITE	Prompt: !?11,"CHILD ID NOTES POINTING TO A PARENT THAT MAY NOT BE AN ID NOTE" Line Location: HDR3+4
Function Call: WRITE	Prompt: !!?11," NOTE: THIS IS AN INFORMATIONAL LIST FOR INVESTIGATION.",!?11," NOTHING WILL BE FIXED " Line Location: HDR3+5
Routine Call	DIE Line Location: REPORT+30 REPORT+57
Routine Call	DIR Line Location: EN+9 PAUSE+3
Routine Call	%ZIS Line Location: EN+12

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^TIU(8925 - [#8925]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	SEARCH+5, SEARCH+8, SEARCH+9, SEARCH+13, SEARCH+15, SEARCH+25, SEARCH+33, REPORT+28, REPORT+33, REPORT+34! , REPORT+55, REPORT+60, REPORT+61!
^TMP("TIU214"	SEARCH+1!, SEARCH+2, SEARCH+6, SEARCH+17, SEARCH+18, SEARCH+21, SEARCH+22, SEARCH+27, SEARCH+28, SEARCH+30 , SEARCH+35, SEARCH+38!, REPORT+4, REPORT+5, REPORT+11, REPORT+12, REPORT+14, REPORT+15, REPORT+32, REPORT+36* , REPORT+43, REPORT+45, REPORT+46, REPORT+59, REPORT+63, REPORT+69, REPORT+71, REPORT+72, REPORT+84, REPORT+85 , REPORT+86, REPORT+87, REPORT+89, REPORT+90, REPORT+91, REPORT+92, MAIL+7, MAIL+8, MAIL+9, MAIL+16 , MAIL+17, MAIL+18, MAIL+19, HDR1+1, HDR2+1, HDR3+1

Label References

Name	Line Occurrences
$$PNAME	SEARCH+10, SEARCH+20
HDR1	REPORT+9, REPORT+16
HDR2	REPORT+41, REPORT+47
HDR3	REPORT+67, REPORT+73
MAIL	SEARCH+37
PAUSE	REPORT+16, REPORT+38, REPORT+47, REPORT+65, REPORT+73, REPORT+80
REPORT	SEARCH+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%H	MAIL+1~, MAIL+4*
%ZIS	EN+2~, EN+12*
DA	REPORT+29~, REPORT+30, REPORT+56~, REPORT+57
DFN	EN+2~, PNAME+4*, PNAME+8
DIE	REPORT+29~, REPORT+30, REPORT+56~, REPORT+57
DIR	EN+2~, EN+9!, PAUSE+2~, PAUSE+3!
DIR("B"	EN+8*
DIR("L"	EN+4, EN+5, EN+6, EN+7
DIR(0	EN+3, PAUSE+3
DIRUT	EN+2~, EN+10, PAUSE+2~, PAUSE+4
DR	REPORT+29~, REPORT+30, REPORT+56~, REPORT+57
DUZ	EN+11
DUZ(2	PNAME+8
HRCN	PNAME+1~, PNAME+8*, PNAME+9
IO	REPORT+1
IO("Q"	EN+14, EN+17!
IOF	SEARCH+3, REPORT+81, HDR1+3, HDR2+3, HDR3+3
IOSL	REPORT+16, REPORT+47, REPORT+73
IOST	SEARCH+3, REPORT+3, REPORT+6, REPORT+7, REPORT+39, REPORT+66, PAUSE+1
POP	EN+2~, EN+13
PTDFN	PNAME~, PNAME+2, PNAME+4
TIUBAD	EN+1~, SEARCH+29*
TIUC0	EN+1~, SEARCH+9*
TIUC12	EN+2~, SEARCH+13*, SEARCH+14
TIUCAUTH	EN+1~, SEARCH+11*, SEARCH+18, SEARCH+28
TIUCDFN	EN+1~, SEARCH+9*, SEARCH+10, SEARCH+19
TIUCEDT	EN+2~, SEARCH+14*, SEARCH+18, SEARCH+28
TIUCHILD	EN+1~, SEARCH+7, SEARCH+8, SEARCH+9, SEARCH+11, SEARCH+12, SEARCH+13, SEARCH+18, SEARCH+28, SEARCH+35 , REPORT+13, REPORT+14, REPORT+15, REPORT+28, REPORT+30, REPORT+33, REPORT+34, REPORT+44, REPORT+45, REPORT+46 , REPORT+52, REPORT+55, REPORT+57, REPORT+60, REPORT+61, REPORT+70, REPORT+71, REPORT+72, REPORT+78
TIUCINFO	REPORT+2~, REPORT+15, REPORT+18, REPORT+21, REPORT+23, REPORT+24, REPORT+25, REPORT+26, REPORT+46, REPORT+48 , REPORT+49, REPORT+50, REPORT+51, REPORT+72*, REPORT+74, REPORT+75, REPORT+76, REPORT+77, REPORT+78
TIUCNAME	EN+1~, SEARCH+10*, SEARCH+18, SEARCH+28, SEARCH+35
TIUCTITL	EN+1~, SEARCH+12*, SEARCH+18, SEARCH+28, SEARCH+35
TIUDATA	EN+1~, REPORT+7, REPORT+38, REPORT+39, REPORT+65, REPORT+66, REPORT+80, HDR1+2, HDR2+2, HDR3+2
TIUDUZ	EN+2~, EN+11*
TIUFF	HDR1~, HDR1+3, HDR2~, HDR2+3, HDR3~, HDR3+3
TIUFIX	EN+2~, EN+11*, REPORT+8, REPORT+27, REPORT+40, REPORT+54, REPORT+88, MAIL+10, MAIL+13
TIUHIDE	REPORT+2~
TIULEN	EN+2~, REPORT+7, REPORT+8, REPORT+16, REPORT+39, REPORT+40, REPORT+47, REPORT+66*, REPORT+73
TIUMAIL	MAIL+1~
TIUMAIL(1	MAIL+3*
TIUMAIL(10	MAIL+17*
TIUMAIL(11	MAIL+18*
TIUMAIL(12	MAIL+19*
TIUMAIL(2	MAIL+5*
TIUMAIL(3	MAIL+6*
TIUMAIL(4	MAIL+7*
TIUMAIL(5	MAIL+8*
TIUMAIL(6	MAIL+9*
TIUMAIL(7	MAIL+11, MAIL+14
TIUMAIL(8	MAIL+12, MAIL+15
TIUMAIL(9	MAIL+16*
TIUNAME	PNAME+1~
TIUP0	EN+1~, SEARCH+15*, SEARCH+16, SEARCH+29
TIUP12	EN+2~, SEARCH+25, SEARCH+26, SEARCH+33, SEARCH+34
TIUPAUTH	EN+2~, SEARCH+23, SEARCH+27, SEARCH+31, SEARCH+35
TIUPDFN	EN+1~, SEARCH+15*, SEARCH+19, SEARCH+20
TIUPEDT	EN+2~, SEARCH+26, SEARCH+27, SEARCH+34, SEARCH+35
TIUPINFO	REPORT+2~, REPORT+12*, REPORT+19, REPORT+22, REPORT+23, REPORT+24, REPORT+25, REPORT+26
TIUPN	PNAME+1~, PNAME+11, PNAME+12, PNAME+13*, PNAME+14
TIUPNAME	EN+1~, SEARCH+20*, SEARCH+27
TIUPRNT	EN+1~, SEARCH+4, SEARCH+5, SEARCH+8, SEARCH+15, SEARCH+18, SEARCH+22, SEARCH+23, SEARCH+24, SEARCH+25 , SEARCH+27, SEARCH+28, SEARCH+31, SEARCH+32, SEARCH+33, SEARCH+35, REPORT+10, REPORT+11, REPORT+12, REPORT+14 , REPORT+15, REPORT+28, REPORT+33, REPORT+34, REPORT+42, REPORT+43, REPORT+45, REPORT+46, REPORT+53, REPORT+55 , REPORT+60, REPORT+61, REPORT+68, REPORT+69, REPORT+71, REPORT+72, REPORT+75
TIUPTITL	EN+2~, SEARCH+24, SEARCH+27, SEARCH+32, SEARCH+35
TIUQUIT	REPORT+2~, REPORT+3, REPORT+11, REPORT+14, REPORT+16, REPORT+37, REPORT+38, REPORT+43, REPORT+45, REPORT+47 , REPORT+64, REPORT+65, REPORT+69, REPORT+71, REPORT+73, REPORT+79, REPORT+80, PAUSE+4
TIUSHOW	REPORT+2~, REPORT+3*, REPORT+17, REPORT+20, REPORT+48, REPORT+74
TIUSSN	PNAME+1~, PNAME+5*, PNAME+6
TIUSSN4	PNAME+1~, PNAME+6, PNAME+9, PNAME+12
U	SEARCH+9, SEARCH+15
VADM	PNAME+1~
VADM(1	PNAME+11
VADM(2	PNAME+5
XMDUZ	MAIL+1~, MAIL+2*, MAIL+21
XMSUBJ	MAIL+1~, MAIL+2*, MAIL+21
XMTO	MAIL+1~, MAIL+21
XMTO("G.PSI-06-030@FORUM.VA.GOV"	MAIL+20*
Y	EN+2~, EN+11, SEARCH+14, SEARCH+26, SEARCH+34*, MAIL+1~, MAIL+5
ZTDESC	EN+15~, EN+16*
ZTRTN	EN+15~, EN+16*
ZTSAVE	EN+15~
ZTSAVE("TIU*"	EN+16*

Customize PDF page

Package: Text Integration Utility

Routine: TIU214

Information

Source Information

Call Graph

Call Graph Total: 14

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

Local Variables

Legend: