Routine: TIU215F

Information

TIU215F ;VMP/ELR - Utililty to analyze problems cause by PATCH tiu*1.0*215 ; 7/25/2007

Package	Total	Call Graph
VA FileMan	4	DD^%DT NOW^%DTC D^DIQ ^DIR
Kernel	3	^%ZIS ^%ZISC $$CHKSUM^XUSESIG1
Surgery	2	RPT^SROANR RPT^SRONRPT
MailMan	1	^XMD
Registration	1	DEM^VADPT
Text Integration Utility	1	^TIU215R

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: 3

Package	Total	Caller Graph
Text Integration Utility	2	TIU215 ANALYZE PROBLEMS TIU215 VIEW SURGERY CASE
Kernel	1	INSTALL QUESTIONS

Entry Points

Name	Comments	DBIA/ICR reference
ENV	;DUMMY ENVIRONMENT CHECK TO GET ROUTINE LOADED FOR USE IN INSTALL QUESTIONS
STRT	;
EN
EN1	;
EN2
CHK
CHK1	;
NAM
ASK
RPT
RPTX
SRHDR
HD
SETLN(A)	;
INS	;ENTRY POINT FOR INSTALL
BULL	; Bulletin of analysis
BULL1(A)	; Bulletin
POS2
POS3
CSUM
MSG

External References

Name	Field # of Occurrence
DD^%DT	NAM+7, HD+2, HD+3, HD+4
NOW^%DTC	HD+2, BULL+6, BULL1+7
^%ZIS	ASK+5
^%ZISC	RPTX
D^DIQ	SRHDR+1
^DIR	STRT+8, EN+6, EN+12, ASK+2
RPT^SROANR	CHK1+6, RPT+9
RPT^SRONRPT	CHK+7, RPT
^TIU215R	STRT+13
DEM^VADPT	NAM+3, SRHDR
^XMD	BULL+7, BULL1+8
$$CHKSUM^XUSESIG1	CHK+13, CHK+15, CHK1+12, CHK1+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!! Line Location: STRT+2
Function Call: WRITE	Prompt: !,"1. ANALYZE POTENTIAL SURGERY/TIU PROBLEMS" Line Location: STRT+3
Function Call: WRITE	Prompt: !,"2. VIEW SINGLE SURGERY CASE USING CASE #" Line Location: STRT+4
Function Call: WRITE	Prompt: !,"3, SEND OUTPUT TO TEXT FILES" Line Location: STRT+5
Function Call: WRITE	Prompt: !,SRHDR Line Location: ASK+9
Function Call: WRITE	Prompt: !,?4,"PRINTED BY TIU215F UTILITY***** NURSE INTRAOPERATIVE REPORT - CASE #"_SRTN Line Location: ASK+10
Function Call: WRITE	Prompt: !!,"*****It looks like you did not back out patch TIU1.0215****",! Line Location: ASK+11
Function Call: WRITE	Prompt: @IOF Line Location: RPT+3
Function Call: WRITE	Prompt: !,SRHDR Line Location: RPT+6
Function Call: WRITE	Prompt: !,?3,"PRINTED BY TIU215F UTILITY***** ANESTHESIA REPORT - CASE #"_SRTN Line Location: RPT+7
Function Call: WRITE	Prompt: !!,"*****It looks like you did not back out patch TIU1.0215****",! Line Location: RPT+8
Function Call: WRITE	Prompt: !,HD1,!,HD2,!,HD3,!,HD4,!,HD5 Line Location: HD+6
Function Call: WRITE	Prompt: !,TIULN Line Location: SETLN+9
Routine Call	DIR Line Location: STRT+8 EN+6 EN+12 ASK+2
Routine Call	%ZIS Line Location: ASK+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RSUM1"	CSUM
^SRF - [#130]	CHK+1, CHK1+1, RPT, RPT+4, RPT+5, RPT+10, SRHDR, SRHDR+1
^SRF("AC"	EN1+5, EN1+6
^TIU(8925 - [#8925]	CHK+4, CHK+5, CHK+10, CHK+11, CHK1+4, CHK1+9, CHK1+10, NAM+2, NAM+6, RPT+5 , SETLN+5
^TMP("SRANE"	CHK1+5!, RPT+11, RPT+12
^TMP("SRNIR"	EN+3!, CHK+6!, RPT+1, RPT+2
^TMP("TIU215F"	HD+7, SETLN+10, INS+3!, BULL+2, BULL+8!, BULL1+5, BULL1+9!
^TMP("TIUSNIR"	EN+3!, CHK+6!, CHK+11, CHK1+5!, CHK1+10
^XPD(9.7 - [#9.7]	MSG+1

Label References

Name	Line Occurrences
ASK	STRT+12, ASK+5, RPTX+2
BULL	EN1+8
BULL1	EN2+1, MSG+2
CHK	EN1+7
CHK1	EN1+7
EN	STRT+11
EN1	INS+5
EN2	EN1+3
HD	EN1+2
MSG	EN2
NAM	SETLN+7
RPTX	RPT+4, RPT+5
SETLN	CHK+17, CHK1+16
SRHDR	ASK+7
STRT	STRT+13, EN+8, EN+14, EN2+3, ASK+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HD+2!
A	SETLN~, SETLN+3, BULL1~, BULL1+5
DFN	NAM~, NAM+3, RPT, RPT+10, SRHDR
DIFROM	BULL+1~, BULL1+2~
DIR	STRT+10!, EN+7!, EN+13!, POS2!, POS3!
DIR("A"	STRT+6, EN+4, EN+10, ASK+1
DIR(0	STRT+7, EN+5, EN+11, ASK, POS3+1*
DIRUT	STRT+9!, EN+8!, EN+14!, ASK+3!
DUZ	BULL+5, BULL1+6
HD1	HD~, HD+1*, HD+6, HD+7
HD2	HD~, HD+2*, HD+6, HD+7
HD3	HD~, HD+3*, HD+6, HD+7
HD4	HD~, HD+4*, HD+6, HD+7
HD5	HD~, HD+5*, HD+6, HD+7
IO	ASK+8
IOF	RPT+3
POP	ASK+5, RPTX+1!
SRAGE	RPTX+1!
SRCHKSUM	EN~, CHK+15, CHK+16, CHK1+14, CHK1+15
SRDIV	RPTX+1!
SREST	RPTX+1!
SRHDR	ASK+9, RPT+6, RPTX+1!, SRHDR+2*
SRI	RPT+1, RPT+2, RPT+11, RPT+12, RPTX+1!
SRLOC	RPTX+1!
SRP	RPTX+1!
SRPOS	RPTX+1!
SRPRINT	RPTX+1!
SRSDATE	RPTX+1!, SRHDR+1*, SRHDR+2
SRTN	EN~, CHK, CHK+1, CHK+7, CHK+14, CHK1+1, CHK1+6, CHK1+13, ASK+4, ASK+10 , RPT, RPT+1, RPT+2, RPT+4, RPT+5, RPT+7, RPT+9, RPT+10, RPT+11, RPT+12 , RPTX+1!, SRHDR, SRHDR+1, SRHDR+2, SETLN+4
SRTNA	EN~
SRVAL	EN~, CHK+14, CHK+15, CHK+18, CHK1+13, CHK1+14, CHK1+17
TIUA	EN+1~, EN1+6*, CHK
TIUCHKSU	EN~, CHK+13, CHK+16, CHK1+12, CHK1+15
TIUCNT	EN1+1~, HD+7, SETLN+2, SETLN+10, BULL+2, BULL1+1, BULL1+5
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, NAM+2, NAM+6, RPT+5*, SETLN+5
TIUDAD	EN+1~, SETLN+5*, SETLN+6
TIUDFN	EN+1~, CHK+5*
TIUDONE	EN+1~, EN1+7, NAM+1, NAM+8
TIUDT	EN~, EN+9, EN+11, EN1+3, EN1+4, EN1+5, EN1+6, HD+3, INS+1
TIUEND	EN~, EN+15, EN1+5, HD+4, INS+2
TIUERR	EN+1~, EN2+1, ASK+6~, RPT+8, RPTX+1!, CSUM
TIUI	HD~, HD+7*
TIULN	SETLN+1~, SETLN+3, SETLN+4, SETLN+6, SETLN+8, SETLN+9, SETLN+10
TIUMSG	MSG~, MSG+1, MSG+2
TIUNAM	EN+1~, NAM+2, NAM+3, NAM+4, NAM+5*, SETLN+8
TIUND	EN+1~, NAM+7*, SETLN+8
TIUVAL	EN~, CHK+12, CHK+13, CHK+18, CHK1+11, CHK1+12, CHK1+17
TIUX	EN+1~, CHK+9, CHK+10, CHK+11, CHK1+8, CHK1+9, CHK1+10
U	EN+2*, CHK+4, CHK+5, CHK1+4, NAM+2, NAM+6, RPT+5
VA	RPTX+1!
VA("BID"	NAM+4
VA("PID"	SRHDR+2
VADM	RPTX+1!
VADM(1	NAM+4, NAM+5, SRHDR+2
VAINDT	RPTX+1!
X	CSUM~*
XMDUZ	BULL+1~, BULL+6, BULL1+2~, BULL1+7
XMMG	BULL+1~, BULL1+2~
XMSUB	BULL+1~, BULL+3, BULL+8!, BULL1+2~, BULL1+3, BULL1+9!
XMTEXT	BULL+1~, BULL+4, BULL+8!, BULL1+2~, BULL1+4, BULL1+9!
XMY	BULL+1~, BULL+3!, BULL+8!, BULL1+2~, BULL1+3!, BULL1+9!
XMY(	BULL+5, BULL1+6
XMZ	BULL+1~, BULL1+2~
>> XPDQUES	EN1+8, EN2, EN2+2, NAM+4, HD+6, SETLN+9
>> XPDQUES("POS1"	EN1+8, EN2, POS2, POS3
>> XPDQUES("POS2"	INS+1, POS3+1
>> XPDQUES("POS3"	INS+2
Y	STRT+11, STRT+12, EN+9, EN+15, NAM+6, NAM+7, ASK+4, SRHDR+1, HD~, HD+2* , HD+3, HD+4, CSUM~

Customize PDF page

Package: Text Integration Utility