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

Package: Text Integration Utility

Routine: TIURC1


Information

TIURC1 ; SLC/JER - Additional Review screen actions ;4/13/05

Source Information

Source file <TIURC1.m>

Entry Points

Name Comments DBIA/ICR reference
COPY ; Copy
COPY1 ; Copy a document
CHKTITLE(TIUTYP) ; Title Status
AGAIN() ; Ask again?
COPY0(DA,TIUD0,TIU) ; Copy 0-node
COPY12(DA,TIUD0,TIUD12,TIU) ; Copy 12-node
COPY13(DA,TIUD13,TIU) ; Copy 13-node
COPY14(DA,TIUD14,TIU) ; Copy 14-node
COPY17(DA,TIUD17) ; Copy Subject
COPYTEXT(TIUDA,DA) ; Copy text

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"Ok, no harm done...",!
  • Line Location: COPY+10
Function Call: WRITE
  • Prompt: !!,$C(7),$P(TIUVIEW,U,2),!
  • Line Location: COPY+14
Function Call: WRITE
  • Prompt: !,$C(7),"ADDENDA may not be copied."
  • Line Location: COPY1+5
Function Call: WRITE
  • Prompt: ""
  • Line Location: COPY1+6
Function Call: WRITE
  • Prompt: !!,$C(7),$P(TIUCOPY,U,2),!
  • Line Location: COPY1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: COPY1+18
Function Call: WRITE
  • Prompt: !,$C(7),$P(TIUDOC0,U,3)," is an inactive title."
  • Line Location: COPY1+20
Function Call: WRITE
  • Prompt: !,"You must now select a new, active title BEFORE the note is copied:",!
  • Line Location: COPY1+21
Function Call: WRITE
  • Prompt: !!,"Please Choose One or More Patients for whom the document should be copied:",!
  • Line Location: COPY1+31
Function Call: WRITE
  • Prompt: !,$C(7),"No patient(s) selected..."
  • Line Location: COPY1+35
Function Call: WRITE
  • Prompt: !
  • Line Location: COPY1+36
Function Call: WRITE
  • Prompt: !,$C(7),"No Visit Linkage Method defined for "
  • Line Location: COPY1+45
Function Call: WRITE
  • Prompt: $$PNAME^TIULC1(TIUTYP),".",!,"Please contact IRM..."
  • Line Location: COPY1+46
Function Call: WRITE
  • Prompt: ""
  • Line Location: COPY1+47
Function Call: WRITE
  • Prompt: !!,"For Patient ",TIUPATNM
  • Line Location: COPY1+48
Function Call: WRITE
  • Prompt: !,$C(7),"Patient & Visit required."
  • Line Location: COPY1+51
Function Call: WRITE
  • Prompt: !,$C(7),"No Validation Method defined for "
  • Line Location: COPY1+54
Function Call: WRITE
  • Prompt: $$PNAME^TIULC1(TIUTYP),".",!,"Please contact IRM..."
  • Line Location: COPY1+55
Function Call: WRITE
  • Prompt: !!,$C(7),"A ",$P(TIUTYP(1),U,3)," already exists for this visit."
  • Line Location: COPY1+61
Function Call: WRITE
  • Prompt: !,"You may not use the copy function to overwrite an existing ",!,$$UPPER^TIULS($$STATUS^TIULC(DA))," ",$P(TIUTYP(1),U,3),".",!
  • Line Location: COPY1+62
Function Call: WRITE
  • Prompt: ""
  • Line Location: COPY1+63
Function Call: WRITE
  • Prompt: !
  • Line Location: AGAIN+1
Info |  Source |  Entry Points |  Interaction Calls