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: TIURD1

Package: Text Integration Utility

Routine: TIURD1


Information

TIURD1 ; SLC/JER - Reassign actions ;4/18/03

Source Information

Source file <TIURD1.m>

Entry Points

Name Comments DBIA/ICR reference
MOVEADD(TIUDA) ; Move an addendum to another document
ABORT ; Recover on abort
PROMOTE(TIUDA) ; Promote addendum
REPLACE(TIUDA) ; Replace original with addendum
SWAPADD(TIUDA) ; Swap addendum with original
SWAPFLDS(TIUODA,TIUADA,SWAP) ; Move Identifier fields

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No PATIENT Selected: Aborting Transaction, No Harm Done...",!
  • Line Location: MOVEADD+7
Function Call: WRITE
  • Prompt: !,"Moving signed document to another Patient...A RETRACTED copy will be retained."
  • Line Location: MOVEADD+12
Function Call: WRITE
  • Prompt: !!,$C(7),"You may not assign an addendum to an addendum...",!
  • Line Location: MOVEADD+19
Function Call: WRITE
  • Prompt: "."
  • Line Location: MOVEADD+35
Function Call: WRITE
  • Prompt: !!,"Okay...No Harm done!"
  • Line Location: ABORT+1
Function Call: WRITE
  • Prompt: !!,"Restoring Addendum to original state..."
  • Line Location: PROMOTE+11
Function Call: WRITE
  • Prompt: !!,"ADDENDUM Promoted to be an ORIGINAL ",$$PNAME^TIULC1(TIUTYPE)
  • Line Location: PROMOTE+23
Function Call: WRITE
  • Prompt: !!,$C(7),"This is an IRREVERSIBLE action..."
  • Line Location: REPLACE+2
Function Call: WRITE
  • Prompt: !,"No changes made."
  • Line Location: REPLACE+4
Function Call: WRITE
  • Prompt: !,"Okay, here we go then..."
  • Line Location: REPLACE+5
Function Call: WRITE
  • Prompt: !!,"A RETRACTED copy of the signed ORIGINAL will be retained.",!
  • Line Location: REPLACE+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: REPLACE+16
Function Call: WRITE
  • Prompt: "."
  • Line Location: REPLACE+19
Function Call: WRITE
  • Prompt: "."
  • Line Location: REPLACE+22
Function Call: WRITE
  • Prompt: "...Done."
  • Line Location: REPLACE+31
Function Call: WRITE
  • Prompt: !!,$C(7),"Don't worry...This is a REVERSIBLE action."
  • Line Location: SWAPADD+3
Function Call: WRITE
  • Prompt: !,"No changes made."
  • Line Location: SWAPADD+5
Function Call: WRITE
  • Prompt: !,"Okay, you can always swap 'em back"
  • Line Location: SWAPADD+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: SWAPADD+12
Function Call: WRITE
  • Prompt: "."
  • Line Location: SWAPADD+14
Function Call: WRITE
  • Prompt: "."
  • Line Location: SWAPADD+17
Function Call: WRITE
  • Prompt: "."
  • Line Location: SWAPADD+20
Function Call: WRITE
  • Prompt: "."
  • Line Location: SWAPADD+24
Function Call: WRITE
  • Prompt: "."
  • Line Location: SWAPADD+27
Function Call: WRITE
  • Prompt: "...Done."
  • Line Location: SWAPADD+35

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call