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

Package: Engineering

Routine: ENEQPMR4


Information

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

Source Information

Source file <ENEQPMR4.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 ^%DT  ^DIC  YN^DICN  ^DIE  ^DIK  
Engineering 4 COUNT^ENBCPM8  UPDT^ENEQNX5  SDPM4^ENEQPMR5  GETEQ^ENUTL  

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

Package Total Caller Graph
Engineering 10 ENBCPM1  ENEQPMR1  ENEQPMR2  ENEQPMR3  ENEQPMR5  ENEQPMR6  ENPMR3  ENSA  
ENWO1  ENWOD  

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

    External References

    Name Field # of Occurrence
    ^%DT SDPM+3
    ^DIC SDPM+2
    YN^DICN SDPM0, SDPM0+2, SDPM10
    ^DIE SDPM2+10
    ^DIK SDPM2+14
    COUNT^ENBCPM8 OUT
    UPDT^ENEQNX5 PMINV+10
    SDPM4^ENEQPMR5 SDPM2+18
    GETEQ^ENUTL SDPM2+3

    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
    Routine Call
    • DIC
    • Line Location:
      • SDPM+2
    Routine Call
    • DIE
    • Line Location:
      • SDPM2+10

    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" SDPM+3
    ^DIC(6910 - [#6910] SDPM1+1
    ^DIC(6922 - [#6922] SDPM+2
    ^DIE("B" SDPM2+10
    ^ENG(6914 - [#6914] SDPM2+16, PMINV+10
    ^ENG(6920 - [#6920] SDPM2+5, SDPM2+6, SDPM2+9, SDPM2+12, SDPM2+13, PMHRS+12, PMHRS+13, PMHRS+15, PMINV+6, PMINV+8

    Label References

    Name Line Occurrences
    COBH1 SDPM10
    OUT SDPM+2, SDPM+3, SDPM0+1, SDPM01, SDPM10+1, SDPM2+3
    PMHRS SDPM2+13
    PMINV SDPM2+13
    SDPM0 SDPM0+1, SDPM0+2
    SDPM01 SDPM01+1
    SDPM1 SDPM0
    SDPM10 SDPM10
    SDPM2 SDPM1, SDPM1+1, SDPM2+15, SDPM2+17, SDPM2+19

    Naked Globals

    Name Field # of Occurrence
    ^( SDPM2+16
    ^(0 SDPM+2, SDPM1+1, SDPM2+5, SDPM2+16, PMINV+8
    ^(5 PMINV+8

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % SDPM0*, SDPM0+1, SDPM0+2*, SDPM10*, SDPM10+1
    %DT SDPM+3*, OUT+4!
    %DT("A" SDPM+3*
    %DT("B" SDPM+3*
    B OUT+4!
    C OUT+4!
    D0 OUT+4!
    DA SDPM2+4~, SDPM2+5*, SDPM2+6, SDPM2+9, SDPM2+11, SDPM2+12, SDPM2+13, SDPM2+18, OUT+4!, PMHRS+12
    , PMHRS+13, PMHRS+15, PMINV+6, PMINV+8, PMINV+9~
    DIC SDPM+2*, OUT+4!
    DIC(0 SDPM+2*
    DIE SDPM2+10*, OUT+4!
    DIK SDPM2+14*!, OUT+4!
    DR SDPM2+10*, OUT+4!
    DT SDPM+3
    DTIME SDPM01, HLD
    EN OUT+1!
    ENA OUT+3!
    ENCLOSE SDPM2+4*, SDPM2+9*, SDPM2+13*, SDPM2+15, OUT+3!
    ENDA SDPM2+3*, SDPM2+5, SDPM2+16, OUT+2!, PMHRS+10~
    ENDATE SDPM+3*, OUT+1!
    ENDEL SDPM1, SDPM1+1*, SDPM10+1*, SDPM2+14, OUT+1!
    ENDT PMINV+7~, PMINV+8*, PMINV+10
    ENEQ PMINV+7~, PMINV+8*, PMINV+10
    ENFNO OUT+2!
    ENHRS PMHRS+10~, PMHRS+14*, PMHRS+16
    ENHZ OUT+3!
    ENI SDPM2+5*, SDPM2+16*, OUT+1!, PMHRS+10~, PMHRS+12*, PMHRS+13
    ENK OUT+1!
    ENKILL SDPM2+4*, SDPM2+11*, SDPM2+15, OUT+3!
    ENLOC PMINV+7~, PMINV+8*, PMINV+10
    ENNXL OUT+2!
    ENNXMN OUT+2!
    ENNXT OUT+2!
    ENPM SDPM0*, SDPM01*, SDPM2+4, OUT+1!
    ENPMDT SDPM+3*, SDPM2+4, OUT+1!
    ENPMMN SDPM+3*, SDPM2+1, OUT+1!
    ENPMN OUT+3!
    ENPMWK OUT+1!
    ENPMWO SDPM2+4*, SDPM2+5, SDPM2+16, OUT+1!
    ENPMWO(1 COH2+1
    ENPMWOX SDPM2+5*, SDPM2+7, SDPM2+16*, SDPM2+17, OUT+2!
    ENPMYR SDPM+3*, SDPM2+1, OUT+1!
    ENRS OUT+2!
    ENSHABR SDPM+2*, SDPM2+4, OUT+2!
    ENSHKEY SDPM+2*, OUT+2!, PMHRS+10~, PMHRS+14*, PMHRS+15*, PMHRS+16
    ENSHOP SDPM+2*, OUT+2!
    ENSTMN OUT+3!
    ENTEC PMHRS+10~, PMHRS+14*, PMHRS+16
    ENX OUT+1!
    ENY OUT+2!, HLD*
    ENY0 PMHRS+10~, PMHRS+13*, PMHRS+14
    I OUT+4!
    IOF HLD
    J OUT+4!
    PMTOT SDPM+1~, OUT
    PMTOT( PMHRS+16*
    U SDPM+2, SDPM1+1, SDPM2+1, SDPM2+5, SDPM2+6, SDPM2+9, SDPM2+12, SDPM2+13, SDPM2+16, PMHRS+14
    , PMHRS+15, PMINV+6, PMINV+8
    >> X SDPM01*, HLD*
    Y SDPM+2, SDPM+3*, SDPM2+3, OUT+4!
    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