Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(6910 - [#6910] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call