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

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Engineering 8 ^ENFAACQ  $$AVP^ENFAAV  ADJBAL^ENFABAL  ($$CHKFA,$$DEC)^ENFAUTL  ^ENFAVAL  ^ENFAXMT  LISTP^ENFAXMTM  GETEQ^ENUTL  
VA FileMan 6 DD^%DT  FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Engineering 1 ENFA DISP  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT ST+6
FILE^DICN ST+12
^DIE ST+17, DIE+3, DIE+30, EQ+5, EQ+6, EQ+11, EQ+12, EQ+15, EQ+21
^DIK ST+19, ST+21, DIE+5, DIE+32, DIE+45, DIE+47, DIE+49
$$GET1^DIQ ST+21, DIE+25, DIE+37, DIE+39, EQ+22
^DIR ST+24, DIE+49, EQ+29
^ENFAACQ EQ+30
$$AVP^ENFAAV DIE+46
ADJBAL^ENFABAL EQ+2
$$CHKFA^ENFAUTL ST+5
$$DEC^ENFAUTL EQ+10
^ENFAVAL DIE+41
^ENFAXMT EQ+13
LISTP^ENFAXMTM DIE+42
GETEQ^ENUTL ST
$$FMTE^XLFDT DIE+23, DIE+24

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
Routine Call
  • DIE
  • Line Location:
    • ST+17
    • DIE+3
    • DIE+30
    • EQ+5
    • EQ+6
    • EQ+11
    • EQ+12
    • EQ+15
    • EQ+21
Routine Call
  • DIR
  • Line Location:
    • ST+24
    • DIE+49
    • EQ+29

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG(6914 - [#6914] ST+2, ST+9, ST+14, DIE+14, DIE+15, EQ+8, EXIT
^ENG(6915.2 - [#6915.2] ST+3
^ENG(6915.5 - [#6915.5] ST+5, ST+14, ST+20, DIE+34, DIE+37*, DIE+40*, EXIT
^TMP($J DIE+41!, DIE+42

Label References

Name Line Occurrences
DIE DIE+42
EXIT ST+17, ST+21, DIE+3, DIE+6, DIE+42, DIE+47, DIE+49
K ST, ST+2, ST+3, ST+5, ST+14

Naked Globals

Name Field # of Occurrence
^(100 DIE+34
^(3 EQ+8*
^(5 DIE+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ST+1*, ST+2, ST+3, ST+5, ST+7, ST+16*, DIE+2*, DIE+29*, DIE+34, DIE+45*
, EQ+4*, EQ+8, EQ+15*, EQ+19*, K!
DD ST+12!
DIC ST+10*, EQ+4!, K!
DIC("DR" ST+11*
DIC(0 ST+10*
DIE ST+16*, ST+19, ST+21, DIE+1*, DIE+5, DIE+29*, DIE+32, DIE+45, DIE+47, DIE+49
, EQ+4*, EQ+15*, EQ+19*, K!
DIE("NO^" DIE+1*
DIK ST+19*!, ST+21*!, DIE+5*!, DIE+32*!, DIE+45*, DIE+47*, DIE+49*
DIR ST+24!, DIE+47!, DIE+49!, EQ+29!
DIR("?" EQ+24*, EQ+25*, EQ+26*, EQ+27*, EQ+28*
DIR("A" ST+23*, DIE+48*, EQ+23*
DIR("B" ST+24*, DIE+48*
DIR(0 ST+23*, DIE+48*, EQ+23*
>> DIRUT DIE+49, EQ+29
DLAYGO ST+10*, ST+12!
DO ST+12!
DR ST+16*, DIE+2*, DIE+29*, EQ+5*, EQ+6*, EQ+9*, EQ+10*, EQ+12*, EQ+15*, EQ+20*
, K!
DTIME DIE+43
>> DTOUT ST+17, DIE+3, DIE+6, DIE+30, EQ+21
ENAV DIE+46*, DIE+47, EQ+14, K!
ENEQ K!
ENEQ( ST+9*
ENEQ("DA" ST+1*, ST+9, ST+11, ST+14, ST+21, DIE+14, DIE+15, DIE+25, DIE+37, EQ+4
, EQ+19, EQ+22, EXIT
ENEQ(2 DIE+22, DIE+23, DIE+24, EQ+2, EQ+8
ENEQ(8 EQ+2
ENEQ(9 EQ+2
ENFA K!
ENFAP K!
ENFAP("DOC" DIE+33*
ENFAP(0 DIE+34*, EQ+2
ENFAP(100 DIE+34*, DIE+36*, DIE+38, DIE+39, EQ+5, EQ+9, EQ+10, EQ+12
ENFAP(5 DIE+34*, DIE+35*, DIE+38*, DIE+39*, DIE+40, EQ+5
ENFD K!
ENFD("DA" ST+13*, ST+14, ST+16, ST+20, DIE+2, DIE+29, DIE+37, DIE+40, DIE+45, DIE+46
, EQ+15, EXIT
ENFD("TYPE" ST+20*, ST+21, DIE+2, DIE+6, EQ+7, EQ+12, EQ+17
>> ENI DIE+14*, DIE+15
ENT DIE+13*, DIE+20*, DIE+27, DIE+28!
ENT("L" DIE+13*, DIE+17*, DIE+20, DIE+27
ENT("M" DIE+13*, DIE+18*, DIE+20, DIE+27
ENT("V" DIE+13*, DIE+19*, DIE+20, DIE+27
>> ENUT DIE+47
>> ENY DIE+15*, DIE+16, DIE+17, DIE+18, DIE+19
I ST+9*, K!
U ST+6, ST+20, DIE+16, DIE+17, DIE+18, DIE+19, DIE+22, DIE+23, DIE+24, DIE+35
, DIE+36, DIE+37, DIE+38, DIE+39, DIE+43, DIE+45, EQ+2, EQ+5, EQ+8, EQ+9
, EQ+10, EQ+12
X ST+5*, ST+6, ST+11*, DIE+38*, DIE+39*, DIE+42, DIE+43*, DIE+45*, K!
Y ST, ST+1, ST+6*, ST+7, ST+13, ST+17, ST+21, DIE+3, DIE+6, DIE+30
, DIE+49, EQ+29, 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