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 |