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

Package: Engineering

Routine: ENFABETR


Information

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

Source Information

Source file <ENFABETR.m>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] Classic Fileman Calls
^ENG(6915.3 - [#6915.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call