Routine: ENY2REP2

Information

ENY2REP2 ;;(WIRMFO)/DH-Y2K Category Summary Report ;9.30.98

Name	Comments	DBIA/ICR reference
Y2KCAT	; snapshot of Y2K data base by manufacturer~model for a given ; Y2K category
Y2KCAT1
CATPRNT	; print the snapshot
CATHDR	; header for Y2K snapshot
HOLD
EXIT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,?20," SNAPSHOT OF Y2K EQUIPMENT DATA BASE " Line Location: Y2KCAT+2
Function Call: WRITE	Prompt: !,?22,"(Summary for a specific Y2K category)" Line Location: Y2KCAT+3
Function Call: WRITE	Prompt: !!,"There is no STATION NUMBER in your Engineering Init Paramaters file.",!,"Can't proceed.",*7 Line Location: Y2KCAT+4
Function Call: WRITE	Prompt: !! Line Location: Y2KCAT+7
Function Call: WRITE	Prompt: !! Line Location: Y2KCAT+26
Function Call: WRITE	Prompt: "." Line Location: Y2KCAT1+8
Function Call: WRITE	Prompt: !!,?15,"<Nothing to print>" Line Location: CATPRNT+2
Function Call: WRITE	Prompt: @IOF Line Location: CATPRNT+3
Function Call: WRITE	Prompt: !,MAN("PRNT")_"~"_MOD("E"),?51,$J(^TMP($J,STATION,MAN("E"),MOD,"COUNT"),4),?60,$J(^("EST"),8,2),?70,$J(^("ACT"),8,2) Line Location: CATPRNT+5
Function Call: WRITE	Prompt: @IOF Line Location: CATPRNT+7
Function Call: WRITE	Prompt: !,X Line Location: CATPRNT+9
Function Call: WRITE	Prompt: !,"TOTALS",?50,$J(TOTAL(STATION,"COUNT"),5),?60,$J(TOTAL(STATION,"EST"),8,2),?70,$J(TOTAL(STATION,"ACT"),8,2) Line Location: CATPRNT+10
Function Call: WRITE	Prompt: "Y2K Summary Snapshot for "_CAT("E")_" "_DATE("PRNT")_" ",?70,"Page: "_PAGE Line Location: CATHDR+2
Function Call: WRITE	Prompt: !,X Line Location: CATHDR+4
Function Call: WRITE	Prompt: !!,"Press <RETURN> to continue, '^' to escape..." Line Location: HOLD+1