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

Package: Engineering

Routine: ENEQ4


Information

ENEQ4 ;WIRMFO/SAB-PURGE EQUIPMENT INV FILE ;12/28/07 13:54

Source Information

Source file <ENEQ4.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 (,WP)^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Engineering 2 $$CHKFA^ENFAUTL  GETEQ^ENUTL  
Kernel 1 $$FMTE^XLFDT  

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 ENINVDEL  

Entry Points

Name Comments DBIA/ICR reference
DEL ;Delete Equipment Record entry
DELSEQ ; select equipment record for deletion
DELX ; delete equipment record exit

External References

Name Field # of Occurrence
^DIE DELSEQ+43
WP^DIE DELSEQ+41
^DIK DELSEQ+46
$$GET1^DIQ DELSEQ+10, DELSEQ+11, DELSEQ+12, DELSEQ+13, DELSEQ+15, DELSEQ+16
^DIR DELSEQ+36
$$CHKFA^ENFAUTL DELSEQ+23
GETEQ^ENUTL DELSEQ+2
$$FMTE^XLFDT DELSEQ+17, DELSEQ+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option completely deletes a specific equipment record. If"
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !,"you would rather move equipment records to an archive media, then"
  • Line Location: DEL+3
Function Call: WRITE
  • Prompt: !,"exit this option and use the Engineering Archive Module instead."
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DELSEQ+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DELSEQ+7
Function Call: WRITE
  • Prompt: !,"ENTRY #: ",ENDA
  • Line Location: DELSEQ+8
Function Call: WRITE
  • Prompt: !!,?2,"MFGR EQUIP NAME: ",$P(ENY(0),U,2)
  • Line Location: DELSEQ+9
Function Call: WRITE
  • Prompt: !,?2,"EQUIP CATEGORY: ",$$GET1^DIQ(6914,ENDA,6)
  • Line Location: DELSEQ+10
Function Call: WRITE
  • Prompt: !,?2,"CSN: ",$$GET1^DIQ(6914,ENDA,18)
  • Line Location: DELSEQ+11
Function Call: WRITE
  • Prompt: " (",ENX,")"
  • Line Location: DELSEQ+12
Function Call: WRITE
  • Prompt: !!,?2,"MANUFACTURER: ",$$GET1^DIQ(6914,ENDA,1)
  • Line Location: DELSEQ+13
Function Call: WRITE
  • Prompt: !,?2,"MODEL: ",$P(ENY(1),U,2),?42,"SERIAL #: ",$P(ENY(1),U,3)
  • Line Location: DELSEQ+14
Function Call: WRITE
  • Prompt: !!,?2,"CMR: ",$$GET1^DIQ(6914,ENDA,19)
  • Line Location: DELSEQ+15
Function Call: WRITE
  • Prompt: ?42,"USE STATUS: ",$$GET1^DIQ(6914,ENDA,20)
  • Line Location: DELSEQ+16
Function Call: WRITE
  • Prompt: !,?2,"ACQUISITION DATE: ",$$FMTE^XLFDT($P(ENY(2),U,4))
  • Line Location: DELSEQ+17
Function Call: WRITE
  • Prompt: ?34,"LE: ",$P(ENY(2),U,6)
  • Line Location: DELSEQ+18
Function Call: WRITE
  • Prompt: ?42,"DISPOSITION DATE: ",$$FMTE^XLFDT($P(ENY(3),U,11)),!
  • Line Location: DELSEQ+19
Function Call: WRITE
  • Prompt: $C(7),!,"This equipment entry can not be deleted because:"
  • Line Location: DELSEQ+31
Function Call: WRITE
  • Prompt: !,?2,ENV(ENI)
  • Line Location: DELSEQ+32
Function Call: WRITE
  • Prompt: !,"Equipment entry # ",ENDA," was deleted."
  • Line Location: DELSEQ+47
Routine Call
  • DIE
  • Line Location:
    • DELSEQ+43
Routine Call
  • DIE
  • Line Location:
    • DELSEQ+41
Routine Call
  • DIR
  • Line Location:
    • DELSEQ+36

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] Classic Fileman Calls,  GET1^DIQ
^ENG(6920 - [#6920] Classic Fileman Calls,  WP^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG(6914 - [#6914] DELSEQ+4
^ENG(6916.3 - [#6916.3] DELSEQ+29
^ENG(6920 - [#6920] DELSEQ+40
^XUSEC("ENEDNX" DEL+1

Label References

Name Line Occurrences
DELSEQ DELSEQ+30, DELSEQ+36, DELSEQ+49
DELX DELSEQ+2, DELSEQ+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DELSEQ+40*, DELSEQ+41, DELSEQ+46*, DELX+1!
DIC DELX+1!
DIE DELSEQ+42*, DELSEQ+44!, DELX+1!
DIK DELSEQ+46*!, DELX+1!
DIR DELSEQ+36!
DIR("A" DELSEQ+35*
DIR(0 DELSEQ+35*
DIROUT DELX+1!
DIRUT DELSEQ+36, DELX+1!
DR DELSEQ+42*, DELSEQ+44!, DELX+1!
DTOUT DELX+1!
DUOUT DELX+1!
DUZ DEL+1
END DELX+2!
ENDA DELSEQ+3*, DELSEQ+4, DELSEQ+8, DELSEQ+10, DELSEQ+11, DELSEQ+12, DELSEQ+13, DELSEQ+15, DELSEQ+16, DELSEQ+23
, DELSEQ+29, DELSEQ+40, DELSEQ+46, DELSEQ+47, DELX+2!
ENEDNX DEL+1*, DELSEQ+26, DELX+2!
ENI DELSEQ+4*, DELSEQ+32*, DELX+2!
ENTXT DELSEQ+44!
ENTXT(1 DELSEQ+39*
ENV DELSEQ+22!, DELSEQ+30, DELX+2!
ENV( DELSEQ+32
ENV(1 DELSEQ+24*
ENV(2 DELSEQ+25*
ENV(3 DELSEQ+26*
ENV(4 DELSEQ+27*
ENV(5 DELSEQ+28*
ENV(6 DELSEQ+29*
ENWO DELX+2!
ENX DELSEQ+12*, DELSEQ+23*, DELSEQ+24, DELSEQ+25, DELX+2!
ENY DELX+2!
ENY( DELSEQ+4*
ENY(0 DELSEQ+9, DELSEQ+26
ENY(1 DELSEQ+14
ENY(2 DELSEQ+17, DELSEQ+18
ENY(3 DELSEQ+19, DELSEQ+27, DELSEQ+28
IOF DELSEQ+7
U DELSEQ+9, DELSEQ+14, DELSEQ+17, DELSEQ+18, DELSEQ+19, DELSEQ+25, DELSEQ+26, DELSEQ+27, DELSEQ+28, DELSEQ+40
X DELX+1!
Y DELSEQ+2, DELSEQ+3, DELSEQ+36, DELX+1!
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