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

Package: Engineering

Routine: ENEQMED


Information

ENEQMED ;WISC/SAB-Multiple Equipment Edit ;9/24/97

Source Information

Source file <ENEQMED.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Engineering 4 FLD^ENEQMED1  EXIT^ENEQMED2  $$CHKFA^ENFAUTL  IX^ENLIB1  
VA FileMan 2 EN^DIQ1  ^DIR  
Kernel 1 HOME^%ZIS  

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 ENIN-EDIT-MULTI  

Entry Points

Name Comments DBIA/ICR reference
PO ; get purchase order #
POEND ; have purchase order #
; store and sort equip in tmp
EXIT ;

External References

Name Field # of Occurrence
HOME^%ZIS ENEQMED+3
EN^DIQ1 POEND+4, POEND+12, POEND+16
^DIR PO+2, POEND+41
FLD^ENEQMED1 POEND+69
EXIT^ENEQMED2 EXIT+1
$$CHKFA^ENFAUTL POEND+58
IX^ENLIB1 PO+8, PO+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Multiple Equipment Edit",!
  • Line Location: ENEQMED+2
Function Call: WRITE
  • Prompt: $C(7),!,"No equipment with purchase order # '",ENX,"' found in"
  • Line Location: PO+10
Function Call: WRITE
  • Prompt: !,"the Equipment Inventory file."
  • Line Location: PO+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: POEND+31
Function Call: WRITE
  • Prompt: ENC("PO")," Equipment Items found with Purchase Order # = ",ENPO
  • Line Location: POEND+32
Function Call: WRITE
  • Prompt: !,"Line",?6,"Equipment Category",?32,"Manufacturer"
  • Line Location: POEND+33
Function Call: WRITE
  • Prompt: ?58,"Model",?74,"Count",!
  • Line Location: POEND+34
Function Call: WRITE
  • Prompt: !,ENL,?6,$P(ENL(ENL),U,2),?32,$P(ENL(ENL),U,4)
  • Line Location: POEND+36
Function Call: WRITE
  • Prompt: ?58,$P(ENL(ENL),U,6),?74,$P(ENL(ENL),U,7)
  • Line Location: POEND+37
Function Call: WRITE
  • Prompt: !,ENC("SEL")," Equipment Items will be edited",!
  • Line Location: POEND+44
Function Call: WRITE
  • Prompt: $C(7),!,"Some of the selected equipment is currently being edited"
  • Line Location: POEND+60
Function Call: WRITE
  • Prompt: !,"by another process. Please try later."
  • Line Location: POEND+61
Function Call: WRITE
  • Prompt: $C(7),!,"Sorry, unable to reserve space for PM schedule."
  • Line Location: POEND+66
Routine Call
  • %ZIS
  • Line Location:
    • ENEQMED+3
Routine Call
  • DIR
  • Line Location:
    • PO+2
    • POEND+41

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(6910 - [#6910] PO+5
^ENG(6914 - [#6914] PO+3, PO+6, POEND+3, POEND+55, POEND+57, POEND+65, POEND+67!, POEND+68*
^TMP($J ENEQMED+5!, POEND+2!, POEND+6*, POEND+11, POEND+15, POEND+19, POEND+21, POEND+46!, POEND+54, POEND+56*
, POEND+62!
^XUSEC("ENEDNX" ENEQMED+4

Label References

Name Line Occurrences
EXIT PO+2, POEND+41, POEND+59, POEND+66
PO PO+12
POEND PO+3, PO+6, PO+8, PO+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA POEND+4*, POEND+5, POEND+6, POEND+12*, POEND+16*
>> DIC PO+8*, POEND+4*, POEND+12*, POEND+16*
DIQ POEND+4*!, POEND+12*!, POEND+16*!
DIQ(0 POEND+4*
DIR PO+2!, POEND+41!
DIR("A" POEND+40*
DIR(0 PO+2*, POEND+39*
>> DIRUT PO+2, POEND+41
>> DR POEND+4*, POEND+12*, POEND+16*
DUZ ENEQMED+4
ENA PO+1!, PO+5*, PO+6, PO+9
>> ENC("LINE" POEND+20*, POEND+22*, POEND+27, POEND+28
>> ENC("PO" POEND+9*, POEND+28*, POEND+32
>> ENC("SEL" POEND+42*, POEND+43*, POEND+44, POEND+47
>> ENCAT POEND+13*, POEND+24
>> ENCATI POEND+10*, POEND+11*, POEND+12, POEND+13, POEND+15, POEND+19, POEND+21, POEND+24, POEND+50*, POEND+54
>> ENDA POEND+3*, POEND+4, POEND+20*, POEND+21*, POEND+53*, POEND+54*, POEND+55, POEND+56, POEND+57, POEND+58
>> ENDAT POEND+64*, POEND+65*, POEND+66, POEND+67, POEND+68
>> ENDX PO+8*
>> ENEDNX ENEQMED+4*
>> ENFA POEND+48*, POEND+58*
>> ENI POEND+43*, POEND+49*, POEND+65*
ENL POEND+9!*, POEND+23*, POEND+24, POEND+25, POEND+26, POEND+27, POEND+29, POEND+35*, POEND+36, POEND+37
, POEND+43*, POEND+49*, POEND+50, POEND+51, POEND+52
ENL( POEND+24*, POEND+25*, POEND+26*, POEND+27*, POEND+36, POEND+37, POEND+43, POEND+50, POEND+51, POEND+52
ENL("MAX" POEND+29*, POEND+35, POEND+39
ENL("SEL" POEND+41*, POEND+43, POEND+49
>> ENLOCK POEND+48*, POEND+54, POEND+55*, POEND+59
>> ENLOCK("BATCH" POEND+47*, POEND+55
>> ENMAN POEND+17*, POEND+25
>> ENMANI POEND+14*, POEND+15*, POEND+16, POEND+17, POEND+19, POEND+21, POEND+25, POEND+51*, POEND+54
>> ENMOD POEND+18*, POEND+19*, POEND+21, POEND+25, POEND+26, POEND+52*, POEND+54
>> ENNX POEND+48*, POEND+57*
ENPO PO+1!, PO+3*, PO+6*, PO+8*, PO+9*, POEND+3, POEND+32
ENQ POEND+7!, POEND+13!, POEND+17!
ENQ(6911 POEND+13
ENQ(6912 POEND+17
ENQ(6914 POEND+5*, POEND+6
ENX PO+1!, PO+2*, PO+3, PO+5, PO+8, PO+10
IO ENEQMED+3
IOF POEND+31
U PO+5, POEND+24, POEND+25, POEND+27, POEND+36, POEND+37, POEND+43, POEND+50, POEND+51, POEND+52
, POEND+57
>> X PO+8*, PO+9*
>> Y PO+2, POEND+5*, POEND+41
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