Routine: ENEQPMR1

Information

ENEQPMR1 ;(WASH ISC)/DH-Regular PMI Close Out ;1/2/2001

Name	Line Occurrences
Function Call: READ	Formatting: !! Prompt: "Should PM work orders be deleted after close out? YES//" Variable: X Timeout: DTIME Line Location: CO+3
Function Call: WRITE	Prompt: *7,!!,"This work order has already been closed out and posted. If you wish to change",!,"the data, please use the EDIT WORK ORDER option." Line Location: COF+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: CO2+0
Function Call: WRITE	Prompt: !!,"Next work order (or sequential portion), '^' to quit: "_ENPMWO(1)_"// " Line Location: CO2+0
Function Call: WRITE	Prompt: !,?10," ("_X_")" Line Location: CO2+0
Function Call: WRITE	Prompt: "??",*7 Line Location: CO2+3
Function Call: WRITE	Prompt: !!,*7,"This work order has already been closed out and posted. If you need to change",!,"the data, please use the EDIT WORK ORDER option." Line Location: CO2+4
Function Call: WRITE	Prompt: !!,"Work Order ",$P(^ENG(6920,EN1,0),U)," is open." Line Location: REGLR+7
Function Call: WRITE	Prompt: !,$P(^(1),U,2) Line Location: REGLR+8

FileNo	Call Tags
^ENG(6920 - [#6920]	Classic Fileman Calls