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

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^%DT  ^DIC  ^DIE  ^DIR  
Engineering 2 WOPRNT^ENWONEW  WO^ENWOUTL  

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 ENWO-TRANSFER  

Entry Points

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

External References

Name Field # of Occurrence
^%DT NEWNUM+2
^DIC TRANS+3, NEXT+12
^DIE NEXT+22, NEWNUM+6
^DIR NEXT+4, NEXT+22
WOPRNT^ENWONEW NEXT+24
WO^ENWOUTL NEXT+6

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
Routine Call
  • DIC
  • Line Location:
    • TRANS+3
    • NEXT+12
Routine Call
  • DIE
  • Line Location:
    • NEXT+22
    • NEWNUM+6
Routine Call
  • DIR
  • Line Location:
    • NEXT+4
    • NEXT+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6920 - [#6920] Classic Fileman Calls
^DIC(6922 - [#6922] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(6922 - [#6922] TRANS+2, NEXT+2, NEWNUM+3
^DIE("B" TRANS+5
^ENG(6920 - [#6920] NEXT+7, NEXT+8, NEXT+12, NEXT+16, NEXT+23, NEWNUM+4, NEWNUM+5, NEWNUM+7

Label References

Name Line Occurrences
NEWNUM NEXT+14

Naked Globals

Name Field # of Occurrence
^(5 NEXT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT NEWNUM+2*
CODE TRANS+1~, NEXT+3, NEWNUM+3*, NEWNUM+5
>> DA NEXT+6*, NEXT+7, NEXT+8, NEXT+12, NEXT+16, NEXT+23
DIC TRANS+3*!, NEXT+9*
DIC("A" NEXT+9*, NEXT+12!
DIC("B" TRANS+2*
DIC("S" NEXT+5*, NEXT+11*, NEXT+12!
DIC(0 TRANS+3*, NEXT+9*
>> DIE NEXT+22*, NEWNUM+6*
>> DIR("B" NEXT+3*, NEXT+21*
>> DIR(0 NEXT+3*, NEXT+21*
DONE TRANS+1~, TRANS+2*, NEXT+1, NEXT+4*
DR TRANS+5*, NEWNUM+1~, NEWNUM+6*
DT NEWNUM+2*, NEWNUM+3
>> ENSHKEY TRANS+2
>> I NEWNUM+5*
NEWSHOP TRANS+1~, NEXT+13*, NEXT+24, NEWNUM+3, NEWNUM+6
NUMBER TRANS+1~, NEXT+14*, NEXT+15, NEXT+19, NEWNUM+5*, NEWNUM+6
SHOPKEY TRANS+1~, TRANS+3*, TRANS+4, NEXT+2, NEXT+11, NEXT+24*
SHOPKEY(0 NEXT+24*
U TRANS+2*, NEXT+2, NEXT+8, NEWNUM+3
WARD TRANS+1~, NEXT+24*
>> X NEWNUM+2*, NEWNUM+5*
>> Y TRANS+3, NEXT+4, NEXT+6, NEXT+12, NEXT+13, NEXT+22, NEWNUM+2
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