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

Package: Engineering

Routine: ENEQPMP1


Information

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

Source Information

Source file <ENEQPMP1.m>

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

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

FileMan Files Accessed Via FileMan Db Call

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