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

Package: Text Integration Utility

Routine: TIURS1


Information

TIURS1 ; SLC/JER - Additional /es/ actions ; 11/21/12 4:18pm

Source Information

Source file <TIURS1.m>

Entry Points

Name Comments DBIA/ICR reference
ELSIG ; Sign rec
ELSIGX
VMSG(TIULST,TIUDAARY,ACTION) ; Set VALMSG for messagebar, bold changed items
NEWLST(TIULST,TIUDAARY) ; Return TIULST with updated item numbers
MULTIPRN(TIUSLST,TIUIO) ; ask device
LIST(LIST) ; build print list
ADDSIG(TIUDA,DA) ; Apply extra signatures to a document
CNVPOST ; Change Titles/Convert Postings
CNVPOST1 ; Convert Single Posting to another title
POST1Q ;clean up, linetag put in with *171
TLDIE(DA,TIUTITL) ; Change title of DA to TIUTITL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Electronic signature not yet enabled."
  • Line Location: ELSIG+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Ok, no harm done...",!
  • Line Location: ELSIG+13
Function Call: WRITE
  • Prompt: !!,"Item #",TIUI,": ",$P(ASK,U,2),!
  • Line Location: ELSIG+29
Function Call: WRITE
  • Prompt: !,"Removed from signature list.",!
  • Line Location: ELSIG+30
Function Call: WRITE
  • Prompt: !!,"Item #",TIUI,": ",TIUTYPE," for "
  • Line Location: ELSIG+38
Function Call: WRITE
  • Prompt: $$PTNAME^TIULC1($P(TIU0,U,2))," will need Procedure Summary Code and Date/Time Performed..."
  • Line Location: ELSIG+39
Function Call: WRITE
  • Prompt: !!,"Item #",TIUI,": MUST have a Procedure Summary Code and Date/Time Performed",!,"before you may sign."
  • Line Location: ELSIG+44
Function Call: WRITE
  • Prompt: !!,"Removed from signature list.",!
  • Line Location: ELSIG+45
Function Call: WRITE
  • Prompt: !!,"Item #",TIUI,": ",TIUTYPE," for "
  • Line Location: ELSIG+50
Function Call: WRITE
  • Prompt: $$PTNAME^TIULC1($P(TIU0,U,2))," will need cosignature..."
  • Line Location: ELSIG+51
Function Call: WRITE
  • Prompt: !!,"Item #",TIUI,": MUST have a cosigner, before you may sign."
  • Line Location: ELSIG+55
Function Call: WRITE
  • Prompt: !!,"Removed from signature list.",!
  • Line Location: ELSIG+56
Function Call: WRITE
  • Prompt: !!,"Item #",TIUI,": This note contains no text and cannot be signed."
  • Line Location: ELSIG+60
Function Call: WRITE
  • Prompt: !!,"Removed from signature list.",!
  • Line Location: ELSIG+61
Function Call: WRITE
  • Prompt: !!,"Please specify the device for printing item"
  • Line Location: MULTIPRN+5
Function Call: WRITE
  • Prompt: $S(TIUPLIST[",":"s",TIUPLIST["-":"s",1:""),": ",TIUPLIST,!!
  • Line Location: MULTIPRN+6
Function Call: WRITE
  • Prompt: !,"Please finish attaching the interdisciplinary note before changing title.",!
  • Line Location: CNVPOST+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Ok, no harm done...",!
  • Line Location: CNVPOST+11
Function Call: WRITE
  • Prompt: !!,$C(7),$P(TIUVIEW,U,2),!
  • Line Location: CNVPOST+15
Function Call: WRITE
  • Prompt: !!,$C(7),$P(TIUCHTTL,U,2),!
  • Line Location: CNVPOST1+12
Function Call: WRITE
  • Prompt: !!?5,$C(7),"Another user is editing this entry.",!
  • Line Location: CNVPOST1+16
Info |  Source |  Entry Points |  Interaction Calls