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

Package: Engineering

Routine: ENEQPMR4


Information

ENEQPMR4 ;WIRMFO/DH,SAB-Single PMI's ;1/11/2001

Source Information

Source file <ENEQPMR4.m>

Entry Points

Name Comments DBIA/ICR reference
SDPM ;Post PMI for one device
SDPM0
SDPM01
SDPM1
SDPM10
SDPM2 ;
OUT
HLD
COH2 ; Called by ENEQPMR1
COBH1 ; Called by ENEQPMR1, ENEQPMR2, or ENEQPMR6
PMHRS ;Extract hours from PM work order and add to PMTOT array
  • ICR #6560
    • Status: Pending
    • Usage: Private
    PMINV ; Updates PHYSICAL INVENTORY DATE in File 6914
    ; via call to ^ENEQNX5
    ; Called after PM work order close-out

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Are you recording a WEEKLY PMI"
    • Line Location: SDPM0+0
    Function Call: READ
    • Formatting: !
    • Prompt: "Which week? "
    • Variable: X
    • Timeout: DTIME
    • Line Location: SDPM01+0
    Function Call: WRITE
    • Prompt: !,"Enter a number, 1 to 5."
    • Line Location: SDPM01+1
    Function Call: WRITE
    • Prompt: !,"Do you want to retain PM work orders in your Work Order File after they have",!,"been posted to the Equipment History"
    • Line Location: SDPM10+0
    Function Call: WRITE
    • Prompt: !!,?10,"** Need an Equipment Record for PMI entry ("_$P("Jan^Feb^Mar^Apr^May^Jun^Jul^Aug^Sep^Oct^Nov^Dec",U,ENPMMN)_", "_ENPMYR_") **"
    • Line Location: SDPM2+1
    Function Call: WRITE
    • Prompt: !,?15,"** (or press <RETURN> to exit this option) **"
    • Line Location: SDPM2+2
    Function Call: WRITE
    • Prompt: !,"Work Order "_ENPMWOX_" has already been posted. If you wish to"
    • Line Location: SDPM2+7
    Function Call: WRITE
    • Prompt: !,"edit it, please use the 'EDIT WORK ORDER' option.",*7
    • Line Location: SDPM2+8
    Function Call: WRITE
    • Prompt: !,"Work order "_ENPMWOX_" has already been posted.",*7
    • Line Location: SDPM2+17
    Function Call: READ
    • Formatting: !
    • Prompt: "Press <RETURN> to continue..."
    • Variable: X
    • Timeout: DTIME
    • Line Location: HLD+0
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HLD+0
    Function Call: WRITE
    • Prompt: !,"Enter the next PM work order you wish to close out, or the numeric (sequential)",!,"portion thereof, or <RETURN> to accept the default (",ENPMWO(1),"),",!,"or ""^"" to EXIT."
    • Line Location: COH2+1
    Function Call: WRITE
    • Prompt: !!," Deletion of PM work orders after they have been closed out is recommended",!,"for sites that are short on disk space. The results of the PMI will be posted"
    • Line Location: COBH1+1
    Function Call: WRITE
    • Prompt: !,"to the equipment history file before the PM work order is deleted.",!," If disk space is not a problem, then you may wish to retain PM work orders"
    • Line Location: COBH1+2
    Function Call: WRITE
    • Prompt: !,"in accordance with your established archive criteria. In this way, the Work",!,"Order # File will reflect scheduled as well as unscheduled work load."
    • Line Location: COBH1+3
    Function Call: WRITE
    • Prompt: !," For estimating purposes, each PM work order will consume about 300 bytes",!,"of disk space (or about 3 such work orders per block)."
    • Line Location: COBH1+4

    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