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

Package: Engineering

Routine: ENY2REPB


Information

ENY2REPB ;(WIRMFO)/DH-Print Y2K Cum by Funct Classification ;8.7.98

Source Information

Source file <ENY2REPB.m>

Entry Points

Name Comments DBIA/ICR reference
PRT ; physical printing
HDR ; report header
HOLD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Active Records"
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: !,"Potential Y2K Records",?25,$J(COUNT(STATION,"MED","Y2K"),8),?33,$J(COUNT(STATION,"PC","Y2K"),8),?41,$J(COUNT(STATION,"FS","Y2K"),8),?49,$J(COUNT(STATION,"TEL","Y2K"),8),?57,$J(COUNT(STATION,0,"Y2K"),8)
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !!,"FULLY COMPLIANT",?25,$J(COUNT(STATION,"MED","FC"),8),?33,$J(COUNT(STATION,"PC","FC"),8),?41,$J(COUNT(STATION,"FS","FC"),8),?49,$J(COUNT(STATION,"TEL","FC"),8),?57,$J(COUNT(STATION,0,"FC"),8)
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !,"CONDITIONALLY COMPLIANT",?25,$J(COUNT(STATION,"MED","CC"),8),?33,$J(COUNT(STATION,"PC","CC"),8),?41,$J(COUNT(STATION,"FS","CC"),8),?49,$J(COUNT(STATION,"TEL","CC"),8),?57,$J(COUNT(STATION,0,"CC"),8)
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !,"NON-COMPLIANT",?25,$J(COUNT(STATION,"MED","NC"),8),?33,$J(COUNT(STATION,"PC","NC"),8),?41,$J(COUNT(STATION,"FS","NC"),8),?49,$J(COUNT(STATION,"TEL","NC"),8),?57,$J(COUNT(STATION,0,"NC"),8)
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+18
Function Call: WRITE
  • Prompt: !,"NOT APPLICABLE",?25,$J(COUNT(STATION,"MED","NA"),8),?33,$J(COUNT(STATION,"PC","NA"),8),?41,$J(COUNT(STATION,"FS","NA"),8),?49,$J(COUNT(STATION,"TEL","NA"),8),?57,$J(COUNT(STATION,0,"NA"),8)
  • Line Location: PRT+19
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: !,"Uncategorized",?25,$J(COUNT(STATION,"MED",0),8),?33,$J(COUNT(STATION,"PC",0),8),?41,$J(COUNT(STATION,"FS",0),8),?49,$J(COUNT(STATION,"TEL",0),8),?57,$J(COUNT(STATION,0,0),8)
  • Line Location: PRT+22
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+24
Function Call: WRITE
  • Prompt: !!,"Of the "_COUNT(STATION,0,"Y2K")_" potential Y2K equipment records whose CLASSIFICATION"
  • Line Location: PRT+27
Function Call: WRITE
  • Prompt: !,"is unknown, about "_COUNT(STATION,"%","NX")_"% are NX, about "_COUNT(STATION,"%","BSE")_"% are BSE, about "_COUNT(STATION,"%","EXP")_"% are EXP,"
  • Line Location: PRT+28
Function Call: WRITE
  • Prompt: !,"and about "_COUNT(STATION,"%",0)_"% are of unknown TYPE."
  • Line Location: PRT+29
Function Call: WRITE
  • Prompt: !!,"DEVICES THAT HAVE BEEN UPDATED TO FULL Y2K COMPLIANCE:"
  • Line Location: PRT+31
Function Call: WRITE
  • Prompt: !," Count",?25,$J(COUNT(STATION,"MED","FC","UPG"),8),?33,$J(COUNT(STATION,"PC","FC","UPG"),8),?41,$J(COUNT(STATION,"FS","FC","UPG"),8),?49,$J(COUNT(STATION,"TEL","FC","UPG"),8),?57,$J(COUNT(STATION,0,"FC","UPG"),8)
  • Line Location: PRT+32
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+34
Function Call: WRITE
  • Prompt: !," Estimated Cost ($)",?25,$J(TOTAL(STATION,"MED","FC","ECST"),8,0),?33,$J(TOTAL(STATION,"PC","FC","ECST"),8,0),?41,$J(TOTAL(STATION,"FS","FC","ECST"),8,0)
  • Line Location: PRT+35
Function Call: WRITE
  • Prompt: ?49,$J(TOTAL(STATION,"TEL","FC","ECST"),8,0),?57,$J(TOTAL(STATION,0,"FC","ECST"),8,0)
  • Line Location: PRT+36
Function Call: WRITE
  • Prompt: ?65,$J(TOTAL,12,0)
  • Line Location: PRT+38
Function Call: WRITE
  • Prompt: !," Actual Cost ($)",?25,$J(TOTAL(STATION,"MED","FC","ACST"),8,0),?33,$J(TOTAL(STATION,"PC","FC","ACST"),8,0),?41,$J(TOTAL(STATION,"FS","FC","ACST"),8,0)
  • Line Location: PRT+39
Function Call: WRITE
  • Prompt: ?49,$J(TOTAL(STATION,"TEL","FC","ACST"),8,0),?57,$J(TOTAL(STATION,0,"FC","ACST"),8,0)
  • Line Location: PRT+40
Function Call: WRITE
  • Prompt: ?65,$J(TOTAL,12,0)
  • Line Location: PRT+42
Function Call: WRITE
  • Prompt: !!,"DEVICES THAT ARE SCHEDULED TO BE UPDATED TO FULL Y2K COMPLIANCE:"
  • Line Location: PRT+43
Function Call: WRITE
  • Prompt: !," Count",?25,$J(COUNT(STATION,"MED","CC"),8),?33,$J(COUNT(STATION,"PC","CC"),8),?41,$J(COUNT(STATION,"FS","CC"),8),?49,$J(COUNT(STATION,"TEL","CC"),8),?57,$J(COUNT(STATION,0,"CC"),8)
  • Line Location: PRT+44
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+46
Function Call: WRITE
  • Prompt: !," Estimated Cost ($)",?25,$J(TOTAL(STATION,"MED","CC","ECST"),8,0),?33,$J(TOTAL(STATION,"PC","CC","ECST"),8,0),?41,$J(TOTAL(STATION,"FS","CC","ECST"),8,0)
  • Line Location: PRT+47
Function Call: WRITE
  • Prompt: ?49,$J(TOTAL(STATION,"TEL","CC","ECST"),8,0),?57,$J(TOTAL(STATION,0,"CC","ECST"),8,0)
  • Line Location: PRT+48
Function Call: WRITE
  • Prompt: ?65,$J(TOTAL,12,0)
  • Line Location: PRT+50
Function Call: WRITE
  • Prompt: !!,"DEVICES THAT HAVE BEEN REPLACED DUE TO Y2K ISSUES:"
  • Line Location: PRT+51
Function Call: WRITE
  • Prompt: !," Count",?25,$J(COUNT(STATION,"MED","NC","ATD"),8),?33,$J(COUNT(STATION,"PC","NC","ATD"),8),?41,$J(COUNT(STATION,"FS","NC","ATD"),8),?49,$J(COUNT(STATION,"TEL","NC","ATD"),8),?57,$J(COUNT(STATION,0,"NC","ATD"),8)
  • Line Location: PRT+52
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+54
Function Call: WRITE
  • Prompt: !," Estimated Cost ($)",?25,$J(TOTAL(STATION,"MED","NC","ETD"),8,0),?33,$J(TOTAL(STATION,"PC","NC","ETD"),8,0),?41,$J(TOTAL(STATION,"FS","NC","ETD"),8,0)
  • Line Location: PRT+55
Function Call: WRITE
  • Prompt: ?49,$J(TOTAL(STATION,"TEL","NC","ETD"),8,0),?57,$J(TOTAL(STATION,0,"NC","ETD"),8,0)
  • Line Location: PRT+56
Function Call: WRITE
  • Prompt: ?65,$J(TOTAL,12,0)
  • Line Location: PRT+58
Function Call: WRITE
  • Prompt: !," Actual Cost ($)",?25,$J(TOTAL(STATION,"MED","NC","ATD"),8,0),?33,$J(TOTAL(STATION,"PC","NC","ATD"),8,0),?41,$J(TOTAL(STATION,"FS","NC","ATD"),8,0)
  • Line Location: PRT+59
Function Call: WRITE
  • Prompt: ?49,$J(TOTAL(STATION,"TEL","NC","ATD"),8,0),?57,$J(TOTAL(STATION,0,"NC","ATD"),8,0)
  • Line Location: PRT+60
Function Call: WRITE
  • Prompt: ?65,$J(TOTAL,12,0)
  • Line Location: PRT+62
Function Call: WRITE
  • Prompt: !!,"DEVICES THAT ARE SCHEDULED FOR REPLACEMENT DUE TO Y2K ISSUES:"
  • Line Location: PRT+63
Function Call: WRITE
  • Prompt: !," Count",?25,$J(X("MED"),8),?33,$J(X("PC"),8),?41,$J(X("FS"),8),?49,$J(X("TEL"),8),?57,$J(X(0),8)
  • Line Location: PRT+65
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+67
Function Call: WRITE
  • Prompt: !," Estimated Cost ($)",?25,$J(X1("MED"),8,0),?33,$J(X1("PC"),8,0),?41,$J(X1("FS"),8,0),?49,$J(X1("TEL"),8,0),?57,$J(X1(0),8,0)
  • Line Location: PRT+68
Function Call: WRITE
  • Prompt: ?65,$J(TOTAL,12,0)
  • Line Location: PRT+70
Function Call: WRITE
  • Prompt: !!,"DEVICES THAT HAVE BEEN RETIRED DUE TO Y2K ISSUES:"
  • Line Location: PRT+72
Function Call: WRITE
  • Prompt: !," Count",?25,$J(COUNT(STATION,"MED","NC","RETACT"),8),?33,$J(COUNT(STATION,"PC","NC","RETACT"),8),?41,$J(COUNT(STATION,"FS","NC","RETACT"),8),?49,$J(COUNT(STATION,"TEL","NC","RETACT"),8),?57,$J(COUNT(STATION,0,"NC","RETACT"),8)
  • Line Location: PRT+73
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+75
Function Call: WRITE
  • Prompt: !!,"DEVICES THAT ARE SCHEDULED FOR RETIREMENT DUE TO Y2K ISSUES:"
  • Line Location: PRT+76
Function Call: WRITE
  • Prompt: !," Count",?25,$J(X("MED"),8),?33,$J(X("PC"),8),?41,$J(X("FS"),8),?49,$J(X("TEL"),8),?57,$J(X(0),8)
  • Line Location: PRT+78
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+80
Function Call: WRITE
  • Prompt: !!,"DEVICES THAT ARE Y2K NON-COMPLIANT BUT ARE TO BE USED 'AS IS'."
  • Line Location: PRT+81
Function Call: WRITE
  • Prompt: !," Count",?25,$J(COUNT(STATION,"MED","NC","USE"),8),?33,$J(COUNT(STATION,"PC","NC","USE"),8),?41,$J(COUNT(STATION,"FS","NC","USE"),8),?49,$J(COUNT(STATION,"TEL","NC","USE"),8),?57,$J(COUNT(STATION,0,"NC","USE"),8)
  • Line Location: PRT+82
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+84
Function Call: WRITE
  • Prompt: !!,?20,"** FUNCTIONAL CLASSIFICATIONS **"
  • Line Location: PRT+85
Function Call: WRITE
  • Prompt: !,"MED => Medical equipment PC => General purpose computer equipment"
  • Line Location: PRT+86
Function Call: WRITE
  • Prompt: !,"FS => Facility management equipment TEL => Telecommunications equipment"
  • Line Location: PRT+87
Function Call: WRITE
  • Prompt: "Y2K Cum by Functional Classification as of "_DATE("PRNT")_" Page: "_PAGE
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$S(ENSTN:"Station: "_STATION,1:"Consolidated ("_STATION("PARNT")_")")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"FUNCTIONAL CLASSIFICATION:",?30,"MED",?39,"PC",?47,"FS",?54,"TEL",?59,"Unknown",?72,"TOTAL"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,"Press <RETURN> to continue, '^' to escape..."
  • Line Location: HOLD+1
Info |  Source |  Entry Points |  Interaction Calls