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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
VA FileMan 2 (,DD)^%DT  ^DIR  

Caller Graph

Caller Graph Total: 35

Package Total Caller Graph
Engineering 31 ENARG2  ENEQ3  ENEQ4  ENEQMED  ENEQTD  ENFAACQ  ENFABETR  ENFACHG  
ENFACHG1  ENFACTL  ENFACTR  ENFACTS  ENFACTT  ENFACTU  ENFADEL  ENFAEIL  
ENFAR6  ENFAXFR  ENFAXMT3  ENFAXMTM  ENLIB3  ENTIDD  ENX1IPS  ENXIP57  
ENXIP60  ENXIP71  ENXOIPS1  ^ENG(6914  ^ENG(6914.1  ENXOIPS  ENXSIPS  
Equipment Turn-In Request 4 PRCNFAP  PRCNTICM  PRCNTIRQ  PRCNTIWH  

Entry Points

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

    External References

    Name Field # of Occurrence
    ^%DT CMRSTA+3, DT
    DD^%DT CMRSTA+3
    ^%ZIS RSLTS+10
    HOME^%ZIS RSLTS+14
    ^%ZTLOAD RSLTS+14
    ^DIR RSLTS+9, HD+1

    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
    Routine Call
    • %ZIS
    • Line Location:
      • RSLTS+14
    Routine Call
    • DIR
    • Line Location:
      • RSLTS+9
      • HD+1
    Routine Call
    • %ZIS
    • Line Location:
      • RSLTS+10

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(6910 - [#6910] CMRSTA+4
    ^ENG(6914 - [#6914] CMRSTA+8, CMRSTA+9, CMRSTA+10*, CMRSTA+13*
    ^ENG(6914.1 - [#6914.1] CMRSTA+5, HD+7, CMRCC+4
    ^ENG(6914.9 - [#6914.9] CMRCC+5, CMRCC+6
    ^ENG(6915.2 - [#6915.2] CHKFA+6, CHKFA+7, CMRSTA+12
    ^ENG(6915.5 - [#6915.5] CHKFA+8, CHKFA+9

    Label References

    Name Line Occurrences
    $$CHKFA CMRSTA+12
    CCDUN CC+1, CC+3
    CMRXIT RSLTS+4, RSLTS+15
    DECDUN DEC+4, DEC+5, DEC+6, DEC+7
    DT DT+1
    HD DQ+3, DQ+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT CMRSTA+3*, DATE+2*
    >> %DT("A" DATE+2*
    >> %ZIS RSLTS+10*
    CMR CMRSTA+2~, CMRSTA+5*, CMRSTA+8, HD+7, CC~, CC+2
    DA CHKFA~, CHKFA+6, CHKFA+8, CMRSTA+5
    DATE CMRSTA+2~, CMRSTA+3*, HD+8
    DIR RSLTS+9!, HD+1!
    DIR("A" RSLTS+8*
    DIR("B" RSLTS+8*
    DIR(0 RSLTS+8*, HD+1*
    >> DIRUT RSLTS+9
    ENCC CMRCC+2~, CMRCC+3*, CMRCC+6*, CMRCC+7
    END DQ+1~, DQ+3*, DQ+4, HD+1*
    >> ENFAP("DT" DT*, DT+3*
    ENI CMRCC~, CMRCC+4
    ENL DQ+1~, DQ+3*, HD+9
    ENPG DQ+1~, DQ+3*, HD+1, HD+2, HD+3*, HD+5
    ENX CMRCC+2~, CMRCC+4*, CMRCC+5
    ENX(0 CMRCC+5*, CMRCC+6
    EQ CMRSTA+2~
    EQ( DQ+6
    EQ("COR" CMRSTA+6*, CMRSTA+11*, RSLTS+1, RSLTS+2
    EQ("FAP" CMRSTA+6*, CMRSTA+12*, RSLTS+1, RSLTS+4, RSLTS+6, RSLTS+7, RSLTS+8, RSLTS+15, DQ+4
    EQ("LIST" RSLTS+4, RSLTS+5*, RSLTS+10*, RSLTS+14*
    EQ("UPDT" CMRSTA+6*, CMRSTA+10*, CMRSTA+13*, RSLTS+1, RSLTS+3
    FADA CHKFA+5~, CHKFA+10*, CHKFA+11
    FADT CHKFA+5~, CHKFA+7*, CHKFA+10, CHKFA+11
    FDDT CHKFA+5~, CHKFA+9*, CHKFA+10, CHKFA+11
    I CMRSTA+2~, CMRSTA+8*, CMRSTA+9, CMRSTA+10, CMRSTA+12, CMRSTA+13, RSLTS+13*, DQ+4*, DQ+5, DQ+6
    IO DQ+2
    IO("Q" RSLTS+11
    IOF HD+2
    IOM DQ+3, HD+5
    IOSL DQ+6
    IOST HD+1, HD+2
    J CHKFA+5~, CHKFA+6*, CHKFA+8*
    K CHKFA+5~, CHKFA+6*, CHKFA+7, CHKFA+11
    L CHKFA+5~, CHKFA+8*, CHKFA+9
    >> POP RSLTS+10
    STATION CMRSTA+2~, CMRSTA+5*, CMRSTA+10, CMRSTA+11, CMRSTA+13, HD+7, CC~, CC+1, CC+2
    STATION("DEF" CMRSTA+4*, CMRSTA+10
    STATION("EX" CMRSTA+9*, CMRSTA+10, CMRSTA+11
    TYPE DATE~, DATE+2
    U CHKFA+7, CHKFA+9, CHKFA+11, CMRSTA+4, CMRSTA+5, CMRSTA+9, CMRSTA+10, CMRSTA+13, HD+7, CMRCC+6
    X CHKFA+5~, CHKFA+11*, CHKFA+12, DEC~, DEC+3*, DEC+4, DEC+5, DEC+6, DEC+7, CMRSTA+2~
    , CMRSTA+3*, CC+1~*, CC+2*, CC+3*, CC+4*, CCDUN
    X1 DEC+2~, DEC+7*, DEC+8, CC+1~, CC+2*, CC+3, CC+4
    X2 DEC+2~, DEC+7*, DEC+8, CC+1~, CC+2*, CC+3, CC+4
    Y DEC+2~, DEC+4*, DEC+5*, DEC+6*, DEC+7*, DEC+8*, DECDUN, CMRSTA+3, RSLTS+9, HD+1
    , DT, DT+1, DT+2*, DT+3
    >> ZTDESC RSLTS+12*
    >> ZTRTN RSLTS+12*
    >> ZTSAVE( RSLTS+13*
    ZTSK RSLTS+14!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All