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 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  
Registration 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

Caller Graph Total: 8

Package Total Caller Graph
Text Integration Utility 8 TIU UNK ADDENDA MENU  TIU189  TIU199  TIUADCL1  TIUBR  TIUPUTC  TIUSRVG  TIUSRVR1  

Entry Points

Name Comments DBIA/ICR reference
DATE(TIUDT,TIUSEQ) ; if date is year entry only, appends Jan 01/Dec 31@2400 respectively
EN ; main entry point for TIU UNK ADDENDA CLEANUP
HDR ; sets header
ONEDOC() ;
BROWSE ; browse document
INIT ; finds unknown addenda & creates list
ACTIONS ; user selectable actions
DTRANGE(DTRANGE) ; prompts user for date range input
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)
XQORM ; default action for list manager
CHNGVIEW ; allows user to change search parameters
EXIT ;
DETDISP ; detailed display
MULTI(TIUCHK) ;
FNDPRNT ; executes LM for TIU UNK ADDENDA ATTACH
SELECT(ACTION) ; selects document(s) and calls ACTION
HELP ; help code

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
  • VALM
  • Line Location:
    • EN+3
    • BROWSE+2
Routine Call
  • DIC
  • Line Location:
    • CHKFILE+2
Routine Call
  • DIR
  • Line Location:
    • HELP+9
    • ACTIONS+16
    • SELECT+10

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