ENFACTU ;(WCIOFO)/SAB-FAP CAPITALIZATION THRESHOLD UTILITIES ;5/22/2002
Source file <ENFACTU.m>
Package | Total | Call Graph |
---|---|---|
Engineering | 2 | GETC^ENEQRP6 $$CHKFA^ENFAUTL |
VA FileMan | 1 | $$GET1^DIQ |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
TOPSYS(ENDA) | ; Topmost System
; input ENDA - equipment entry # ; returns ; entry # of topmost equipment in system of which ENDA is a part ; OR 0 if ENDA is not part of a system (parent or component) ; OR ?^message if error detected |
|
SYSVAL(ENDAT,ENSW) | ; System Value
; input ENDAT - entry # parent for system ; ENSW - optional switch ; contains "C" if only capitalized values should be ; included in return value ; returns sum of asset values for parent and all it's components |
|
CHKEXP(ENDA) | ; Check if capitalized equipment item should be expensed
; input ENDA - equipment Entry # if check ; returns ; 1 (true) if it should be expensed ; 0^reason if it should not be expensed due to system criteria ; U^username if it should not be expensed due to user edit |
FileNo | Call Tags |
---|---|
^ENG(6914 - [#6914] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ENG(6914 - [#6914] | TOPSYS+14, TOPSYS+20, SYSVAL+21 |
^TMP("ENSYS" | SYSVAL+12!, SYSVAL+23! |
Name | Line Occurrences |
---|---|
$$SYSVAL | CHKEXP+16 |
$$TOPSYS | CHKEXP+15 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ENDA | TOPSYS~, TOPSYS+12, TOPSYS+18, TOPSYS+20, SYSVAL+7~, SYSVAL+19*, SYSVAL+20, SYSVAL+21, CHKEXP~, CHKEXP+9 , CHKEXP+12, CHKEXP+13, CHKEXP+14, CHKEXP+15, CHKEXP+19 |
ENDAC | TOPSYS+7~, TOPSYS+12*, TOPSYS+14*, TOPSYS+18 |
ENDAP | TOPSYS+7~, TOPSYS+14*, TOPSYS+15 |
ENDAT | SYSVAL~, SYSVAL+14 |
ENMD | SYSVAL+7~, SYSVAL+13* |
ENNODE | SYSVAL+7~, SYSVAL+17*, SYSVAL+18*, SYSVAL+19 |
ENPL | TOPSYS+7~, TOPSYS+11*, TOPSYS+14* |
ENRET | TOPSYS+7~, TOPSYS+8*, TOPSYS+15*, TOPSYS+18*, TOPSYS+20*, TOPSYS+22*, TOPSYS+24 |
ENSUM | SYSVAL+7~, SYSVAL+9*, SYSVAL+21*, SYSVAL+24 |
ENSW | SYSVAL~, SYSVAL+8*, SYSVAL+20 |
ENSYS | CHKEXP+7~, CHKEXP+15*, CHKEXP+16 |
ENUSER | CHKEXP+7~, CHKEXP+19*, CHKEXP+20 |
U | TOPSYS+11, TOPSYS+14, SYSVAL+21 |