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

Package: Engineering

Routine: ENTIUTL


Information

ENTIUTL ;WOIFO/SAB - Engineering Utilities ;2/14/2008

Source Information

Source file <ENTIUTL.m>

Entry Points

Name Comments DBIA/ICR reference
DISEQ(ENDA) ; Display Equipment
CAPEQ(ENDA,ENTAG,SITC,END) ; Captioned Equipment Display
; input
; ENDA = equipment ien (file 6914)
; ENTAG = (optional) line tag to call at page break
; this utility expects there to be at least 5 lines to display
; the normal data and will only issue page breaks during the
; IT REMOTE LOCATION or IT COMMENTS output.
; SITC = (optional) flag, true to suppress IT comments from printing
; output
; END = true if user enter "^" or timed-out, passed by reference
CAPEQHD ; Captioned Equipment Display Default Header
CAPEQHD1 ; Captioned Equipment Display Second Header
DISASGN(ENDA) ; Display Active Assignments for Equipment to Screen
DISASGNH ; Display Assignments Header
BLDHL2(ENSM,ENSMV,ENSRT) ; Build Header Line 2 String for Reports
; input
; ENSM = equipment selection method code
; ENSMV = selection method ien value (for applicable methods)
; ENSRT = sort by code
; returns string for page header second line
ADDNP ; Add New Person
; called by option ENIT ADD NEW PERSON
USRTRM ;Send MailMan message when user with active assignments is terminated

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Entry #",?12,"CMR",?19,"Location",?41,"Using Service"
  • Line Location: DISEQ+10
Function Call: WRITE
  • Prompt: !,"---------",?12,"-----",?19,"--------------------"
  • Line Location: DISEQ+11
Function Call: WRITE
  • Prompt: ?41,"------------------------------"
  • Line Location: DISEQ+12
Function Call: WRITE
  • Prompt: !,ENDA,?12,ENCMR,?19,ENLOC,?41,ENSVC
  • Line Location: DISEQ+13
Function Call: WRITE
  • Prompt: !,ENNAM
  • Line Location: DISEQ+14
Function Call: WRITE
  • Prompt: !!,"Mfgr: ",ENMFGR
  • Line Location: DISEQ+15
Function Call: WRITE
  • Prompt: !,"Model: ",ENMOD,?39,"Serial #: ",ENSER
  • Line Location: DISEQ+16
Function Call: WRITE
  • Prompt: !,"Entry #: ",ENDA,?21,"CMR: ",ENCMR,?33,"Using Service: ",ENSVC
  • Line Location: CAPEQ+22
Function Call: WRITE
  • Prompt: !,?2,"Location: ",ENLOC,?34,"Svc of Location: ",ENLOCS
  • Line Location: CAPEQ+23
Function Call: WRITE
  • Prompt: !,?2,"Mfgr Name: ",$E(ENNAM,1,65)
  • Line Location: CAPEQ+24
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $E(ENNAM,66,80)]""
  • Line Location: CAPEQ+24
Function Call: WRITE
  • Prompt: !,?2,"Mfgr: ",ENMFGR
  • Line Location: CAPEQ+25
Function Call: WRITE
  • Prompt: !,?2,"Model: ",ENMOD,?41,"Ser. #: ",ENSER
  • Line Location: CAPEQ+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CAPEQHD+2
Function Call: WRITE
  • Prompt: "Equipment Entry #: ",ENDA," (continued)"
  • Line Location: CAPEQHD1+1
Function Call: WRITE
  • Prompt: !," no active assignments"
  • Line Location: DISASGN+5
Function Call: WRITE
  • Prompt: @(IOF)
  • Line Location: DISASGN+10
Function Call: WRITE
  • Prompt: !," Entry #: ",ENDA," (continued)"
  • Line Location: DISASGN+10
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(6916.3,ENADA,1)
  • Line Location: DISASGN+11
Function Call: WRITE
  • Prompt: ?32,$P($$GET1^DIQ(6916.3,ENADA,2),"@")
  • Line Location: DISASGN+12
Function Call: WRITE
  • Prompt: ?46,ENSTAT
  • Line Location: DISASGN+14
Function Call: WRITE
  • Prompt: ?57,$$GET1^DIQ(6916.3,ENADA,21)
  • Line Location: DISASGN+15
Function Call: WRITE
  • Prompt: !!,"Responsible Person",?32,"Assigned DT",?46,"Status",?57,"Status DT"
  • Line Location: DISASGNH+1
Function Call: WRITE
  • Prompt: !,"------------------------------",?32,"------------"
  • Line Location: DISASGNH+2
Function Call: WRITE
  • Prompt: ?46,"---------",?57,"------------"
  • Line Location: DISASGNH+3
Function Call: WRITE
  • Prompt: !!,"This option should only be used to add a person to the NEW PERSON"
  • Line Location: ADDNP+3
Function Call: WRITE
  • Prompt: !,"(#200) file when that person will be assigned responsibility for"
  • Line Location: ADDNP+4
Function Call: WRITE
  • Prompt: !,"IT equipment but is not already in the file and will NOT be given"
  • Line Location: ADDNP+5
Function Call: WRITE
  • Prompt: !,"a user account to sign on the computer.",!
  • Line Location: ADDNP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDNP+13
Function Call: WRITE
  • Prompt: !!,$P(ENX,U,2)," already exists with internal number ",$P(ENX,U),"."
  • Line Location: ADDNP+15
Function Call: WRITE
  • Prompt: !,"If you want to enter a new record with that name, enter the"
  • Line Location: ADDNP+16
Function Call: WRITE
  • Prompt: !,"name within quotes (e.g. ""Last,First"")",!
  • Line Location: ADDNP+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(49 - [#49] GET1^DIQ
^ENG(6914 - [#6914] GET1^DIQ
^ENG(6914.1 - [#6914.1] GET1^DIQ
^ENG(6916.3 - [#6916.3] FIND^DIC,  GET1^DIQ
^ENG("SP" - [#6928] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call