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

Package: Engineering

Routine: ENEQMED3


Information

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

Source Information

Source file <ENEQMED3.m>

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

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

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