Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call