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

Package: Text Integration Utility

Routine: TIUFHA7


Information

TIUFHA7 ; SLC/MAM - VALMBG(FILEDA,EFILEDA,EOLDLNO), UPDATE, MOVETL, REEXPAND(FILEDA,LINENO,UPDATE), WHICHDC(FILEDA,PFILEDA,ACTION) ;1/27/06

Source Information

Source file <TIUFHA7.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Text Integration Utility 10 (COLLAPSE,EXPAND1)^TIUFH1  $$OVERRIDE^TIUFHA2  MTRPOINT^TIUFHA8  CHECK^TIUFLF3  ADDTEN^TIUFLF4  AUTOSTAT^TIUFLF6  PARSE^TIUFLLM  LINEUP^TIUFLLM1  
PAUSE^TIUFXHLX  $$ISPFTTL^TIUPRFL  
VA FileMan 3 ^DIC  ^DIK  ^DIR  
Kernel 1 $$FMADD^XLFDT  
List Manager 1 EN^VALM2  

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

Package Total Caller Graph
Text Integration Utility 2 TIUFHA2  TIUFHA8  

Entry Points

Name Comments DBIA/ICR reference
WHICHDC(FILEDA,PFILEDA,ACTION) ; Function returns IFN of DC to copy/move Title to, or 0 if none chosen
AGAINDC
WDCX
VALMBG(FILEDA,EFILEDA,EOLDLNO) ; Set VALMBG to show FILEDA if FILEDA is in LM Array.
; requires FILEDA.
; Requires EFILEDA = DA of LM entry of interest, EOLDLNO = old lineno of EFILEDA. EFILEDA and/or EOLDLNO may be 0.
; Entry of interest is entry to be copied, or Parent of Title to me moved, or Title whose documents are being moved.
UPDATE ; Update Parent Document Type for documents of a certain title
; ALSO updates CLASS xrefs if valid OLDCLASS can be gotten from ^XTMP("TIUFMOVEN",FILEDA)=OLDCLASS
AGAINUP
UPDAX
MOVETL ; Move Title to different DC. Template H ONLY. National titles cannot be moved. Unless special arrangements are made w/ TIU developers, new DC must be in same CLASS as original DC.
AGAINTL
MTLX
REEXPAND(FILEDA,LINENO,UPDATE) ; Collapse, reexpand FILEDA; FILEDA is LINENO in LM array. Sets VALMCNT. Updates LINENO if UPDATE.
; Requires FILEDA, LINENO.

External References

Name Field # of Occurrence
^DIC AGAINDC+15
^DIK AGAINTL+36
^DIR AGAINDC+22
COLLAPSE^TIUFH1 REEXPAND+4
EXPAND1^TIUFH1 REEXPAND+4
$$OVERRIDE^TIUFHA2 AGAINDC+18, AGAINTL+13, AGAINTL+33
MTRPOINT^TIUFHA8 AGAINUP+8, AGAINTL+44
CHECK^TIUFLF3 AGAINDC+17, AGAINTL+9, AGAINTL+23
ADDTEN^TIUFLF4 AGAINTL+38
AUTOSTAT^TIUFLF6 AGAINTL+35
PARSE^TIUFLLM REEXPAND+4
LINEUP^TIUFLLM1 REEXPAND+5
PAUSE^TIUFXHLX AGAINDC+18, AGAINUP, AGAINUP+3, AGAINUP+4, AGAINTL, AGAINTL+3, AGAINTL+4, AGAINTL+5, AGAINTL+14, AGAINTL+33
, AGAINTL+45
$$ISPFTTL^TIUPRFL AGAINTL+5
EN^VALM2 AGAINUP, AGAINTL
$$FMADD^XLFDT AGAINUP+7, AGAINTL+43

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," Selecting target Document Class. Enter '??' for a list of selectable ones.",!
  • Line Location: AGAINDC+2
Function Call: WRITE
  • Prompt: " You may not select PRF Flag Document Classes"
  • Line Location: AGAINDC+3
Function Call: WRITE
  • Prompt: " or Document Classes",!," outside the original Class."
  • Line Location: AGAINDC+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: AGAINDC+5
Function Call: WRITE
  • Prompt: $S(ACTION="MT":" Title NOT moved.",1:" Copy NOT added.")
  • Line Location: AGAINDC+18
Function Call: WRITE
  • Prompt: !!,"Faulty Document Class. Please TRY it and correct problems before ",$S(ACTION="MT":"Moving Title",1:"Adding Copy"),!,"to it. "
  • Line Location: AGAINDC+19
Function Call: WRITE
  • Prompt: !,"... Not in Current View"
  • Line Location: VALMBG+6
Function Call: WRITE
  • Prompt: !!," Missing List Manager Data; See IRM",!
  • Line Location: AGAINUP+0
Function Call: WRITE
  • Prompt: !," ?? Entry must be a TITLE (not a Document Class, etc.).",!
  • Line Location: AGAINUP+3
Function Call: WRITE
  • Prompt: !," ?? Title has no documents to Update",!
  • Line Location: AGAINUP+4
Function Call: WRITE
  • Prompt: !!," Missing List Manager Data; See IRM",!
  • Line Location: AGAINTL+0
Function Call: WRITE
  • Prompt: !," ?? Entry must be a TITLE (not a Document Class, etc.).",!
  • Line Location: AGAINTL+3
Function Call: WRITE
  • Prompt: !," ?? Can't Move National Titles",!
  • Line Location: AGAINTL+4
Function Call: WRITE
  • Prompt: !," ?? Can't Move PRF Flag Titles",!
  • Line Location: AGAINTL+5
Function Call: WRITE
  • Prompt: !!,"Faulty Title. Please TRY it and correct problems before moving it.",!
  • Line Location: AGAINTL+12
Function Call: WRITE
  • Prompt: " NOT Moved",!
  • Line Location: AGAINTL+14
Function Call: WRITE
  • Prompt: !!,"Another user is editing this Title.",!
  • Line Location: AGAINTL+16
Function Call: WRITE
  • Prompt: !!,"Documents would not function properly under this move",!,"since Title lacks Technical Fields. Please edit Title's:",!
  • Line Location: AGAINTL+28
Function Call: WRITE
  • Prompt: !,"Use values Title inherits from its ancestors. (To see inherited values, select",!,"Detailed Display for the CURRENT PARENT."
  • Line Location: AGAINTL+30
Function Call: WRITE
  • Prompt: " In some cases you may have to look",!,"higher up the hierarchy than current parent."
  • Line Location: AGAINTL+31
Function Call: WRITE
  • Prompt: ") Then come back and try again",!,"to move the Title.",!
  • Line Location: AGAINTL+32
Function Call: WRITE
  • Prompt: " Title NOT moved",!
  • Line Location: AGAINTL+33
Function Call: WRITE
  • Prompt: !,"...Title Inactivated, Moved to ",$P(NEWDCY,U,2),"."
  • Line Location: AGAINTL+41
Function Call: WRITE
  • Prompt: !!,"Since the Title is in a new Document Class, it now inherits from a new parent",!,"wherever it lacks its own values, and its behavior may differ from before. It",!
  • Line Location: AGAINTL+46
Function Call: WRITE
  • Prompt: "may also differ from its new siblings wherever it HAS its own values and",!,"siblings INHERIT them.",!
  • Line Location: AGAINTL+47
Function Call: WRITE
  • Prompt: !,"Please check Title thoroughly before reactivating. Check Business Rules,",!,"TIU Document Parameters, and Document Definition attributes including Basic,",!,"Technical, and Upload fields.",!
  • Line Location: AGAINTL+48
Function Call: WRITE
  • Prompt: !,"Note that the IN USE display is not updated for CLASSES if old and new Document",!
  • Line Location: AGAINTL+50
Function Call: WRITE
  • Prompt: "Classes were in different Classes. This is intentional, to speed up the move",!
  • Line Location: AGAINTL+51
Function Call: WRITE
  • Prompt: "process. Display can be updated at any time by collapsing and reexpanding",!
  • Line Location: AGAINTL+52
Function Call: WRITE
  • Prompt: "the hierarchy.",!
  • Line Location: AGAINTL+53
Routine Call
  • DIC
  • Line Location:
    • AGAINDC+15
Routine Call
  • DIR
  • Line Location:
    • AGAINDC+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.1 - [#8925.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] AGAINUP+4
^TIU(8925.1 - [#8925.1] WHICHDC+5, AGAINDC+17, AGAINDC+20, AGAINUP+1, AGAINTL+1, AGAINTL+6, AGAINTL+16, AGAINTL+19, AGAINTL+20, MTLX+1
^TMP("TIUF" AGAINTL+35
^TMP("TIUF1IDX" VALMBG+5, AGAINUP, AGAINTL, AGAINTL+39, REEXPAND+4
^XTMP("TIUFMOVE" AGAINUP+7*, AGAINTL+42!, AGAINTL+43*
^XTMP("TIUFMOVEN" AGAINUP+5

Label References

Name Line Occurrences
$$WHICHDC AGAINTL+17
AGAINDC AGAINDC+20
AGAINTL AGAINTL+3, AGAINTL+4, AGAINTL+5
AGAINUP AGAINUP+3, AGAINUP+4
MTLX AGAINTL, AGAINTL+3, AGAINTL+4, AGAINTL+5, AGAINTL+9, AGAINTL+11, AGAINTL+16, AGAINTL+18, AGAINTL+23, AGAINTL+33
REEXPAND AGAINTL+37, AGAINTL+40
UPDAX AGAINUP, AGAINUP+3, AGAINUP+4
VALMBG AGAINTL+40
WDCX AGAINDC+15, AGAINDC+18, AGAINDC+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION WHICHDC~, AGAINDC+1, AGAINDC+14, AGAINDC+18, AGAINDC+19
CWAD1 WHICHDC+4~, AGAINDC+20*
CWAD2 WHICHDC+4~, AGAINDC+20*
DA MOVETL+3~, AGAINTL+36*
DA(1 AGAINTL+36*
DIC WHICHDC+4~, AGAINDC*
DIC("A" AGAINDC+6*, AGAINDC+14*
DIC("S" AGAINDC+11*, AGAINDC+12*, AGAINDC+13*, AGAINDC+14*
DIC(0 AGAINDC*
DIK MOVETL+3~, AGAINTL+36*
DIR WHICHDC+4~, UPDATE+2~, MOVETL+2~
DIR("A" AGAINDC+22*
DIR("B" AGAINDC+21*
DIR(0 AGAINDC+21*
DIRUT AGAINUP+3~, AGAINUP+4, AGAINTL+3~, AGAINTL+4, AGAINTL+5, AGAINTL+15!, AGAINTL+45
DT AGAINUP+7, AGAINTL+43
>> DTOUT WDCX, AGAINTL+9, AGAINTL+23, MTLX
EFILEDA VALMBG~, VALMBG+5
ENEWLNO VALMBG+4~, VALMBG+5*, VALMBG+9
EOLDLNO VALMBG~, VALMBG+9
EXPAND MOVETL+3~, REEXPAND+3~, REEXPAND+4*
FILEDA WHICHDC~, VALMBG~, VALMBG+5, UPDATE+2~, AGAINUP+1*, AGAINUP+4, AGAINUP+5, AGAINUP+7, AGAINUP+8, MOVETL+1~
, AGAINTL+1*, AGAINTL+5, AGAINTL+6, AGAINTL+9, AGAINTL+16, AGAINTL+17, AGAINTL+23, AGAINTL+35, AGAINTL+38, AGAINTL+40
, AGAINTL+42, AGAINTL+43, AGAINTL+44, MTLX+1, REEXPAND~
GPFILEDA WHICHDC+4~, WHICHDC+5*, MOVETL+2~, AGAINTL+19*, AGAINTL+20
INFO UPDATE+2~, AGAINUP*, AGAINUP+1, MOVETL+1~, AGAINTL*, AGAINTL+1, AGAINTL+7, REEXPAND+3~, REEXPAND+4*, REEXPAND+5
LACKTECH MOVETL+3~, AGAINTL+25*, AGAINTL+26*, AGAINTL+27, AGAINTL+33
LINENO VALMBG+4~, VALMBG+5*, VALMBG+6, VALMBG+7, VALMBG+9, VALMBG+10, MOVETL+1~, AGAINTL+1*, REEXPAND~, REEXPAND+4
NDCLNO MOVETL+1~, AGAINTL+39*, AGAINTL+40
NEWDCY WHICHDC+4~, AGAINDC+16*, AGAINDC+17, AGAINDC+18!, AGAINDC+23!, WDCX+1, MOVETL+1~, AGAINTL+17*, AGAINTL+18, AGAINTL+20
, AGAINTL+23, AGAINTL+38, AGAINTL+39, AGAINTL+40, AGAINTL+41
NEWDCY(0 AGAINDC+16*, AGAINDC+20
NODE0 UPDATE+2~, AGAINUP+1*, AGAINUP+3, MOVETL+1~, AGAINTL+1*, AGAINTL+3, AGAINTL+4, AGAINTL+35, AGAINTL+38
OLDCLASS UPDATE+2~, AGAINUP+5*, AGAINUP+6*, AGAINUP+8, MOVETL+2~, AGAINTL+20*, AGAINTL+21*, AGAINTL+44
OVERRIDE MOVETL+3~, AGAINTL+11, AGAINTL+13*, AGAINTL+14
PFILEDA WHICHDC~, WHICHDC+5, AGAINDC+20, MOVETL+1~, AGAINTL+6*, AGAINTL+9, AGAINTL+17, AGAINTL+19, AGAINTL+36, AGAINTL+37
, AGAINTL+40
PLINENO MOVETL+1~, AGAINTL+7*, AGAINTL+37, AGAINTL+40
TENDA MOVETL+1~, AGAINTL+7*, AGAINTL+36
TIUFCK AGAINDC+17~, AGAINDC+18, AGAINTL+9~, AGAINTL+11, AGAINTL+23~
TIUFCK( AGAINTL+26, AGAINTL+29
TIUFCK("D" AGAINTL+10!
TIUFCK("E" AGAINTL+10!
TIUFCK("G" AGAINTL+10!, AGAINTL+31
TIUFCK("H" AGAINTL+10!, AGAINTL+31
TIUFCK("N" AGAINTL+10!, AGAINTL+31
TIUFCK("R" AGAINTL+10!
TIUFCK("V" AGAINTL+10!
TIUFI MOVETL+3~, AGAINTL+26*, AGAINTL+29*
TIUFMOVE UPDATE+4*, AGAINUP+5, AGAINUP+7, UPDAX!, MOVETL+5*, AGAINTL+42, AGAINTL+43, MTLX+1!
>> TIUFTMPL VALMBG+6
>> TIUFWHO AGAINDC+4, AGAINDC+13, AGAINTL+49
>> TIUFXNOD AGAINUP, AGAINUP+3, AGAINUP+4, AGAINTL, AGAINTL+3, AGAINTL+4, AGAINTL+5
U AGAINDC+20, AGAINUP+1, AGAINUP+3, AGAINUP+7, AGAINTL+1, AGAINTL+3, AGAINTL+4, AGAINTL+7, AGAINTL+29, AGAINTL+35
, AGAINTL+41, AGAINTL+43, REEXPAND+4
UPDATE REEXPAND~, REEXPAND+5
>> VALM("ENTITY" UPDATE+5*, UPDAX*, MOVETL+4*, MTLX+1*
>> VALM("LINES" VALMBG+9
>> VALMBCK AGAINUP*, AGAINTL*, AGAINTL+15*, MTLX*
>> VALMBG VALMBG+9, VALMBG+10*
>> VALMCNT REEXPAND+4*
>> VALMQUIT WDCX*
>> VALMY(0 AGAINUP, AGAINTL
X WHICHDC+4~
Y WHICHDC+4~, AGAINDC+15, AGAINDC+16, AGAINDC+20, AGAINDC+23
Y(0 AGAINDC+16
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