Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ENY2REPC

Package: Engineering

Routine: ENY2REPC


Information

ENY2REPC ;;(WIRMFO)/DH-Y2K Detail by Man~Mod ;1.19.99

Source Information

Source file <ENY2REPC.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA FileMan 2 NOW^%DTC  %XY^%RCR  

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 ENY2REP3  

Entry Points

Name Comments DBIA/ICR reference
DEQDET ;
DETPRNT ; print the detail
DETHDR ; header for Y2K detail
TRLR ; print legend at bottom
HOLD

External References

Name Field # of Occurrence
NOW^%DTC DEQDET+7
%XY^%RCR DEQDET+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"<There are no equipment records with outstanding Y2K issues>"
  • Line Location: DEQDET+34
Function Call: WRITE
  • Prompt: !!,?15,"<Nothing to print>"
  • Line Location: DETPRNT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DETPRNT+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: DETPRNT+6
Function Call: WRITE
  • Prompt: !,MFG("E")_"~"_MOD("E")_" ",?42,EQ("E")_" ",?64,$J(DA,10),?75,$J($P(EN,U),4),?82,$P(EN,U,2),?93,$P(EN,U,3),?104,$J($P(EN,U,4),7),?114,$J($P(EN,U,5),7),?124,$P(EN,U,6)
  • Line Location: DETPRNT+7
Function Call: WRITE
  • Prompt: !,X
  • Line Location: DETPRNT+10
Function Call: WRITE
  • Prompt: !,"COUNT",?64,$J(TOTAL(STATION,"COUNT"),10)
  • Line Location: DETPRNT+11
Function Call: WRITE
  • Prompt: !,"TOTALS",?103,"$"_$J(TOTAL(STATION,"EST"),7),?113,"$"_$J(TOTAL(STATION,"ACT"),7)
  • Line Location: DETPRNT+12
Function Call: WRITE
  • Prompt: !,"COUNT FOR ALL STATIONS",?64,$J(TOTAL("COUNT"),10)
  • Line Location: DETPRNT+14
Function Call: WRITE
  • Prompt: !,"TOTALS FOR ALL STATIONS",?103,"$"_$J(TOTAL("EST"),7),?113,"$"_$J(TOTAL("ACT"),7)
  • Line Location: DETPRNT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DETPRNT+16
Function Call: WRITE
  • Prompt: "Detailed Y2K Equipment Report "
  • Line Location: DETHDR+2
Function Call: WRITE
  • Prompt: $S(CRITER=1:"by EQUIPMENT CATEGORY",CRITER=2:"by CATEGORY STOCK NUMBER",CRITER=3:"by CMR",CRITER=4:"by SERVICE",CRITER=5:"by MANUFACTURER",CRITER=6:"by LOCAL ID",CRITER=7:"by RESPONSIBLE SHOP",1:"for ENTIRE EQUIP FILE")
  • Line Location: DETHDR+3
Function Call: WRITE
  • Prompt: !,"Equipment Records with Y2K Category of 'FC' or 'NA' are not being counted."
  • Line Location: DETHDR+5
Function Call: WRITE
  • Prompt: !,"Manufacturer~Model",?45,"Equipment Category",?67,"Entry #",?76,"Y2K Est Date Act Date Est Cost Act Cost Action"
  • Line Location: DETHDR+6
Function Call: WRITE
  • Prompt: !,X
  • Line Location: DETHDR+7
Function Call: WRITE
  • Prompt: !,X
  • Line Location: TRLR+1
Function Call: WRITE
  • Prompt: !,"Y2K: FC=>Fully Compliant NC=>Noncompliant CC=>Conditionally Compliant NA=>Not Applicable Null=>No Y2K Information"
  • Line Location: TRLR+2
Function Call: WRITE
  • Prompt: !,"ACTION (Noncompliant Only): REP=>Replace RET=>Retire UPD=>Update to Full Compliance USE=>Use Without an Update"
  • Line Location: TRLR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TRLR+4
Function Call: WRITE
  • Prompt: !!,"Press <RETURN> to continue, '^' to escape..."
  • Line Location: HOLD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DEQDET+7
^DIC(6910 - [#6910] DEQDET+8
^ENG("MFG" - [#6912] DEQDET+20
^ENG(6911 - [#6911] DEQDET+26
^ENG(6914 - [#6914] DEQDET+12, DEQDET+14, DEQDET+16, DEQDET+17, DEQDET+21, DEQDET+25, DEQDET+28
^TMP($J DEQDET+2!, DEQDET+11!, DEQDET+12, DEQDET+32*, DEQDET+34, DEQDET+35, DETPRNT+2, DETPRNT+3, DETPRNT+4, DETPRNT+5
, DETPRNT+8!, DETPRNT+9, DETPRNT+13
^XUTL("ENY2" DEQDET+5!

Label References

Name Line Occurrences
DETHDR DEQDET+34, DETPRNT+2, DETPRNT+3, DETPRNT+9
HOLD DETPRNT+2, DETPRNT+3, DETPRNT+9
TRLR DETPRNT+9, DETPRNT+17

Naked Globals

Name Field # of Occurrence
^( DETPRNT+5
^(9 DEQDET+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEQDET+7
>> %X DEQDET+3*
>> %Y DEQDET+3*
>> ALLSTN DEQDET+16, DETPRNT+13, DETHDR+4
>> CAT DEQDET+14*, DEQDET+15, DEQDET+32
>> CRITER DETHDR+3
>> DA DEQDET+12*, DEQDET+13, DEQDET+14, DEQDET+16, DEQDET+17, DEQDET+21, DEQDET+25, DEQDET+28, DEQDET+32, DETPRNT+5*
, DETPRNT+6, DETPRNT+7, DETPRNT+8
DATE DEQDET+3!, DEQDET+4~, DEQDET+6~
DATE("PRNT" DEQDET+7*, DETHDR+4
DTIME HOLD+1
>> EN DEQDET+28*, DEQDET+29, DEQDET+30, DEQDET+31, DETPRNT+5*, DETPRNT+7
>> ENSUP DEQDET+15, DETHDR+5
ENY2K DEQDET+4~
ENY2K( DEQDET+27*
ENY2K("ACOST" DEQDET+31*, DEQDET+32, DEQDET+33
ENY2K("ACTN" DEQDET+31*, DEQDET+32
ENY2K("ADATE" DEQDET+30*, DEQDET+32
ENY2K("ECOST" DEQDET+31*, DEQDET+32, DEQDET+33
ENY2K("EDATE" DEQDET+29*, DEQDET+32
ENY2K("INC" DEQDET+18, DEQDET+22
>> EQ("E" DEQDET+25*, DEQDET+26*, DEQDET+32, DETPRNT+5*, DETPRNT+7, DETPRNT+8
>> EQ(0 DEQDET+25*, DEQDET+26
ESCAPE DEQDET+4~, DETPRNT+3, DETPRNT+4, DETPRNT+5, DETPRNT+9, DETPRNT+10, HOLD, HOLD+2*
IO DETPRNT+1, DETPRNT+6
IO(0 DETPRNT+6
IOF DETPRNT+3, DETHDR+1
IOSL DETPRNT+9, DETPRNT+16
IOST DETHDR+1, HOLD
>> J DEQDET+10*, DEQDET+16*, DEQDET+27*
LINE DEQDET+6~, DETPRNT+9*, DETPRNT+12*, DETPRNT+15*, DETPRNT+16*, DETHDR+1*, DETHDR+5*
MFG DEQDET+4~
MFG("E" DEQDET+19*, DEQDET+20*, DEQDET+32, DETPRNT+4*, DETPRNT+5, DETPRNT+7, DETPRNT+8
MFG(0 DEQDET+17*, DEQDET+18, DEQDET+19, DEQDET+20
MOD DEQDET+6~, DEQDET+21*, DEQDET+22, DEQDET+23, DEQDET+24
MOD("E" DEQDET+23*, DEQDET+24*, DEQDET+32, DETPRNT+4*, DETPRNT+5, DETPRNT+7, DETPRNT+8
PAGE DEQDET+6~, DEQDET+7*, DETHDR+1*, DETHDR+4
>> SORT DETHDR+4
STATION DEQDET+6~, DEQDET+9*, DEQDET+10, DEQDET+16*, DEQDET+32, DEQDET+33, DEQDET+35*, DETPRNT+3*, DETPRNT+4, DETPRNT+5
, DETPRNT+8, DETPRNT+11, DETPRNT+12, DETPRNT+13, DETHDR+4
STATION("PARNT" DEQDET+8*, DEQDET+9, DEQDET+16
TOTAL DEQDET+6~
TOTAL( DEQDET+10*, DEQDET+16*, DEQDET+33*, DEQDET+35, DETPRNT+11, DETPRNT+12
TOTAL("ACT" DEQDET+35*, DETPRNT+15
TOTAL("COUNT" DEQDET+35*, DETPRNT+14
TOTAL("EST" DEQDET+35*, DETPRNT+15
U DEQDET+8, DEQDET+14, DEQDET+15, DEQDET+16, DEQDET+17, DEQDET+20, DEQDET+21, DEQDET+25, DEQDET+26, DEQDET+29
, DEQDET+30, DEQDET+31, DEQDET+32, DETPRNT+7
X DETPRNT+10!*, DETHDR+7!*, TRLR+1!*, HOLD+1*, HOLD+2
>> Y DEQDET+7*, DEQDET+29*, DEQDET+30*
>> ZTQUEUED DEQDET+1, DEQDET+13, DETPRNT+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All