Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] GET1^DID
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call