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

Package: Engineering

Routine: ENFAR8


Information

ENFAR8 ;WIRMFO/SAB-FIXED ASSET RPT, EQUIP LOCATOR LIST FOR STATION ;1/18/2001

Source Information

Source file <ENFAR8.m>

Call Graph

Call Graph

Call Graph Total: 8

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

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 ENFAR8  

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+23
NOW^%DTC QEN+23
^%ZIS EN+19
HOME^%ZIS EN+23
^%ZISC QEN+88
^%ZTLOAD EN+23
$$S^%ZTLOAD HD+1
$$GET1^DIQ EN+3, QEN+4, QEN+39, QEN+42, QEN+54
^DIR EN+4, EN+16, QEN+87, HD+2
$$FMTE^XLFDT QEN+56, QEN+61

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: QEN+31
Function Call: WRITE
  • Prompt: $P($G(^ENCSN(6917,ENCSNI,0)),U,3)
  • Condition for execution: ENCSNI
  • Line Location: QEN+31
Function Call: WRITE
  • Prompt: " (CSN: ",ENCSN,")"
  • Line Location: QEN+31
Function Call: WRITE
  • Prompt: !!,?1,ENDA
  • Line Location: QEN+47
Function Call: WRITE
  • Prompt: ?12,$E($P(ENY2,U,4),4,5),?14,"/",$E($P(ENY2,U,4),2,3)
  • Line Location: QEN+48
Function Call: WRITE
  • Prompt: ?18,ENFUND
  • Line Location: QEN+49
Function Call: WRITE
  • Prompt: ?25,ENSGL
  • Line Location: QEN+50
Function Call: WRITE
  • Prompt: ?30,$J("$"_$FN($P(ENY2,U,3),",",2),14)
  • Line Location: QEN+51
Function Call: WRITE
  • Prompt: ?45,$P(ENY2,U,6)
  • Line Location: QEN+52
Function Call: WRITE
  • Prompt: ?48,$E($P(ENY2,U,10),4,5),?50,"/",$E($P(ENY2,U,10),2,3)
  • Line Location: QEN+53
Function Call: WRITE
  • Prompt: ?54,$$GET1^DIQ(6914,ENDA,24)
  • Line Location: QEN+54
Function Call: WRITE
  • Prompt: ?74,ENCMR
  • Line Location: QEN+55
Function Call: WRITE
  • Prompt: ?80,$$FMTE^XLFDT($P(ENY2,U,13),2)
  • Line Location: QEN+56
Function Call: WRITE
  • Prompt: !,?4,"Last Inv. Date: ",$$FMTE^XLFDT($P(ENY2,U,13),2)
  • Line Location: QEN+61
Function Call: WRITE
  • Prompt: !,?13,"(CSN TOTAL",?24,$J("#"_$P(ENC,U),3)
  • Line Location: QEN+68
Function Call: WRITE
  • Prompt: ?30,$J("$"_$FN($P(ENC,U,2),",",2),14),")"
  • Line Location: QEN+69
Function Call: WRITE
  • Prompt: !!,"REPORT STOPPED BY USER REQUEST"
  • Line Location: QEN+70
Function Call: WRITE
  • Prompt: !,ENL,!,"TOTALS",?20,"COUNT",?30,"ASSET VALUE"
  • Line Location: QEN+75
Function Call: WRITE
  • Prompt: !,?9,"SGL ",ENSGL
  • Line Location: QEN+78
Function Call: WRITE
  • Prompt: ?20,$J($P(ENT(ENSGL),U),5)
  • Line Location: QEN+79
Function Call: WRITE
  • Prompt: ?30,"$",$J($FN($P(ENT(ENSGL),U,2),",",2),15)
  • Line Location: QEN+80
Function Call: WRITE
  • Prompt: !,?20,"-----",?30,"----------------"
  • Line Location: QEN+83
Function Call: WRITE
  • Prompt: !,?6,"REPORT TOTAL"
  • Line Location: QEN+84
Function Call: WRITE
  • Prompt: ?20,$J($P(ENT,U),5)
  • Line Location: QEN+85
Function Call: WRITE
  • Prompt: ?30,"$",$J($FN($P(ENT,U,2),",",2),15)
  • Line Location: QEN+86
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,$S(ENEXP:"ACCOUNTABLE",1:"CAPITALIZED")," NX EQUIP. FOR STATION: "
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: ENSNR,?48,ENDT,?72,"page ",ENPG
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !!,?1,"EQUIPMENT",?12,"ACQ",?18,"FUND",?25,"SGL",?30,"ASSET VALUE"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: ?45,"LE",?48,"REPL",?54,"LOCATION",?74,"CMR"
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,?1,"ENTRY #",?12,"DATE",?48,"DATE",?54,"ROOM-BLDG-DIV"
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !,?1,$E(ENL,1,10),?12,$E(ENL,1,5),?18,$E(ENL,1,6),?25,$E(ENL,1,4)
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: ?30,$E(ENL,1,14),?45,$E(ENL,1,2),?48,$E(ENL,1,5),?54,$E(ENL,1,19)
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: ?74,$E(ENL,1,5)
  • Line Location: HD+14
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
    • EN+16
    • QEN+87
    • HD+2
Routine Call
  • %ZIS
  • Line Location:
    • EN+19
Routine Call
  • %ZIS
  • Line Location:
    • EN+23

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+12, QEN+31, HDCSN+2
^ENG(6914 - [#6914] QEN+5, QEN+6, QEN+8, QEN+14, QEN+36, QEN+37, QEN+41, QEN+43, QEN+44
^ENG(6914.1 - [#6914.1] QEN+9
^ENG(6914.3 - [#6914.3] QEN+38
^TMP($J QEN+3!, QEN+19*, QEN+20*, QEN+26, QEN+29, QEN+32, QEN+34, EXIT+1!

Label References

Name Line Occurrences
EXIT EN+4, EN+16, EN+19, EN+20
HD QEN+25, QEN+30, QEN+46, QEN+74
HDCSN QEN+46

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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