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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ENFAR7

Package: Engineering

Routine: ENFAR7


Information

ENFAR7 ;WIRMFO/SAB-FIXED ASSET RPT, FA DOCUMENTS FOR EXCESS EQUIP; 1.12.98 ; 4/15/13 11:51am

Source Information

Source file <ENFAR7.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 3 DD^%DT  NOW^%DTC  ^DIR  
Engineering 1 $$EOM^ENUTL  

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 ENFAR7  

Entry Points

Name Comments DBIA/ICR reference
EN ;
; compute default start date (day of previous month)
ASKDTE ; compute default end date (Today)
QEN ; queued entry
EXIT
HD ; page header

External References

Name Field # of Occurrence
DD^%DT QEN+14
NOW^%DTC QEN+14
^%ZIS ASKDTE+9
HOME^%ZIS ASKDTE+12
^%ZISC QEN+31
^%ZTLOAD ASKDTE+12
$$S^%ZTLOAD HD+1
^DIR EN+9, ASKDTE+6, QEN+30, HD+2
$$EOM^ENUTL EN+4
$$FMTE^XLFDT EN+8, ASKDTE+5, QEN+27, HD+7, HD+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"End date must be after start date!",!
  • Line Location: ASKDTE+7
Function Call: WRITE
  • Prompt: !!,"No FA Documents for SGL 1995 in selected period",!
  • Line Location: QEN+17
Function Call: WRITE
  • Prompt: !
  • Line Location: QEN+19
Function Call: WRITE
  • Prompt: !,?3,ENSN,?11,ENFUND,?18,$P(ENY1,U,6)
  • Line Location: QEN+26
Function Call: WRITE
  • Prompt: ?23,$P(ENY1,U,9),?35,$$FMTE^XLFDT($P(ENY0,U,2),"2D")
  • Line Location: QEN+27
Function Call: WRITE
  • Prompt: ?45,$P(ENY0,U),?57,$J($FN($P(ENY3,U,27),",",2),14)
  • Line Location: QEN+28
Function Call: WRITE
  • Prompt: !!,"REPORT STOPPED AT USER REQUEST"
  • Line Location: QEN+29
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"FA DOCUMENTS FOR EXCESS EQUIP. (SGL 1995)"
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: ?49,ENDTR,?72,"page ",ENPG
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !," ACCOUNTING PERIOD FROM ",$$FMTE^XLFDT(ENDTS,"2D")
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: " TO ",$$FMTE^XLFDT(ENDTE,"2D")
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !!,?3,"STATION",?11,"FUND",?18,"TRANSACTION"
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: ?45,"EQUIPMENT",?57,"ASSET VALUE"
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !,?18,"CODE NUMBER DATE",?45,"ENTRY #"
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: !,?3,"-------",?11,"------",?18,"---- ----------- --------"
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: ?45,"----------",?57,"--------------"
  • Line Location: HD+13
Routine Call
  • DIR
  • Line Location:
    • EN+9
    • ASKDTE+6
    • QEN+30
    • HD+2
Routine Call
  • %ZIS
  • Line Location:
    • ASKDTE+9
Routine Call
  • %ZIS
  • Line Location:
    • ASKDTE+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG(6915.2 - [#6915.2] QEN+6, QEN+7, QEN+8, QEN+22, QEN+23, QEN+24
^TMP($J QEN+2!, QEN+12*, QEN+17, QEN+18, QEN+20, QEN+21, EXIT+1!

Label References

Name Line Occurrences
ASKDTE ASKDTE+7
EXIT EN+6, ASKDTE+3, ASKDTE+9
HD QEN+16, QEN+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % QEN+14
>> %ZIS ASKDTE+9*
DIR EN+9!, ASKDTE+6!, QEN+30!, EXIT+2!, HD+2!
DIR("A" EN+7*, ASKDTE+4*
DIR("B" EN+8*, ASKDTE+5*
DIR(0 EN+7*, ASKDTE+4*, QEN+30*, HD+2*
DIROUT EXIT+2!
DIRUT EN+6, ASKDTE+3, EXIT+2!
DIWF EXIT+2!
DIWL EXIT+2!
DT EN+2, ASKDTE+1
DTOUT EXIT+2!
DUOUT EXIT+2!
END QEN+14*, QEN+18, QEN+20, QEN+21, QEN+25, QEN+29, EXIT+3!, HD+1*, HD+2*
ENDA QEN+7*, QEN+8, QEN+12, QEN+21*, QEN+22, QEN+23, QEN+24, EXIT+3!
ENDT QEN+5*, QEN+6*, QEN+7, EXIT+3!
ENDT("D" EN+2*, EN+3
ENDT("M" EN+2*, EN+3
ENDT("Y" EN+2*, EN+3
ENDTE ASKDTE+1*, ASKDTE+5, ASKDTE+6*, ASKDTE+7, QEN+6, EXIT+3!, HD+8
ENDTR QEN+14*, EXIT+3!, HD+6
ENDTS EN+3*, EN+4*, EN+8, EN+9*, ASKDTE+7, QEN+5, EXIT+3!, HD+7
ENFUND QEN+11*, QEN+12, QEN+20*, QEN+21, QEN+26, EXIT+3!
ENL QEN+15*, EXIT+3!
ENPG QEN+14*, EXIT+3!, HD+2, HD+3, HD+4*, HD+6
ENSN QEN+10*, QEN+12, QEN+18*, QEN+20, QEN+21, QEN+26, EXIT+3!
ENY0 QEN+22*, QEN+27, QEN+28, EXIT+3!
ENY1 QEN+23*, QEN+26, QEN+27, EXIT+3!
ENY3 QEN+8*, QEN+9, QEN+10, QEN+11, QEN+24*, QEN+28, EXIT+3!
IO QEN+1
IO("Q" ASKDTE+9
IOF HD+3
IOM QEN+15
IOSL QEN+25
IOST QEN+30, HD+2, HD+3
>> POP ASKDTE+9
U QEN+9, QEN+10, QEN+11, QEN+26, QEN+27, QEN+28
X ASKDTE+11*, EXIT+2!
Y EN+9, ASKDTE+6, QEN+14*, EXIT+2!, HD+2
>> ZTDESC ASKDTE+10*
>> ZTQUEUED EN+6, ASKDTE+3, ASKDTE+9, EXIT, HD+1
>> ZTREQ EXIT*
>> ZTRTN ASKDTE+10*
>> ZTSAVE( ASKDTE+11*
ZTSK ASKDTE+12!
>> ZTSTOP HD+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All