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

Package: Engineering

Routine: ENEQ4


Information

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

Source Information

Source file <ENEQ4.m>

Entry Points

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call