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

Package: Engineering

Routine: ENY2REP


Information

ENY2REP ;;(WIRMFO)/DH-Y2K Activity Report ;8.27.98

Source Information

Source file <ENY2REP.m>

Entry Points

Name Comments DBIA/ICR reference
ACT ; periodic activity report
; counts and totals of all entries and changes within a user specified
; date range
ACT1
ACT2
DEQACT
CNTACT ; store target population in ^TMP($J,"ENY2A",
READ ; extract Y2K activity from skeleton global by date
WRITE ; build global from which report will be drawn (^TMP($J,"ENY2B",)
CCST ; store Y2K compliance costs
; loc var en contains node 11
NCST ; store replacement costs
; loc var en contains node 11
PRNTACT ; print the hard copy
HEADR ; page header
HOLD
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There is no STATION NUMBER in your Engineering Init Parameters file.",!,"Can't proceed.",*7
  • Line Location: ACT+4
Function Call: WRITE
  • Prompt: !!,"STOPPING DATE must follow the STARTING DATE",*7
  • Line Location: ACT2+3
Function Call: WRITE
  • Prompt: !!,"There was no Y2K activity between "_ENDATE("STARTE")_" and "_ENDATE("STOPE")_".",!,*7
  • Line Location: ACT2+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: CNTACT+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: CNTACT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTACT+8
Function Call: WRITE
  • Prompt: ?11,K
  • Condition for execution: J'=0 ?3,J W:K'=0
  • Line Location: PRNTACT+8
Function Call: WRITE
  • Prompt: ?17,$J(^TMP($J,"ENY2B",STATION,J,K,"COUNT"),5),?24,"$"
  • Line Location: PRNTACT+8
Function Call: WRITE
  • Prompt: $J(^("EST"),8)
  • Condition for execution: ^("EST")>0
  • Line Location: PRNTACT+8
Function Call: WRITE
  • Prompt: ?35,"$"
  • Line Location: PRNTACT+8
Function Call: WRITE
  • Prompt: $J(^("ACT"),8)
  • Condition for execution: ^("ACT")>0
  • Line Location: PRNTACT+8
Function Call: WRITE
  • Prompt: ?46,"$"
  • Line Location: PRNTACT+9
Function Call: WRITE
  • Prompt: $J(^("REST"),8)_"("_COUNT(STATION,J,K,"EST")_")"
  • Condition for execution: ^TMP($J,"ENY2B",STATION,J,K,"REST")>0
  • Line Location: PRNTACT+9
Function Call: WRITE
  • Prompt: ?62,"$"
  • Line Location: PRNTACT+9
Function Call: WRITE
  • Prompt: $J(^("RACT"),8)_"("_COUNT(STATION,J,K,"ACT")_")"
  • Condition for execution: ^("RACT")>0
  • Line Location: PRNTACT+9
Function Call: WRITE
  • Prompt: !!,?10,"<No activity to report>"
  • Line Location: PRNTACT+14
Function Call: WRITE
  • Prompt: !,X
  • Line Location: PRNTACT+15
Function Call: WRITE
  • Prompt: !," TOTALS",?17,$J(TOTAL("COUNT"),5),?24,"$"_$J(TOTAL("EST"),8),?35,"$"_$J(TOTAL("ACT"),8),?46,"$"_$J(TOTAL("REST"),8)
  • Line Location: PRNTACT+18
Function Call: WRITE
  • Prompt: "("_TOTAL("ECNT")_")"
  • Condition for execution: $G(TOTAL("ECNT"))
  • Line Location: PRNTACT+18
Function Call: WRITE
  • Prompt: ?62,"$"_$J(TOTAL("RACT"),8)
  • Line Location: PRNTACT+18
Function Call: WRITE
  • Prompt: "("_TOTAL("ACNT")_")"
  • Condition for execution: $G(TOTAL("ACNT"))
  • Line Location: PRNTACT+18
Function Call: WRITE
  • Prompt: "Y2K Net Activity Report from "_ENDATE("STARTE")_" to "_ENDATE("STOPE"),?70,"Page: "_PAGE
  • Line Location: HEADR+2
Function Call: WRITE
  • Prompt: !," Entry Change Count Est Y2K Act Y2K Est Repl(Cnt) Act Repl(Cnt)"
  • Line Location: HEADR+4
Function Call: WRITE
  • Prompt: !,X,!
  • Line Location: HEADR+5
Function Call: WRITE
  • Prompt: !!,"Press <RETURN> to continue, '^' to escape..."
  • Line Location: HOLD+1
Info |  Source |  Entry Points |  Interaction Calls