Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Engineering 1 ENY2REP8  

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENCSN(6917 - [#6917] CSN+5, CSN+24, PRTCSN, PRTCSN+1
^ENG(6914 - [#6914] CSN+2, CSN+5!, CSN+6, CSN+7, CSN+9, CSN+12, CSN+14
^TMP($J CSN+2*, CSN+12, CSN+14*, CSN+16*, CSN+20, CSN+23*, CSN+24*, CSN+28, CSN+30, CSN+31
, CSN+32, PRTCSN, PRTCSN+1, PRTCSN+2

Label References

Name Line Occurrences
EXIT CSN+35
HEADR CSN+29, PRTCSN+2
HOLD CSN+28, PRTCSN+2
PRTCSN CSN+31, CSN+32
TOTALS CSN+33

Naked Globals

Name Field # of Occurrence
^("CC" PRTCSN, PRTCSN+1
^("NA" PRTCSN+1
^("NC" PRTCSN+1
^(0 PRTCSN, PRTCSN+1
^(9 CSN+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> COUNT CSN+5*, CSN+20*, CSN+22, CSN+23
>> CSN CSN+24*
>> CSN(0 CSN+2*, CSN+5*, CSN+16, CSN+20*, CSN+23, CSN+24, CSN+31*, CSN+32*, PRTCSN, PRTCSN+1
, PRTCSN+2
>> CSN(1 CSN+14*
>> DA CSN+5*, CSN+6, CSN+7, CSN+8, CSN+9, CSN+12
>> DATE("PRNT" HEADR+2
DTIME HOLD+1
ENSORT CSN+21, CSN+31, CSN+32, CSN+34!
ENSORT("MIN" CSN+22, TOTALS+1
ENSTN CSN+12, CSN+34!, HEADR+3
ENSUP CSN+10, CSN+34!, PRTCSN, PRTCSN+1, TOTALS+3, TOTALS+4, HEADR+4
ENTYPE CSN+34!
>> ESCAPE CSN+28, CSN+31, CSN+32, PRTCSN+2, TOTALS+1, HOLD+2*
IO CSN+27
IOF HEADR+1
IOSL PRTCSN+2
IOST HEADR+1, HOLD
>> J CSN+2*, CSN+13*, CSN+14*, CSN+31*, CSN+32*, PRTCSN+2
>> LINE PRTCSN+2*, HEADR+1*
>> PAGE HEADR+1*, HEADR+2
>> STATION CSN+5*, CSN+12*, CSN+13, CSN+14, CSN+16, CSN+17, CSN+20*, CSN+23, CSN+24, CSN+28*
, CSN+30, CSN+31, CSN+32, PRTCSN, PRTCSN+1, PRTCSN+2, TOTALS+3, TOTALS+4, HEADR+3
>> STATION("PARNT" CSN+2, CSN+5, CSN+12, HEADR+3
>> TOTAL( CSN+13*, CSN+17*, TOTALS+3, TOTALS+4
U CSN+7, CSN+9, CSN+10, CSN+12, CSN+24, PRTCSN, PRTCSN+1
X TOTALS+2!*, HEADR+6!*, HOLD+1*, HOLD+2
>> Y2K CSN+9*, CSN+10, CSN+16, CSN+17
>> ZTQUEUED CSN+8
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All