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

Package: Engineering

Routine: ENY2REP5


Information

ENY2REP5 ;;(WIRMFO)/DH-Overall Y2K Status by Man~Mod ;9.30.98

Source Information

Source file <ENY2REP5.m>

Entry Points

Name Comments DBIA/ICR reference
VIEW ; status of Y2K data base by manufacturer~model
; counts only, no costing information
VIEW1
VIEWPRT ; print the snapshot
VIEWHDR ; header for Y2K snapshot
HOLD
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,?20,"** STATUS OF Y2K EQUIPMENT DATA BASE **"
  • Line Location: VIEW+2
Function Call: WRITE
  • Prompt: !!,"There is no STATION NUMBER in your Engineering Init Paramaters file.",!,"Can't proceed.",*7
  • Line Location: VIEW+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: VIEW+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: VIEW+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: VIEW+17
Function Call: WRITE
  • Prompt: "."
  • Line Location: VIEW1+11
Function Call: WRITE
  • Prompt: !!,?15,"<Nothing to print>"
  • Line Location: VIEWPRT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VIEWPRT+3
Function Call: WRITE
  • Prompt: ?48,$J(^TMP($J,STATION,MAN("E"),MOD,"NC"),5),?54,$J(^("CC"),5)
  • Line Location: VIEWPRT+5
Function Call: WRITE
  • Prompt: ?66,$J(^TMP($J,STATION,MAN("E"),MOD,0),5)
  • Line Location: VIEWPRT+6
Function Call: WRITE
  • Prompt: ?72,$J(TOTAL,5)
  • Line Location: VIEWPRT+8
Function Call: WRITE
  • Prompt: !,X
  • Line Location: VIEWPRT+12
Function Call: WRITE
  • Prompt: !,"TOTALS",?42
  • Line Location: VIEWPRT+13
Function Call: WRITE
  • Prompt: $J(TOTAL(STATION,"NA"),5)
  • Condition for execution: 'ENSUP $J(TOTAL(STATION,"FC"),5) W ?48,$J(TOTAL(STATION,"NC"),5),?54,$J(TOTAL(STATION,"CC"),5),?60 W:'ENSUP
  • Line Location: VIEWPRT+13
Function Call: WRITE
  • Prompt: ?66,$J(TOTAL(STATION,0),5),?72,$J(TOTAL(STATION,"GRAND"),5)
  • Line Location: VIEWPRT+13
Function Call: WRITE
  • Prompt: "Y2K Equipment Status - Counts Only Printed: "_DATE("PRNT")_" Page: "_PAGE
  • Line Location: VIEWHDR+2
Function Call: WRITE
  • Prompt: !,"Equipment Records with Y2K Category of 'FC' or 'NA' are not being counted."
  • Line Location: VIEWHDR+3
Function Call: WRITE
  • Prompt: !,X
  • Line Location: VIEWHDR+5
Function Call: WRITE
  • Prompt: !!,"Press <RETURN> to continue, '^' to escape..."
  • Line Location: HOLD+1
Info |  Source |  Entry Points |  Interaction Calls