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
Print Page as PDF
Routine: MAGGTUX

Package: Imaging

Routine: MAGGTUX


Information

MAGGTUX ;WIOFO/GEK/SG - Imaging utility to validate INDEX values. ; 2/5/09 1:58pm

Source Information

Source file <MAGGTUX.m>

Entry Points

Name Comments DBIA/ICR reference
CHECK ; Check the entries, NO DATABASE changes.
FIX ; Fix/Check INDEX values in Image File entries.
1(COMMIT,MAGN) ; Start here.
TASK ;
START(COMMIT,MAGN,QUEUED) ;Start here.
END ;
ERR ;
EST() ;Estimate time remaining.
PRLINE ; Print a line of current counts
PRHDR ; Print a header and estimate of time.
; For Test DataBase, put code to Hang here for 1 sec. (magslow)
REVIEW

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ is undefined. Quitting."
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !," **** Just Checking entries, no DataBase changes will occur. ****",!
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: !,"Validate Image Index Terms:"
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: !," The Image File is searched for invalid or missing index values."
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: !," The Image Index Generate and Commit functions are used"
  • Line Location: 1+6
Function Call: WRITE
  • Prompt: !," to fix the incorrect Index values."
  • Line Location: 1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+8
Function Call: WRITE
  • Prompt: !,"For a summary of the index values that will be changed."
  • Line Location: 1+9
Function Call: WRITE
  • Prompt: !," use the menu option: CHK - Check Image File for missing Index values"
  • Line Location: 1+10
Function Call: WRITE
  • Prompt: !," "
  • Line Location: 1+11
Function Call: WRITE
  • Prompt: !,"To Fix the invalid index values in the Image File (#2005)."
  • Line Location: 1+12
Function Call: WRITE
  • Prompt: !," use the menu option: FIX - Fix missing Index values in Image File"
  • Line Location: 1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+14
Function Call: WRITE
  • Prompt: !," **** Just Checking entries, No DataBase changes will occur. ****",!
  • Line Location: 1+15
Function Call: WRITE
  • Prompt: !," **** Fixing invalid entries, DataBase changes Will occur. ****",!
  • Line Location: 1+16
Function Call: WRITE
  • Prompt: !,"Canceled. "
  • Line Location: 1+18
Function Call: WRITE
  • Prompt: !,DESC_" Has been Queued as task# : "_ZTSK
  • Line Location: 1+26
Function Call: WRITE
  • Prompt: !,"Image Index Validate process is currently running. Try later."
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!,"Just Checking Index Terms, NO CHANGES to database. (Q to quit)"
  • Line Location: START+22
Function Call: WRITE
  • Prompt: !!,"Invalid entries will be fixed. Database will be modified (Q to quit)"
  • Line Location: START+23
Function Call: WRITE
  • Prompt: !!," Press 'Q' at any time to QUIT. It can be resumed later.",!
  • Line Location: START+24
Function Call: WRITE
  • Prompt: !,"Ready to Start Y/N N// "
  • Line Location: START+25
Function Call: WRITE
  • Prompt: !!,"Canceled."
  • Line Location: START+26
Function Call: WRITE
  • Prompt: !,"Starting at "_$$FMTE^XLFDT(STTIME)
  • Line Location: START+27
Function Call: READ
  • Variable: X
  • Timeout: 0
  • Line Location: START+42
Function Call: WRITE
  • Prompt: !
  • Line Location: START+44
Function Call: WRITE
  • Prompt: !,IEN,?10,CDT,?22,CT,?36,NT,?48,NI,?64,$$EST_" ..."
  • Line Location: PRLINE+3
Function Call: WRITE
  • Prompt: !,"Just Checking Index Terms, NO CHANGES to database. (Q to quit)"
  • Line Location: PRHDR+3
Function Call: WRITE
  • Prompt: !,"IEN Saved #checked No Type No Index values est: "
  • Line Location: PRHDR+4
Info |  Source |  Entry Points |  Interaction Calls