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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ENEQPMR2

Package: Engineering

Routine: ENEQPMR2


Information

ENEQPMR2 ;(WASH ISC)/JED/DH-Rapid PMI Close Out ;1/4/2001

Source Information

Source file <ENEQPMR2.m>

Entry Points

Name Comments DBIA/ICR reference
RCO ; Close out using defaults
RCOA
RCO1
RCO11
RCO15
RCO2
RCO3
RCO4
RCO41
RCO5
RCOH1
RCOH4
EXIT
HOLD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Date of worklist must contain a month.",*7
  • Line Location: RCOA+1
Function Call: READ
  • Formatting: !
  • Prompt: "MONTHLY or WEEKLY PM List: MONTHLY// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RCO1+0
Function Call: READ
  • Formatting: !
  • Prompt: "Which week? "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RCO11+0
Function Call: WRITE
  • Prompt: !,"Enter a number, 1 to 5."
  • Line Location: RCO11+0
Function Call: WRITE
  • Prompt: !!,"COMPLETION DATE (future dates will not be accepted). MONTH and YEAR are"
  • Line Location: RCO15+1
Function Call: WRITE
  • Prompt: !!,"Completion date must contain a month.",*7
  • Line Location: RCO15+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Should PM work orders be deleted after close out? YES//"
  • Variable: X
  • Timeout: DTIME
  • Line Location: RCO2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RCO3+1
Function Call: WRITE
  • Prompt: !!,"Work orders without a technician already assigned should be closed indivi-"
  • Line Location: RCO3+7
Function Call: WRITE
  • Prompt: !,"dually. You'll have a chance to do this before Rapid Close Out begins."
  • Line Location: RCO3+8
Function Call: WRITE
  • Prompt: !
  • Line Location: RCO3+10
Function Call: WRITE
  • Prompt: !!,"This option will scan the ",$S(ENPM="M":"MONTHLY",ENPM["W":"WEEKLY",1:"")," PM Worklist of the ",ENSHOP," Shop",!,"for ",$P("JANUARY^FEBRUARY^MARCH^APRIL^MAY^JUNE^JULY^AUGUST^SEPTEMBER^OCTOBER^NOVEMBER^DECEMBER","^",ENPMMN)
  • Line Location: RCO4+0
Function Call: WRITE
  • Prompt: ", "_ENPMYR_$E(ENPMDT,1,2)_$S(ENPM["W":" (Week "_ENPMWK_")",1:"")_". It will automatically assign a PM Status of 'PASSED'"
  • Line Location: RCO4+1
Function Call: WRITE
  • Prompt: !,"and a completion date of "_ENCDATE("E")," to each work order on the list,"
  • Line Location: RCO4+2
Function Call: WRITE
  • Prompt: !,"except for those that you close out individually."
  • Line Location: RCO4+3
Function Call: WRITE
  • Prompt: !!,"Default values for labor and material costs (if any) from the Equipment File",!,"will be posted to the Equipment History during Rapid Close Out."
  • Line Location: RCO4+4
Function Call: WRITE
  • Prompt: !!,"The PRIMARY TECHNICIANS will be changed as follows:"
  • Line Location: RCO4+6
Function Call: WRITE
  • Prompt: !,?10,PMTECH(I,0,"E")_" will be changed to "_PMTECH(I,1,"E")
  • Line Location: RCO4+7
Function Call: WRITE
  • Prompt: !!,"Another user is processing this worklist. Please try again later.",*7
  • Line Location: RCO4+10
Function Call: WRITE
  • Prompt: !!,"There are no open work orders on this list. Nothing to process.",*7
  • Line Location: RCO4+13
Function Call: WRITE
  • Prompt: !!,"Please enter any PM work orders (or the sequential portion thereof) that you",!,"wish to close out individually. Press <RETURN> to terminate the process."
  • Line Location: RCO4+14
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RCO41+0
Function Call: WRITE
  • Prompt: !!,"Work order (ex: '",J,"' or just '",+$P(J,"-",3),"'): "
  • Line Location: RCO41+0
Function Call: WRITE
  • Prompt: ?40,"Already closed."
  • Line Location: RCO41+3
Function Call: READ
  • Timeout: DTIME
  • Line Location: RCO5+0
Function Call: WRITE
  • Prompt: "??"
  • Line Location: RCO5+1
Function Call: WRITE
  • Prompt: !,?30,ENPMWO_" is already closed."
  • Line Location: RCO5+2
Function Call: WRITE
  • Prompt: !,"A MONTHLY PMI list contains work orders for ANNUAL, SEMI-ANNUAL, QUARTERLY,",!,"BI-MONTHLY, and MONTHLY preventive maintenance inspections."
  • Line Location: RCOH1+0
Function Call: WRITE
  • Prompt: !,"A WEEKLY PMI list is for WEEKLY and BI-WEEKLY inspections."
  • Line Location: RCOH1+1
Function Call: WRITE
  • Prompt: !!,"Please enter an existing PM work order, or the sequential portion thereof.",!,"If there are no work orders to be closed out individually, enter <cr>.",!
  • Line Location: RCOH4+0
Function Call: WRITE
  • Prompt: !,?5,J1
  • Line Location: RCOH4+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(6922 - [#6922] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call