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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ENEQMED3

Package: Engineering

Routine: ENEQMED3


Information

ENEQMED3 ;(WASH ISC)/SAB-EQUIPMENT MULTIPLE EDIT, REPORT; 9.24.97

Source Information

Source file <ENEQMED3.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 DD^%DT  $$GET1^DID  ^DIR  ^DIWP  ^DIWW  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%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 ENEQMED2  

Entry Points

Name Comments DBIA/ICR reference
EN ;
; Input Variables
; ^TMP($J,"ENFLD",field number) modified fields array
; ^TMP($J,"ENSEL",equip ien) selected equipment array
; ^TMP($J,"ENCOM", word processing array for comments
; ^TMP($J,"ENSPEX", word processing array for spex
; ^TMP($J,"ENLCK",equip ien) equipment that couldn't be locked/updated
QEN ; queued entry
EXIT
HD ; header

External References

Name Field # of Occurrence
DD^%DT QEN+2
^%ZIS EN+7
HOME^%ZIS EN+13
^%ZISC EXIT+3
^%ZTLOAD EN+13
$$GET1^DID QEN+21
^DIR HD+1
^DIWP QEN+11, QEN+17
^DIWW QEN+12, QEN+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"PM DATA"
  • Line Location: QEN+7
Function Call: WRITE
  • Prompt: !,"COMMENTS"
  • Line Location: QEN+8
Function Call: WRITE
  • Prompt: !,"SPEX"
  • Line Location: QEN+14
Function Call: WRITE
  • Prompt: !,$$GET1^DID(6914,ENFLD,"","LABEL"),?35
  • Line Location: QEN+21
Function Call: WRITE
  • Prompt: $S(ENVALE]"":$E(ENVALE,1,40),1:"(individually specified for each item)")
  • Line Location: QEN+22
Function Call: WRITE
  • Prompt: !!,ENHDR2
  • Line Location: QEN+27
Function Call: WRITE
  • Prompt: !," Some of the selected equipment could not be updated because it"
  • Line Location: QEN+28
Function Call: WRITE
  • Prompt: !," was being edited by another process. This equipment will need"
  • Line Location: QEN+29
Function Call: WRITE
  • Prompt: !," to be edited to make the desired changes."
  • Line Location: QEN+30
Function Call: WRITE
  • Prompt: !
  • Line Location: QEN+33
Function Call: WRITE
  • Prompt: ?(ENI#6*12),ENDA
  • Line Location: QEN+34
Function Call: WRITE
  • Prompt: !!,ENHDR2
  • Line Location: QEN+38
Function Call: WRITE
  • Prompt: !
  • Line Location: QEN+42
Function Call: WRITE
  • Prompt: ?(ENI#6*12),ENDA
  • Line Location: QEN+43
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: "Multiple Edit of Equipment Report",?50,ENDT,?70,"page ",ENPG
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,ENDASH,!
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,ENHDR2,!
  • Line Location: HD+7
Routine Call
  • DIR
  • Line Location:
    • HD+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+7
Routine Call
  • %ZIS
  • Line Location:
    • EN+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] GET1^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J QEN+6, QEN+11, QEN+17, QEN+20, QEN+24, QEN+32, QEN+40, QEN+41, EXIT!

Label References

Name Line Occurrences
EXIT QEN+23
HD QEN+4, QEN+6, QEN+26, QEN+33, QEN+37, QEN+42

Naked Globals

Name Field # of Occurrence
^( QEN+11, QEN+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS EN+7*
DA EXIT+1!
DIC EXIT+1!
DIQ EXIT+1!
DIR HD+1!
DIR(0 HD+1*
DIROUT EXIT+1!
DIRUT EXIT+1!
DIWF QEN+9*, QEN+13!, QEN+15*, QEN+19!
DIWL QEN+9*, QEN+13!, QEN+15*, QEN+19!
DIWR QEN+9*, QEN+13!, QEN+15*, QEN+19!
DR EXIT+1!
DT QEN+2
DTOUT EXIT+1!
DUOUT EXIT+1!
END QEN+2*, QEN+6, QEN+23, QEN+32, QEN+33, QEN+40, QEN+42, EXIT+2!, HD+1*
ENDA QEN+31*, QEN+32*, QEN+34, QEN+39*, QEN+40*, QEN+41, QEN+43, EXIT+2!
ENDASH QEN+4*, EXIT+2!, HD+6
ENDIQ EXIT+2!
ENDT QEN+2*, EXIT+2!, HD+5
ENFLD QEN+5*, QEN+6*, QEN+7, QEN+8, QEN+14, QEN+20, QEN+21, EXIT+2!
ENHDR2 QEN+3*, QEN+25*, QEN+27, QEN+36*, QEN+38, EXIT+2!, HD+7
ENI QEN+10*, QEN+11*, QEN+16*, QEN+17*, QEN+31*, QEN+33, QEN+34, QEN+35*, QEN+39*, QEN+42
QEN+43, QEN+44*, EXIT+2!
ENPG QEN+2*, EXIT+2!, HD+1, HD+2, HD+3*, HD+5
ENVALE QEN+20*, QEN+22, EXIT+2!
IO QEN+1
>> IO("Q" EN+8
IOF HD+2
IOM QEN+4
IOSL QEN+6, QEN+26, QEN+33, QEN+37, QEN+42
IOST HD+1, HD+2
>> POP EN+7
U QEN+20
X QEN+11*, QEN+13!, QEN+17*, QEN+19!, EXIT+1!
Y QEN+2*, EXIT+1!, HD+1
>> ZTDESC EN+9*
>> ZTQUEUED EXIT
>> ZTREQ EXIT*
>> ZTRTN EN+9*
>> ZTSAVE("^TMP($J,""ENCOM""," EN+11*
>> ZTSAVE("^TMP($J,""ENFLD""," EN+10*
>> ZTSAVE("^TMP($J,""ENLCK""," EN+12*
>> ZTSAVE("^TMP($J,""ENSEL""," EN+10*
>> ZTSAVE("^TMP($J,""ENSPEX""," EN+11*
ZTSK EN+13!
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 |  Naked Globals |  Local Variables  | All