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

Package: Engineering

Routine: ENFABETR


Information

ENFABETR ;WASHINGTON IRMFO/KLD/DH/SAB; EQUIPMENT BETTERMENTS; 6/9/97

Source Information

Source file <ENFABETR.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Engineering 7 $$AVP^ENFAAV  ADJBAL^ENFABAL  ($$CHKFA,$$DEC)^ENFAUTL  ^ENFAVAL  ^ENFAXMT  LISTP^ENFAXMTM  GETEQ^ENUTL  
VA FileMan 5 DD^%DT  FILE^DICN  ^DIE  ^DIK  ^DIR  

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

Package Total Caller Graph
Engineering 1 ENFA BETTER  

Entry Points

Name Comments DBIA/ICR reference
ST
DIE ;Edit the FB DOC LOG entry
EQ ;apply changes
EXIT
K
BETNUM

External References

Name Field # of Occurrence
DD^%DT ST+5
FILE^DICN ST+12
^DIE DIE+4, EQ+10, EQ+13
^DIK DIE+7, DIE+15, DIE+17, DIE+19
^DIR DIE+13, DIE+19
$$AVP^ENFAAV DIE+16
ADJBAL^ENFABAL EQ+6
$$CHKFA^ENFAUTL ST+4
$$DEC^ENFAUTL EQ+10
^ENFAVAL DIE+10
^ENFAXMT EQ+11
LISTP^ENFAXMTM DIE+11
GETEQ^ENUTL ST

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"Another user is editing this Equipment Record. Please try again later."
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: $C(7),!!,"There is no FA document on file for this asset. Nothing to better."
  • Line Location: ST+3
Function Call: WRITE
  • Prompt: $C(7),!,"An FD document for ENTRY #",ENEQ("DA")," was processed on ",Y,"."
  • Line Location: ST+6
Function Call: WRITE
  • Prompt: !,"No action taken."
  • Line Location: ST+7
Function Call: WRITE
  • Prompt: !!,$C(7),"Can't update betterment log. Better notify IRM."
  • Line Location: ST+13
Function Call: WRITE
  • Prompt: !!,$C(7),"The FB document that you just created is being edited by someone else.",!,"Please notify your ADPAC."
  • Line Location: ST+14
Function Call: WRITE
  • Prompt: !!,"Current Asset Value is $",$P(ENEQ(2),U,3)
  • Line Location: ST+16
Function Call: WRITE
  • Prompt: !
  • Line Location: DIE+4
Function Call: WRITE
  • Prompt: !!,$C(7),"This BETTERMENT is incomplete and is being deleted..."
  • Line Location: DIE+6
Function Call: WRITE
  • Prompt: " ...deleted"
  • Line Location: DIE+15
Function Call: WRITE
  • Prompt: !,"Adjustment voucher was NOT created."
  • Line Location: DIE+17
Function Call: WRITE
  • Prompt: "...data base unchanged."
  • Line Location: DIE+17
Function Call: WRITE
  • Prompt: "...data base unchanged."
  • Line Location: DIE+19
Function Call: WRITE
  • Prompt: !!,"Updating the Equipment File..."
  • Line Location: EQ+7
Function Call: WRITE
  • Prompt: !!,"Sending FB document to FAP."
  • Line Location: EQ+11
Function Call: WRITE
  • Prompt: !,"Adjustment Voucher was created.",!
  • Line Location: EQ+14
Routine Call
  • DIE
  • Line Location:
    • DIE+4
    • EQ+10
    • EQ+13
Routine Call
  • DIR
  • Line Location:
    • DIE+13
    • DIE+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] Classic Fileman Calls
^ENG(6915.3 - [#6915.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG(6914 - [#6914] ST+1, ST+2, ST+4, ST+8, ST+13, ST+14, EXIT
^ENG(6915.2 - [#6915.2] ST+2
^ENG(6915.3 - [#6915.3] ST+14, DIE+5, DIE+9, EQ+4*, EXIT, BETNUM
^ENG(6915.5 - [#6915.5] ST+4
^TMP($J DIE+10!, DIE+11

Label References

Name Line Occurrences
BETNUM ST+9
DIE DIE+11
EXIT DIE+5, DIE+11, DIE+17, DIE+19
K ST, ST+1, ST+2, ST+4, ST+13, ST+14

Naked Globals

Name Field # of Occurrence
^(8 ST+8
^(9 ST+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COUNT BETNUM~*, BETNUM+1*, BETNUM+2*
DA DIE+2*, DIE+5, DIE+15*, DIE+17*, DIE+19*, EQ+8*, EQ+13*, K!
DD ST+12!
DIC ST+10*, K!
DIC("DR" ST+11*
DIC(0 ST+10*
DIE DIE+1*, DIE+7, DIE+15, DIE+17, DIE+19, EQ+8*, EQ+13*, K!
DIE("NO^" DIE+1*, DIE+4!
DIK DIE+7*!, DIE+15*, DIE+17*, DIE+19*, K!
DIR DIE+13!, K!
DIR("A" DIE+12*, DIE+18*
DIR("B" DIE+12*, DIE+18*
DIR(0 DIE+12*, DIE+18*
>> DIRUT DIE+11, DIE+19
DLAYGO ST+10*, ST+12!
DO ST+12!
DR DIE+3*, EQ+10*, EQ+13*, K!
>> DTOUT DIE+5
ENAV DIE+16*, DIE+17, EQ+12, K!
ENEQ K!
ENEQ("DA" ST*, ST+1, ST+2, ST+4, ST+6, ST+8, ST+10, ST+13, ST+14, EQ+8
, EXIT, BETNUM
ENEQ("NEW VAL " , EQ+9*, EQ+10
ENEQ(2 ST+8*, ST+16, EQ+9
ENEQ(8 ST+8*, EQ+6
ENEQ(9 ST+8*, EQ+6
ENFAP K!
ENFAP( DIE+9*
ENFAP("DOC" DIE+8*
ENFAP(0 EQ+6
ENFAP(100 EQ+2
ENFAP(200 EQ+2*, EQ+3*, EQ+4
ENFAP(3 EQ+2, EQ+3
ENFAP(4 EQ+2, EQ+6, EQ+9
ENFB K!
ENFB("BETNUM" BETNUM+2*
ENFB("DA" ST+15*, DIE+2, DIE+9, DIE+15, DIE+16, DIE+17, DIE+19, EQ+4, EQ+13, EXIT
>> ENUT DIE+17
I DIE+9*, K!, BETNUM*
U ST+5, ST+16, EQ+2, EQ+3, EQ+4, EQ+6, EQ+9
>> X ST+4*, ST+5, ST+10*
Y ST, ST+5*, ST+6, ST+13, ST+14, ST+15, DIE+11, DIE+13, DIE+15*, DIE+19
, K!
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