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

Package: Text Integration Utility

Routine: TIURS


Information

TIURS ; SLC/JER - Electronic signature actions ; 25 Jun 2015 12:14 PM

Source Information

Source file <TIURS.m>

Entry Points

Name Comments DBIA/ICR reference
ACCEPT(TIUSLST,TIUI) ; Accept for signing
EDSIG(TIUDA,TIUADD,TIUPASK) ; interactive sign
ASKCPF(DA) ;Ask required clinical procedure fields
AGNCP
ASKCPFQ
ASKCSNR(DA,SIGNER) ; Ask cosigner
AGN
ASKCOUT
ES(DA,TIUES,TIUI) ; ^DIE call for /es/
THIRD ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Document has changed...",!,$P(TIUSGN,U,2)
  • Line Location: ACCEPT+6
Function Call: WRITE
  • Prompt: !!,"Item #",TIUI,": Removed from signature list.",!
  • Line Location: ACCEPT+7
Function Call: WRITE
  • Prompt: !,"Item #",TIUI,": Added to signature list."
  • Line Location: ACCEPT+10
Function Call: WRITE
  • Prompt: !,$P(ASK,U,2)
  • Line Location: EDSIG+21
Function Call: WRITE
  • Prompt: !!,"The Procedure Summary Code and Date/Time Performed MUST be entered before",!,"you may sign.",!
  • Line Location: EDSIG+32
Function Call: WRITE
  • Prompt: !!,"This ",TIUTYPE," MUST have a cosigner before you may sign.",!
  • Line Location: EDSIG+37
Function Call: WRITE
  • Prompt: !?5,$C(7),"Another user is editing this entry.",!
  • Line Location: EDSIG+43
Function Call: WRITE
  • Prompt: ""
  • Condition for execution: $$READ^TIUU("EA","Press RETURN to continue...")
  • Line Location: EDSIG+43
Function Call: WRITE
  • Prompt: !?5,$C(7),"This note contains no text and cannot be signed.",!
  • Line Location: EDSIG+45
Function Call: WRITE
  • Prompt: ""
  • Condition for execution: $$READ^TIUU("EA","Press RETURN to continue...")
  • Line Location: EDSIG+45
Function Call: WRITE
  • Prompt: !!,$C(7),"You must designate the Procedure Summary Code and Date/Time Performed...",!
  • Line Location: AGNCP+0
Function Call: WRITE
  • Prompt: !?5,$C(7),"Another user is editing this entry.",!
  • Line Location: AGNCP+2
Function Call: WRITE
  • Prompt: ""
  • Condition for execution: $$READ^TIUU("EA","Press RETURN to continue...")
  • Line Location: AGNCP+2
Function Call: WRITE
  • Prompt: !!,$C(7),"You must designate an ",TIUFLD,"...",!
  • Line Location: AGN+0
Function Call: WRITE
  • Prompt: !?5,$C(7),"Another user is editing this entry.",!
  • Line Location: AGN+2
Function Call: WRITE
  • Prompt: ""
  • Condition for execution: $$READ^TIUU("EA","Press RETURN to continue...")
  • Line Location: AGN+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: ES+38
Function Call: WRITE
  • Prompt: !!
  • Line Location: ES+41

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