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

Package: Text Integration Utility

Routine: TIUPUTS


Information

TIUPUTS ; SLC/JER - Surgery Look-up, etc. ; 04/19/2004

Source Information

Source file <TIUPUTS.m>

Entry Points

Name Comments DBIA/ICR reference
LOOKUP ; Look-up code used by router/filer
; Required: TIUSRCN, TIUSDA, TIUSSN, TIUODT
LOOKUPX
CANEDIT(DA) ; Check whether or not document is released
COPYDAD(DA,PARENT) ; copy fixed field data for addenda
FINDCASE(DFN,TIUODT) ; Find Surgical Case for Pt & Dt, if unique
GETSDA(TIUSRCN) ; Get Op Report for Case
CALLDIC(TIUX) ; Call ^DIC to get the IEN for the TIU DOCUMENT
FOLLOWUP(TIUDA) ; Post-filing code for Operation Reports
FIX ; Filing error resolution code for Operation Reports
FIXX
DICW(TIUDA) ; Write identifiers
DICS(TIUDA) ; Filter IX^DIC list

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Time Out of O.R. has not yet been entered for Surgical Case #",TIUSRCN
  • Line Location: LOOKUP+14
Function Call: WRITE
  • Prompt: !,"the Surgical Service must complete this step before the Operation"
  • Line Location: LOOKUP+15
Function Call: WRITE
  • Prompt: !,"Report can be uploaded..."
  • Line Location: LOOKUP+16
Function Call: WRITE
  • Prompt: !,"Existing document may not be edited...Creating Addendum."
  • Line Location: LOOKUP+27
Function Call: WRITE
  • Prompt: !!,"Okay, no harm done...",!
  • Line Location: FIX+9
Function Call: WRITE
  • Prompt: !
  • Line Location: FIX+13
Function Call: WRITE
  • Prompt: !
  • Line Location: FIX+21
Function Call: WRITE
  • Prompt: !
  • Line Location: FIX+22
Function Call: WRITE
  • Prompt: !!,"Existing document may not be edited...Creating Addendum.",!
  • Line Location: FIX+30
Function Call: WRITE
  • Prompt: "Done."
  • Line Location: FIXX+3
Function Call: WRITE
  • Prompt: ?35,"Dated: ",$$DATE^TIULS(+TIUD13,"MM/DD/CCYY@HR:MIN"),?62,"By: ",$E($$NAME^TIULS($$PERSNAME^TIULC1(+$P(TIUD12,U,2)),"LAST,FI MI"),1,13)
  • Line Location: DICW+4
Function Call: WRITE
  • Prompt: !?11,"Case #: ",TIUD14," ",$P(@TIUPRNM@(TIUD14),U,2)
  • Line Location: DICW+12
Info |  Source |  Entry Points |  Interaction Calls