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

Package: Engineering

Routine: ENY2REP7


Information

ENY2REP7 ;;(WIRMFO)/DH-Print Y2K Sum by CSN ;8.7.98

Source Information

Source file <ENY2REP7.m>

Entry Points

Name Comments DBIA/ICR reference
CSN ; summary by category stock number
; csn initialization
PRTCSN
TOTALS ;
HEADR ; header for summary listing
HOLD
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "."
  • Line Location: CSN+8
Function Call: WRITE
  • Prompt: !!,"** No records to print **"
  • Line Location: CSN+30
Function Call: WRITE
  • Prompt: !,$P(^ENCSN(6917,CSN(0),0),U)_" "_$E($P(^(0),U,3),1,30),?42,$J(^TMP($J,STATION,CSN(0),"NC"),5),?49,$J(^("CC"),5),?63,$J(^(0),5),?71,$J(^TMP($J,STATION,"COUNT",CSN(0)),5)
  • Line Location: PRTCSN+0
Function Call: WRITE
  • Prompt: !,$P(^ENCSN(6917,CSN(0),0),U)_" "_$E($P(^(0),U,3),1,25),?35,$J(^TMP($J,STATION,CSN(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",CSN(0)),5)
  • Line Location: PRTCSN+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 CATEGORY STOCK NUMBER",?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: !,"CATEGORY STOCK NUMBER",?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