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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: TIUFHA8

Package: Text Integration Utility

Routine: TIUFHA8


Information

TIUFHA8 ; SLC/MAM - MOVEDOC, MDRPOINT(OLDTLDA,NEWTLDA,POLDTLDA,PNEWTLDA,NOLOCK), NEWTITLE(FILEDA,PFILEDA), MTRPOINT(TITLEDA,OLDCLASS) ;1/29/06

Source Information

Source file <TIUFHA8.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Text Integration Utility 8 $$OVERRIDE^TIUFHA2  (REEXPAND,VALMBG)^TIUFHA7  CLXREF^TIUFHA9  $$HASITEMS^TIUFLF1  CHECK^TIUFLF3  AUTOSTAT^TIUFLF6  PAUSE^TIUFXHLX  $$ISPFTTL^TIUPRFL  
VA Fileman 3 ^DIC  ^DIE  ^DIR  
Registration 1 EN^VALM2  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Text Integration Utility 2 TIUFHA2  TIUFHA7  

Entry Points

Name Comments DBIA/ICR reference
MTRPOINT(TITLEDA,OLDCLASS) ; Repoint for Move Title from one DC to another:
; Repoints PARENT DOCUMENT TYPE to parent of TITLEDA for documents using
DCDOCMTS(XDCLASS,OLDCLASS) ; Updates CLASS xrefs for documents using DC XDCLASS
CANT(FILEDA,NODE0) ; Check if docmts can be moved; return 1 if cant
MDOCX
MDRPOINT(OLDTLDA,NEWTLDA,POLDTLDA,PNEWTLDA,NOLOCK) ; Repoint for Move Documents from one title to another: Repoints TITLE and PARENT DOCUMENT TYPE for documents that use old title.
; If old and new titles are in same DC, skips repointing PARENT DOCUMENT TYPE.
NEWTLX
MTRPT1(TITLEDA,DA,XDCDA,OLDCLASS,NOLOCK) ; Repoint 1 docmt for Move TL.
; Requires TITLEDA,DA,XDCDA,TIUFMOVE. Requires OLDCLASS>or=0.
; Kills DA node of ^XTMP("TIUFMOVE[N]"_TLDA if successfully updated.
TLDOCMTS(TITLEDA,OLDCLASS) ; Updates CLASS xrefs for documents using title TITLEDA.
AGAINDOC
AGAINNEW
MOVEDOC ; Move documents from old Title to new Title. Template H ONLY. Titles must have same grandparent. Titles cannot have components.
NEWTITLE(FILEDA,PFILEDA) ; Function returns DIC's Y=N^S of New Title to move documents to, or 0 if none chosen.
CANTX

External References

Name Field # of Occurrence
^DIC AGAINNEW+12
^DIE MDRPOINT+8, MTRPT1+6
^DIR AGAINDOC+16
$$OVERRIDE^TIUFHA2 AGAINNEW+19
REEXPAND^TIUFHA7 AGAINDOC+24, AGAINDOC+25
VALMBG^TIUFHA7 AGAINDOC+25
CLXREF^TIUFHA9 MTRPT1+7, TLDOCMTS+5
$$HASITEMS^TIUFLF1 CANT+3, AGAINNEW+15
CHECK^TIUFLF3 AGAINNEW+16
AUTOSTAT^TIUFLF6 AGAINDOC+17
PAUSE^TIUFXHLX CANTX, AGAINDOC, AGAINDOC+22, AGAINNEW+20, MTRPOINT+14, MTRPOINT+18
$$ISPFTTL^TIUPRFL CANT+6
EN^VALM2 AGAINDOC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,CANTMSG,!
  • Line Location: CANTX+0
Function Call: WRITE
  • Prompt: !," Missing List Manager Data; See IRM",!
  • Line Location: AGAINDOC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: AGAINDOC+19
Function Call: WRITE
  • Prompt: "...done. Please move remaining documents later."
  • Condition for execution: NOLOCK
  • Line Location: AGAINDOC+19
Function Call: WRITE
  • Prompt: !!,"If you want users to be able to enter more documents on the OLD TITLE,",!,"please reactivate it."
  • Line Location: AGAINDOC+21
Function Call: WRITE
  • Prompt: !,"...Nothing moved"
  • Line Location: MDOCX+0
Function Call: WRITE
  • Prompt: !!,"OLD Title inactivated. Moving documents..."
  • Line Location: MDRPOINT+3
Function Call: WRITE
  • Prompt: !,"...Document can't be locked. Please move it later. Continuing to move others...",!
  • Line Location: MDRPOINT+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: MDRPOINT+9
Function Call: WRITE
  • Prompt: !!," Selecting target Title."
  • Line Location: AGAINNEW+1
Function Call: WRITE
  • Prompt: " Enter '??' for a list of selectable ones.",!
  • Line Location: AGAINNEW+2
Function Call: WRITE
  • Prompt: " You may not select PRF Flag Titles or Titles outside"
  • Line Location: AGAINNEW+3
Function Call: WRITE
  • Prompt: " the original Class."
  • Line Location: AGAINNEW+4
Function Call: WRITE
  • Prompt: !," ?? Documents cannot be moved to Titles with Components",!
  • Line Location: AGAINNEW+15
Function Call: WRITE
  • Prompt: !!,"Faulty Title. Please TRY Title and correct problems",!,"before moving documents to it."
  • Line Location: AGAINNEW+18
Function Call: WRITE
  • Prompt: " Documents NOT Moved.",!
  • Line Location: AGAINNEW+20
Function Call: WRITE
  • Prompt: !!,"Title has no documents to update.",!
  • Line Location: MTRPOINT+9
Function Call: WRITE
  • Prompt: !!,"Title has no parent.",!
  • Line Location: MTRPOINT+10
Function Call: WRITE
  • Prompt: !!,"Processing documents that use this Title...",!
  • Line Location: MTRPOINT+11
Function Call: WRITE
  • Prompt: !,"Done."
  • Line Location: MTRPOINT+13
Function Call: WRITE
  • Prompt: !!," Since some documents needing update were (still) not available, please update",!,"them using action 'Update Documents' (again) for this title.",!
  • Line Location: MTRPOINT+15
Function Call: WRITE
  • Prompt: " All documents updated for selected Title.",!
  • Line Location: MTRPOINT+17
Function Call: WRITE
  • Prompt: !,"...Document ",DA," can't be locked, not updated.",!
  • Line Location: MTRPT1+5
Function Call: WRITE
  • Prompt: !,"Document ",DA," updated"
  • Line Location: MTRPT1+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: MTRPT1+10
Function Call: WRITE
  • Prompt: !!,"Title has no documents to update.",!
  • Line Location: TLDOCMTS+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: TLDOCMTS+7
Routine Call
  • DIE
  • Line Location:
    • MDRPOINT+8
    • MTRPT1+6
Routine Call
  • DIC
  • Line Location:
    • AGAINNEW+12
Routine Call
  • DIR
  • Line Location:
    • AGAINDOC+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] CANT+4, MDRPOINT+6, MDRPOINT+7, MDRPOINT+9, MTRPOINT+9, MTRPOINT+12, MTRPT1+4, MTRPT1+5, MTRPT1+8, TLDOCMTS+2
, TLDOCMTS+5
^TIU(8925.1 - [#8925.1] AGAINDOC+1, AGAINDOC+5, AGAINDOC+14, NEWTITLE+5, AGAINNEW+13, MTRPOINT+10, DCDOCMTS+3, DCDOCMTS+4
^TMP("TIUF" AGAINDOC+17
^TMP("TIUF1IDX" AGAINDOC, AGAINDOC+23
^XTMP("TIUFMOVE" MTRPOINT+16*, MTRPOINT+18!, MTRPT1+3, MTRPT1+5*, MTRPT1+11!

Label References

Name Line Occurrences
$$CANT AGAINDOC+4
$$NEWTITLE AGAINDOC+8
AGAINDOC AGAINDOC+4
AGAINNEW AGAINNEW+15
CANTX CANT+2, CANT+3, CANT+4, CANT+5, CANT+6
MDOCX AGAINDOC, AGAINDOC+4, AGAINDOC+9, AGAINDOC+10
MDRPOINT AGAINDOC+18
MTRPT1 MTRPOINT+12
NEWTLX AGAINNEW+12
TLDOCMTS DCDOCMTS+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACTION MTRPT1+9
CANT CANT+1~*, CANTX*, CANTX+1
CANTMSG CANT+1~, CANT+2*, CANT+3*, CANT+4*, CANT+5*, CANT+6*, CANTX
CWAD1 MOVEDOC+2~, AGAINDOC+14*, AGAINDOC+15
CWAD2 MOVEDOC+2~, AGAINDOC+14*, AGAINDOC+15
DA MOVEDOC+2~, MDRPOINT+2~, MDRPOINT+8*, MTRPOINT+8~, MTRPT1~, MTRPT1+3, MTRPT1+4, MTRPT1+5, MTRPT1+7, MTRPT1+8
, MTRPT1+9, MTRPT1+11, TLDOCMTS+1~
DIC NEWTITLE+3~, AGAINNEW*
DIC("A" AGAINNEW+5*
DIC("S" AGAINNEW+11*
DIC(0 AGAINNEW*
DIE MDRPOINT+2~, MDRPOINT+4*, MTRPOINT+8~, MTRPT1+6*, TLDOCMTS+1~
DIK MOVEDOC+2~
DIR MOVEDOC+2~, NEWTITLE+3~
DIR("?" AGAINDOC+11*, AGAINDOC+15*
DIR("A" AGAINDOC+12*, AGAINDOC+13*, AGAINDOC+15*
DIR("B" AGAINDOC+11*, AGAINDOC+15*
DIR(0 AGAINDOC+11*
DIRUT AGAINDOC+2~, AGAINDOC+4, AGAINDOC+7!
DR MDRPOINT+2~, MDRPOINT+4*, MDRPOINT+5*, MTRPOINT+8~, MTRPT1+6*, TLDOCMTS+1~
>> DTOUT NEWTLX
FILEDA CANT~, CANT+3, CANT+4, CANT+5, CANT+6, MOVEDOC+1~, AGAINDOC+1*, AGAINDOC+4, AGAINDOC+5, AGAINDOC+8
, AGAINDOC+17, AGAINDOC+18, AGAINDOC+25, MDRPOINT+2~, MDRPOINT+6*, MDRPOINT+7, MDRPOINT+8, MDRPOINT+9, NEWTITLE~, MTRPOINT+8~
, MTRPOINT+12*, TLDOCMTS+1~, TLDOCMTS+5*
GPFILEDA NEWTITLE+3~, NEWTITLE+5*
INFO MOVEDOC+1~, AGAINDOC*, AGAINDOC+1, AGAINDOC+5, AGAINDOC+6
LINENO MOVEDOC+1~, AGAINDOC+1*, AGAINDOC+25
NEWTLDA MDRPOINT~, MDRPOINT+4
NEWTLY MOVEDOC+1~, AGAINDOC+8*, AGAINDOC+9, AGAINDOC+10, AGAINDOC+12, AGAINDOC+14, AGAINDOC+16*, AGAINDOC+18, AGAINDOC+20, AGAINDOC+25
, MDOCX, NEWTITLE+3~, AGAINNEW!, AGAINNEW+13*, AGAINNEW+15, AGAINNEW+16, AGAINNEW+20!, NEWTLX+1
NEWTLY(0 AGAINNEW+13*
NODE0 CANT~, CANT+2, MOVEDOC+1~, AGAINDOC+1*, AGAINDOC+4, AGAINDOC+12, AGAINDOC+17
NOLOCK MOVEDOC+2~, AGAINDOC+18*, AGAINDOC+19, AGAINDOC+20, MDRPOINT~, MDRPOINT+7*, MTRPOINT+8~, MTRPOINT+10*, MTRPOINT+12, MTRPOINT+14
, MTRPT1~, MTRPT1+5*, TLDOCMTS+1~
NPFILEDA MOVEDOC+2~, AGAINDOC+14*, AGAINDOC+18, AGAINDOC+23, AGAINDOC+24, AGAINDOC+25, NEWTITLE+3~, AGAINNEW+13*, AGAINNEW+16
NPLINENO MOVEDOC+2~, AGAINDOC+23*, AGAINDOC+25
OLDCLASS MTRPOINT~, MTRPOINT+12, MTRPT1~, MTRPT1+7, DCDOCMTS~, DCDOCMTS+5, TLDOCMTS~, TLDOCMTS+5
OLDTLDA MDRPOINT~, MDRPOINT+6
OVERRIDE NEWTITLE+3~, AGAINNEW+19*, AGAINNEW+20
PFILEDA MOVEDOC+1~, AGAINDOC+5*, AGAINDOC+8, AGAINDOC+14, AGAINDOC+18, AGAINDOC+24, NEWTITLE~, NEWTITLE+5
PLINENO MOVEDOC+1~, AGAINDOC+5*, AGAINDOC+24
PNEWTLDA MDRPOINT~, MDRPOINT+5
POLDTLDA MDRPOINT~, MDRPOINT+5
SCRN1 NEWTITLE+4~, AGAINNEW+8*, AGAINNEW+11
SCRN2 NEWTITLE+4~, AGAINNEW+9*, AGAINNEW+11
SCRN3 NEWTITLE+4~, AGAINNEW+10*, AGAINNEW+11
TENDA MOVEDOC+1~, AGAINDOC+6*, DCDOCMTS+1~, DCDOCMTS+2*, DCDOCMTS+3*, DCDOCMTS+4
TITLEDA MTRPOINT~, MTRPOINT+9, MTRPOINT+10, MTRPOINT+12, MTRPOINT+16, MTRPOINT+18, MTRPT1~, MTRPT1+3, MTRPT1+5, MTRPT1+11
, DCDOCMTS+1~, DCDOCMTS+4*, DCDOCMTS+5, TLDOCMTS~, TLDOCMTS+2, TLDOCMTS+5
TIUFCK NEWTITLE+3~, AGAINNEW+16, AGAINNEW+17
>> TIUFMOVE MTRPOINT+16, MTRPOINT+18, MTRPT1+3, MTRPT1+4, MTRPT1+5, MTRPT1+11
>> TIUFXNOD AGAINDOC, AGAINDOC+4
U CANT+2, AGAINDOC+1, AGAINDOC+5, AGAINDOC+6, AGAINDOC+12, AGAINDOC+14, AGAINDOC+17, AGAINDOC+20, MTRPT1+4
>> VALM("ENTITY" MOVEDOC+4*, MDOCX+1*
>> VALMBCK AGAINDOC*, AGAINDOC+7*
>> VALMQUIT NEWTLX*
>> VALMY(0 AGAINDOC
X NEWTITLE+3~
XDCDA MTRPOINT+8~, MTRPOINT+10*, MTRPOINT+12, MTRPT1~, MTRPT1+4, MTRPT1+6, TLDOCMTS+1~
XDCLASS DCDOCMTS~, DCDOCMTS+3, DCDOCMTS+4
Y AGAINDOC+16, NEWTITLE+3~, AGAINNEW+12, AGAINNEW+13
Y(0 AGAINNEW+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All