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

Package: Engineering

Routine: ENWONEW1


Information

ENWONEW1 ;(WASH ISC)/DLM/JED/DH/SAB-Work Order Transfer ;5/8/1998

Source Information

Source file <ENWONEW1.m>

Entry Points

Name Comments DBIA/ICR reference
TRANS ;Entry point
NEXT ;Loop thru (.) code until DONE
NEWNUM ;Change the WORK ORDER #

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Transfer a work order from ",$P(^DIC(6922,SHOPKEY,0),U)," to another shop?"
  • Line Location: NEXT+2
Function Call: WRITE
  • Prompt: !,*7,"This work order is being edited by another user. Please try again later."
  • Line Location: NEXT+7
Function Call: WRITE
  • Prompt: !,*7,"This work order has already been closed out. Transfer aborted."
  • Line Location: NEXT+8
Function Call: WRITE
  • Prompt: !!,*7,"Work order transfer unsuccessful."
  • Line Location: NEXT+17
Function Call: WRITE
  • Prompt: !,"Please try again later or contact your IRM Service."
  • Line Location: NEXT+18
Function Call: WRITE
  • Prompt: !,"Edit this work order?"
  • Line Location: NEXT+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6920 - [#6920] Classic Fileman Calls
^DIC(6922 - [#6922] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call