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

Package: Imaging

Routine: MAGGTUX1


Information

MAGGTUX1 ;WIOFO/GEK Imaging utility to track missing TYPE INDEX values.

Source Information

Source file <MAGGTUX1.m>

Entry Points

Name Comments DBIA/ICR reference
REVIEW ;
DISPLAY ; This is called after a CHECK or a FIX from MAGGTUX
MAIL ; This will mail results to the MAG SERVER mail group.
BUILD(A) ;BUILD A TMP global of the report.
3 ; called from above. Display the Spec - Proc problems
31 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,EQ
  • Line Location: REVIEW+5
Function Call: WRITE
  • Prompt: !,"No reports to review."
  • Line Location: REVIEW+6
Function Call: WRITE
  • Prompt: !,"Review last Report of Checked or Fixed Index terms: C/F //F :"
  • Line Location: REVIEW+9
Function Call: WRITE
  • Prompt: !,"Starting Review of last Fixed Report:"
  • Line Location: REVIEW+10
Function Call: WRITE
  • Prompt: !,"Starting Review of last Checked Report:"
  • Line Location: REVIEW+11
Function Call: WRITE
  • Prompt: !,"Summary of search for Images where TYPE INDEX = null"
  • Line Location: REVIEW+12
Function Call: WRITE
  • Prompt: !,"Last Image IEN missing a Type Index : ",$P($G(^XTMP(MAGN,0,"NT")),"-")
  • Line Location: REVIEW+17
Function Call: WRITE
  • Prompt: ?41,$$FMTE^XLFDT($P($G(^XTMP(MAGN,0,"NT")),"-",2))
  • Line Location: REVIEW+18
Function Call: WRITE
  • Prompt: !,"Last Image IEN missing All Index : ",$P($G(^XTMP(MAGN,0,"NI")),"-")
  • Line Location: REVIEW+19
Function Call: WRITE
  • Prompt: ?41,$$FMTE^XLFDT($P($G(^XTMP(MAGN,0,"NI")),"-",2))
  • Line Location: REVIEW+20
Function Call: WRITE
  • Prompt: !,"------------------------------"
  • Line Location: REVIEW+21
Function Call: WRITE
  • Prompt: !,"Different settings of invalid INDEX Node"
  • Line Location: REVIEW+23
Function Call: WRITE
  • Prompt: !,"Current Terms",?22,"Generated Terms",?50,"New Terms",!
  • Line Location: REVIEW+24
Function Call: WRITE
  • Prompt: !,I,?20,^XTMP(MAGN,"AAN40",I),?65,"= ",TCT
  • Line Location: REVIEW+27
Function Call: WRITE
  • Prompt: !,I,?20,"+ ",J,?45,"= ",^XTMP(MAGN,"AAN40",I,"CVT",J)
  • Line Location: REVIEW+29
Function Call: WRITE
  • Prompt: !!,"Mismatch in the Generated Values of Specialty/SubSpec <-> Proc/Event",!
  • Line Location: 3+3
Function Call: WRITE
  • Prompt: !!,"Mismatch in the User entered Values of Specialty/SubSpec <-> Proc/Event",!
  • Line Location: 3+6
Function Call: WRITE
  • Prompt: !,CT," "
  • Line Location: 31+7
Function Call: WRITE
  • Prompt: ?7,MY(I),!
  • Line Location: 31+8
Function Call: WRITE
  • Prompt: ?35,"Valid specs: "
  • Line Location: 31+9
Function Call: WRITE
  • Prompt: !,?35,$P(^MAG(2005.84,I3,0),"^")
  • Line Location: 31+11
Function Call: WRITE
  • Prompt: " <",$P(^MAG(2005.84,SUBO,0),"^"),">"
  • Line Location: 31+13
Function Call: WRITE
  • Prompt: !,?7,CT,?15,"Desc: ",^TMP($J,"MAGDCT",CT)
  • Line Location: 31+18
Function Call: WRITE
  • Prompt: !
  • Line Location: 31+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call