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

Package: Engineering

Routine: ENARL


Information

ENARL ;(WIRMFO)/JED/SAB-ARCHIVE ACTIVITY LOG ;2.19.97

Source Information

Source file <ENARL.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 5 DD^%DT  NOW^%DTC  ^DIC  $$EXTERNAL^DILFD  ^DIR  
Kernel 4 HOME^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
Engineering 1 DEV^ENLIB  

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 ENAR  

Entry Points

Name Comments DBIA/ICR reference
L ; entry point
; ask log entry
L1 ; entry point with ENDA already defined
; if equipment archive then ask if equipment should also be listed
PRNT ; queued entry point
EXIT ;
HD ; page header
HDA ; activity list header
HDE ; equipment list header

External References

Name Field # of Occurrence
DD^%DT PRNT+1
NOW^%DTC PRNT+1
HOME^%ZIS L1+11
^%ZISC PRNT+37
^%ZTLOAD L1+11
^DIC L+3
$$EXTERNAL^DILFD PRNT+7, PRNT+22
^DIR L1+5, PRNT+35, HD+1
DEV^ENLIB L1+7
$$FMTE^XLFDT PRNT+9, PRNT+10, PRNT+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"RECORDS TYPE: ",$$EXTERNAL^DILFD(6919,1,"",$P(ENY,U))
  • Line Location: PRNT+7
Function Call: WRITE
  • Prompt: ?40,"FILE VERSION: ",$P(ENY,U,8)
  • Line Location: PRNT+8
Function Call: WRITE
  • Prompt: !,"START DATE: ",$$FMTE^XLFDT($P(ENY,U,2))
  • Line Location: PRNT+9
Function Call: WRITE
  • Prompt: ?40,"STOP DATE: ",$$FMTE^XLFDT($P(ENY,U,3))
  • Line Location: PRNT+10
Function Call: WRITE
  • Prompt: !,"OPT PARAMETERS: ",$P(ENY,U,4)
  • Line Location: PRNT+11
Function Call: WRITE
  • Prompt: !,"RECORDS SAVED: ",$P(ENY,U,5)
  • Line Location: PRNT+12
Function Call: WRITE
  • Prompt: ?25,"PHYSICAL LOCATION: ",$P(ENY,U,6)
  • Line Location: PRNT+13
Function Call: WRITE
  • Prompt: !,"TAPE DESCRIPTION: ",$P(ENY,U,7)
  • Line Location: PRNT+14
Function Call: WRITE
  • Prompt: !!,"There is no activity recorded"
  • Line Location: PRNT+17
Function Call: WRITE
  • Prompt: !,?5,$P(ENX(1),"@")," ",$P(ENX(1),"@",2),?28,ENX(2),?50,$P(ENX,U,3)
  • Line Location: PRNT+23
Function Call: WRITE
  • Prompt: !!,"There is no archived equipment"
  • Line Location: PRNT+28
Function Call: WRITE
  • Prompt: !,?5,ENX_","
  • Line Location: PRNT+32
Function Call: WRITE
  • Prompt: !,?5,ENX
  • Line Location: PRNT+34
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,"Archive Log Report ",?49,ENDTR,?72,"page ",ENPG
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,"ARCHIVE ID: ",ENDAN
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !!,ENDL
  • Line Location: HDA+1
Function Call: WRITE
  • Prompt: !?5,"ACTIVITY DATE",?28,"ACTIVITY TYPE",?50,"REQUESTOR"
  • Line Location: HDA+2
Function Call: WRITE
  • Prompt: !,ENDL
  • Line Location: HDA+3
Function Call: WRITE
  • Prompt: !!,ENDL
  • Line Location: HDE+1
Function Call: WRITE
  • Prompt: !,?5,"ARCHIVED EQUIPMENT LIST"
  • Line Location: HDE+2
Function Call: WRITE
  • Prompt: !,ENDL
  • Line Location: HDE+3
Routine Call
  • DIC
  • Line Location:
    • L+3
Routine Call
  • DIR
  • Line Location:
    • L1+5
    • PRNT+35
    • HD+1
Routine Call
  • %ZIS
  • Line Location:
    • L1+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6919 - [#6919] Classic Fileman Calls,  EXTERNAL^DILFD
6919.01 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG(6919 - [#6919] L1+2, PRNT+3, PRNT+6, PRNT+17, PRNT+18, PRNT+20, PRNT+28, PRNT+29, PRNT+31

Label References

Name Line Occurrences
EXIT L+3, L1+2, L1+7, L1+8
HD PRNT+4, PRNT+19, PRNT+26, PRNT+30
HDA PRNT+16, PRNT+19
HDE PRNT+27, PRNT+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRNT+1
DIC L+2*, EXIT+1!
DIC(0 L+2*
DIR L1+5!, PRNT+35!, EXIT+1!, HD+1!
DIR("A" L1+3*
DIR("B" L1+4*
DIR(0 L1+3*, PRNT+35*, HD+1*
DIROUT EXIT+1!
DIRUT L1+2, EXIT+1!
DTOUT EXIT+1!
DUOUT EXIT+1!
END PRNT+1*, PRNT+18, PRNT+19, PRNT+25, PRNT+26, PRNT+29, PRNT+30, PRNT+34, PRNT+35, EXIT+2!
, HD+1*
ENDA L+3*, L1+2, PRNT+3, PRNT+6, PRNT+17, PRNT+18, PRNT+20, PRNT+28, PRNT+29, PRNT+31
, EXIT+2!
ENDAN PRNT+3*, EXIT+2!, HD+5
ENDL PRNT+2!*, EXIT+2!, HDA+1, HDA+3, HDE+1, HDE+3
ENDTR PRNT+1*, EXIT+2!, HD+4
ENEQ PRNT+31*, PRNT+32, PRNT+33, EXIT+2!
ENEQL L1+2*, L1+5*, PRNT+25, EXIT+2!
ENI PRNT+18*, PRNT+20, PRNT+29*, PRNT+31, EXIT+2!
ENPG PRNT+1*, EXIT+2!, HD+1, HD+2, HD+3*, HD+4
ENX PRNT+20*, PRNT+21, PRNT+22, PRNT+23, PRNT+27*, PRNT+32*, PRNT+33*, PRNT+34, EXIT+2!
ENX(1 PRNT+21*, PRNT+23
ENX(2 PRNT+22*, PRNT+23
ENY PRNT+6*, PRNT+7, PRNT+8, PRNT+9, PRNT+10, PRNT+11, PRNT+12, PRNT+13, PRNT+14, EXIT+2!
IO("Q" L1+8
IOF HD+2
IOM PRNT+32
IOSL PRNT+19, PRNT+26, PRNT+30
IOST PRNT+35, HD+1, HD+2
>> POP L1+7
U L1+2, PRNT+3, PRNT+7, PRNT+8, PRNT+9, PRNT+10, PRNT+11, PRNT+12, PRNT+13, PRNT+14
, PRNT+21, PRNT+22, PRNT+23, PRNT+31
X EXIT+1!
Y L+3, L1+5, PRNT+1*, EXIT+1!, HD+1
>> ZTDESC L1+9*
>> ZTQUEUED PRNT+36
>> ZTREQ PRNT+36*
>> ZTRTN L1+9*
>> ZTSAVE("ENDA" L1+10*
>> ZTSAVE("ENEQL" L1+10*
ZTSK L1+11!
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