Routine: ENFADEL

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Engineering	1	ENFA DISP

Entry Points

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

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!

Customize PDF page

Package: Engineering