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

Package: Engineering

Routine: ENY2REP9


Information

ENY2REP9 ;(WIRMFO)/DH-Y2K Equipment w/o Y2K Category ;8.18.98

Source Information

Source file <ENY2REP9.m>

Entry Points

Name Comments DBIA/ICR reference
NULL ; prints list of equipment with man and mod but no Y2K category
LIST ;
PRT ; physical print
HDR ; header print
HOLD
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,?17,"List of Active Equipment Records with MANUFACTURER"
  • Line Location: NULL+1
Function Call: WRITE
  • Prompt: !,?23,"and MODEL, but without a Y2K CATEGORY"
  • Line Location: NULL+2
Function Call: WRITE
  • Prompt: !!,"From glancing at your data base, it appears that less than half of your",!,"equipment records have a Y2K CATEGORY of any kind on file."
  • Line Location: NULL+6
Function Call: WRITE
  • Prompt: !!,"Are you sure this report is worth printing?",*7
  • Line Location: NULL+7
Function Call: WRITE
  • Prompt: !
  • Line Location: NULL+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !!!,?20,"<Nothing to print>"
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !!,DA,?10,$E(MFG,1,30),?41,$E(MOD,1,20),?62,LID
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: !,$E(EC,1,22),?23,$E(SRVC,1,20),?44,$E(LOC,1,15),?60,$E(SN,1,20)
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !!,DA,?11,MFG,?46,MOD,?76,LID
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: !,$E(EC,1,22),?23,$E(SRVC,1,20),?44,LOC,?65,$E(SN,1,30)
  • Line Location: PRT+18
Function Call: WRITE
  • Prompt: "Null Equipment List (MAN & MODEL but no Y2K) "_DATE("PRNT")_" Page: "_PAGE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"ENTRY #",?15,"MANUFACTURER",?48,"MODEL",?64,"LOCAL ID"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"EQUIPMENT CATEGORY",?25,"SERVICE",?45,"LOCATION",?62,"SERIAL NUMBER"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "Null Equipment List (MANUFACTURER & MODEL, but no Y2K CATEGORY) "_DATE("PRNT")_" Page: "_PAGE
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"ENTRY #",?18,"MANUFACTURER",?54,"MODEL",?78,"LOCAL ID"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"EQUIPMENT CATEGORY",?26,"SERVICE",?47,"LOCATION",?68,"SERIAL NUMBER"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+10
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HOLD+0
Info |  Source |  Entry Points |  Interaction Calls