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

Package: Text Integration Utility

Routine: TIUADCL1


Information

TIUADCL1 ; SLC/AJB - UNK Addenda Cleanup ; 10/01/04

Source Information

Source file <TIUADCL1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; main entry point for TIU UNK ADDENDA CLEANUP
EXIT ;
HDR ; sets header
HELP ; help code
INIT ; finds unknown addenda & creates list
XQORM ; default action for list manager
ATTACH ;
ATNOW(PARENT,ADDENDUM) ;
SAVEADD ;
PREP ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The following actions are available:"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !,"Browse a Document - View a selected document (if authorized)"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !,"Change View - Modify search criteria"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !,"Detailed Display - View detailed display of a document (if authorized)"
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !,"Attach to Parent - Attach the currently selected "
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: $S($$MULTI^TIUADCL("TIUADD")>1:"addenda",1:"addendum")," to one OPERATION"
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !," REPORT",!
  • Line Location: HELP+10
Function Call: WRITE
  • Prompt: TIU("IOCUOFF")
  • Line Location: INIT+3
Function Call: WRITE
  • Prompt: !!,"Searching for the documents."
  • Line Location: INIT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ATTACH+2
Function Call: WRITE
  • Prompt: "Attach the following UNKNOWN "_$S($$MULTI^TIUADCL("TIUADD")>1:"Addenda",1:"Addendum")_":",!!
  • Line Location: ATTACH+3
Function Call: WRITE
  • Prompt: "TIU",!,"Doc No.",?9,"Patient",?40,"Entry DT/Time",?59,"Status",?71,"Parent",!
  • Line Location: ATTACH+4
Function Call: WRITE
  • Prompt: LINE
  • Line Location: ATTACH+6
Function Call: WRITE
  • Prompt: $E(DISPLAY,1,80)
  • Line Location: ATTACH+15
Function Call: WRITE
  • Prompt: !!,"to the following "_$$GET1^DIQ(8925,PARENT,.01)_"?",!
  • Line Location: ATTACH+16
Function Call: WRITE
  • Prompt: !,"TIU",?71,"Surgical",!,"Doc No.",?9,"Patient",?40,"Entry DT/Time",?59,"Status",?71,"Case No.",!
  • Line Location: ATTACH+22
Function Call: WRITE
  • Prompt: LINE,$E(DISPLAY,1,80),!
  • Line Location: ATTACH+23
Function Call: WRITE
  • Prompt: !
  • Line Location: ATTACH+25
Function Call: WRITE
  • Prompt: !!,"Attaching #",TIUDA," to #",PARENT," ... "
  • Line Location: ATTACH+30
Function Call: WRITE
  • Prompt: !
  • Line Location: ATTACH+32
Function Call: WRITE
  • Prompt: !,"ERROR: Parent and Addendum have different patients!"
  • Line Location: ATNOW+4
Function Call: WRITE
  • Prompt: !,"ERROR: The addendum's ENTRY DATE/TIME precedes the parent's ENTRY DATE/TIME!"
  • Line Location: ATNOW+5
Function Call: WRITE
  • Prompt: !,TIUMSG("DIERR",1,"TEXT",LINE)
  • Line Location: ATNOW+13
Function Call: WRITE
  • Prompt: ?29," success!"
  • Line Location: ATNOW+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SD(409.61 - [#409.61] Classic Fileman Calls
^TIU(8925 - [#8925] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call