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: ENEQPMR6

Package: Engineering

Routine: ENEQPMR6


Information

ENEQPMR6 ;(WASH ISC)/DH-Rapid Deferral of PM Worklist ;1/11/2001

Source Information

Source file <ENEQPMR6.m>

Entry Points

Name Comments DBIA/ICR reference
RD ; Affected PM work orders will be DEFERRED with a DATE COMPLETE
; of TODAY
RD1
RD11
RD2
RD2T
RD2P
RD2PD
RD3
RD4
EXIT
POST
DEL
RDH1
RD2PH
HOLD

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "MONTHLY or WEEKLY PM List: MONTHLY// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD1+0
Function Call: READ
  • Formatting: !
  • Prompt: "Which week? "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD11+0
Function Call: WRITE
  • Prompt: !,"Enter a number, 1 to 5."
  • Line Location: RD11+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Should PM work orders be deleted after close out? YES//"
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD2+1
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: RD2T+0
Function Call: WRITE
  • Prompt: ", "_ENPMYR_$S(ENPM["W":" (Week "_ENPMWK_")",1:"")_"."
  • Line Location: RD2T+1
Function Call: WRITE
  • Prompt: !!,"It will automatically assign a PM Status of 'DEFERRED' and a close out date of",!,ENDATE," to each work order on the list."
  • Line Location: RD2T+2
Function Call: WRITE
  • Prompt: !!,"Default values for labor and material costs (if any) from the Equipment File",!,"will NOT be posted to the Equipment History during RAPID DEFERRAL."
  • Line Location: RD2T+3
Function Call: WRITE
  • Prompt: *7,!!,"Specified worklist doesn't seem to exist. Nothing to DEFER."
  • Line Location: RD2T+6
Function Call: WRITE
  • Prompt: !!,"Would you like to specify starting and stopping points for",!,"Rapid Deferral"
  • Line Location: RD2P+1
Function Call: WRITE
  • Prompt: !!,"Please enter the starting work order (or the sequential portion thereof)",!,"(ex: '"_J_"' or just '"_+$P(J,"-",3)_"'):"
  • Line Location: RD2P+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD2P+4
Function Call: WRITE
  • Prompt: " ("_ENFR_")"
  • Line Location: RD2P+6
Function Call: WRITE
  • Prompt: !!,"Now enter last work order to be deferred (or sequential portion thereof)"
  • Line Location: RD2P+8
Function Call: WRITE
  • Prompt: !,"(ex: '"_J_"' or just '"_+$P(J,"-",3)_"'): "
  • Line Location: RD2P+10
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD2P+11
Function Call: WRITE
  • Prompt: " ("_ENTO_")"
  • Line Location: RD2P+14
Function Call: WRITE
  • Prompt: !!,"Another user is processing this worklist. Please try again later.",*7
  • Line Location: RD2PD+0
Function Call: WRITE
  • Prompt: !,"Would you like to free up this terminal"
  • Line Location: RD2PD+3
Function Call: WRITE
  • Prompt: !,"Rapid deferral now in progress "
  • Line Location: RD2PD+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: RD2PD+6
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: RDH1+0
Function Call: WRITE
  • Prompt: !,"A WEEKLY PMI list is for WEEKLY and BI-WEEKLY inspections."
  • Line Location: RDH1+1
Function Call: WRITE
  • Prompt: !!,"If you want to defer only a portion of a PM worklist, you may specify the",!,"first and last work orders that you want Rapid Deferral to operate on."
  • Line Location: RD2PH+0
Function Call: WRITE
  • Prompt: !,"Everything between and including these two work orders will be DEFERRED.",!,"Please enter the entire work order numbers (ex: 'PM-E9702M-102')."
  • Line Location: RD2PH+1
Function Call: READ
  • Timeout: DTIME
  • Line Location: HOLD+0

FileMan Files Accessed Via FileMan Db Call

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