Routine: TIU215R

Information

TIU215R ;VMP/RJT - Utililty to analyze problems cause by PATCH TIU*1.0*215 ; 7/25/2007

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	2	($$DEL,CLOSE,OPEN)^%ZISH $$CHKSUM^XUSESIG1
Surgery	2	RPT^SROANR RPT^SRONRPT
VA FileMan	2	D^DIQ ^DIR
Registration	1	DEM^VADPT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Text Integration Utility	2	TIU215 OUTPUT TEXT FILES TIU215F

Entry Points

Name	Comments	DBIA/ICR reference
STRT	;
EN
PATH	;
EN1	;
EN2	;
CHK
CHK1	; COMPARE ANESTHESIA REPORTS
NRPT
NE
ARPT	;
AE
KIL
ERR
SRHDR
ADDENDA	;
NEWSFILE	;
NEWTFILE	;
OPENS	;
OPENT	;
OPENA	;

External References

Name	Field # of Occurrence
$$DEL^%ZISH	PATH+21, PATH+24, PATH+29, PATH+32, EN1+7
CLOSE^%ZISH	PATH+18, PATH+26, PATH+34, NRPT+12, NRPT+21, NE, ARPT+14, ARPT+23, AE, ADDENDA+12 , NEWSFILE+1, NEWTFILE+1
OPEN^%ZISH	NRPT+4, NRPT+13, ARPT+4, ARPT+15, ADDENDA+2, NEWSFILE+2, NEWTFILE+2, OPENS+1, OPENT+1, OPENA+1
D^DIQ	SRHDR+2
^DIR	EN+7, EN+13, EN+19, PATH+6, PATH+12, PATH+21, PATH+29
RPT^SROANR	CHK1+6, ARPT+8
RPT^SRONRPT	CHK+7, NRPT
DEM^VADPT	SRHDR+1
$$CHKSUM^XUSESIG1	CHK+13, CHK+15, CHK1+12, CHK1+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: STRT+1
Function Call: WRITE	Prompt: !!!,"Processing...",! Line Location: PATH+35
Function Call: WRITE	Prompt: !,"There were "_TIUCOUNT_" records found to be discrepant.",! Line Location: EN2+1
Function Call: WRITE	Prompt: !!!!!!,SRHDR Line Location: NRPT+6
Function Call: WRITE	Prompt: !,?4,"PRINTED BY TIU215R UTILITY***** NURSE INTRAOPERATIVE REPORT - CASE #"_SRTN Line Location: NRPT+7
Function Call: WRITE	Prompt: !!!!!!,SRHDR Line Location: NRPT+16
Function Call: WRITE	Prompt: !,?4,"PRINTED BY TIU215R UTILITY***** NURSE INTRAOPERATIVE REPORT - CASE #"_SRTN Line Location: NRPT+17
Function Call: WRITE	Prompt: !,SRHDR Line Location: ARPT+6
Function Call: WRITE	Prompt: !,?3,"PRINTED BY TIU215R UTILITY***** ANESTHESIA REPORT - CASE #"_SRTN Line Location: ARPT+7
Function Call: WRITE	Prompt: !!!!!!,SRHDR Line Location: ARPT+18
Function Call: WRITE	Prompt: !,?3,"PRINTED BY TIU215R UTILITY***** ANESTHESIA REPORT - CASE #"_SRTN Line Location: ARPT+19
Function Call: WRITE	Prompt: !,"UNABLE TO CLEAN UP FILES ON ^ ABORT" Line Location: ERR+0
Function Call: WRITE	Prompt: !!!!,"**************************************************************************",!,SRHDR Line Location: ADDENDA+4
Function Call: WRITE	Prompt: !,?4,"PRINTED BY TIU215F UTILITY*** TIU ADDENDA - CASE #"_SRTN,!,"************************************************************************",! Line Location: ADDENDA+5
Function Call: WRITE	Prompt: !!,?2,"ADDENDUM #"_TIUDAD,!,?2,"-----------------------------------------" Line Location: ADDENDA+8
Function Call: WRITE	Prompt: !,$G(^TIU(8925,TIUDAD,"TEXT",TIUI,0)) Line Location: ADDENDA+11
Function Call: WRITE	Prompt: !,"Error opening Surgery output file.",! Line Location: OPENS+2
Function Call: WRITE	Prompt: !,"Error opening TIU output file.",! Line Location: OPENT+2
Function Call: WRITE	Prompt: !,"Error opening TIU Addendum output file.",! Line Location: OPENA+2
Routine Call	DIR Line Location: EN+7 EN+13 EN+19 PATH+6 PATH+12 PATH+21 PATH+29

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	CHK+1, CHK1+1, NRPT, ARPT+9, SRHDR+1, SRHDR+2
^SRF("AC"	EN1+4, EN1+5
^TIU(8925 - [#8925]	CHK+4, CHK+5, CHK+10, CHK+11, CHK1+4, CHK1+9, CHK1+10, NRPT+20, ARPT+22, ADDENDA+7 , ADDENDA+10, ADDENDA+11
^TMP("SRANE"	CHK1+5!, ARPT+10, ARPT+11
^TMP("SRNIR"	EN+4!, CHK+6!, NRPT+8, NRPT+9
^TMP("TIUSNIR"	EN+4!, CHK+6!, CHK+11*, NRPT+18, NRPT+19
^TMP("TIUSRANE"	CHK1+5!, CHK1+10*, ARPT+20, ARPT+21

Label References

Name	Line Occurrences
ADDENDA	NRPT+21, ARPT+23
AE	ARPT+17
ARPT	CHK1+16
CHK	EN1+6
CHK1	EN1+6
ERR	PATH+21, PATH+24, PATH+29, PATH+32
KIL	NE+1, AE+1
NE	NRPT+15
NEWSFILE	NRPT+2, ARPT+2
NEWTFILE	NRPT+11, ARPT+13
NRPT	CHK+17
OPENA	PATH+32
OPENS	PATH+16
OPENT	PATH+24
PATH	PATH+14, PATH+16, PATH+21, PATH+24, PATH+29, PATH+32
SRHDR	NRPT+1, NRPT+10, ARPT+1, ARPT+12
STRT	EN+15, EN+21, PATH+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	NRPT, ARPT+9, SRHDR~, SRHDR+1*
DIR	EN+9!, EN+14!, EN+20!, PATH+9!, PATH+13!, PATH+21!, PATH+23!, PATH+24!, PATH+29!, PATH+31! , PATH+32!
DIR("?"	PATH+4, PATH+5
DIR("A"	EN+5, EN+11, EN+17, PATH+2, PATH+10, PATH+19, PATH+27*
DIR(0	EN+6, EN+12, EN+18, PATH+3, PATH+11, PATH+20, PATH+28*
DIRUT	EN+8!, EN+15!, EN+21!, PATH+7!, PATH+14!, PATH+21!, PATH+29!
POP	PATH+16, PATH+24, PATH+32, KIL!, OPENS+2, OPENT+2, OPENA+2
SRCHKSUM	EN~, CHK+15, CHK+16, CHK1+14, CHK1+15
SRHDR	NRPT+6, NRPT+16, ARPT+6, ARPT+18, KIL!, SRHDR+3*, ADDENDA+4
SRI	NRPT+8, NRPT+9, NRPT+18, NRPT+19, ARPT+10, ARPT+11, ARPT+20, ARPT+21, KIL!
SRSDATE	KIL!, SRHDR+2*, SRHDR+3
SRTN	EN~, CHK*, CHK+1, CHK+7, CHK+14, CHK1+1, CHK1+6, CHK1+13, NRPT, NRPT+7 , NRPT+8, NRPT+9, NRPT+17, ARPT+7, ARPT+8, ARPT+9, ARPT+10, ARPT+11, ARPT+19, SRHDR+1 , SRHDR+2, SRHDR+3, ADDENDA+5
SRTNA	EN~
SRVAL	EN~, CHK+14, CHK+15, CHK+19, CHK1+13, CHK1+14, CHK1+18
SURDONE	EN1+1~, EN1+6*
SURDT	EN1+1~, EN1+3, EN1+4, EN1+5
SURFILEN	EN+1~, EN+3, PATH+17, PATH+18, NRPT+4, NRPT+5, NRPT+12, ARPT+4, ARPT+5, ARPT+14 , NEWSFILE+1, NEWSFILE+2, OPENS+1
SURFNAME	EN+1~, PATH+15*, PATH+17, PATH+36, NRPT+4, ARPT+4, NEWSFILE+2, OPENS+1
SURIO	EN+2~, PATH+36*, NRPT+5, ARPT+5
SURRECNT	EN1+1~, CHK+18, CHK1+17, NRPT+2, ARPT+2, NEWSFILE+1
TIUA	EN+1~, EN1+5*, CHK
TIUACNT	EN~, EN+3, EN1+7, ADDENDA+1
TIUADEL	EN~, EN1+7
TIUADEL(	PATH+33*
TIUAIO	EN+2~, PATH+36*, ADDENDA+3
TIUANAME	EN+2~, PATH+30*, PATH+33, PATH+36, ADDENDA+2, OPENA+1
TIUCHKSU	EN~, CHK+13, CHK+16, CHK1+12, CHK1+15
TIUCNT	EN1+1~*
TIUCOUNT	EN1+1~, EN2+1, CHK+18, CHK1+17*
TIUCPF	EN+2~, EN+22*, NRPT+2, NRPT+11, ARPT+2, ARPT+13
TIUDA	EN~, CHK+1, CHK+2, CHK+4, CHK+5, CHK+10, CHK+11, CHK+12, CHK1+1, CHK1+2 , CHK1+4, CHK1+9, CHK1+10, CHK1+11, NRPT+15, NRPT+18, NRPT+19, NRPT+20, ARPT+17, ARPT+20 , ARPT+21, ARPT+22, ADDENDA+7
TIUDAD	EN+1~, NRPT+20, NRPT+21, ARPT+22, ARPT+23, ADDENDA+1~, ADDENDA+7, ADDENDA+8, ADDENDA+10, ADDENDA+11
TIUDFN	EN+1~, CHK+5*
TIUDONE	EN+1~
TIUDT	EN~, EN+10, EN+12, EN1+3
TIUEND	EN~, EN+16*, EN1+4
TIUER	EN~, PATH+21, PATH+24, PATH+29, PATH+32, EN1+7*
TIUERR	EN+1~
TIUFDEL	EN~, PATH+1!, PATH+21, PATH+24, PATH+29, PATH+32, PATH+37!
TIUFDEL(	PATH+17, PATH+25
TIUFILEN	EN+1~, EN+3, PATH+25, PATH+26, PATH+33, PATH+34, NRPT+13, NRPT+14, NRPT+21, NE , ARPT+15, ARPT+16, ARPT+23, AE, ADDENDA+2, ADDENDA+3, ADDENDA+12, NEWTFILE+1, NEWTFILE+2, OPENT+1 , OPENA+1
TIUFNAME	EN+1~, PATH+22*, PATH+25, PATH+36, NRPT+13, ARPT+15, NEWTFILE+2, OPENT+1
TIUI	ADDENDA+1~, ADDENDA+8, ADDENDA+10*, ADDENDA+11
TIUIO	EN+2~, PATH+36*, NRPT+14, ARPT+16
TIUNAM	EN+1~
TIUND	EN+1~
TIUPATH	EN+1~, PATH+8*, PATH+21, PATH+24, PATH+29, PATH+32, PATH+36, EN1+7, NRPT+4, NRPT+13 , ARPT+4, ARPT+15, ADDENDA+2, NEWSFILE+2, NEWTFILE+2, OPENS+1, OPENT+1, OPENA+1
TIURECNT	EN1+1~, CHK+18, CHK1+17, NRPT+11, ARPT+13, NEWTFILE+1
TIUVAL	EN~, CHK+12, CHK+13, CHK+19, CHK1+11, CHK1+12, CHK1+18
TIUX	EN+1~, CHK+9, CHK+10, CHK+11, CHK1+8, CHK1+9, CHK1+10
U	EN+3*, CHK+4, CHK+5, CHK1+4
VA	KIL!
VA("PID"	SRHDR+3
VADM	KIL!
VADM(1	SRHDR+3
VAINDT	KIL!
Y	EN+10, EN+16, EN+22, PATH+8, PATH+15, PATH+22, PATH+30, SRHDR~, SRHDR+2*

Customize PDF page

Package: Text Integration Utility