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 |  Local Variables  | All
Print Page as PDF
Routine: ENWOME1

Package: Engineering

Routine: ENWOME1


Information

ENWOME1 ;(WASH ISC)/SAB-WORK ORDER MULTIPLE ENTRY, EQUIPMENT LIST; 2-6-95

Source Information

Source file <ENWOME1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 DD^%DT  EN^DIQ1  ^DIR  

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 ENWOME  

Entry Points

Name Comments DBIA/ICR reference
LST ;
; Input Variables
; ENWODA = ien of master work order
; ENEQDA = ien of equipment on master work order
; ^TMP($J,equip ien) selected equipment array
; = "" when wo not yet created by copying master
; = work order ien^work order number
; ENCOPY optional flag
; = 1 to indicate work order copy has been completed
QEN ; queued entry
HD ; header

External References

Name Field # of Occurrence
DD^%DT QEN+2
^%ZIS LST+9
HOME^%ZIS LST+14
^%ZISC QEN+18
^%ZTLOAD LST+14
EN^DIQ1 QEN+4, QEN+9, HD+13
^DIR HD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?2,ENDIQ(6914,ENI,.01,"E")
  • Line Location: QEN+10
Function Call: WRITE
  • Prompt: ?14,$E(ENDIQ(6914,ENI,6,"E"),1,25)
  • Line Location: QEN+11
Function Call: WRITE
  • Prompt: ?41,$E(ENDIQ(6914,ENI,1,"E"),1,20)
  • Line Location: QEN+12
Function Call: WRITE
  • Prompt: ?63,$E(ENDIQ(6914,ENI,4,"E"),1,16)
  • Line Location: QEN+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: "Multiple Work Order Equipment List",?50,ENDT,?70,"page ",ENPG,!
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,?2,"Control #",?14,"Equipment Category",?41,"Manufacturer"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?63,"Model"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,?2,$E(ENDASH,1,10),?14,$E(ENDASH,1,25),?41,$E(ENDASH,1,20)
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: ?63,$E(ENDASH,1,16)
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,"(Master Equipment Work Order)"
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !,ENDIQ(6920,ENWODA,.01,"E"),?24,ENDIQ(6920,ENWODA,32,"E")
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: !,?2,ENDIQ(6914,ENEQDA,.01,"E")
  • Line Location: HD+14
Function Call: WRITE
  • Prompt: ?14,$E(ENDIQ(6914,ENEQDA,6,"E"),1,25)
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: ?41,$E(ENDIQ(6914,ENEQDA,1,"E"),1,20)
  • Line Location: HD+16
Function Call: WRITE
  • Prompt: ?63,$E(ENDIQ(6914,ENEQDA,4,"E"),1,16)
  • Line Location: HD+17
Function Call: WRITE
  • Prompt: !!,"(Equipment "
  • Line Location: HD+21
Function Call: WRITE
  • Prompt: $S($G(ENCOPY):"Work Orders Copied from Master",1:"Selected"),")"
  • Line Location: HD+22
Routine Call
  • DIR
  • Line Location:
    • HD+1
Routine Call
  • %ZIS
  • Line Location:
    • LST+9
Routine Call
  • %ZIS
  • Line Location:
    • LST+14

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J QEN+6, QEN+7, QEN+15!

Label References

Name Line Occurrences
HD QEN+5, QEN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS LST+9*
DA QEN+3*, QEN+8*, QEN+16!, HD+12*
DIC QEN+3*, QEN+8*, QEN+16!, HD+12*
DIQ QEN+3*, QEN+8*, QEN+16!, HD+12*
DIQ(0 QEN+3*, QEN+8*, HD+12*
DIR HD+1!
DIR(0 HD+1*
DIROUT QEN+16!
DIRUT QEN+16!
DR QEN+3*, QEN+8*, QEN+16!, HD+12*
DT QEN+2
DTOUT QEN+16!
DUOUT QEN+16!
>> ENCOPY QEN+7, HD+5, HD+22
END QEN+2*, QEN+6, QEN+17!, HD+1*
ENDASH QEN+5*, QEN+17!, HD+8, HD+9
ENDIQ QEN+17!
ENDIQ(6914 QEN+10, QEN+11, QEN+12, QEN+13, QEN+14!, HD+14, HD+15, HD+16, HD+17, HD+18!
ENDIQ(6920 QEN+7, HD+11
ENDT QEN+2*, QEN+17!, HD+4
>> ENEQDA HD+12, HD+14, HD+15, HD+16, HD+17
ENI QEN+6*, QEN+7, QEN+8, QEN+10, QEN+11, QEN+12, QEN+13, QEN+17!
ENPG QEN+2*, QEN+17!, HD+1, HD+2, HD+3*, HD+4
>> ENWODA QEN+3, QEN+7, HD+11
IO QEN+1
IO("Q" LST+10
IOF HD+2
IOM QEN+5
IOSL QEN+6
IOST HD+1, HD+2
>> POP LST+9
U QEN+7
X QEN+16!
Y QEN+2*, QEN+16!, HD+1
>> ZTDESC LST+11*
>> ZTQUEUED QEN+15
>> ZTREQ QEN+15*
>> ZTRTN LST+11*
>> ZTSAVE("ENCOPY" LST+12*
>> ZTSAVE("ENEQDA" LST+12*
>> ZTSAVE("ENWODA" LST+12*
>> ZTSAVE("^TMP($J," LST+13*
ZTSK LST+14!
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 |  Local Variables  | All