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

Package: Engineering

Routine: ENEQPMP1


Information

ENEQPMP1 ;(WIRMFO)/DH/SAB-Maintain PMI Parameters ;7.29.97

Source Information

Source file <ENEQPMP1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 EN^DDIOL  ^DIC  YN^DICN  ^DIE  ^DIR  
Engineering 2 PMSE3^ENEQPMP  (DDT,DINV)^ENEQPMP3  

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

Package Total Caller Graph
Engineering 6 ENEQPMP  ENPM1  ENPM2  ENPM5  ENPM9  RESPONSIBLE SHOP  

Entry Points

Name Comments DBIA/ICR reference
PMSD ; Display device PM schedule
DTD ; Display Equipment Category PM data
DTE ; Edit Equipment Category PM data
DTE1
DTE2
DTE3
DTE4
DTE5
DTE51
DTL
DTEH
DTEH1
SKPCK ;SKP MNTHS = ENA ;Called by FileMan Input X-form
HLD
EXIT
RT ;Reassign a Technicians PMI Responsibilities
RTASK ; ask user
RTDO
RTEX ; reassign tech exit
RTSHOP ; update all entries for responsible shop ENRS

External References

Name Field # of Occurrence
EN^DDIOL SKPCK+4
^DIC PMSD+2, DTL, RTASK+3, RTASK+6, RTASK+13
YN^DICN DTE2, DTE3+2, DTE5, DTE51+1
^DIE DTE1, RTDO+19, RTSHOP+14
^DIR RTASK+10, RTASK+22, RTASK+32, RTDO+2, RTDO+24
PMSE3^ENEQPMP DTE51, DTE51+1
DDT^ENEQPMP3 DTD+2, DTE1, RTDO+16
DINV^ENEQPMP3 PMSD+2, RTSHOP+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: PMSD+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DTD+2
Function Call: WRITE
  • Prompt: !!,"Sorry, you need Security Key 'ENEDPM'."
  • Line Location: DTE+1
Function Call: WRITE
  • Prompt: !!,*7,"Someone else is editing this record."
  • Line Location: DTE+4
Function Call: WRITE
  • Prompt: !,"Are you finished with this Equipment Category"
  • Line Location: DTE2+0
Function Call: WRITE
  • Prompt: !,"Please enter 'YES' or 'NO'."
  • Line Location: DTE2+0
Function Call: WRITE
  • Prompt: !,"Do you wish to assign this PM schedule to ALL existing equipment records",!,"in the category of "_ENDVTYP
  • Line Location: DTE3+0
Function Call: WRITE
  • Prompt: !,"Do you want to delete existing PM schedules (if any) from equipment records",!,"in the category of "_ENDVTYP
  • Line Location: DTE3+1
Function Call: WRITE
  • Prompt: !,"Do you wish to confirm each transaction"
  • Line Location: DTE5+0
Function Call: WRITE
  • Prompt: !,DA
  • Line Location: DTE5+1
Function Call: WRITE
  • Prompt: ?10,$P(^(3),U,6)
  • Condition for execution: $D(^ENG(6914,DA,3))
  • Line Location: DTE5+1
Function Call: WRITE
  • Prompt: " OK"
  • Line Location: DTE51+1
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: DTL+0
Function Call: WRITE
  • Prompt: !!,"'YES' will cause the system to immediately find every equipment record of",!,"type "_ENDVTYP_" and assign each of them the PM schedule just entered."
  • Line Location: DTEH+0
Function Call: WRITE
  • Prompt: !,"The ENTRY NUMBER of each affected equipment record will be displayed at",!,"your terminal, but you will not be asked to confirm the transaction unless",!,"you say that you want to."
  • Line Location: DTEH+1
Function Call: WRITE
  • Prompt: !,"Once this process has begun, it should not be interrupted."
  • Line Location: DTEH+2
Function Call: WRITE
  • Prompt: !!,"You should enter 'YES' if you want to apply the revised schedule to some",!,ENDVTYP,"'s but not others."
  • Line Location: DTEH1+0
Function Call: WRITE
  • Prompt: !,"Enter 'NO' if you want the revised schedule applied to all equipment of",!,"type ",ENDVTYP,"."
  • Line Location: DTEH1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RTASK+1
Function Call: WRITE
  • Prompt: !!,"All occurrences of TECHNICIAN in both the EQUIPMENT CATEGORY and"
  • Line Location: RTASK+24
Function Call: WRITE
  • Prompt: !,"EQUIPMENT INV. preventive maintenance schedules will be changed"
  • Line Location: RTASK+25
Function Call: WRITE
  • Prompt: !,"from ",ENTECN("O")," to ",ENTECN("N"),"."
  • Line Location: RTASK+26
Function Call: WRITE
  • Prompt: !,"This change will be made for "
  • Line Location: RTASK+27
Function Call: WRITE
  • Prompt: "the PM schedules of ALL responsible shops."
  • Line Location: RTASK+28
Function Call: WRITE
  • Prompt: "only the PM schedules of the ",ENSHOP," shop."
  • Line Location: RTASK+29
Function Call: WRITE
  • Prompt: !,"You will be able to individually edit the TECHNICAN."
  • Line Location: RTASK+30
Function Call: WRITE
  • Prompt: !
  • Line Location: RTASK+31
Function Call: WRITE
  • Prompt: !!,"Updating EQUIPMENT CATEGORY file"
  • Line Location: RTDO+1
Function Call: WRITE
  • Prompt: !!,"For the ",$P($G(^DIC(6922,ENRS,0)),U)," SHOP PM Schedule:"
  • Line Location: RTDO+17
Function Call: WRITE
  • Prompt: !," ",ENC,$S(ENC=1:" entry was",1:" entries were")," changed."
  • Line Location: RTDO+20
Function Call: WRITE
  • Prompt: !!,"Updating EQUIPMENT INV. file"
  • Line Location: RTDO+23
Function Call: WRITE
  • Prompt: !," ",ENC,$S(ENC=1:" entry was",1:" entries were")," changed."
  • Line Location: RTDO+28
Function Call: WRITE
  • Prompt: !!,"For the ",$P($G(^DIC(6922,ENRS,0)),U)," SHOP PM Schedule:"
  • Line Location: RTSHOP+12
Routine Call
  • DIC
  • Line Location:
    • PMSD+2
    • DTL
    • RTASK+3
    • RTASK+6
    • RTASK+13
Routine Call
  • DIE
  • Line Location:
    • DTE1
    • RTDO+19
    • RTSHOP+14
Routine Call
  • DIR
  • Line Location:
    • RTASK+10
    • RTASK+22
    • RTASK+32
    • RTDO+2
    • RTDO+24

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(6922 - [#6922] RTDO+17, RTSHOP+12
^ENG(6911 - [#6911] DTE+4, DTE1+1, DTE2+1, DTE3, RTDO+4, RTDO+5, RTDO+8, RTDO+13*
^ENG(6914 - [#6914] DTE5+1, RTDO+27, RTSHOP+1, RTSHOP+4, RTSHOP+5, RTSHOP+8*
^XUSEC("ENEDPM" DTE+1

Label References

Name Line Occurrences
@( DTE3+2
DTE DTE1+2, DTE2, DTE5+2
DTE1 DTE2
DTE2 DTE2
DTE3 DTE4
DTE5 DTEH1+2
DTE51 DTE5+1
DTEH DTE4
DTEH1 DTE5
DTL DTD+2, DTE+3
EXIT PMSD+2, DTD+2, DTE+1, DTE+3, DTE+4
HLD DTE+1, DTE5+2
PMSD PMSD+2
RTEX RTASK+3, RTASK+6, RTASK+10, RTASK+12, RTASK+22, RTASK+32, RTDO+2, RTDO+21, RTDO+24
RTSHOP RTDO+26, RTDO+27

Naked Globals

Name Field # of Occurrence
^(3 DTE5+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DTE2*, DTE3+2*, DTE5*, DTE51+1*
DA PMSD+1~, PMSD+2*, DTD+1~, DTE+2~, DTE+5*, DTE1+2, DTE5+1*, RTDO+18*, RTDO+19!, RTEX+1!
, RTSHOP+11*, RTSHOP+13*, RTSHOP+14!
DA(1 RTDO+18*, RTSHOP+13*
DIC PMSD+1~, PMSD+2*, DTD+1~, DTE+2~, DTL*, RTASK+2*, RTASK+3!, RTASK+5*, RTASK+6!, RTASK+13*!
, RTEX+1!
DIC("A" RTASK+2*, RTASK+5*
DIC(0 PMSD+2*, DTD+2*, DTE+3*, RTASK+2*, RTASK+5*, RTASK+13*
DIE PMSD+1~, PMSD+2*, DTD+1~, DTE+2~, DTL*, RTDO+18*, RTEX+1!, RTSHOP+13*
DIR RTASK+10!, RTASK+22!, RTASK+32!, RTDO+2!, RTDO+24!
DIR("?" RTASK+17*, RTASK+18*, RTASK+19*, RTASK+20*, RTASK+21*
DIR("A" RTASK+9*, RTASK+15*, RTASK+31*
DIR("B" RTASK+9*, RTASK+16*
DIR(0 RTASK+8*, RTASK+15*, RTASK+31*, RTDO+2*, RTDO+24*
DIROUT RTEX+1!
DIRUT RTASK+10, RTASK+32, RTDO+2, RTDO+24, RTEX+1!
DLAYGO DTE+3*!
DR PMSD+1~, DTD+1~, DTE+2~, DTE+5*, RTDO+18*, RTEX+1!, RTSHOP+13*
DTIME HLD
DTOUT RTASK+22, RTEX+1!
DUOUT RTEX+1!
ENA SKPCK+1*, SKPCK+2*, SKPCK+3*, SKPCK+4, EXIT!
ENB SKPCK+1*, SKPCK+3, SKPCK+4, EXIT!
ENC EXIT!, RTDO+3*, RTDO+14*, RTDO+20, RTDO+25*, RTDO+28, RTEX+2!, RTSHOP+9*
ENCONF DTE5*, DTE51, EXIT!
ENCRIT EXIT!
END RTDO*, RTDO+2*, RTDO+4, RTDO+5, RTDO+19*, RTDO+21, RTDO+24*, RTDO+27, RTEX+2!, RTSHOP+1
, RTSHOP+14*
ENDA RTDO+4*, RTDO+5, RTDO+8, RTDO+13, RTDO+16, RTDO+18, RTEX+2!, RTSHOP+1*, RTSHOP+4, RTSHOP+5
, RTSHOP+8, RTSHOP+11, RTSHOP+13
ENDTYP DTD+2, DTE+3, DTE+4, DTE+5, DTE1+1, DTE2+1, DTE3, DTE5+1, DTL*, EXIT!
, RTDO+16*, RTEX+2!
ENDVTYP DTE2+1*, DTE3, DTE3+1, DTEH, DTEH1, DTEH1+1, EXIT!, RTEX+2!
ENEDTEC RTASK+22*, RTASK+30, RTDO+2, RTDO+7, RTDO+15, RTDO+24, RTEX+2!, RTSHOP+3, RTSHOP+10
ENI RTDO+5*, RTDO+8, RTDO+13, RTDO+18, RTEX+2!, RTSHOP+4*, RTSHOP+5, RTSHOP+8, RTSHOP+13
ENNOHLD RTDO+16*, RTEX+2!, RTSHOP+11*
ENRS RTDO+9*, RTDO+10, RTDO+17, RTDO+26*, RTDO+27*, RTEX+2!, RTSHOP+1, RTSHOP+4, RTSHOP+12
ENSHKEY RTASK+12, RTASK+13*, RTDO+10, RTDO+26, RTEX+3!
ENSHKEY("ALL" RTASK+10*, RTASK+12, RTASK+28, RTDO+10, RTDO+26, RTDO+27
ENSHOP RTASK+13*, RTASK+29, RTEX+3!
ENT RTDO+3*, RTDO+6*, RTDO+7, RTDO+25*, RTEX+3!, RTSHOP+2*, RTSHOP+3
ENTEC RTEX+3!
ENTEC("N" RTASK+6*, RTDO+13, RTSHOP+8
ENTEC("O" RTASK+3*, RTDO+11, RTSHOP+6
ENTECN RTEX+3!
ENTECN("N" RTASK+6*, RTASK+26
ENTECN("O" RTASK+3*, RTASK+18, RTASK+26
ENX EXIT!, RTEX+3!
ENXP PMSD+2, EXIT!
ENY RTDO+8*, RTDO+9, RTDO+11, RTEX+3!, RTSHOP+5*, RTSHOP+6
I PMSD+1~, DTD+1~, DTE+2~
I1 PMSD+1~, DTD+1~, DTE+2~
IOF PMSD+2, DTD+2, DTL
IOST HLD
J PMSD+1~, DTD+1~, DTE+2~
K PMSD+1~, DTD+1~, DTE+2~
TAG PMSD+1~, DTD+1~, DTE+2~, DTE3+2*
U DTE2+1, DTE5+1, RTASK+3, RTASK+6, RTASK+13, RTDO+9, RTDO+11, RTDO+13, RTDO+17, RTSHOP+6
, RTSHOP+8, RTSHOP+12
X PMSD+1~, DTD+1~, DTE+2~, SKPCK+1, HLD*, RTEX+1!
Y PMSD+2, DTL, RTASK+3, RTASK+6, RTASK+10, RTASK+13, RTASK+22, RTASK+32, RTDO+19, RTEX+1!
, RTSHOP+14
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