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 |  Marked Items |  All
Print Page as PDF
Routine: TIUPS209

Package: Text Integration Utility

Routine: TIUPS209


Information

TIUPS209 ; SLC/AJB - Active Titles Report & Cleanup v2; 06/01/06 ; 7/26/06 11:46am

Source Information

Source file <TIUPS209.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 ^DIC  FILE^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT  EN^XUTMDEVQ  
Registration 1 $$SETSTR^VALM1  
Text Integration Utility 1 $$WRAP^TIULS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Text Integration Utility 1 TIU ACTIVE TITLE CLEANUP  

Entry Points

Name Comments DBIA/ICR reference
EN ; control segment
RPT ;
ASKUSER(ANS,DIR,TIUQUIT) ; ask the user if they want to update titles now
OMIT ;
UPDATE ; updates status field of TIU Document Title to INACTIVE
RESTART ;
REPORT ;
SPACER(TEXT,LENGTH,REV) ;
GETLAST(TIUDA) ;

External References

Name Field # of Occurrence
^DIC OMIT+9
FILE^DIE UPDATE+2
$$GET1^DIQ RESTART+31, RESTART+32, RESTART+46, RESTART+55, RESTART+56, OMIT+14
^DIR ASKUSER+8, OMIT+12, OMIT+16
$$WRAP^TIULS RESTART+42, RESTART+55
$$SETSTR^VALM1 RESTART+43, RESTART+44, RESTART+45, RESTART+46
$$FMADD^XLFDT RESTART+9
$$FMDIFF^XLFDT RESTART+33
$$FMTE^XLFDT RESTART+45
$$NOW^XLFDT REPORT+2, RESTART+9, RESTART+10, RESTART+33
EN^XUTMDEVQ EN+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,@LINETXT
  • Line Location: RESTART+35
Function Call: WRITE
  • Prompt: !,DISPLAY
  • Line Location: RESTART+47
Function Call: WRITE
  • Prompt: !,?2,$P(TITLE,"|",DATA)
  • Line Location: RESTART+48
Function Call: WRITE
  • Prompt: !!,"The following IENs from File #8925.1 have an invalid #.01 Field.",!
  • Line Location: RESTART+50
Function Call: WRITE
  • Prompt: !,TIUDA
  • Line Location: RESTART+51
Function Call: WRITE
  • Prompt: !!,"The following IENs from File #8925.1 have an incorrect #.04 Field.",!
  • Line Location: RESTART+53
Function Call: WRITE
  • Prompt: !,$$SPACER(TIUDA,12)_$P(TITLE,"|")_" ["_$$GET1^DIQ(8925.1,TIUDA,.04)_"]"
  • Line Location: RESTART+56
Function Call: WRITE
  • Prompt: !,?14,$P(TITLE,"|",DATA)
  • Line Location: RESTART+57
Function Call: WRITE
  • Prompt: !!,"The following DOCUMENT IENs have an incorrect (null or zero) #.01 Field.",!
  • Line Location: RESTART+59
Function Call: WRITE
  • Prompt: !,$$SPACER(TIUDA,12)
  • Line Location: RESTART+60
Function Call: WRITE
  • Prompt: $$GET1^DIQ(8925.1,@TMP@("UNK",TIUDA),.01)
  • Line Location: RESTART+60
Function Call: WRITE
  • Prompt: !!,"All active titles that have not been used in the previous 365 days"
  • Line Location: ASKUSER+11
Function Call: WRITE
  • Prompt: !,"will be set to INACTIVE.",!
  • Line Location: ASKUSER+12
Function Call: WRITE
  • Prompt: !,"You may select individual DOCUMENT TITLES that will NOT be set"
  • Line Location: ASKUSER+13
Function Call: WRITE
  • Prompt: !,"to INACTIVE by this cleanup.",!
  • Line Location: ASKUSER+14
Function Call: WRITE
  • Prompt: !!,"Enter the DOCUMENT TITLE(S) that will NOT be INACTIVATED",!
  • Line Location: OMIT+4
Function Call: WRITE
  • Prompt: "during the cleanup process.",!!
  • Line Location: OMIT+5
Function Call: WRITE
  • Prompt: "Enter RETURN or '^' to finish selections.",!
  • Line Location: OMIT+6
Function Call: WRITE
  • Prompt: !!,"No selections made.",!
  • Line Location: OMIT+12
Function Call: WRITE
  • Prompt: !!,$S(TIUCNT>1:"The following DOCUMENT TITLES will NOT be INACTIVATED: ",1:"The following DOCUMENT TITLE will NOT be INACTIVATED: "),!!
  • Line Location: OMIT+13
Function Call: WRITE
  • Prompt: ?5,$$GET1^DIQ(8925.1,X_",",.01),!
  • Line Location: OMIT+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: OMIT+16
Routine Call
  • DIC
  • Line Location:
    • OMIT+9
Routine Call
  • DIE
  • Line Location:
    • UPDATE+2
Routine Call
  • DIR
  • Line Location:
    • ASKUSER+8
    • OMIT+12
    • OMIT+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^TIU(8925.1 - [#8925.1] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] RESTART+8, RESTART+19, GETLAST+2, GETLAST+6
^TIU(8925.1 - [#8925.1] RESTART+2, RESTART+7, RESTART+21, RESTART+24, RESTART+30, GETLAST+3
^TMP("TIUPS209" RESTART+3

Label References

Name Line Occurrences
$$GETLAST RESTART+32
$$SPACER RESTART+44, RESTART+56, RESTART+60
ASKUSER EN+3, ASKUSER+15
OMIT ASKUSER+16
RESTART RESTART+34
UPDATE RESTART+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS EN+1~, EN+3, ASKUSER~, ASKUSER+15
ANS("EXIT" EN+3, ASKUSER+1, ASKUSER+8*
ANS("INACT" RESTART+34*, ASKUSER+1, ASKUSER+9*, ASKUSER+10, ASKUSER+16
CNT REPORT+1~, RESTART+1*, RESTART+4, RESTART+7, RESTART+11, RESTART+12, RESTART+13, RESTART+14, RESTART+15, RESTART+18
, RESTART+20, RESTART+21, RESTART+22, RESTART+23, RESTART+25, RESTART+26, RESTART+27, RESTART+30, RESTART+31, RESTART+32
, GETLAST+7
DATA RESTART+38~, RESTART+39*, RESTART+40, RESTART+41, RESTART+44, RESTART+45, RESTART+46, RESTART+48*, RESTART+55~, RESTART+57*
DIC OMIT+3~, OMIT+7*
DIC("A" OMIT+8*, OMIT+10*
DIC("S" OMIT+7*
DIC(0 OMIT+8*
DIR ASKUSER~, ASKUSER+4, OMIT+3~
DIR("?" ASKUSER+5*, ASKUSER+6*, ASKUSER+7*
DIR("A" ASKUSER+4*, OMIT+12*, OMIT+15*
DIR("B" ASKUSER+4*, OMIT+15*
DIR(0 ASKUSER+3*, OMIT+12*, OMIT+15*
DIRUT ASKUSER+2~
DISPLAY RESTART+38~, RESTART+43*, RESTART+44*, RESTART+45*, RESTART+46*, RESTART+47
DTOUT ASKUSER+2~, ASKUSER+8
DUOUT ASKUSER+2~, ASKUSER+8
ENDDT REPORT+1~, RESTART+10*, RESTART+17
ENDTIME REPORT+1~, RESTART+33*
GBL REPORT+1~, RESTART+2*, RESTART+6, RESTART+8*, RESTART+17, GETLAST+1~, GETLAST+2*, GETLAST+4
IEN GETLAST+1~, GETLAST+4*, GETLAST+5*, GETLAST+6, GETLAST+7
IOF EN+2
LENGTH SPACER~, SPACER+3
LINE REPORT+1~, RESTART+35*
LINETXT REPORT+1~, RESTART+35*
POP EN+5~, ASKUSER+2~, OMIT+3~
REV SPACER~, SPACER+4, SPACER+5
SPACER SPACER+1~, SPACER+2*, SPACER+3*, SPACER+4, SPACER+5
ST GETLAST+1~, GETLAST+4*
STATUS RESTART+38~, RESTART+41*, RESTART+42
STRDT REPORT+1~, RESTART+9*, RESTART+17*
STRTIME REPORT+1~, REPORT+2*, RESTART+33
TDT GETLAST+1~, GETLAST+4*, GETLAST+5*
TEMP GETLAST+1~
TEMP( GETLAST+4*, GETLAST+5
TEXT SPACER~, SPACER+3, SPACER+4*, SPACER+5*, SPACER+6
TITLE RESTART+38~, RESTART+42*, RESTART+43, RESTART+48, RESTART+55~*, RESTART+56, RESTART+57
TIUCNT OMIT+3~, OMIT+7*, OMIT+10*, OMIT+12, OMIT+13
TIUCONT OMIT+1~, OMIT+2, OMIT+17*
TIUD0 RESTART+19~*, RESTART+20, RESTART+21, RESTART+22, RESTART+23, RESTART+24, GETLAST+6~*, GETLAST+7
TIUD12 RESTART+19~*, RESTART+24, GETLAST+6~*, GETLAST+8
TIUDA REPORT+1~, RESTART+16*, RESTART+17*, RESTART+19, RESTART+20, RESTART+28*, RESTART+29*, RESTART+30, RESTART+31, RESTART+32
, RESTART+51*, RESTART+54*, RESTART+55, RESTART+56, RESTART+60*, GETLAST~, GETLAST+2, GETLAST+3, UPDATE+1~, UPDATE+2*
TIUDESC EN+5~, EN+6*, EN+7
TIUMSG UPDATE+1~
TIUOMIT EN+1~, OMIT+16!
TIUOMIT( OMIT+10*, OMIT+14, UPDATE+2
TIUQUIT ASKUSER~, ASKUSER+9, OMIT+1~, OMIT+2, OMIT+9, OMIT+11, OMIT+12*, OMIT+16*
TIURTN EN+5~, EN+6*, EN+7
TIUSAVE EN+5~, EN+7
TIUSAVE("*" EN+6*
TIUUPDT UPDATE+1~
TIUUPDT( UPDATE+2*
TIUX REPORT+1~, RESTART+5*, RESTART+6*, RESTART+19~, RESTART+21*, RESTART+23, RESTART+36*, RESTART+37*, RESTART+39, RESTART+42
TIUY REPORT+1~, RESTART+5*, RESTART+6*, RESTART+7, RESTART+37*, RESTART+39, RESTART+40, GETLAST+1~, GETLAST+3*, GETLAST+8*
, GETLAST+9
TMP REPORT+1~, RESTART+3*, RESTART+7, RESTART+20, RESTART+21, RESTART+22, RESTART+23, RESTART+24, RESTART+29, RESTART+30
, RESTART+31, RESTART+32, RESTART+34, RESTART+37, RESTART+39, RESTART+49, RESTART+51, RESTART+52, RESTART+54, RESTART+58
, RESTART+60, RESTART+61, GETLAST+7, UPDATE+2
TOTTIME REPORT+1~, RESTART+33*
U RESTART+7, RESTART+21, RESTART+24, RESTART+30, RESTART+40, RESTART+41, RESTART+45, RESTART+46, GETLAST+3, GETLAST+8
, OMIT+16
X ASKUSER+2~, OMIT+3~, OMIT+14*
Y ASKUSER+2~, OMIT+3~, OMIT+9, OMIT+10, OMIT+16
Y(0 ASKUSER+9

Marked Items

Name Field # of Occurrence
$T(RPT+LINE RESTART+35
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 |  Marked Items |  All