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

Package: Engineering

Routine: ENFADEL


Information

ENFADEL ;WASHINGTON IRMFO/KLD/DH/SAB; Equipment Disposition ; 4/15/13 11:52am

Source Information

Source file <ENFADEL.m>

Entry Points

Name Comments DBIA/ICR reference
ST
DIE ;Enter data for FD DOC
EQ ; update
EXIT
K

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+2
Function Call: WRITE
  • Prompt: $C(7),!,"There is no FA document on file for this asset. No action taken."
  • Line Location: ST+4
Function Call: WRITE
  • Prompt: $C(7),!,"An FD document for ENTRY #",DA," was processed on ",Y,"."
  • Line Location: ST+7
Function Call: WRITE
  • Prompt: !,"No action taken."
  • Line Location: ST+8
Function Call: WRITE
  • Prompt: !!,$C(7),"Another user is editing the FD document that you just created.",!,"Please notify your ADPAC."
  • Line Location: ST+14
Function Call: WRITE
  • Prompt: !!,$C(7),"The type of FD Document is required. No action taken."
  • Line Location: ST+18
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: ST+21
Function Call: WRITE
  • Prompt: !,"This equipment item is already on SGL 1995 (Excess)."
  • Line Location: ST+22
Function Call: WRITE
  • Prompt: !
  • Line Location: DIE+3
Function Call: WRITE
  • Prompt: !!,$C(7),"This FD document is incomplete and is being deleted..."
  • Line Location: DIE+4
Function Call: WRITE
  • Prompt: !!,"When equipment is turned-in, its TOTAL ASSET VALUE must be"
  • Line Location: DIE+8
Function Call: WRITE
  • Prompt: !,"changed to the fair market value per VA Accounting Standards."
  • Line Location: DIE+9
Function Call: WRITE
  • Prompt: !,"NOTE: The current TOTAL ASSET VALUE will automatically be saved"
  • Line Location: DIE+10
Function Call: WRITE
  • Prompt: !,"in the ORIGINAL ASSET VALUE field."
  • Line Location: DIE+11
Function Call: WRITE
  • Prompt: !!,"Current TOTAL ASSET VALUE: ",$FN($P(ENEQ(2),U,3),",",2)
  • Line Location: DIE+22
Function Call: WRITE
  • Prompt: !,"Acquisition Date: ",$$FMTE^XLFDT($P(ENEQ(2),U,4))," Life Expectancy: ",$P(ENEQ(2),U,6)
  • Line Location: DIE+23
Function Call: WRITE
  • Prompt: !,"Replacement Date: ",$$FMTE^XLFDT($P(ENEQ(2),U,10))
  • Line Location: DIE+24
Function Call: WRITE
  • Prompt: " Condition: ",$$GET1^DIQ(6914,ENEQ("DA"),53)
  • Line Location: DIE+25
Function Call: WRITE
  • Prompt: !,"Repair Costs (excluding preventive maintenance)"
  • Line Location: DIE+26
Function Call: WRITE
  • Prompt: !," Labor$ :",$FN(ENT("L"),",",0)," Material$: ",$FN(ENT("M"),",",0)," Vendor$: ",$FN(ENT("V"),",",0)," Total$: ",$FN(ENT,",",0),!
  • Line Location: DIE+27
Function Call: WRITE
  • Prompt: !!,$C(7),"Fair Market Value unspecified. This FD document is being deleted..."
  • Line Location: DIE+31
Function Call: WRITE
  • Prompt: " ...deleted"
  • Line Location: DIE+45
Function Call: WRITE
  • Prompt: !,"Adjustment voucher was NOT created."
  • Line Location: DIE+47
Function Call: WRITE
  • Prompt: !,"No action taken. Database unchanged."
  • Line Location: DIE+47
Function Call: WRITE
  • Prompt: "...data base unchanged."
  • Line Location: DIE+49
Function Call: WRITE
  • Prompt: !!,"Updating the Equipment File..."
  • Line Location: EQ+3
Function Call: WRITE
  • Prompt: !!,"Sending FD document to FAP."
  • Line Location: EQ+13
Function Call: WRITE
  • Prompt: !,"Adjustment Voucher was created.",!
  • Line Location: EQ+16
Function Call: WRITE
  • Prompt: !!,"Editing Equipment Data"
  • Line Location: EQ+18

FileMan Files Accessed Via FileMan Db Call

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