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

Package: Engineering

Routine: ENFAR4


Information

ENFAR4 ;WIRMFO/SAB-FIXED ASSET RPT, CAPITALIZED EQUIP FOR STATION; 3/11/96

Source Information

Source file <ENFAR4.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 ENFAR4  

Entry Points

Name Comments DBIA/ICR reference
EN ;
; ask STATION
QEN ; queued entry
EXIT
HD ; header
HDCSN ; header for continued CSN

External References

Name Field # of Occurrence
DD^%DT QEN+19
NOW^%DTC QEN+19
^%ZIS EN+7
HOME^%ZIS EN+11
^%ZISC QEN+76
^%ZTLOAD EN+11
$$S^%ZTLOAD HD+1
$$GET1^DIQ EN+3, QEN+4, QEN+47
^DIR EN+4, QEN+75, HD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: QEN+27
Function Call: WRITE
  • Prompt: $P($G(^ENCSN(6917,ENCSNI,0)),U,3)
  • Condition for execution: ENCSNI
  • Line Location: QEN+27
Function Call: WRITE
  • Prompt: " (CSN: ",ENCSN,")"
  • Line Location: QEN+27
Function Call: WRITE
  • Prompt: !!,?2,ENDA
  • Line Location: QEN+36
Function Call: WRITE
  • Prompt: ?13,$P(ENY2,U,7)
  • Line Location: QEN+37
Function Call: WRITE
  • Prompt: ?22,$E($P(ENY2,U,4),4,5),?24,"/",$E($P(ENY2,U,4),2,3)
  • Line Location: QEN+38
Function Call: WRITE
  • Prompt: ?28,ENSGL
  • Line Location: QEN+39
Function Call: WRITE
  • Prompt: ?33,$J("$"_$FN($P(ENY2,U,3),",",2),14)
  • Line Location: QEN+40
Function Call: WRITE
  • Prompt: ?48,$P(ENY2,U,6)
  • Line Location: QEN+41
Function Call: WRITE
  • Prompt: ?51,$E($P(ENY2,U,10),4,5),?53,"/",$E($P(ENY2,U,10),2,3)
  • Line Location: QEN+42
Function Call: WRITE
  • Prompt: ?57,$E($P($G(^ENG(6914,ENDA,1)),U,3),1,16)
  • Line Location: QEN+43
Function Call: WRITE
  • Prompt: ?74,ENCMR
  • Line Location: QEN+44
Function Call: WRITE
  • Prompt: !,?16,"(CSN TOTAL",?27,$J("#"_$P(ENC,U),3)
  • Line Location: QEN+57
Function Call: WRITE
  • Prompt: ?33,$J("$"_$FN($P(ENC,U,2),",",2),14),")"
  • Line Location: QEN+58
Function Call: WRITE
  • Prompt: !,ENL,!,"TOTALS",?19,"COUNT",?27,"ASSET VALUE"
  • Line Location: QEN+63
Function Call: WRITE
  • Prompt: !,?8,"SGL ",ENSGL
  • Line Location: QEN+66
Function Call: WRITE
  • Prompt: ?19,$J($P(ENT(ENSGL),U),5)
  • Line Location: QEN+67
Function Call: WRITE
  • Prompt: ?27,"$",$J($FN($P(ENT(ENSGL),U,2),",",2),15)
  • Line Location: QEN+68
Function Call: WRITE
  • Prompt: !,?19,"-----",?27,"----------------"
  • Line Location: QEN+71
Function Call: WRITE
  • Prompt: !,?5,"REPORT TOTAL"
  • Line Location: QEN+72
Function Call: WRITE
  • Prompt: ?19,$J($P(ENT,U),5)
  • Line Location: QEN+73
Function Call: WRITE
  • Prompt: ?27,"$",$J($FN($P(ENT,U,2),",",2),15)
  • Line Location: QEN+74
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"CAPITALIZED EQUIPMENT BY CSN FOR STATION: ",ENSNR
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: ?48,ENDT,?72,"page ",ENPG
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !!,?2,"EQUIP ID #",?13,"NXRN",?22,"ACQ",?28,"SGL",?33,"ASSET VALUE"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: ?48,"LE",?51,"REPL",?57,"SERIAL NUMBER",?74,"CMR"
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,?2,$E(ENL,1,10),?13,$E(ENL,1,8),?22,$E(ENL,1,5),?28,$E(ENL,1,4)
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: ?33,$E(ENL,1,14),?48,$E(ENL,1,2),?51,$E(ENL,1,5),?57,$E(ENL,1,16)
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: ?74,$E(ENL,1,5)
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HDCSN+2
Function Call: WRITE
  • Prompt: $P($G(^ENCSN(6917,ENCSNI,0)),U,3)
  • Condition for execution: $G(ENCSNI)
  • Line Location: HDCSN+2
Function Call: WRITE
  • Prompt: " (CSN: ",ENCSN," continued)"
  • Line Location: HDCSN+3
Routine Call
  • DIR
  • Line Location:
    • EN+4
    • QEN+75
    • HD+2
Routine Call
  • %ZIS
  • Line Location:
    • EN+7
Routine Call
  • %ZIS
  • Line Location:
    • EN+11

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENCSN(6917 - [#6917] QEN+13, QEN+27, HDCSN+2
^ENG(6914 - [#6914] QEN+5, QEN+6, QEN+7, QEN+9, QEN+33, QEN+34, QEN+43, QEN+45, QEN+49
^ENG(6914.1 - [#6914.1] QEN+10
^ENG(6914.3 - [#6914.3] QEN+35
^TMP($J QEN+3!, QEN+15*, QEN+16*, QEN+22, QEN+25, QEN+28, QEN+30, EXIT+1!

Label References

Name Line Occurrences
EXIT EN+4, EN+7, EN+8
HD QEN+21, QEN+26, QEN+32, QEN+62
HDCSN QEN+32

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % QEN+19
>> %ZIS EN+7*
DIR EN+4!, QEN+75!, EXIT+2!, HD+2!
DIR("A" EN+2*
DIR("B" EN+3*
DIR(0 EN+2*, QEN+75*, HD+2*
DIROUT EXIT+2!
DIRUT EN+4, EXIT+2!
DIWF EXIT+2!
DIWL EXIT+2!
DTOUT EXIT+2!
DUOUT EXIT+2!
ENC QEN+24*, QEN+54*, QEN+55*, QEN+57, QEN+58, QEN+61*, QEN+62, EXIT+3!
ENCMR QEN+10*, QEN+11, QEN+15, QEN+28*, QEN+30, QEN+44, EXIT+3!
ENCMRI EXIT+3!
ENCSN QEN+13*, QEN+14*, QEN+15, QEN+16, QEN+21*, QEN+22*, QEN+25, QEN+27, QEN+28, QEN+30
, EXIT+3!, HDCSN+1, HDCSN+3
ENCSNI QEN+12*, QEN+13, QEN+14*, QEN+16, QEN+25*, QEN+27, EXIT+3!, HDCSN+2
END QEN+19*, QEN+22, QEN+26, QEN+28, QEN+30, QEN+32, QEN+56, QEN+59, QEN+62, EXIT+5!
, HD+1*, HD+2*
ENDA QEN+5*, QEN+6, QEN+7, QEN+9, QEN+15, QEN+30*, QEN+33, QEN+34, QEN+36, QEN+43
, QEN+45, QEN+47, QEN+49, EXIT+3!
ENDT QEN+19*, EXIT+5!, HD+6
ENL QEN+20*, QEN+63, EXIT+5!, HD+9, HD+10, HD+11
ENMAN QEN+47*, QEN+48, EXIT+3!
ENMOD QEN+49*, QEN+50, EXIT+3!
ENPG QEN+19*, EXIT+5!, HD+2, HD+3, HD+4*, HD+6
ENPM QEN+45*, QEN+46, EXIT+3!
ENSGL QEN+35*, QEN+39, QEN+51*, QEN+52, QEN+53, QEN+61*, QEN+65*, QEN+66, QEN+67, QEN+68
, QEN+69, QEN+70, EXIT+3!
ENSN QEN+7*, QEN+8, EXIT+4!
ENSND QEN+4*, QEN+7, EXIT+4!
ENSNR EN+5*, QEN+8, EXIT+4!, HD+5
ENT QEN+18!, QEN+64*, QEN+69*, QEN+70*, QEN+73, QEN+74, EXIT+4!
ENT( QEN+52*, QEN+53*, QEN+61, QEN+65, QEN+67, QEN+68, QEN+69, QEN+70
ENY2 QEN+9*, QEN+10, QEN+12, QEN+33*, QEN+37, QEN+38, QEN+40, QEN+41, QEN+42, QEN+53
, QEN+55, EXIT+4!
IO QEN+1
IO("Q" EN+8
IOF HD+3
IOM QEN+20
IOSL QEN+26, QEN+32, QEN+62
IOST QEN+75, HD+2, HD+3
>> POP EN+7
U QEN+6, QEN+7, QEN+10, QEN+12, QEN+13, QEN+25, QEN+27, QEN+34, QEN+35, QEN+37
, QEN+38, QEN+40, QEN+41, QEN+42, QEN+43, QEN+45, QEN+49, QEN+52, QEN+53, QEN+54
, QEN+55, QEN+57, QEN+58, QEN+67, QEN+68, QEN+69, QEN+70, QEN+73, QEN+74, HDCSN+2
X QEN+10*, QEN+34*, QEN+35, EXIT+2!
Y EN+5, QEN+19*, EXIT+2!, HD+2
>> ZTDESC EN+9*
>> ZTQUEUED EXIT, HD+1
>> ZTREQ EXIT*
>> ZTRTN EN+9*
>> ZTSAVE("ENSNR" EN+10*
ZTSK EN+11!
>> 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