Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.1 - [#8925.1] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call