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
Print Page as PDF
Routine: ENFAUTL

Package: Engineering

Routine: ENFAUTL


Information

ENFAUTL ;(WIRMFO)/DH/SAB-FAP Utilities ;1.12.98

Source Information

Source file <ENFAUTL.m>

Entry Points

Name Comments DBIA/ICR reference
CHKFA(DA) ;X returned
  • ICR #1346
    • Status: Active
    • Usage: Private
  • ICR #6562
    • Status: Active
    • Usage: Private
    DEC(X) ;Add decimal points if necessary
    DECDUN
    CMRSTA ;Update STATION NUMBER in 6914 upon changes to 6914.1
    RSLTS ;Summarize the outcome
    DQ ;Print the FAP list
    CMRXIT ; Exit CMRSTA
    HD ;Report header
    CC(STATION,CMR) ;Is putative STATION NUMBER consistent with CMR
    CCDUN
    DATE(TYPE) ;Get dates for FAP docs
    DT
    CMRCC(ENI) ; CMR (#6914.1) file COST CENTER computed field
    ; in ENI (ien of CMR)

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Please bear with me as I attempt to update your Equipment File..."
    • Line Location: CMRSTA+7
    Function Call: WRITE
    • Prompt: !!,(EQ("COR")+EQ("UPDT")+EQ("FAP"))," Equipment Records were examined."
    • Line Location: RSLTS+1
    Function Call: WRITE
    • Prompt: !,EQ("COR")," were found to be correct as is."
    • Line Location: RSLTS+2
    Function Call: WRITE
    • Prompt: !,EQ("UPDT")," were updated."
    • Line Location: RSLTS+3
    Function Call: WRITE
    • Prompt: !,EQ("FAP")," have been sent to FAP under the old station number."
    • Line Location: RSLTS+6
    Function Call: WRITE
    • Prompt: !,"These ",EQ("FAP")," records can only be changed via FAP documents. You must",!,"do an FD, manually change the STATION NUMBER, and then do an FA."
    • Line Location: RSLTS+7
    Function Call: WRITE
    • Prompt: !,?10,I
    • Line Location: DQ+5
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HD+2
    Function Call: WRITE
    • Prompt: "Equipment Not Updated at time of CMR STATION NUMBER change"
    • Line Location: HD+4
    Function Call: WRITE
    • Prompt: ?(IOM-10),"Page ",ENPG
    • Line Location: HD+5
    Function Call: WRITE
    • Prompt: !," because the Equipment was Reported to FAP."
    • Line Location: HD+6
    Function Call: WRITE
    • Prompt: !,"CMR: ",$P(^ENG(6914.1,CMR,0),U),?20,"New STATION NUMBER: ",STATION
    • Line Location: HD+7
    Function Call: WRITE
    • Prompt: !,"Date of change: ",DATE
    • Line Location: HD+8
    Function Call: WRITE
    • Prompt: !,ENL
    • Line Location: HD+9
    Function Call: WRITE
    • Prompt: !,$C(7),"Month is required."
    • Line Location: DT+1
    Info |  Source |  Entry Points |  Interaction Calls