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

Package: Engineering

Routine: ENEQPMR6


Information

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

Source Information

Source file <ENEQPMR6.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 ^%DT  ^DIC  YN^DICN  ^DIE  ^DIK  
Kernel 3 HOME^%ZIS  ^%ZISC  ^%ZTLOAD  
Engineering 1 COBH1^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: 1

Package Total Caller Graph
Engineering 1 ENPMRDEFRL  

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

External References

Name Field # of Occurrence
^%DT RD+3
HOME^%ZIS RD3
^%ZISC RD3
^%ZTLOAD RD3
^DIC RD+4, RD2P+6, RD2P+14
YN^DICN RD2T+4, RD2P+1, RD2PD+3
^DIE POST+3
^DIK DEL
COBH1^ENEQPMR4 RD2+1

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
Routine Call
  • DIC
  • Line Location:
    • RD+4
    • RD2P+6
    • RD2P+14
Routine Call
  • DIE
  • Line Location:
    • POST+3
Routine Call
  • %ZIS
  • Line Location:
    • RD3

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" RD+3
^DIC(6910 - [#6910] RD2
^DIC(6922 - [#6922] RD+4
^ENG("PMLIST" RD2PD, EXIT
^ENG(6920 - [#6920] RD2T+6, RD2P+2, RD2P+7, RD2P+9, RD2PD+5, RD2PD+6, RD4, RD4+1, POST, POST+1
, POST+2, DEL

Label References

Name Line Occurrences
DEL RD2PD+6, RD4+1
EXIT RD+3, RD+4, RD1, RD11, RD2+1, RD2T+4, RD2T+6, RD2P+1, RD2P+2, RD2PD
, RD2PD+3, RD2PD+7, RD3+1
HOLD RD2T+6
POST RD2PD+6, RD4+1
RD1 RD1
RD11 RD11
RD2 RD1, RD2+1
RD2P RD2P+1, RD2P+4, RD2P+6, RD2P+11, RD2P+14
RD2PD RD2P+1, RD2PD+3
RD2PH RD2P+1
RD2T RD2T+4
RD3 RD2PD+3
RDH1 RD1

Naked Globals

Name Field # of Occurrence
^( POST+2
^(0 RD+4, RD2, POST+2*
^(5 POST, POST+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RD2T+4*, RD2P+1*, RD2PD+3*
>> %DT RD+3*
>> %DT("A" RD+3*
>> %DT("B" RD+3*
DA RD2PD+6*, RD4+1*, EXIT+2!, POST!, POST+1, POST+2, DEL
DIC RD+4*, RD2P+6*, EXIT+2!
DIC("S" RD2P+6*!, RD2P+13*, RD2P+14!
DIC(0 RD+4*, RD2P+6*
DIE RD2PD+2*, EXIT+2!
DIK EXIT+2!, DEL*
DR RD2PD+2*, EXIT+2!
DT RD+3
DTIME RD1, RD11, RD2+1, RD2P+4, RD2P+11, HOLD
EN EXIT+1!
ENDATE RD+3*, RD2T+2, EXIT+1!
ENDEL RD2*, RD2+1*, RD2PD+6, RD4+1, EXIT+1!
ENFR RD2P*, RD2P+6*, RD2P+7*, RD2PD+2, EXIT+1!
ENFR(0 RD2P+7*
ENK RD2PD+5*, RD4*, EXIT+1!
ENPM RD1*, RD11+1*, RD2T, RD2T+1, RD2T+5, EXIT+1!
ENPMDT RD+3*, RD2T+5, EXIT+1!
ENPMMN RD+3*, RD2T, EXIT+1!
ENPMWK RD11+1*, RD2T+1, EXIT+1!
ENPMWO RD+3!, RD2T+5*, RD2T+6, RD2PD, RD2PD+1, RD2PD+2*, RD2PD+5*, RD2PD+6, RD4*, RD4+1
, EXIT+1!
ENPMWO("P" RD2T+5*, RD2T+6, RD2P+2, RD2P+5, RD2P+7, RD2P+9, RD2P+12, RD2PD+2, RD2PD+5, RD4
ENPMWO(0 RD2PD+1*, EXIT
ENPMYR RD+3*, RD2T+1, EXIT+1!
ENSHABR RD+4*, RD2T+5, EXIT+1!
ENSHKEY RD+4*, EXIT+1!
ENSHOP RD+4*, RD2T, EXIT+1!
ENTO RD2P*, RD2P+14*, RD2PD+5, RD4, EXIT+1!
ENTO("L" RD2P*, RD2P+14*, RD2PD+5, RD4
>> ENY HOLD*
>> I POST+1*, POST+2*
>> J RD2P+2*, RD2P+3, RD2P+9*, RD2P+10
U RD+4, RD2, RD2P+6, RD2P+14, POST, POST+1, POST+2, DEL
>> X RD1*, RD11*, RD11+1, RD2+1*, RD2P+4*, RD2P+5*, RD2P+11*, RD2P+12*, HOLD*
>> Y RD+3*, RD+4, RD2P+6, RD2P+14
>> ZTDESC RD3*
>> ZTDTH RD3*
>> ZTIO RD3*
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
>> ZTRTN RD3*
>> ZTSAVE("DIE" RD3*
>> ZTSAVE("DR" RD3*
>> ZTSAVE("EN*" RD3*
ZTSK RD3!
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