Routine: ENWOP2

Information

ENWOP2 ;(WASH ISC)/DH-Count Incomplete Work Orders ;5/8/1998

Source file <ENWOP2.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="C-" Line Location: ENWOP2+3
Function Call: WRITE	Prompt: !!,$P(^DIC(6922,ENSHKEY,0),U),": ",ENCOUNT Line Location: ENWOP2+3
Function Call: WRITE	Prompt: "." Line Location: ENWOP2+7
Function Call: WRITE	Prompt: !!,$P(^DIC(6922,ENSHKEY,0),U),": ",ENCOUNT Line Location: ENWOP2+10
Function Call: WRITE	Prompt: @IOF Line Location: HDR+0
Function Call: WRITE	Prompt: "COUNT OF INCOMPLETE ENGINEERING WORK ORDERS ",?50,DATE,?65,"Page ",ENPG Line Location: HDR+2
Function Call: WRITE	Prompt: !,"Employee: ",$S(ENEMP="":"NONE",1:$P(^ENG("EMP",ENEMP,0),U)) Line Location: HDR+4
Function Call: WRITE	Prompt: !,"For a Specific Room: "_$P(^ENG("SP",ENROOM,0),U) Line Location: HDR+5
Function Call: WRITE	Prompt: !,"By Location Search:" Line Location: HDR+6
Function Call: WRITE	Prompt: !,"Owner/Department: ",$P(^DIC(49,ENONR,0),U) Line Location: HDR+7
Function Call: WRITE	Prompt: !,$S(ENPMINC:"(Includes ",1:"(Does not include "),"PM Work Orders)" Line Location: HDR+8
Function Call: WRITE	Prompt: !,X Line Location: HDR+9
Function Call: WRITE	Prompt: !!,"Press <RETURN> to continue, '^' to exit..." Line Location: HOLD+0
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+1