Routine: TIUSROI

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

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

Used in RPC

RPC Name	Call Tags
TIU IS THIS A SURGERY?	ISSURG

FileMan Files Accessed Via FileMan Db Call

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

Label References

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

Naked Globals

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: