Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 6 ^%DT  ^DIC  YN^DICN  ^DIE  ^DIK  ^DIR  
Engineering 3 REGLR^ENEQPMR1  RCO6^ENEQPMR3  (COBH1,PMHRS,PMINV)^ENEQPMR4  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Engineering 2 ENEQPMS4  ENPMR2  

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

External References

Name Field # of Occurrence
^%DT RCOA, RCO15+2
^DIC RCOA+3, RCO3+10, RCO3+11, RCO41+2, RCO5+1
YN^DICN RCO4+8, RCOH4+1
^DIE RCO41+5, RCO5+3
^DIK RCO41+9, RCO5+7
^DIR RCO3+5
REGLR^ENEQPMR1 RCO41+7, RCO5+5
RCO6^ENEQPMR3 RCO41, RCO5
COBH1^ENEQPMR4 RCO2+1
PMHRS^ENEQPMR4 RCO41+8, RCO5+6
PMINV^ENEQPMR4 RCO41+8, RCO5+6

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
Routine Call
  • DIC
  • Line Location:
    • RCOA+3
    • RCO3+10
    • RCO3+11
    • RCO41+2
    • RCO5+1
Routine Call
  • DIE
  • Line Location:
    • RCO41+5
    • RCO5+3
Routine Call
  • DIR
  • Line Location:
    • RCO3+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" RCOA, RCO15, RCO15+4
^DIC(6910 - [#6910] RCO2
^DIC(6922 - [#6922] RCOA+3
^DIE("B" RCO41+4
^ENG("PMLIST" RCO4+10
^ENG("TMP" RCO4+11!, RCO41+5*, RCO5+3*
^ENG(6920 - [#6920] RCO4+12, RCO41+3, RCO41+4, RCO41+6, RCO41+7, RCO5+2, RCO5+4, RCO5+5, RCOH4+2

Label References

Name Line Occurrences
EXIT RCOA, RCOA+3, RCO1, RCO11, RCO15+2, RCO2+1, RCO3+5, RCO3+6, RCO4+8, RCO4+10
, RCO4+13
HOLD RCOH4+2
RCO1 RCO1
RCO11 RCO11
RCO15 RCO1, RCO15+3
RCO2 RCO2+1
RCO4 RCO4+8
RCO41 RCO41, RCO41+2, RCO41+3
RCO5 RCO5+1, RCO5+2, RCO5+8
RCOA RCOA+1
RCOH1 RCO1
RCOH4 RCO41, RCO41+2

Naked Globals

Name Field # of Occurrence
^(0 RCOA+3, RCO2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RCO4+8*, RCOH4+1*
%DT RCOA*!, RCO15+2*!
%DT("A" RCOA*, RCO15+2*
%DT("B" RCOA*, RCO15*
%DT(0 RCO15+2*
DA RCO4+12*, RCO41+3*, RCO41+4, RCO41+6, RCO41+7, RCO5+2*, RCO5+4, RCO5+5, RCOH4+2*, EXIT+1!
DIC RCOA+3*, RCO3+9*, RCO41+2*, RCO5+1*, EXIT+1!
DIC("A" RCO3+10*!, RCO3+11*!
DIC("S" RCO3+10!, RCO3+11*!, RCO41+2*!, RCO5+1*!
DIC(0 RCOA+3*, RCO3+9*, RCO41+2*, RCO5+1*
DIE RCO41+4*, EXIT+1!
DIK RCO41+9*!, RCO5+7*!, EXIT+1!
DIR RCO3+1!, RCO3+5!
DIR("?" RCO3+2*, RCO3+3*, RCO3+4*
DIR("A" RCO3+1*
DIR("B" RCO3+1*
DIR(0 RCO3+1*
>> DIRUT RCO3+5
DR RCO41+4*, EXIT+1!
DT RCOA
DTIME RCO1, RCO11, RCO2+1, RCO41, RCO5, HOLD
>> DTOUT RCO3+6
>> DUOUT RCO3+6
EN EXIT!
EN1 EXIT+1!
>> ENCDATE RCO15+4*
>> ENCDATE("E" RCO15+4*, RCO4+2
ENDATE EXIT!
ENDEL RCO2*, RCO2+1*, RCO41+9, RCO5+7, EXIT!
ENPM RCO1*, RCO11+1*, RCO4, RCO4+1, RCO4+9, EXIT!
ENPMDT RCOA+2*, RCO15, RCO4+1, RCO4+9, EXIT!
ENPMMN RCOA+2*, RCO4, EXIT!
ENPMWK RCO11+1*, RCO4+1, EXIT!
ENPMWO RCO4+9*, RCO4+10, RCO4+11, RCO4+12*, RCO41+4*, RCO41+5, RCO5+1*, RCO5+2, RCO5+3, RCOH4+2
, EXIT!
ENPMWO("P" RCO4+9*, RCO4+12, RCO41+1, RCO41+5, RCO5+1, RCO5+3, RCOH4+2
ENPMYR RCOA+2*, RCO15, RCO4+1, EXIT!
ENSHABR RCOA+3*, RCO4+9, EXIT!
>> ENSHKEY RCOA+3*
ENSHOP RCOA+3*, RCO4, EXIT!
ENY RCOH4+2*, EXIT+1!, HOLD+1*
I RCO3*, RCO3+10*, RCO4+6*, RCO4+7*, EXIT+1!
IOSL RCOH4+2
IOST HOLD
J RCO4+11*, RCO4+12*, RCO4+13, RCO41, EXIT+1!
J1 RCOH4+2~*
PMTECH RCO+1~
PMTECH( RCO3*, RCO3+10*!, RCO4+7
PMTECH(0 RCO4+5
PMTOT RCO+1~
U RCOA+3, RCO2, RCO3+10, RCO4+12, RCO41+3, RCO41+4, RCO41+6, RCO41+7, RCO5+2, RCO5+4
, RCO5+5, RCOH4+2
>> X RCO1*, RCO11*, RCO11+1, RCO2+1*, RCO41*, RCO41+1*, RCO5*, RCO5+1*, RCOH4+2, HOLD*
>> Y RCOA*, RCOA+1, RCOA+2, RCOA+3, RCO15*, RCO15+2, RCO15+3, RCO15+4, RCO3+6, RCO3+10
, RCO41+2, RCO41+3, RCO5+1, RCO5+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All