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

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

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

FileMan Files Accessed Via FileMan Db Call

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