Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 5 ^DIC  FILE^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Registration 3 EN^VALM  ($$FDATE,$$FDTTM,$$SETSTR,FULL)^VALM1  SET^VALM10  
Text Integration Utility 3 $$PATIENT^TIU144  ($$CHKFILE,$$MULTI,$$ONEDOC,DTRANGE)^TIUADCL  $$READ^TIUU  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Text Integration Utility 1 TIUADCL  

Entry Points

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

External References

Name Field # of Occurrence
^DIC PREP+4
FILE^DIE ATNOW+10
^DIK PREP+5
$$GET1^DIQ INIT+8, INIT+14, INIT+15, ATTACH+12, ATTACH+13, ATTACH+14, ATTACH+16, ATTACH+19, ATTACH+20, ATNOW+9
, SAVEADD+2
^DIR HELP+11
$$PATIENT^TIU144 INIT+12, ATTACH+11, ATTACH+18
$$CHKFILE^TIUADCL INIT+5
$$MULTI^TIUADCL HELP+9, ATTACH+3
$$ONEDOC^TIUADCL ATTACH+5
DTRANGE^TIUADCL EN+3
$$READ^TIUU ATTACH+25, ATTACH+32
EN^VALM EN+4
$$FDATE^VALM1 INIT+14
$$FDTTM^VALM1 ATTACH+12, ATTACH+19
$$SETSTR^VALM1 HDR+3, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15, INIT+16, INIT+19, ATTACH+10, ATTACH+11
, ATTACH+12, ATTACH+13, ATTACH+14, ATTACH+17, ATTACH+18, ATTACH+19, ATTACH+20, ATTACH+21
FULL^VALM1 HELP+3, ATTACH+2
SET^VALM10 INIT+17, INIT+19
$$FMTE^XLFDT HDR+2

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
Routine Call
  • VALM
  • Line Location:
    • EN+4
Routine Call
  • DIC
  • Line Location:
    • PREP+4
Routine Call
  • DIE
  • Line Location:
    • ATNOW+10
Routine Call
  • DIR
  • Line Location:
    • HELP+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SD(409.61 - [#409.61] Classic Fileman Calls
^TIU(8925 - [#8925] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(101 - [#101] XQORM+1
^TIU(8925 - [#8925] INIT+6, INIT+12, INIT+16, ATTACH+11, ATTACH+18, ATTACH+21, ATNOW+2, ATNOW+3
^TMP("VALMAR" EN+5!

Label References

Name Line Occurrences
ATNOW ATTACH+31
SAVEADD EN+2
XQORM EXIT+1, HDR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDENDUM ATNOW~, ATNOW+2, ATNOW+3, ATNOW+7
DA PREP+1~, PREP+5*
DATA INIT+7~
DIC PREP+1~, PREP+2*, PREP+5
DIC(0 PREP+2*
DIK PREP+1~, PREP+5*
DIR HELP+1~
DIR("A" HELP+2*, HELP+11
DIR(0 HELP+2*
DISPLAY INIT+7~, INIT+11*, INIT+12*, INIT+13*, INIT+14*, INIT+15*, INIT+16*, INIT+17, ATTACH+1~, ATTACH+10*
, ATTACH+11*, ATTACH+12*, ATTACH+13*, ATTACH+14*, ATTACH+15, ATTACH+17*, ATTACH+18*, ATTACH+19*, ATTACH+20*, ATTACH+21*
, ATTACH+23
DTR2 EN+1~, EN+3
DTR2("BEGDT" HDR+2, INIT+5
DTR2("ENDDT" HDR+2, INIT+6
FDA ATNOW+1~
FDARR ATNOW+1~, ATNOW+7*, ATNOW+8, ATNOW+9
FLAGS ATNOW+1~, ATNOW+7*, ATNOW+10
HDR HDR+1~, HDR+2*, HDR+3
IENS ATNOW+1~, ATNOW+7*
IOF ATTACH+2
IOM HDR+3, INIT+19
LINE ATTACH+1~, ATTACH+5*, ATTACH+6*, ATTACH+23, ATNOW+12~*, ATNOW+13*
MSG INIT+7~
OPREPORT INIT+1~, INIT+5*, INIT+6
PARENT ATTACH+1~, ATTACH+5*, ATTACH+16, ATTACH+17, ATTACH+18, ATTACH+19, ATTACH+20, ATTACH+21, ATTACH+30, ATTACH+31
, ATNOW~, ATNOW+2, ATNOW+3, ATNOW+8, ATNOW+9
STRTDT INIT+1~, INIT+5*, INIT+6*
TIU INIT+1~
TIU("IOCUOFF" INIT+2*, INIT+3
TIU("IOCUON" INIT+2*
TIUA0 ATNOW+1~, ATNOW+2*, ATNOW+4
TIUA12 ATNOW+1~, ATNOW+3*, ATNOW+5
TIUADD EN+1~, ATTACH+7*, ATTACH+9, ATTACH+27*, ATTACH+29, SAVEADD+1*, SAVEADD+2*
TIUADD( INIT+8, ATTACH+7, ATTACH+9, ATTACH+27, ATTACH+29, SAVEADD+2*
TIUDA INIT+1~, INIT+5*, INIT+6*, INIT+8, INIT+12, INIT+13, INIT+14, INIT+15, INIT+16, INIT+17
, ATTACH+8~, ATTACH+9*, ATTACH+10, ATTACH+11, ATTACH+12, ATTACH+13, ATTACH+14, ATTACH+28~, ATTACH+29*, ATTACH+30
, ATTACH+31
>> TIUDOCS( SAVEADD+2
TIULVL EN+1~, EN+5, INIT+2*
TIUMSG ATNOW+1~, ATNOW+11
TIUMSG("DIERR" ATNOW+13
TIUP0 ATNOW+1~, ATNOW+2*, ATNOW+4
TIUP12 ATNOW+1~, ATNOW+3*, ATNOW+5
TIUQUIT EN+1~, EN+3
TIUWARN ATNOW+1~, ATNOW+4*, ATNOW+5*, ATNOW+6
U INIT+12, INIT+16, XQORM+1, ATTACH+11, ATTACH+18, ATTACH+21, ATNOW+4, ATNOW+5
>> VALMBCK HELP+12*, ATTACH+24*, ATTACH+26*
>> VALMCNT INIT+5*, INIT+10*, INIT+11, INIT+17, INIT+18, XQORM+1
>> VALMEVL INIT+2
>> VALMHDR(1 HDR+3*
X HELP+2, PREP+1~, PREP+3*
>> XQORM("#" XQORM+1*
Y PREP+1~, PREP+4, PREP+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All