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

Package: Engineering

Routine: ENEQMED1


Information

ENEQMED1 ;WISC/SAB-Multiple Equipment Edit, Continued ;5/19/1998

Source Information

Source file <ENEQMED1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^DIC  $$GET1^DID  ^DIR  EN^DIWE  
Engineering 2 (EXIT,UPD)^ENEQMED2  XNPMSE^ENEQPMP  

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 ENEQMED  

Entry Points

Name Comments DBIA/ICR reference
FLD ; get fields and values
; dic("s") contains national fields that can be edited and also
; allows any local fields (Y>1000) to be selected
VAL ;
FLDEND ;
; special handling for PM data
EXIT ;

External References

Name Field # of Occurrence
^DIC FLD+10
$$GET1^DID FLDEND+28
^DIR FLD+19, FLD+26, VAL+2, VAL+7, FLDEND+5, FLDEND+19, FLDEND+31, FLDEND+36, FLDEND+40
EN^DIWE FLD+30, FLD+37
EXIT^ENEQMED2 EXIT+1
UPD^ENEQMED2 FLDEND+47
XNPMSE^ENEQPMP FLDEND+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: FLD+3
Function Call: WRITE
  • Prompt: !,"Note: Some fields can not be modified because one or more of the"
  • Line Location: FLD+6
Function Call: WRITE
  • Prompt: !,"selected equipment items are reported to Fixed Assets (FMS)."
  • Line Location: FLD+7
Function Call: WRITE
  • Prompt: !,"This option requires that the ",ENFLDN," be individually entered"
  • Line Location: FLD+15
Function Call: WRITE
  • Prompt: !,"for each equipment item."
  • Line Location: FLD+16
Function Call: WRITE
  • Prompt: !,ENFLDN," will not be changed."
  • Line Location: FLD+19
Function Call: WRITE
  • Prompt: !,ENFLDN," can be individually entered for each equipment item."
  • Line Location: FLD+23
Function Call: WRITE
  • Prompt: $C(7),!,"Can't edit SPEX. Security key ENEDSPEX is required."
  • Line Location: FLD+35
Function Call: WRITE
  • Prompt: $C(7),!,ENFLDN," can not be modified because some of the selected"
  • Line Location: FLD+41
Function Call: WRITE
  • Prompt: !,"equipment items are NX and you do not hold security key ENEDNX."
  • Line Location: FLD+42
Function Call: WRITE
  • Prompt: !,ENFLDN," will not be changed."
  • Line Location: VAL+2
Function Call: WRITE
  • Prompt: !,"You must enter a value (or '^' to skip field)"
  • Line Location: VAL+8
Function Call: WRITE
  • Prompt: !,"No fields were specified!"
  • Line Location: FLDEND+17
Function Call: WRITE
  • Prompt: !,"Now enter data for fields which are asked for each item."
  • Line Location: FLDEND+23
Function Call: WRITE
  • Prompt: !!,"CONTROL #: ",ENDA
  • Line Location: FLDEND+25
Function Call: WRITE
  • Prompt: $C(7),!,"IN USE (Entry Number: ",ENI,")"
  • Line Location: FLDEND+44
Routine Call
  • DIC
  • Line Location:
    • FLD+10
Routine Call
  • DIR
  • Line Location:
    • FLD+19
    • FLD+26
    • VAL+2
    • VAL+7
    • FLDEND+5
    • FLDEND+19
    • FLDEND+31
    • FLDEND+36
    • FLDEND+40

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG(6914 - [#6914] FLDEND+12*
^TMP($J FLD+12!, FLD+20*, FLD+26*, FLD+29!, FLD+31*, FLD+36!, FLD+38*, VAL+9*, FLDEND+6, FLDEND+15*
, FLDEND+16, FLDEND+22, FLDEND+24, FLDEND+27, FLDEND+43, FLDEND+45*
^XUSEC("ENEDPM" FLDEND+2
^XUSEC("ENEDSPEX" FLD+34

Label References

Name Line Occurrences
EXIT FLD+10, FLD+14, FLD+22, VAL+2, FLDEND+2, FLDEND+16, FLDEND+24
FLD FLD+14, FLD+22, FLD+28, FLD+33, FLD+40, VAL+2, VAL+10, FLDEND+16
FLDEND FLD+10
VAL VAL+8

Naked Globals

Name Field # of Occurrence
^( FLDEND+22, FLDEND+27, FLDEND+43

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA VAL+1!*, FLDEND+13*, FLDEND+30!*
DIC FLD+4*, FLD+10!, FLD+30*, FLD+37*
DIC("S" FLD+8*, FLD+9*
DIC(0 FLD+4*
>> DIE FLDEND+13*
DIR FLD+19!, FLD+26!, VAL+2!, VAL+7!, FLDEND+5!, FLDEND+19!, FLDEND+31!, FLDEND+36!, FLDEND+40!
DIR("A" FLD+18*, FLD+25*, VAL+6*, FLDEND+4*, FLDEND+18*, FLDEND+35*, FLDEND+39*
DIR("B" FLD+17*, FLD+24*, FLDEND+3*, FLDEND+19*, FLDEND+38*
DIR(0 FLD+17*, FLD+24*, VAL+1*, VAL+6*, FLDEND+3*, FLDEND+18*, FLDEND+30*, FLDEND+35*, FLDEND+38*
>> DIRUT FLD+14, FLD+22, FLD+26, VAL+7, FLDEND+2, FLDEND+5, FLDEND+24, FLDEND+27, FLDEND+36, FLDEND+37
DIWESUB FLD+30*!, FLD+37*!
>> DTOUT FLD+10, VAL+2, FLDEND+29, FLDEND+31
>> DUOUT FLD+10, VAL+2, FLDEND+29, FLDEND+31
DUZ FLD+34, FLDEND+2
ENA FLDEND+14!
>> ENASK FLDEND+21*, FLDEND+22*, FLDEND+23, FLDEND+24
ENB FLDEND+14!
>> ENC("CAT" FLDEND+8*, FLDEND+9, FLDEND+10*, FLDEND+11
>> ENC("SEL" FLD+18, FLD+25
>> ENCATI FLDEND+6*, FLDEND+7, FLDEND+10*, FLDEND+11*, FLDEND+12
ENDA FLDEND+14!, FLDEND+24*, FLDEND+25, FLDEND+30, FLDEND+45
>> ENDAT VAL+1, FLDEND+12, FLDEND+13, FLDEND+15
ENDTYP FLDEND+14!
ENDVTYP FLDEND+14!
>> ENEDNX FLD+40
>> ENFA FLD+5, FLD+9
>> ENFLD FLD+11*, FLD+12, FLD+14, FLD+20, FLD+22, FLD+26, FLD+28, FLD+31, FLD+33, FLD+38
, FLD+40, VAL+1, VAL+9, FLDEND+22*, FLDEND+26*, FLDEND+27*, FLDEND+28, FLDEND+30, FLDEND+41, FLDEND+45
>> ENFLDN FLD+11*, FLD+15, FLD+18, FLD+19, FLD+23, FLD+25, FLD+41, VAL+2, VAL+6, FLDEND+28*
, FLDEND+35, FLDEND+39
>> ENGOT FLDEND+29*, FLDEND+46*
>> ENI FLDEND+9*, FLDEND+41, FLDEND+42*, FLDEND+43*, FLDEND+44
>> ENL FLDEND+9*, FLDEND+10
>> ENL( FLDEND+10
>> ENL("SEL" FLDEND+9
>> ENNX FLD+40
ENSH FLDEND+14!
ENSHOP FLDEND+14!
>> ENVALE VAL+4*, VAL+7*, VAL+9, FLDEND+33*, FLDEND+36*, FLDEND+45
>> ENVALI VAL+3*, VAL+7*, VAL+8, VAL+9, FLDEND+32*, FLDEND+36*, FLDEND+37, FLDEND+41, FLDEND+43, FLDEND+45
>> ENXP FLDEND+13*
U FLD+11, FLD+14, FLD+22, FLD+28, FLD+33, FLD+40, VAL+3, VAL+4, VAL+9, FLDEND+6
, FLDEND+10, FLDEND+32, FLDEND+33, FLDEND+43, FLDEND+45
>> X VAL+5, FLDEND+34
>> Y FLD+10, FLD+11, FLD+19, FLD+22, FLD+26, VAL+3, VAL+4, VAL+7, FLDEND+5, FLDEND+16
, FLDEND+32, FLDEND+33, FLDEND+36, FLDEND+37
>> Y(0 VAL+4, FLDEND+33
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