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

Package: Engineering

Routine: ENY2REP8


Information

ENY2REP8 ;;(WIRMFO)/DH-Print Y2K Summary Reports ;9.30.98

Source Information

Source file <ENY2REP8.m>

Entry Points

Name Comments DBIA/ICR reference
DEQUE ; print a summary report
CSN
CAT
MFG ; must be by manufacturer
; mfg initialization
PRTCAT
PRTMFG
TOTALS ; skip totals if printing high counts only
HEADR ; header for summary listing
HOLD
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "."
  • Line Location: CAT+8
Function Call: WRITE
  • Prompt: !!,?15,"<Nothing to print>"
  • Line Location: CAT+28
Function Call: WRITE
  • Prompt: !!,"** No records to print **"
  • Line Location: CAT+31
Function Call: WRITE
  • Prompt: "."
  • Line Location: MFG+8
Function Call: WRITE
  • Prompt: !!,"** No records to print **"
  • Line Location: MFG+30
Function Call: WRITE
  • Prompt: !,$E($P(^ENG(6911,CAT(0),0),U),1,30),?42,$J(^TMP($J,STATION,CAT(0),"NC"),5),?49,$J(^("CC"),5),?63,$J(^(0),5),?71,$J(^TMP($J,STATION,"COUNT",CAT(0)),5)
  • Line Location: PRTCAT+0
Function Call: WRITE
  • Prompt: !,$E($P(^ENG(6911,CAT(0),0),U),1,30),?35,$J(^TMP($J,STATION,CAT(0),"FC"),5),?42,$J(^("NC"),5),?49,$J(^("CC"),5),?56,$J(^("NA"),5),?63,$J(^(0),5),?71,$J(^TMP($J,STATION,"COUNT",CAT(0)),5)
  • Line Location: PRTCAT+1
Function Call: WRITE
  • Prompt: !,$E($P(^ENG("MFG",MFG(0),0),U),1,30),?42,$J(^TMP($J,STATION,MFG(0),"NC"),5),?49,$J(^("CC"),5),?63,$J(^(0),5),?71,$J(^TMP($J,STATION,"COUNT",MFG(0)),5)
  • Line Location: PRTMFG+0
Function Call: WRITE
  • Prompt: !,$E($P(^ENG("MFG",MFG(0),0),U),1,30),?35,$J(^TMP($J,STATION,MFG(0),"FC"),5),?42,$J(^("NC"),5),?49,$J(^("CC"),5),?56,$J(^("NA"),5),?63,$J(^(0),5),?71,$J(^TMP($J,STATION,"COUNT",MFG(0)),5)
  • Line Location: PRTMFG+1
Function Call: WRITE
  • Prompt: !,X
  • Line Location: TOTALS+2
Function Call: WRITE
  • Prompt: !,"TOTALS",?42,$J(TOTAL(STATION,"NC"),5),?49,$J(TOTAL(STATION,"CC"),5),?63,$J(TOTAL(STATION,0),5),?71,$J(TOTAL(STATION),5)
  • Line Location: TOTALS+3
Function Call: WRITE
  • Prompt: !,"TOTALS",?35,$J(TOTAL(STATION,"FC"),5),?42,$J(TOTAL(STATION,"NC"),5),?49,$J(TOTAL(STATION,"CC"),5),?56,$J(TOTAL(STATION,"NA"),5),?63,$J(TOTAL(STATION,0),5),?71,$J(TOTAL(STATION),5)
  • Line Location: TOTALS+4
Function Call: WRITE
  • Prompt: "Y2K Data by "_$S(ENTYPE="CAT":"EQUIPMENT CATEGORY",1:"MANUFACTURER "),?45,DATE("PRNT"),?70,"Page: "_PAGE
  • Line Location: HEADR+2
Function Call: WRITE
  • Prompt: "(Y2K CATEGORIES 'FC' and 'NA' are being ignored.)"
  • Line Location: HEADR+4
Function Call: WRITE
  • Prompt: !,$S(ENTYPE="CAT":"EQUIPMENT CATEGORY NAME",1:"MANUFACTURER NAME"),?38,"FC",?45,"NC",?52,"CC",?59,"NA",?64,"NULL",?71,"TOTAL"
  • Line Location: HEADR+5
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HEADR+6
Function Call: WRITE
  • Prompt: !!,"Press <RETURN> to continue, '^' to escape..."
  • Line Location: HOLD+1
Info |  Source |  Entry Points |  Interaction Calls