Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: TIUSROI1

Package: Text Integration Utility

Routine: TIUSROI1


Information

TIUSROI1 ; SLC/JER - Reassign actions ; 04/19/2004

Source Information

Source file <TIUSROI1.m>

Call Graph

Call Graph

Call Graph Total: 13

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Text Integration Utility 3 TIURB2  TIUSROI  TIUSROI1  

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All