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

Package: Engineering

Routine: ENY2REPC


Information

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

Source Information

Source file <ENY2REPC.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls