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

Package: Engineering

Routine: ENETRAN1


Information

ENETRAN1 ;(WASH ISC)/DH-Display Pending Work Orders ;12.12.97

Source Information

Source file <ENETRAN1.m>

Entry Points

Name Comments DBIA/ICR reference
EN
SCRN
SCRN1
WAIT
LNDSP
MULT
RANGE
ALL
BLDARAY ;Build global array
HDR ;Screen header
EQUIP
CATEGRY
HLD
EXIT ;Return to ENETRAN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Nothing to process in ",ENSHOP
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !,"TRANSFER NUMBERS? (Separate with ;)(Use : for Range)('ALL' for all ",ENCNT,")",!,?18,"('^' to EXIT)(RETURN to Continue) "
  • Line Location: WAIT+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: " ?",*7,"?",*7
  • Line Location: WAIT+7
Function Call: WRITE
  • Prompt: IOINHI
  • Line Location: LNDSP+0
Function Call: WRITE
  • Prompt: !,I," =>",?5,$P(ENEWO,U,2),?19,$P(ENEWO,U,3),?32,$P(ENEWO,U,4),?49,$P(ENEWO,U,5),?61,$P(ENEWO,U,6)
  • Line Location: LNDSP+1
Function Call: WRITE
  • Prompt: ?73,$S($O(^ENG(6920,DA,6,0))]"":"YES",1:"NO")
  • Line Location: LNDSP+1
Function Call: WRITE
  • Prompt: !,?2,$E($P(ENEWO,U,7),1,42),?45,$E($P(ENEWO,U,8),1,15),?61,$E($P(ENEWO,U,9),1,15)
  • Line Location: LNDSP+2
Function Call: WRITE
  • Prompt: !,?2,"Name: ",$E(ENMAN,1,30),?45,"Cat: "
  • Line Location: LNDSP+3
Function Call: WRITE
  • Prompt: !,IOINLOW
  • Line Location: LNDSP+4
Function Call: WRITE
  • Prompt: @IOF,"Pending Elect Work Orders ("_ENCNT_" in "_$E(ENSHOP,1,18)_") "_ENDATE_" Page "_ENPG
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?5,"Work Order #",?19,"Req Date",?32,"Location",?49,"Equip ID",?61,"Priority",?73,"Cmnts"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?5,"Task Description",?45,"Contact Person",?61,"Entered by"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: $S($D(^ENG(6911,ENCAT,0)):$P(^(0),U,1),1:ENCAT)
  • Line Location: CATEGRY+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HLD+0
Function Call: WRITE
  • Prompt: !,"Press RETURN to continue, '^' to escape..."
  • Line Location: HLD+0

FileMan Files Accessed Via FileMan Db Call

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