Routine: ENEQRP4

Information

ENEQRP4 ;(WASH ISC)/DH-Report of High Failure Items ;1.14.98

Source file <ENEQRP4.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: " with ",ENN," or more failures",!,"from ",$E(ENFR,4,5),"-",$E(ENFR,6,7),"-",$E(ENFR,2,3)," to ",$E(ENTO,4,5),"-",$E(ENTO,6,7),"-",$E(ENTO,2,3),".",!! Line Location: FAP+2
Function Call: WRITE	Prompt: @IOF Condition for execution: ENPG Line Location: FAP1+0
Function Call: WRITE	Prompt: "EQUIPMENT REPAIRS (",$S(ENDVTYP=0:"ALL EQUIPMENT",1:ENDVTYP),")",?45,ENDATE,?70,"Page ",ENPG Line Location: FAP1+0
Function Call: WRITE	Prompt: !,?10,"From: ",$E(ENFR,4,5),"-",$E(ENFR,6,7),"-",$E(ENFR,2,3)," To: ",$E(ENTO,4,5),"-",$E(ENTO,6,7),"-",$E(ENTO,2,3) Line Location: FAP1+1
Function Call: WRITE	Prompt: !,"Reference",?12,"Entry #",?29,"Hrs",?35,"Labor$",?43,"Mat'l$",?52,"Vndr$",?62,"Total$",?70,"Worker",! Line Location: FAP1+2
Function Call: WRITE	Prompt: "-" Line Location: FAP1+2
Function Call: WRITE	Prompt: !,E(1),?12,DA,?27,$J(E(4),5,1),?33,$J(E(5),8,2),?41,$J(E(6),8,2),?50,$J(E(7),8,2),?60,$J(E(9),8,2),?70,$E(E(8),1,9) Line Location: FAP21+4
Function Call: WRITE	Prompt: ! Line Location: FAP3+1
Function Call: WRITE	Prompt: "_" Line Location: FAP3+1
Function Call: WRITE	Prompt: !,"TOTAL",?27,$J(ENT(4),5,1),?35,$J(ENT(5),6,2),?43,$J(ENT(6),6,2),?52,$J(ENT(7),6,2),?62,$J(ENT(9),6,2) Line Location: FAP3+2
Function Call: READ	Variable: R Timeout: DTIME Line Location: HOLD+0
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0