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
Print Page as PDF
Routine: TIURD

Package: Text Integration Utility

Routine: TIURD


Information

TIURD ; SLC/JER - Reassign actions ;4/25/05

Source Information

Source file <TIURD.m>

Entry Points

Name Comments DBIA/ICR reference
REASSIGN ; Reassign selected Documents
REASSIG1 ; Single record reassign
REASS1X
REASSIGO ; Reassign an original Document
REASSIGA ;Reassign an Addendum to an original DS
CLAPPLNK ; Re-link selected Documents to different Client Records
CLAPPLN1(TIUDA) ; Re-link a single record to the client application
CANTSURG(TIUDA) ; If TIUDA is surg docmt, write can't do this action and

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Processing Item #",TIUI,"..."
  • Line Location: REASSIGN+8
Function Call: WRITE
  • Prompt: !!,$C(7),"Ok, no harm done...",!
  • Line Location: REASSIGN+11
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),$C(7),$P(TIUVIEW,U,2),!
  • Line Location: REASSIGN+16
Function Call: WRITE
  • Prompt: ""
  • Line Location: REASSIGN+17
Function Call: WRITE
  • Prompt: !?5,$C(7),$C(7),$C(7),"Another user is editing this entry."
  • Line Location: REASSIG1+6
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),$C(7),$P(TIURSSG,U,2),!
  • Line Location: REASSIG1+18
Function Call: WRITE
  • Prompt: ""
  • Line Location: REASSIG1+19
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: REASSIG1+25
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"The status of this document is: ",$$UP^XLFSTR($$STATUS^TIULC(TIUDA))
  • Line Location: REASSIG1+29
Function Call: WRITE
  • Prompt: !
  • Line Location: REASSIG1+31
Function Call: WRITE
  • Prompt: !,"Please choose the appropriate action for this Addendum:"
  • Line Location: REASSIGA+2
Function Call: WRITE
  • Prompt: !!,"Processing Item #",TIUI,"..."
  • Line Location: CLAPPLNK+9
Function Call: WRITE
  • Prompt: !!,$C(7),"Document no longer exists.",!
  • Line Location: CLAPPLN1+3
Function Call: WRITE
  • Prompt: ""
  • Line Location: CLAPPLN1+4
Function Call: WRITE
  • Prompt: !!,$C(7),"Links for ADDENDA can't be independently changed.",!
  • Line Location: CLAPPLN1+10
Function Call: WRITE
  • Prompt: ""
  • Line Location: CLAPPLN1+11
Function Call: WRITE
  • Prompt: !!,$C(7),"No PACKAGE REASSIGNMENT ACTION Defined.",!
  • Line Location: CLAPPLN1+14
Function Call: WRITE
  • Prompt: ""
  • Line Location: CLAPPLN1+15
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"You must first detach interdisciplinary entries",!
  • Line Location: CLAPPLN1+18
Function Call: WRITE
  • Prompt: ""
  • Line Location: CLAPPLN1+19
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),$P(CANLNK,U,2),!
  • Line Location: CLAPPLN1+22
Function Call: WRITE
  • Prompt: ""
  • Line Location: CLAPPLN1+23
Function Call: WRITE
  • Prompt: !,"This action is no longer permitted for SURGICAL REPORTS"
  • Line Location: CANTSURG+9
Info |  Source |  Entry Points |  Interaction Calls