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

Package: Text Integration Utility

Routine: TIUADCL


Information

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

Source Information

Source file <TIUADCL.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Text Integration Utility 7 $$PATIENT^TIU144  (EN,HDR,INIT)^TIUADCL1  EN^TIUAUDIT  FIXLSTNW^TIULM  $$CANDO^TIULP  $$DOCRES^TIULRR  $$READ^TIUU  
List Manager 4 EN^VALM  ($$FDATE,$$SETSTR,CLEAR,FULL)^VALM1  (CLEAN,SET)^VALM10  RE^VALM4  
VA FileMan 4 ^%DT  ^DIC  $$GET1^DIQ  ^DIR  
Kernel 1 ($$FMTE,$$HTE,$$NOW)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 16

Package Total Caller Graph
Text Integration Utility 16 TIU UNK ADDENDA ATTACH PARENT  TIU UNK ADDENDA BROWSE  TIU UNK ADDENDA CHANGE VIEW  TIU UNK ADDENDA CLEANUP  TIU UNK ADDENDA DETAILED DISPLAY  TIU UNK ADDENDA FIND PARENT  TIU UNK ADDENDA MENU  TIU UNK ADDENDA SELECT  
TIU189  TIU199  TIUADCL1  TIUBR  TIUPUTC  TIUPUTC1  TIUSRVG  TIUSRVR1  

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
ACTIONS ; user selectable actions
BROWSE ; browse document
CHKFILE(FILE,NAME,SCREEN) ; checks entry in file and returns IEN
; VMP/RJT - *233 - added Forget Lookup Value flag to DIC call since its affecting the value in the ^DISV global (spacebar return function)
CHNGVIEW ; allows user to change search parameters
DATE(TIUDT,TIUSEQ) ; if date is year entry only, appends Jan 01/Dec 31@2400 respectively
DTRANGE(DTRANGE) ; prompts user for date range input
DETDISP ; detailed display
FNDPRNT ; executes LM for TIU UNK ADDENDA ATTACH
MULTI(TIUCHK) ;
ONEDOC() ;
SELECT(ACTION) ; selects document(s) and calls ACTION

External References

Name Field # of Occurrence
^%DT DTRANGE+7
^DIC CHKFILE+2
$$GET1^DIQ INIT+12, INIT+13, SELECT+27
^DIR HELP+9, ACTIONS+16, SELECT+10
$$PATIENT^TIU144 INIT+10
EN^TIUADCL1 FNDPRNT+2
HDR^TIUADCL1 CHNGVIEW+8
INIT^TIUADCL1 CHNGVIEW+8
EN^TIUAUDIT DETDISP+14
FIXLSTNW^TIULM DETDISP+15
$$CANDO^TIULP DETDISP+6
$$DOCRES^TIULRR DETDISP+10
$$READ^TIUU ACTIONS+20, ACTIONS+24, DETDISP+9, DETDISP+13, SELECT+20, SELECT+25
EN^VALM EN+3, BROWSE+2
$$FDATE^VALM1 INIT+12
$$SETSTR^VALM1 HDR+3, INIT+9, INIT+10, INIT+11, INIT+12, INIT+13, INIT+14, INIT+17, FNDPRNT+7
CLEAR^VALM1 DETDISP+5
FULL^VALM1 HELP+3, CHNGVIEW+1, SELECT+2
CLEAN^VALM10 CHNGVIEW+5, CHNGVIEW+8
SET^VALM10 INIT+15, INIT+17, FNDPRNT+8
RE^VALM4 FNDPRNT+9
$$FMTE^XLFDT HDR+2
$$HTE^XLFDT DTRANGE+6
$$NOW^XLFDT DTRANGE+2, DTRANGE+10

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: !,"Find Parent - Find available OPERATION REPORTS to assign as parent",!
  • Line Location: HELP+8
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: !!,"You may only attach addenda to one parent at a time."
  • Line Location: ACTIONS+18
Function Call: WRITE
  • Prompt: !,"Select only one parent for this action.",!
  • Line Location: ACTIONS+19
Function Call: WRITE
  • Prompt: !!,"You may only view one document at a time."
  • Line Location: ACTIONS+22
Function Call: WRITE
  • Prompt: !,"Select only one document for this action.",!
  • Line Location: ACTIONS+23
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHNGVIEW+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DTRANGE+3
Function Call: WRITE
  • Prompt: !!,?42,"Future dates are not allowed.",!
  • Line Location: DTRANGE+10
Function Call: WRITE
  • Prompt: !!,$C(7),$P(TIUVIEW,U,2),!
  • Line Location: DETDISP+8
Function Call: WRITE
  • Prompt: !!,$C(7),"Ok, no harm done...",!
  • Line Location: DETDISP+12
Function Call: WRITE
  • Prompt: !,"No documents to select."
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: !!,"You may not select multiple OPERATION Reports to view or attach addenda to."
  • Line Location: SELECT+18
Function Call: WRITE
  • Prompt: !,"Select only one document to view or attach addenda.",!
  • Line Location: SELECT+19
Function Call: WRITE
  • Prompt: !!,"You may only view one document at a time."
  • Line Location: SELECT+23
Function Call: WRITE
  • Prompt: !,"Select only one document for this action.",!
  • Line Location: SELECT+24
Routine Call
  • DIC
  • Line Location:
    • CHKFILE+2
Routine Call
  • DIR
  • Line Location:
    • HELP+9
    • ACTIONS+16
    • SELECT+10
Routine Call
  • VALM
  • Line Location:
    • EN+3
    • BROWSE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^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+10, FNDPRNT+6

Label References

Name Line Occurrences
$$CHKFILE INIT+5
$$DATE DTRANGE+9, DTRANGE+10
$$MULTI ACTIONS+17, ACTIONS+21, SELECT+17, SELECT+22
$$ONEDOC BROWSE+1, DETDISP+2
@( ACTIONS+28, SELECT+29
DTRANGE EN+2, CHNGVIEW+4, CHNGVIEW+7
HDR CHNGVIEW+5
INIT CHNGVIEW+5
XQORM EXIT+1, HDR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DTRANGE+1~, DTRANGE+2*
%DT("A" DTRANGE+5*
%DT("B" DTRANGE+6*
%DT(0 DTRANGE+2*, DTRANGE+9*
ACTION ACTIONS+1~, ACTIONS+2, ACTIONS+26*, ACTIONS+27*, ACTIONS+28, ACTIONS+29, SELECT~, SELECT+22, SELECT+29
ADDENDUM INIT+1~, INIT+5*, INIT+6
CNT DTRANGE+1~, DTRANGE+4*, DTRANGE+5, DTRANGE+6, DTRANGE+8*, DTRANGE+9, DTRANGE+10*
D0 DETDISP+1~
DIC CHKFILE+2~*
DIC("S" CHKFILE+2*
DIC(0 CHKFILE+2*
DIR HELP+1~, ACTIONS+3~, SELECT+7~
DIR("?" ACTIONS+11*, ACTIONS+12*, ACTIONS+13*, ACTIONS+14*, ACTIONS+15*
DIR("A" HELP+2*, HELP+9, ACTIONS+5*, SELECT+8*
DIR("B" ACTIONS+6*
DIR("L" ACTIONS+7*, ACTIONS+8*, ACTIONS+9*, ACTIONS+10*
DIR(0 HELP+2*, ACTIONS+4*, SELECT+9*
DIROUT DETDISP+1~
DIRUT ACTIONS+3~, ACTIONS+16, SELECT+10
DISPLAY INIT+7~, INIT+9*, INIT+10*, INIT+11*, INIT+12*, INIT+13*, INIT+14*, INIT+15
DTR1 EN+1~, EN+2, CHNGVIEW+4
DTR1("BEGDT" HDR+2, INIT+5
DTR1("ENDDT" HDR+2, INIT+6
>> DTR2 CHNGVIEW+7
DTRANGE DTRANGE~
DTRANGE("BEGDT" DTRANGE+9*
DTRANGE("ENDDT" DTRANGE+10*
FILE CHKFILE~, CHKFILE+2
HDR HDR+1~, HDR+2*, HDR+3
IOF CHNGVIEW+2, DTRANGE+3
IOM HDR+3, INIT+17
NAME CHKFILE~, CHKFILE+2
PARENT FNDPRNT+1~, FNDPRNT+6*, FNDPRNT+7
POP ACTIONS+3~, DTRANGE+1~
RSTRCTD DETDISP+1~, DETDISP+10*, DETDISP+11
SCREEN CHKFILE~, CHKFILE+2
STRTDT INIT+1~, INIT+5*, INIT+6*
TIU INIT+1~
TIU("IOCUOFF" INIT+2*, INIT+3
TIU("IOCUON" INIT+2*
TIUCHK MULTI~, MULTI+3
TIUCNT MULTI+1~, MULTI+2*, MULTI+3*, MULTI+4, SELECT+14~, SELECT+15*
TIUCONT ACTIONS+1~, ACTIONS+16, ACTIONS+25*, ACTIONS+28
TIUD DETDISP+1~
TIUDA INIT+1~, INIT+5*, INIT+6*, INIT+10, INIT+11, INIT+12, INIT+13, INIT+15, BROWSE+1~*, DETDISP+1~
DETDISP+2*, DETDISP+6, DETDISP+10
TIUDATA DETDISP+1~
TIUDISP FNDPRNT+1~, FNDPRNT+5*, FNDPRNT+7*, FNDPRNT+8
TIUDOCS SELECT+1~, SELECT+27*, SELECT+28
TIUDOCS( FNDPRNT+4, FNDPRNT+6, FNDPRNT+8, ONEDOC+3, ONEDOC+4, SELECT+15*, SELECT+16*, SELECT+27!
TIUDOCS(1 SELECT+6*
TIUDT DATE~, DATE+1*, DATE+2*, DATE+3
TIUGDATA DETDISP+1~
TIUI DETDISP+1~
TIUQUIT EN+1~, EN+2, CHNGVIEW+3, CHNGVIEW+4, CHNGVIEW+6, CHNGVIEW+7, DTRANGE+8*, DETDISP+1~, DETDISP+15, SELECT+1~
, SELECT+5, SELECT+10*
TIUSEL DETDISP+1~, SELECT+1~, SELECT+4*, SELECT+5, SELECT+11*, SELECT+12*, SELECT+13, SELECT+15, SELECT+16
TIUSEQ DATE~, DATE+1, DATE+2
TIUTMP FNDPRNT+1~, FNDPRNT+3*, FNDPRNT+4*, FNDPRNT+5, FNDPRNT+6, FNDPRNT+8, MULTI+1~, MULTI+2*, MULTI+3*, ONEDOC+1~
, ONEDOC+2*, ONEDOC+3*, ONEDOC+4
TIUVIEW DETDISP+4~, DETDISP+6*, DETDISP+7, DETDISP+8
U INIT+6, INIT+10, XQORM+1, ACTIONS+26, ACTIONS+27, DETDISP+8, FNDPRNT+6, SELECT+10
>> VALM("TITLE" ACTIONS+4, ACTIONS+6, ACTIONS+8, ACTIONS+15, ACTIONS+17, ACTIONS+26, CHNGVIEW+3, CHNGVIEW+6, SELECT+17, SELECT+26
>> VALMAR FNDPRNT+5, SELECT+6, SELECT+15, SELECT+16
>> VALMBCK HELP+10*, ACTIONS+2*, ACTIONS+29*, CHNGVIEW+3*, CHNGVIEW+6*, DETDISP+16*, SELECT+21*, SELECT+26*, SELECT+28*
>> VALMBG CHNGVIEW+5*, CHNGVIEW+8*
>> VALMCNT INIT+5*, INIT+8*, INIT+9, INIT+15, INIT+16, XQORM+1, SELECT+3
>> VALMHDR(1 HDR+3*
>> VALMLST SELECT+6, SELECT+8, SELECT+9, SELECT+15, SELECT+16
VALMY DETDISP+16!
X HELP+2, ACTIONS+3~, CHKFILE+2~*, DTRANGE+1~, DTRANGE+10*, SELECT+7~, SELECT+13*, SELECT+15, SELECT+16
>> XQORM("#" XQORM+1*
>> XQORNOD(0 SELECT+4
Y ACTIONS+3~, ACTIONS+17, ACTIONS+21, ACTIONS+26, ACTIONS+27, CHKFILE+2~, CHKFILE+3, DTRANGE+1~, DTRANGE+8, DTRANGE+9
, DTRANGE+10, DETDISP+1~, SELECT+7~, SELECT+10
Y(0 SELECT+11
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