Routine: TIUSROI1

Package	Total	Call Graph
Text Integration Utility	10	($$PERSNAME,$$PNAME)^TIULC1 GETTIU^TIULD $$EMPTYDOC^TIULF $$DATE^TIULS ($$BELONGS,$$ISA)^TIULX DIK^TIURB2 $$RETRACT^TIURD2 ($$CLASS,$$GETCASE)^TIUSROI $$FROMTO^TIUSROI1 $$READ^TIUU
VA FileMan	2	$$FIND1^DIC ^DIE
Surgery	1	(ANES,NON,NURS,OS)^SROTIUD

Package	Total	Caller Graph
Text Integration Utility	4	TIURB2 TIUSROI TIUSROI1 ^TIU(8925.1

Entry Points

Name	Comments	DBIA/ICR reference
FROMTO(TIUODA,TIUDA,TIUTNM)	; Display the from/to information
ANES(TIUDA)	; Roll back ANESTHESIA REPORT when TIU changes require it
NURS(TIUDA)	; Roll back NURSE INTRAOPERATIVE REPORT when TIU changes require it
RETRACT(TIUDA)	;
CHANGE(TIUDA)	; Redirect the TIU Document to a different Surgical Case
ASKACT(TITLE)	; ask user to choose replace or swap
TITLE(TIUDA)	; resolve title of document
TYPE(TIUDA)	; identifies type of document (i.e., Op Report or Proc Report)
TARGET(TIUCASE)	; Get report ien for case
REPLACE(TIUDA1,TIUDA2)	; Replace TIUDA2 with TIUDA1
SWAP(TIUDA1,TIUDA2)	; Swap TIUDA1 with TIUDA2
RDSURG(SRODA,TIUDA)	; Redirect surgical case to new document
RDTIU(TIUDA,SRODA)	; Redirect document to new surgical case
SWAPCOMM(TIUDA1,TIUDA2)	; Swap the comments field for two TIU Documents

External References

Name	Field # of Occurrence
$$FIND1^DIC	RETRACT+3
^DIE	RDSURG+3, RDTIU+2, SWAPCOMM+3, SWAPCOMM+4
ANES^SROTIUD	ANES+3
NON^SROTIUD	REPLACE+20
NURS^SROTIUD	NURS+3
OS^SROTIUD	REPLACE+19
$$PERSNAME^TIULC1	FROMTO+15, FROMTO+16, FROMTO+17, FROMTO+18
$$PNAME^TIULC1	CHANGE+22
GETTIU^TIULD	FROMTO+2, FROMTO+3
$$EMPTYDOC^TIULF	CHANGE+26
$$DATE^TIULS	FROMTO+4, FROMTO+5, FROMTO+6, FROMTO+7
$$BELONGS^TIULX	RETRACT+3
$$ISA^TIULX	TYPE+4, TYPE+5, TARGET+6, TARGET+7
DIK^TIURB2	REPLACE+15
$$RETRACT^TIURD2	REPLACE+16
$$CLASS^TIUSROI	TYPE+2, TYPE+3, TARGET+2, TARGET+3
$$GETCASE^TIUSROI	CHANGE+5
$$FROMTO^TIUSROI1	CHANGE+23
$$READ^TIUU	FROMTO+21, CHANGE+9, CHANGE+13, CHANGE+19, CHANGE+25, CHANGE+28, CHANGE+34, CHANGE+37, CHANGE+41, ASKACT+6 , REPLACE+5, SWAP+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You are about to move the ",TIUTNM," as follows:",! Line Location: FROMTO+9
Function Call: WRITE	Prompt: !,?5,"From",?45,"To",! Line Location: FROMTO+10
Function Call: WRITE	Prompt: !,$P(TIUF("DOCTYP"),U,2),?35," --> ",?40,$P(TIUT("DOCTYP"),U,2) Line Location: FROMTO+11
Function Call: WRITE	Prompt: !,TIUF("PNM")," ",TIUF("PID"),?35," --> ",?40,TIUT("PNM")," ",TIUT("PID") Line Location: FROMTO+12
Function Call: WRITE	Prompt: !,TIUFEDT,$S(+TIUFLDT:" - "_TIUFLDT,1:""),?35," --> " Line Location: FROMTO+13
Function Call: WRITE	Prompt: ?40,TIUTEDT,$S(+TIUTLDT:" - "_TIUTLDT,1:""),! Line Location: FROMTO+14
Function Call: WRITE	Prompt: !," Surgeon: ",$$PERSNAME^TIULC1(+$P(TIUF12,U,2)),?35," --> " Line Location: FROMTO+15
Function Call: WRITE	Prompt: ?40,$$PERSNAME^TIULC1(+$P(TIUF12,U,2)) Line Location: FROMTO+16
Function Call: WRITE	Prompt: !," Attending: ",$$PERSNAME^TIULC1(+$P(TIUF12,U,9)),?35," --> " Line Location: FROMTO+17
Function Call: WRITE	Prompt: ?40,$$PERSNAME^TIULC1(+$P(TIUT12,U,9)) Line Location: FROMTO+18
Function Call: WRITE	Prompt: !,"Surg. Case #: ",+$P($G(^TIU(8925,TIUODA,14)),U,5),?35," --> " Line Location: FROMTO+19
Function Call: WRITE	Prompt: ?40,+$P($G(^TIU(8925,TIUDA,14)),U,5),! Line Location: FROMTO+20
Function Call: WRITE	Prompt: ! Line Location: CHANGE+5
Function Call: WRITE	Prompt: !!,$C(7),"Okay, no harm done...",! Line Location: CHANGE+8
Function Call: WRITE	Prompt: !!,$C(7),"You've selected the original case. No changes made.",! Line Location: CHANGE+12
Function Call: WRITE	Prompt: !!,$C(7),"Incompatible document type. No changes made.",! Line Location: CHANGE+18
Function Call: WRITE	Prompt: !!,"Aborting Transaction, No Harm Done...",! Line Location: CHANGE+24
Function Call: WRITE	Prompt: !!,"Moving document ",TIUDA," to Surgical Case #",+SROVP,"...",! Line Location: CHANGE+27
Function Call: WRITE	Prompt: !!,"Great. No harm done.",! Line Location: CHANGE+33
Function Call: WRITE	Prompt: !!,"Replacing ",$$TITLE(TIUNDA)," on Surgical Case #",+SROVP,"...",! Line Location: CHANGE+36
Function Call: WRITE	Prompt: !!,"Swapping with ",$$TITLE(TIUNDA)," on Surgical Case #",+SROVP,"...",! Line Location: CHANGE+40
Function Call: WRITE	Prompt: !!,"Please choose the appropriate action for this "_TITLE_":" Line Location: ASKACT+2
Function Call: WRITE	Prompt: !!,$C(7),"The two documents are of different types. No changes made.",! Line Location: REPLACE+4
Function Call: WRITE	Prompt: !!,$C(7),"The two documents are of different types. No changes made.",! Line Location: SWAP+4
Routine Call	DIC Line Location: RETRACT+3
Routine Call	DIE Line Location: RDSURG+3 RDTIU+2 SWAPCOMM+3 SWAPCOMM+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^TIU(8925.1 - [#8925.1]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	FROMTO+8, FROMTO+19, FROMTO+20, ANES+1, NURS+1, CHANGE+2, TITLE+1, TYPE+4, TYPE+5, TARGET+4 , TARGET+5, TARGET+6, TARGET+7, REPLACE+2, REPLACE+6, REPLACE+7, SWAP+2, SWAP+6, SWAP+7, SWAPCOMM+2
^TIU(8925.1 - [#8925.1]	TITLE+1

Label References

Name	Line Occurrences
$$ASKACT	CHANGE+31
$$TARGET	CHANGE+15
$$TITLE	CHANGE+31, CHANGE+36, CHANGE+40
$$TYPE	CHANGE+17, REPLACE+18, RDSURG+1
@(	RETRACT+6
RDSURG	REPLACE+13, SWAP+13, SWAP+15
RDTIU	REPLACE+11, SWAP+9, SWAP+11
REPLACE	CHANGE+29, CHANGE+38
SWAP	CHANGE+42
SWAPCOMM	REPLACE+9, SWAP+17

Naked Globals

Name	Field # of Occurrence
^(14	CHANGE+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	RETRACT+1~, RETRACT+3*, RETRACT+4
COMM1	SWAPCOMM+1~, SWAPCOMM+2*
COMM2	SWAPCOMM+1~, SWAPCOMM+2*
DA	RDSURG+1~, RDSURG+2, RDTIU+1~, RDTIU+2, SWAPCOMM+1~, SWAPCOMM+3, SWAPCOMM+4
DFN	CHANGE+1~, CHANGE+3*, CHANGE+5
DIE	RDSURG+1~, RDSURG+2, RDTIU+1~, RDTIU+2, SWAPCOMM+1~, SWAPCOMM+3, SWAPCOMM+4
DR	RDSURG+1~, RDSURG+2, RDSURG+3, RDTIU+1~, RDTIU+2, SWAPCOMM+1~, SWAPCOMM+3, SWAPCOMM+4*
SRODA	ANES+1~, ANES+2, ANES+3, NURS+1~, NURS+2, NURS+3, RDSURG~, RDSURG+2, RDTIU~, RDTIU+1
SRODA1	REPLACE+1~, REPLACE+6, REPLACE+19, REPLACE+20, SWAP+1~, SWAP+6, SWAP+11, SWAP+13
SRODA2	REPLACE+1~, REPLACE+7, REPLACE+11, REPLACE+13, SWAP+1~, SWAP+7, SWAP+9, SWAP+15
SROVP	CHANGE+1~, CHANGE+2, CHANGE+5, CHANGE+7, CHANGE+11, CHANGE+15, CHANGE+27, CHANGE+36, CHANGE+40, RDTIU+1~*
TITLE	RETRACT+1~, RETRACT+3*, ASKACT~, ASKACT+2
TIUACT	RETRACT+1~, RETRACT+4, RETRACT+5, RETRACT+6, CHANGE+1~, CHANGE+31, CHANGE+32, CHANGE+35, CHANGE+39
TIUCASE	TARGET~, TARGET+4
TIUCOR	TYPE+1~, TYPE+2, TYPE+4, TARGET+1~, TARGET+2, TARGET+6
TIUCPR	TYPE+1~, TYPE+3, TYPE+5, TARGET+1~, TARGET+3, TARGET+7
TIUD0	CHANGE+1~, CHANGE+2*, CHANGE+3, CHANGE+21
TIUD01	REPLACE+1~, REPLACE+2, REPLACE+3, SWAP+1~, SWAP+2, SWAP+3
TIUD02	REPLACE+1~, REPLACE+2, REPLACE+3, REPLACE+15, SWAP+1~, SWAP+2, SWAP+3
TIUD14	CHANGE+1~, CHANGE+2*, CHANGE+11
TIUD141	REPLACE+1~, REPLACE+6, SWAP+1~, SWAP+6
TIUD142	REPLACE+1~, REPLACE+7, SWAP+1~, SWAP+7
TIUDA	FROMTO~, FROMTO+3, FROMTO+8, FROMTO+20, ANES~, ANES+1, NURS~, NURS+1, RETRACT~, RETRACT+3 , CHANGE~, CHANGE+2, CHANGE+17, CHANGE+23, CHANGE+27, CHANGE+29, CHANGE+38, CHANGE+42, TITLE~, TITLE+1 , TYPE~, TYPE+4, TYPE+5, RDSURG~, RDSURG+1, RDTIU~, RDTIU+2
TIUDA1	REPLACE~, REPLACE+2, REPLACE+6, REPLACE+9, REPLACE+11, REPLACE+13, REPLACE+18, SWAP~, SWAP+2, SWAP+6 , SWAP+9, SWAP+15, SWAP+17, SWAPCOMM~, SWAPCOMM+2, SWAPCOMM+3
TIUDA2	REPLACE~, REPLACE+2, REPLACE+7, REPLACE+9, REPLACE+15, REPLACE+16*, SWAP~, SWAP+2, SWAP+7, SWAP+11 , SWAP+13, SWAP+17, SWAPCOMM~, SWAPCOMM+2, SWAPCOMM+4
TIUDATA	RETRACT+1~, RETRACT+2*, RETRACT+3
TIUF	FROMTO+1~, FROMTO+2
TIUF("DOCTYP"	FROMTO+11
TIUF("EDT"	FROMTO+4
TIUF("LDT"	FROMTO+5
TIUF("PID"	FROMTO+12
TIUF("PNM"	FROMTO+12
TIUF12	FROMTO+1~, FROMTO+8*, FROMTO+15, FROMTO+16, FROMTO+17
TIUFEDT	FROMTO+1~, FROMTO+4*, FROMTO+13
TIUFLDT	FROMTO+1~, FROMTO+5*, FROMTO+13
TIUI	TARGET+1~, TARGET+4, TARGET+5, TARGET+6, TARGET+7
TIUNDA	CHANGE+1~, CHANGE+15, CHANGE+17, CHANGE+23, CHANGE+26, CHANGE+29, CHANGE+31, CHANGE+36, CHANGE+38, CHANGE+40 , CHANGE+42, TARGET+1~, TARGET+4, TARGET+6, TARGET+7, TARGET+8
TIUNODEL	REPLACE+1~, REPLACE+16*
TIUODA	FROMTO~, FROMTO+2, FROMTO+8, FROMTO+19
TIUSET	ASKACT+1~, ASKACT+3, ASKACT+4, ASKACT+5*, ASKACT+6
TIUT	FROMTO+1~, FROMTO+3
TIUT("DOCTYP"	FROMTO+11
TIUT("EDT"	FROMTO+6
TIUT("LDT"	FROMTO+7
TIUT("PID"	FROMTO+12
TIUT("PNM"	FROMTO+12
TIUT12	FROMTO+1~, FROMTO+8*, FROMTO+18
TIUTEDT	FROMTO+1~, FROMTO+6*, FROMTO+14
TIUTLDT	FROMTO+1~, FROMTO+7*, FROMTO+14
TIUTNM	FROMTO~, FROMTO+9, CHANGE+22*, CHANGE+23
TIUTYP	CHANGE+21, CHANGE+22, RDSURG+1~, RDSURG+2
TIUTYPE	REPLACE+1~, REPLACE+18*, REPLACE+19, REPLACE+20
TIUY	ASKACT+1~, ASKACT+6, ASKACT+7, TYPE+1~, TYPE+4, TYPE+5*, TYPE+6
U	FROMTO+4, FROMTO+5, FROMTO+6, FROMTO+7, FROMTO+11, FROMTO+15, FROMTO+16, FROMTO+17, FROMTO+18, FROMTO+19 , FROMTO+20, ANES+1, NURS+1, RETRACT+3, CHANGE+2, CHANGE+3, CHANGE+11, CHANGE+32, CHANGE+35, CHANGE+39 , TITLE+1, TARGET+5, REPLACE+6, REPLACE+7, REPLACE+15, SWAP+6, SWAP+7

Customize PDF page

Package: Text Integration Utility

Routine: TIUSROI1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: