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 |  Local Variables  | All
Print Page as PDF
Routine: ENFACTL

Package: Engineering

Routine: ENFACTL


Information

ENFACTL ;(WCIOFO)/SAB-FAP CAPITALIZATION THRESHOLD LIST ;10/14/1999

Source Information

Source file <ENFACTL.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 DD^%DT  NOW^%DTC  $$GET1^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
Engineering 2 ($$CHKEXP,$$SYSVAL,$$TOPSYS)^ENFACTU  $$CHKFA^ENFAUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Engineering 1 ENFA CT EXP LIST  

Entry Points

Name Comments DBIA/ICR reference
EN ;
; ask device
QEN ; queued entry
COLLECT ; collect data
PRINT ; print results
EXIT
HD ; header
HDST ; header for station totals

External References

Name Field # of Occurrence
DD^%DT PRINT+1
NOW^%DTC PRINT+1
^%ZIS EN+2
HOME^%ZIS EN+6
^%ZISC PRINT+76
^%ZTLOAD EN+6
$$S^%ZTLOAD HD+1
$$GET1^DIQ COLLECT+10, COLLECT+11, COLLECT+12, COLLECT+13, PRINT+16, PRINT+18, PRINT+20, PRINT+22, PRINT+30, PRINT+34
, PRINT+35, PRINT+37, PRINT+41, PRINT+42, PRINT+44
^DIR PRINT+75, HD+2
$$CHKEXP^ENFACTU COLLECT+18
$$SYSVAL^ENFACTU COLLECT+21
$$TOPSYS^ENFACTU COLLECT+20
$$CHKFA^ENFAUTL COLLECT+8, PRINT+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Nothing to report."
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,"NO EQUIPMENT WILL BE EXPENSED BY CT TASK FOR THIS STATION."
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!,?2,"TOP PARENT SYSTEM ENTRY #: ",ENSYS
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?40,"CMR: ",$E($$GET1^DIQ(6914,ENSYS,19),1,5)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: ?51,"Parent Value: "
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: $FN($$GET1^DIQ(6914,ENSYS,12),",",2)
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: "not in FAP"
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !,?2,"CATEGORY STOCK NUMBER: ",ENCSN
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: " (",$$GET1^DIQ(6914,ENSYS,"18:2"),")"
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,?2,"Sum of Capitalized Values in System: "
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: $FN(ENSYSV,",",2)
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: " (continued)"
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !!,?6,"COMPONENT ENTRY #: ",ENDA
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: ?36,"CMR: ",$E($$GET1^DIQ(6914,ENDA,19),1,5)
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: ?47,"Component Value: ",$FN($$GET1^DIQ(6914,ENDA,12),",",2)
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: !,?6,"CATEGORY STOCK NUMBER: ",ENCSN
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: " (",$$GET1^DIQ(6914,ENDA,"18:2"),")"
  • Line Location: PRINT+37
Function Call: WRITE
  • Prompt: !!,?2,"ENTRY #: ",ENDA
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: ?22,"CMR: ",$E($$GET1^DIQ(6914,ENDA,19),1,5)
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: ?33,"Value: ",$FN($$GET1^DIQ(6914,ENDA,12),",",2)
  • Line Location: PRINT+42
Function Call: WRITE
  • Prompt: !,?2,"CATEGORY STOCK NUMBER: ",ENCSN
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: " (",$$GET1^DIQ(6914,ENDA,"18:2"),")"
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: " (continued)"
  • Line Location: PRINT+47
Function Call: WRITE
  • Prompt: " (continued)"
  • Line Location: PRINT+52
Function Call: WRITE
  • Prompt: !,ENFUND,?7,ENSGL
  • Line Location: PRINT+53
Function Call: WRITE
  • Prompt: ?12,$J($FN($P(ENX,U,1),","),5)
  • Line Location: PRINT+55
Function Call: WRITE
  • Prompt: ?18,$J($FN($P(ENX,U,2),",",2),14)
  • Line Location: PRINT+56
Function Call: WRITE
  • Prompt: ?35,$J($FN($P(ENX,U,3),","),5)
  • Line Location: PRINT+57
Function Call: WRITE
  • Prompt: ?41,$J($FN($P(ENX,U,4),",",2),14)
  • Line Location: PRINT+58
Function Call: WRITE
  • Prompt: ?58,$J($FN($P(ENX,U,1)-$P(ENX,U,3),","),5)
  • Line Location: PRINT+59
Function Call: WRITE
  • Prompt: ?64,$J($FN($P(ENX,U,2)-$P(ENX,U,4),",",2),14)
  • Line Location: PRINT+60
Function Call: WRITE
  • Prompt: !," ----- -------------- ----- -------------- ----- --------------"
  • Line Location: PRINT+66
Function Call: WRITE
  • Prompt: !,"Station Tot"
  • Line Location: PRINT+67
Function Call: WRITE
  • Prompt: ?12,$J($FN($P(ENT(ENSN),U,1),","),5)
  • Line Location: PRINT+68
Function Call: WRITE
  • Prompt: ?18,$J($FN($P(ENT(ENSN),U,2),",",2),14)
  • Line Location: PRINT+69
Function Call: WRITE
  • Prompt: ?35,$J($FN($P(ENT(ENSN),U,3),","),5)
  • Line Location: PRINT+70
Function Call: WRITE
  • Prompt: ?41,$J($FN($P(ENT(ENSN),U,4),",",2),14)
  • Line Location: PRINT+71
Function Call: WRITE
  • Prompt: ?58,$J($FN($P(ENT(ENSN),U,1)-$P(ENT(ENSN),U,3),","),5)
  • Line Location: PRINT+72
Function Call: WRITE
  • Prompt: ?64,$J($FN($P(ENT(ENSN),U,2)-$P(ENT(ENSN),U,4),",",2),14)
  • Line Location: PRINT+73
Function Call: WRITE
  • Prompt: !!,"REPORT STOPPED BY USER REQUEST"
  • Line Location: PRINT+74
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"EQUIPMENT CT TASK WILL EXPENSE sorted by value"
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: ?49,ENDT,?72,"page ",ENPG
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,ENL
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,"STATION ",ENSN
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !!," Current Capitalized CT Task Will Expense Remain Capitalized"
  • Line Location: HDST+1
Function Call: WRITE
  • Prompt: !,"Fund SGL Count $ Amount Count $ Amount Count $ Amount"
  • Line Location: HDST+2
Function Call: WRITE
  • Prompt: !,"------ ---- ----- -------------- ----- -------------- ----- --------------"
  • Line Location: HDST+3
Routine Call
  • DIR
  • Line Location:
    • PRINT+75
    • HD+2
Routine Call
  • %ZIS
  • Line Location:
    • EN+2
Routine Call
  • %ZIS
  • Line Location:
    • EN+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG(6915.2 - [#6915.2] COLLECT+7
^TMP($J COLLECT+4!, COLLECT+22*, PRINT+7, PRINT+9, PRINT+12, PRINT+27, EXIT+1!

Label References

Name Line Occurrences
EXIT EN+2, EN+3
HD PRINT+3, PRINT+6, PRINT+29, PRINT+47, PRINT+52
HDST PRINT+48, PRINT+52

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT+1
>> %ZIS EN+2*
DIR PRINT+75!, EXIT+2!, HD+2!
DIR(0 PRINT+75*, HD+2*
DIROUT EXIT+2!
DIRUT EXIT+2!
DTOUT EXIT+2!
DUOUT EXIT+2!
ENCSN PRINT+20*, PRINT+21, PRINT+22, PRINT+30*, PRINT+36, PRINT+37, PRINT+43, PRINT+44, EXIT+3!
END COLLECT+1*, PRINT+5, PRINT+6, PRINT+9, PRINT+12, PRINT+27, PRINT+29, PRINT+45, PRINT+47, PRINT+49
, PRINT+51, PRINT+52, PRINT+74, PRINT+75, EXIT+2!, HD+1*, HD+2*
ENDA COLLECT+7*, COLLECT+8, COLLECT+10, COLLECT+11, COLLECT+12, COLLECT+13, COLLECT+18, COLLECT+20, COLLECT+22, PRINT+26*
, PRINT+27*, PRINT+28, PRINT+30, PRINT+33, PRINT+34, PRINT+35, PRINT+37, PRINT+40, PRINT+41, PRINT+42
, PRINT+44, EXIT+3!
ENDT PRINT+1*, EXIT+2!, HD+6
ENFUND COLLECT+11*, COLLECT+15, COLLECT+16, COLLECT+23, COLLECT+24, PRINT+49*, PRINT+51, PRINT+53, PRINT+54, EXIT+3!
ENL PRINT+2*, EXIT+2!, HD+7
ENPG PRINT+1*, EXIT+2!, HD+2, HD+3, HD+4*, HD+6
ENSGL COLLECT+12*, COLLECT+15, COLLECT+16, COLLECT+23, COLLECT+24, PRINT+50*, PRINT+51*, PRINT+53, PRINT+54, EXIT+3!
ENSN COLLECT+10*, COLLECT+15, COLLECT+16, COLLECT+22, COLLECT+23, COLLECT+24, PRINT+3*, PRINT+5*, PRINT+7, PRINT+9
, PRINT+12, PRINT+27, PRINT+49, PRINT+51, PRINT+54, PRINT+62, PRINT+63, PRINT+64, PRINT+65, PRINT+68
, PRINT+69, PRINT+70, PRINT+71, PRINT+72, PRINT+73, EXIT+3!, HD+8
ENSYS COLLECT+20*, COLLECT+21, COLLECT+22, PRINT+11*, PRINT+12*, PRINT+14, PRINT+15, PRINT+16, PRINT+18, PRINT+20
, PRINT+22, PRINT+27, PRINT+28, PRINT+32, PRINT+39, EXIT+3!
ENSYSV COLLECT+21*, COLLECT+22, PRINT+9*, PRINT+12, PRINT+24, PRINT+27, EXIT+3!
ENT COLLECT+2!, PRINT+3, EXIT+3!
ENT( COLLECT+15*, COLLECT+16*, COLLECT+23*, COLLECT+24*, PRINT+5, PRINT+49, PRINT+51, PRINT+54, PRINT+62*, PRINT+63*
, PRINT+64*, PRINT+65*, PRINT+68, PRINT+69, PRINT+70, PRINT+71, PRINT+72, PRINT+73
ENVAL COLLECT+13*, COLLECT+16, COLLECT+21, COLLECT+24, EXIT+3!
ENX PRINT+54*, PRINT+55, PRINT+56, PRINT+57, PRINT+58, PRINT+59, PRINT+60, PRINT+62, PRINT+63, PRINT+64
, PRINT+65, EXIT+3!
IO QEN+1
IO("Q" EN+3
IOF HD+3
IOM PRINT+2
IOSL PRINT+29, PRINT+47, PRINT+52
IOST PRINT+75, HD+2, HD+3
>> POP EN+2
U COLLECT+15, COLLECT+16, COLLECT+18, COLLECT+23, COLLECT+24, PRINT+55, PRINT+56, PRINT+57, PRINT+58, PRINT+59
, PRINT+60, PRINT+62, PRINT+63, PRINT+64, PRINT+65, PRINT+68, PRINT+69, PRINT+70, PRINT+71, PRINT+72
, PRINT+73
X EXIT+2!
Y PRINT+1*, EXIT+2!, HD+2
>> ZTDESC EN+5*
>> ZTQUEUED EXIT, HD+1
>> ZTREQ EXIT*
>> ZTRTN EN+4*
ZTSK EN+6!
>> ZTSTOP HD+1*
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 |  Local Variables  | All