Routine: TIUSROI

Call Graph

Call Graph Total: 19

Package	Total	Call Graph
Text Integration Utility	15	(ALERTDEL,SEND)^TIUALRT MERGTEXT^TIUEDI1 ($$DELETE,$$ISADDNDM,$$PNAME,$$PTNAME)^TIULC1 GETTIU^TIULD ($$DATE,$$SIGNAME,$$SIGTITL)^TIULS $$ISA^TIULX BROWS1^TIURA2 AUDREASS^TIURB1 COPYTEXT^TIURC1 $$RETRACT^TIURD2 ES^TIURS ($$GETCASE,ISSURG)^TIUSROI ($$FROMTO,$$TARGET,$$TYPE,CHANGE)^TIUSROI1 FILE^TIUSRVP $$READ^TIUU
Surgery	2	LIST^SROESTV (NON,OS)^SROTIUD
VA Fileman	2	IX^DIC $$GET1^DIQ

Package	Total	Caller Graph
Text Integration Utility	12	TIUEDIM TIUEDIT TIUEDITR TIULP3 TIUPUTS TIURB2 TIURD TIURD3 TIUSROI TIUSROI1 TIUSRVD TIUSRVR
Surgery	3	SROARPT SROESAD SRONIN

Package

Total

Caller Graph

Text Integration Utility

TIUEDIM TIUEDIT TIUEDITR TIULP3 TIUPUTS TIURB2 TIURD TIURD3
TIUSROI TIUSROI1 TIUSRVD TIUSRVR

Surgery

SROARPT SROESAD SRONIN

Entry Points

Name	Comments	DBIA/ICR reference
WRITE	; Writes each case
AGN	; Loop for handling repeated attempts
GETOP(TIUY,TIUDA,SROTYP)	; Get Op-Top
RBOR(TIUDA)	; Roll back OPERATION REPORT when TIU changes require it
SELOPX
CLASS(CLNAME)	; What is the TIU Class (or Document Class) for SURGERY REPORTS
INDEX(TIULIST)	; Build index of list
ES(TIUDA,TIUDUZ)	; Apply user's e-Sig to Document
GETCASE(DFN,DA)	; Match Operation Report to an open Surgical Case ; Call with: [DFN] - patient file entry number ; Returns: TIUY - Variable pointer to Surgical Case
DADSC(DA)	; Get the Surgical Case associated with the parent record
GETX
REASSOPX
RBPR(TIUDA)	; Roll back NON-O.R. PROC REPORT when TIU changes require it
SELOP(DFN,TIUTYP,TIUSCRN)	; Select an Op or Proc Report
REASSOP(DFN,TIUODA)	; Re-direct REASSIGNMENT of Op and Proc Reports
AUTHSTAT(TIUDA,TIUODA,TIUD12)	; Copy Author, update status
ISSURG(TIUY,TITLE)	; Boolean RPC to evaluate whether TITLE is a SURGERY REPORT
ENTEROP(DFN,TIUTYP)	; Re-direct entry of Op and Proc Reports
BREAK	; Handle prompting

External References

Name	Field # of Occurrence
IX^DIC	ENTEROP+18, SELOP+14
$$GET1^DIQ	REASSOP+6, REASSOP+7
LIST^SROESTV	AGN+7
NON^SROTIUD	RBPR+3
OS^SROTIUD	RBOR+2
ALERTDEL^TIUALRT	REASSOP+69
SEND^TIUALRT	REASSOP+67
MERGTEXT^TIUEDI1	REASSOP+53
$$DELETE^TIULC1	REASSOP+59
$$ISADDNDM^TIULC1	AGN+5, REASSOP+6
$$PNAME^TIULC1	ENTEROP+2, REASSOP+5, SELOP+3
$$PTNAME^TIULC1	AGN+10
GETTIU^TIULD	REASSOP+52
$$DATE^TIULS	WRITE+1
$$SIGNAME^TIULS	ES+3
$$SIGTITL^TIULS	ES+3
$$ISA^TIULX	ISSURG+5
BROWS1^TIURA2	ENTEROP+23
AUDREASS^TIURB1	REASSOP+72, REASSOP+74
COPYTEXT^TIURC1	REASSOP+49
$$RETRACT^TIURD2	REASSOP+45
ES^TIURS	ES+4
$$GETCASE^TIUSROI	REASSOP+16
ISSURG^TIUSROI	AGN+6
$$FROMTO^TIUSROI1	REASSOP+38
$$TARGET^TIUSROI1	REASSOP+25
$$TYPE^TIUSROI1	REASSOP+27
CHANGE^TIUSROI1	REASSOP+3
FILE^TIUSRVP	REASSOP+65, AUTHSTAT+5
$$READ^TIUU	GETOP+10, ENTEROP+6, ENTEROP+14, ENTEROP+21, REASSOP+8, REASSOP+14, REASSOP+19, REASSOP+23, REASSOP+29, REASSOP+32 , REASSOP+36, REASSOP+40, SELOP+8, SELOP+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETOP+10
Function Call: WRITE	Prompt: !,"This action is no longer permitted for SURGICAL REPORTS" Line Location: AGN+6
Function Call: WRITE	Prompt: !!,$C(7),"No SURGICAL CASES to Result for ",$$PTNAME^TIULC1(DFN),".",! Line Location: AGN+10
Function Call: WRITE	Prompt: !,"You must link your Result to a SURGICAL CASE...",! Line Location: AGN+13
Function Call: WRITE	Prompt: !,"The following SURGICAL CASE",$S(+TIUCNT>1:"(S) are",1:" is")," available:" Line Location: AGN+16
Function Call: WRITE	Prompt: " ",+TIUX Line Location: AGN+26
Function Call: WRITE	Prompt: !,"CHOOSE 1-",TIUII Line Location: BREAK+1
Function Call: WRITE	Prompt: !,"<RETURN> TO CONTINUE",!,"OR '^' TO QUIT" Condition for execution: $D(@TIULIST@(TIUII+1)) Line Location: BREAK+1
Function Call: WRITE	Prompt: ": " Line Location: BREAK+1
Function Call: WRITE	Prompt: !!,$C(7),"INVALID RESPONSE",! Line Location: BREAK+5
Function Call: WRITE	Prompt: !,$J(TIUI,4),"> ",$$DATE^TIULS($P(TIUX,U,3),"AMTH DD, CCYY") Line Location: WRITE+1
Function Call: WRITE	Prompt: " Case #",$P(TIUX,U),?34,$E($P(TIUX,U,2),1,25),?60,$E($P($P(TIUX,U,4),";",2),1,20) Line Location: WRITE+2
Function Call: WRITE	Prompt: !!,TIUTNM,"s may only be entered through the Surgery Options.",! Line Location: ENTEROP+5
Function Call: WRITE	Prompt: ! Line Location: ENTEROP+7
Function Call: WRITE	Prompt: !!,"No Patient Specified...",! Line Location: ENTEROP+13
Function Call: WRITE	Prompt: ! Line Location: ENTEROP+15
Function Call: WRITE	Prompt: ! Line Location: ENTEROP+17
Function Call: WRITE	Prompt: ! Line Location: ENTEROP+22
Function Call: WRITE	Prompt: ! Line Location: ENTEROP+24
Function Call: WRITE	Prompt: !!,"ADDENDUMs to ",$$GET1^DIQ(8925,TIUODA,.06),"s may not be reassigned.",! Line Location: REASSOP+7
Function Call: WRITE	Prompt: ! Line Location: REASSOP+9
Function Call: WRITE	Prompt: !!,TIUTNM,"s may only be created through the Surgery Options..." Line Location: REASSOP+12
Function Call: WRITE	Prompt: !,"Reassignment is not allowed.",! Line Location: REASSOP+13
Function Call: WRITE	Prompt: ! Line Location: REASSOP+15
Function Call: WRITE	Prompt: ! Line Location: REASSOP+16
Function Call: WRITE	Prompt: !!,$C(7),"Okay, no harm done...",! Line Location: REASSOP+18
Function Call: WRITE	Prompt: !!,$C(7),"You've selected the original case. No changes made.",! Line Location: REASSOP+22
Function Call: WRITE	Prompt: !!,$C(7),"Incompatible document type. No changes made.",! Line Location: REASSOP+28
Function Call: WRITE	Prompt: !!,"No Destination Document Selected: Aborting Transaction,",!," No Harm Done...",! Line Location: REASSOP+31
Function Call: WRITE	Prompt: !!,$C(7),"You've selected the original case. No changes made.",! Line Location: REASSOP+35
Function Call: WRITE	Prompt: !!,"Aborting Transaction, No Harm Done...",! Line Location: REASSOP+39
Function Call: WRITE	Prompt: !!,TIUMSG,!,"A RETRACTED copy will be retained.",! Line Location: REASSOP+44
Function Call: WRITE	Prompt: !!,"No Patient Specified...",! Line Location: SELOP+7
Function Call: WRITE	Prompt: ! Line Location: SELOP+9
Function Call: WRITE	Prompt: ! Line Location: SELOP+11
Function Call: WRITE	Prompt: !!,"No "_TIUTNM Line Location: SELOP+16
Function Call: WRITE	Prompt: ! Line Location: SELOP+19
Routine Call	DIC Line Location: ENTEROP+18 SELOP+14

RPC Name	Call Tags
TIU IS THIS A SURGERY?	ISSURG

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	AGN+25*, BREAK+4
^TIU(8925 - [#8925]	GETOP+2, AGN+4, AGN+6, DADSC+1, DADSC+2, RBOR+1, RBPR+1, ES+2, ENTEROP+20, REASSOP+2 , REASSOP+21, REASSOP+49!, REASSOP+50, REASSOP+54!, REASSOP+63!, REASSOP+71, SELOP+17
^TIU(8925.1 - [#8925.1]	CLASS+1, CLASS+2
^TMP("SRNOR"	GETOP+3
^TMP("SROP"	GETOP+3

Name	Line Occurrences
$$CLASS	ISSURG+3
$$DADSC	AGN+5
@(	GETOP+5
AGN	AGN+15
AUTHSTAT	REASSOP+47
BREAK	AGN+20, AGN+23, BREAK+5
GETX	AGN+3
INDEX	AGN+14
REASSOPX	REASSOP+6, REASSOP+11, REASSOP+30, REASSOP+34, REASSOP+38
SELOPX	SELOP+6
WRITE	AGN+20

Name	Field # of Occurrence
^(	BREAK+4
^(0	CLASS+2, SELOP+17
^(12	REASSOP+2, REASSOP+71
^(14	AGN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	ENTEROP+10~, SELOP+1~
CLNAME	CLASS~, CLASS+1
D	ENTEROP+10~, ENTEROP+16, SELOP+1~, SELOP+10
D0	ENTEROP+10~, SELOP+1~
DA	GETCASE~, AGN+3, AGN+4, AGN+5, DADSC~, DADSC+1, ENTEROP+10~, SELOP+1~
DFN	GETCASE~, AGN+2, AGN+7, AGN+10, AGN+25, BREAK+4, ENTEROP~, ENTEROP+11, REASSOP~, REASSOP+3 , REASSOP+16, REASSOP+43, SELOP~, SELOP+5, SELOP+17
DIC	ENTEROP+10~, ENTEROP+16, SELOP+1~, SELOP+10
DIC("S"	ENTEROP+17, SELOP+13
DIC("W"	ENTEROP+17, SELOP+12
DIC(0	ENTEROP+16, SELOP+10
>> DIROUT	ENTEROP+9
DK	ENTEROP+10~, SELOP+1~
DL	ENTEROP+10~, SELOP+1~
DTIME	BREAK+1
DTOUT	SELOP+1~
DUOUT	ENTEROP+9, SELOP+1~
DUZ	AGN+25, BREAK+4, ES+1
DX	ENTEROP+10~, SELOP+1~
IOST	GETOP+7
S	ENTEROP+10~, SELOP+1~
SEEOP	GETOP+8~, GETOP+9, GETOP+10
SRODA	RBOR+1~, RBOR+2, RBPR+1~, RBPR+2, RBPR+3
SROTYP	GETOP~, GETOP+2*, GETOP+3, GETOP+5
SROVP	GETOP+1~, GETOP+2, GETOP+3, GETOP+4, REASSOP+16, REASSOP+17, REASSOP+21, REASSOP+25
SUCCESS	ENTEROP+1~, REASSOP+62~, REASSOP+65, AUTHSTAT+1~, AUTHSTAT+5
TITLE	ISSURG~, ISSURG+5
TIU	REASSOP+51~, REASSOP+52, REASSOP+53
TIUBUF	ENTEROP+1~
>> TIUCHNG	REASSOP+75*
TIUCLASS	ISSURG+1~, ISSURG+3*, ISSURG+4, ISSURG+5
TIUCNT	AGN+1~, AGN+11, AGN+12, AGN+16
TIUD0	ENTEROP+1~, REASSOP+1~, REASSOP+72, REASSOP+74
TIUD0(0	REASSOP+2*, REASSOP+3, REASSOP+4, REASSOP+42, REASSOP+43, REASSOP+56, REASSOP+59, REASSOP+61
TIUD0(1	REASSOP+71*
TIUD12	REASSOP+1~, REASSOP+47, REASSOP+72, REASSOP+74, AUTHSTAT~
TIUD12(0	REASSOP+2*, AUTHSTAT+4
TIUD12(1	REASSOP+71*
TIUDA	GETOP~, GETOP+2, AGN+6, RBOR~, RBOR+1, RBPR~, RBPR+1, ES~, ES+2, ES+4 , ENTEROP+1~, REASSOP+1~, REASSOP+10, REASSOP+25, REASSOP+27, REASSOP+30, REASSOP+34, REASSOP+38, REASSOP+47, REASSOP+49 , REASSOP+50, REASSOP+52, REASSOP+53, REASSOP+54, REASSOP+57~, REASSOP+58*, REASSOP+67, REASSOP+71, REASSOP+72, AUTHSTAT~ , AUTHSTAT+5
TIUDADA	DADSC+1~*, DADSC+2
TIUDELX	REASSOP+57~, REASSOP+59*, REASSOP+60
TIUDUZ	ES~, ES+1*, ES+3
TIUER	AGN+1~, AGN+15, AGN+17, AGN+18, AGN+22, AGN+24, BREAK+2
TIUES	ES+1~, ES+3*, ES+4
>> TIUEVNT	GETOP+9
TIUFPRIV	ENTEROP+10~, SELOP+1~
TIUI	AGN+1~, AGN+11, AGN+17, AGN+18, AGN+19, AGN+20, WRITE+1, INDEX+1~, INDEX+2, INDEX+3 , ISSURG+1~, ISSURG+2, ISSURG+3
TIUII	AGN+1~, AGN+19*, AGN+23, BREAK+1, BREAK+2
TIULIST	AGN+1~, AGN+7, AGN+9, AGN+11, AGN+14, AGN+18, AGN+19, AGN+25, GETX, BREAK+1 , BREAK+2, BREAK+4, BREAK+5, INDEX~, INDEX+2, INDEX+3
TIUMLST	AGN+1~
TIUMSG	REASSOP+43~*, REASSOP+44
TIUMTSTR	AGN+1~
TIUODA	REASSOP~, REASSOP+2, REASSOP+3, REASSOP+6, REASSOP+7, REASSOP+21, REASSOP+27, REASSOP+34, REASSOP+38, REASSOP+45 , REASSOP+47, REASSOP+49, REASSOP+58, REASSOP+63, REASSOP+65, REASSOP+69, REASSOP+74, AUTHSTAT~, AUTHSTAT+3
TIUOK	AGN+1~, AGN+17, AGN+18, AGN+25, BREAK+4, BREAK+6*
TIUOUT	AGN+1~, AGN+2, AGN+15, AGN+21, AGN+22, AGN+23, AGN+24, ENTEROP+9, ENTEROP+15, ENTEROP+22* , ENTEROP+24, REASSOP+9, REASSOP+15*
TIUPRM0	ENTEROP+1~
TIUPRM1	ENTEROP+1~
TIURTCT	REASSOP+43~, REASSOP+45*
TIUSCRN	REASSOP+1~, SELOP~, SELOP+4*, SELOP+13
TIUTNM	ENTEROP+1~, ENTEROP+2, ENTEROP+4, ENTEROP+5, ENTEROP+20, REASSOP+1~, REASSOP+5, REASSOP+11, REASSOP+12, REASSOP+38 , SELOP+1~, SELOP+3*, SELOP+16
TIUTYP	ENTEROP~, ENTEROP+2, REASSOP+1~, REASSOP+4*, REASSOP+5, SELOP~, SELOP+3, SELOP+17
TIUX	AGN+1~, AGN+3, AGN+4, AGN+5, AGN+19, AGN+25, AGN+26, GETX, BREAK+4*, WRITE+1 , WRITE+2, ENTEROP+1~, REASSOP+62~, REASSOP+65, AUTHSTAT+1~, AUTHSTAT+5
TIUX(	REASSOP+64, AUTHSTAT+2
TIUX(1202	AUTHSTAT+4*
TIUX(1406	AUTHSTAT+3*
TIUY	GETOP~, GETOP+3, GETOP+6, GETOP+7, GETOP+11, GETOP+12, AGN+1~, AGN+6, GETX, GETX+1 , DADSC+1~, DADSC+2, DADSC+3, ISSURG~, ISSURG+1, ISSURG+2, ISSURG+5, CLASS+1~, CLASS+2, CLASS+3 , SELOP+1~, SELOP+2, SELOP+20*, SELOPX
U	GETOP+2, AGN+4, DADSC+1, DADSC+2, WRITE+1, WRITE+2, RBOR+1, RBPR+1, CLASS+2, ES+3 , REASSOP+3, REASSOP+21, REASSOP+42, REASSOP+43, REASSOP+56, REASSOP+61, AUTHSTAT+4
X	AGN+1~, BREAK+1, BREAK+2, BREAK+3, BREAK+4, BREAK+5, BREAK+6, ENTEROP+10~, ENTEROP+11, ENTEROP+12 , ENTEROP+20, SELOP+1~, SELOP+5*, SELOP+6
>> XQADATA	GETOP+9
>> XWBOS	GETOP+7, GETOP+12
Y	ENTEROP+10~, ENTEROP+19, ENTEROP+23, SELOP+1~, SELOP+15, SELOP+20
>> ZTQUEUED	GETOP+7

Customize PDF page

Package: Text Integration Utility

Routine: TIUSROI

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: