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

Package: Engineering

Routine: ENEXPT1


Information

ENEXPT1 ;WIRMFO/SAB-EQUIPMENT FILE EXPORT SUMMARY RPT ;1/18/96

Source Information

Source file <ENEXPT1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 DD^%DT  NOW^%DTC  $$GET1^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  

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 ENEXPT  

Entry Points

Name Comments DBIA/ICR reference
EN ;
QEN ; queued entry
EXIT
HD ; header
ASK ; description of selection criteria and set up of summary report prompt
; called by ENEXPT

External References

Name Field # of Occurrence
DD^%DT QEN+17
NOW^%DTC QEN+17
^%ZIS EN+4
HOME^%ZIS EN+7
^%ZISC QEN+31
^%ZTLOAD EN+7
$$S^%ZTLOAD HD+1
$$GET1^DIQ QEN+3
^DIR QEN+30, HD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This report searches the entire equipment file and may take some"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"time to complete. Consider queuing this report to run after-hours."
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,?5,ENSN,?15,$J(ENC(ENSN),6),?28,$J($FN($G(ENTA(ENSN)),",",2),16),?48,$J($FN($G(ENTL(ENSN)),",",2),16)
  • Line Location: QEN+23
Function Call: WRITE
  • Prompt: !,?5,"-------",?15,"----------",?28,"-----------------",?48,"----------------"
  • Line Location: QEN+28
Function Call: WRITE
  • Prompt: !,?5,"TOTAL:",?15,$J(ENC,6),?28,$J($FN(ENTA,",",2),16),?48,$J($FN(ENTL,",",2),16)
  • Line Location: QEN+29
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"EQUIPMENT FILE EXPORT SUMMARY RPT",?48,ENDT,?72,"page ",ENPG
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !!,?5,"STATION",?15,"ITEM COUNT",?28,"TOTAL ASSET VALUE"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?48,"TOTAL LEASE COST"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,ENDL
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !!,"The Equipment File Export transmits equipment data to the National"
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"Engineering Service Center (NESC) in St. Louis."
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"Equipment which meets the following criteria will be selected:"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !," TYPE OF ENTRY equals ""NX"""
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !," USE STATUS not equal ""TURNED IN"" or ""LOST OR STOLEN""",!
  • Line Location: ASK+6
Routine Call
  • DIR
  • Line Location:
    • QEN+30
    • HD+2
Routine Call
  • %ZIS
  • Line Location:
    • EN+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(6910 - [#6910] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG(6914 - [#6914] QEN+5, QEN+7, QEN+9, QEN+11, QEN+12

Label References

Name Line Occurrences
EXIT EN+4, EN+5
HD QEN+19, QEN+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % QEN+17
>> %ZIS EN+4*
DIR QEN+30!, EXIT+1!, HD+2!
DIR("?" ASK+8*, ASK+9*
DIR("A" ASK+7*
DIR("B" ASK+7*
DIR(0 QEN+30*, HD+2*, ASK+7*
DIROUT EXIT+1!
DIRUT EXIT+1!
DTOUT EXIT+1!
DUOUT EXIT+1!
ENC QEN+1~, QEN+20*, QEN+24*, QEN+29
ENC( QEN+13*, QEN+21, QEN+23, QEN+24
END QEN+1~, QEN+17*, QEN+21, QEN+22, QEN+27, HD+1*, HD+2*
ENDA QEN+1~, QEN+5*, QEN+6, QEN+7, QEN+9, QEN+11, QEN+12
ENDL QEN+1~, QEN+18*, HD+8
ENDT QEN+1~, QEN+17*, HD+5
ENPG QEN+1~, QEN+17*, HD+2, HD+3, HD+4*, HD+5
ENSN QEN+1~, QEN+11*, QEN+13, QEN+14, QEN+15, QEN+21*, QEN+23, QEN+24, QEN+25, QEN+26
ENSND QEN+1~, QEN+3*, QEN+11
ENTA QEN+1~, QEN+20*, QEN+25*, QEN+29
ENTA( QEN+14*, QEN+23, QEN+25
ENTL QEN+1~, QEN+20*, QEN+26*, QEN+29
ENTL( QEN+15*, QEN+23, QEN+26
ENY0 QEN+1~, QEN+7*, QEN+8
ENY2 QEN+1~, QEN+12*, QEN+14, QEN+15
ENY3 QEN+1~, QEN+9*, QEN+10
IO QEN+2
IO("Q" EN+5
IOF HD+3
IOM QEN+18
IOSL QEN+22
IOST QEN+4, QEN+6, QEN+30, HD+2, HD+3
>> POP EN+4
U QEN+8, QEN+10, QEN+11, QEN+14, QEN+15
X EXIT+1!
Y QEN+17*, EXIT+1!, HD+2
>> ZTDESC EN+6*
>> ZTQUEUED EXIT, HD+1
>> ZTREQ EXIT*
>> ZTRTN EN+6*
ZTSK EN+7!
>> 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