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

Package: Engineering

Routine: ENEQTD


Information

ENEQTD ;WIRMFO/SAB-TURN-IN/DISPOSITION EQUIPMENT RECORDS ;2.12.97

Source Information

Source file <ENEQTD.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^DIE  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Engineering 2 $$CHKFA^ENFAUTL  GETEQ^ENUTL  

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 ENEQTD  

Entry Points

Name Comments DBIA/ICR reference
TD ; turn-in/disposition non-capitalized equipment record
TDEQ ; select equipment
TDEDIT ; edit equipment
TDEXIT ;

External References

Name Field # of Occurrence
^DIE TDEDIT+6
$$EXTERNAL^DILFD TDEDIT+15
$$GET1^DIQ TDEQ+13, TDEQ+15, TDEQ+16, TDEDIT+10
^DIR TDEQ+21, TDEQ+38, TDEDIT+19
$$CHKFA^ENFAUTL TDEQ+3
GETEQ^ENUTL TDEQ+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"Can't proceed. Item is currently reported to FAP."
  • Line Location: TDEQ+4
Function Call: WRITE
  • Prompt: !,"Use the Disposition an Asset (FD Document) option."
  • Line Location: TDEQ+5
Function Call: WRITE
  • Prompt: $C(7),!,"Security Key ENEDNX is required to edit NX equipment."
  • Line Location: TDEQ+8
Function Call: WRITE
  • Prompt: !,ENDL
  • Line Location: TDEQ+11
Function Call: WRITE
  • Prompt: !,"Entry #: ",ENDA,?21,"Mfg. Name: ",$E($P(ENY(0),U,2),1,40)
  • Line Location: TDEQ+12
Function Call: WRITE
  • Prompt: !,"Mfg: ",$$GET1^DIQ(6914,ENDA,1)
  • Line Location: TDEQ+13
Function Call: WRITE
  • Prompt: !,"Mod: ",$P(ENY(1),U,2),?40,"Ser #: ",$P(ENY(1),U,3)
  • Line Location: TDEQ+14
Function Call: WRITE
  • Prompt: !,"Cat: ",$$GET1^DIQ(6914,ENDA,6)
  • Line Location: TDEQ+15
Function Call: WRITE
  • Prompt: ?57,"Acq Date: ",$$GET1^DIQ(6914,ENDA,13)
  • Line Location: TDEQ+16
Function Call: WRITE
  • Prompt: !,ENDL
  • Line Location: TDEQ+17
Function Call: WRITE
  • Prompt: !!," This is the parent system for some equipment items."
  • Line Location: TDEQ+26
Function Call: WRITE
  • Prompt: !," Components without "_$S(ENTASK="T":"either a turn-in or ",1:"")_"disposition date are shown below:"
  • Line Location: TDEQ+27
Function Call: WRITE
  • Prompt: !,?4,ENX_","
  • Line Location: TDEQ+32
Function Call: WRITE
  • Prompt: !,?4,"None found"
  • Line Location: TDEQ+34
Function Call: WRITE
  • Prompt: !,?4,ENX,!
  • Line Location: TDEQ+35
Function Call: WRITE
  • Prompt: !!,"Note: Some data fields are automatically modified."
  • Line Location: TDEDIT+1
Function Call: WRITE
  • Prompt: !!,"Checking for inconsistencies..."
  • Line Location: TDEDIT+8
Function Call: WRITE
  • Prompt: !," Accountable NX has both DISPOSITION DATE and CMR blank."
  • Line Location: TDEDIT+11
Function Call: WRITE
  • Prompt: !," Either TURN-IN DATE or DISPOSITION DATE should be entered"
  • Line Location: TDEDIT+14
Function Call: WRITE
  • Prompt: !," when USE STATUS = ",$$EXTERNAL^DILFD(6914,20,"",$P(ENY(3),U))
  • Line Location: TDEDIT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: TDEDIT+19
Function Call: WRITE
  • Prompt: "OK"
  • Line Location: TDEDIT+20
Routine Call
  • DIE
  • Line Location:
    • TDEDIT+6
Routine Call
  • DIR
  • Line Location:
    • TDEQ+21
    • TDEQ+38
    • TDEDIT+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] Classic Fileman Calls,  EXTERNAL^DILFD,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIE("B" TDEDIT+4, TDEDIT+5
^ENG(6914 - [#6914] TDEQ+7, TDEQ+10, TDEQ+24, TDEQ+28, TDEQ+29, TDEDIT+2, TDEDIT+9
^XUSEC("ENEDNX" TDEQ+7

Label References

Name Line Occurrences
TDEDIT TDEDIT+16
TDEQ TDEQ+3, TDEQ+7, TDEQ+24, TDEDIT+21
TDEXIT TDEQ+1, TDEQ+21, TDEDIT+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA TDEDIT+3*, TDEXIT+1!
DIC TDEXIT+1!
DIE TDEDIT+3*, TDEXIT+1!
DIR TDEQ+21!, TDEQ+38!, TDEDIT+19!
DIR("0" TDEQ+36*
DIR("A" TDEQ+20*, TDEQ+37*, TDEDIT+17*
DIR("B" TDEQ+36*, TDEDIT+18*
DIR(0 TDEQ+19*, TDEDIT+17*
DIROUT TDEXIT+1!
DIRUT TDEQ+21, TDEDIT+16, TDEXIT+1!
DR TDEDIT+4*, TDEDIT+5*, TDEXIT+1!
DTOUT TDEXIT+1!
DUOUT TDEXIT+1!
DUZ TDEQ+7
ENCONTR TDEDIT+2*, TDEXIT+2!
ENCY TDEQ+25~
ENCY(3 TDEQ+29*, TDEQ+30, TDEQ+31
ENDA TDEQ+1*, TDEQ+3, TDEQ+7, TDEQ+10, TDEQ+12, TDEQ+13, TDEQ+15, TDEQ+16, TDEQ+24, TDEQ+28
TDEDIT+2, TDEDIT+3, TDEDIT+9, TDEDIT+10, TDEXIT+2!
ENDL TD+1!*, TDEQ+11, TDEQ+17, TDEXIT+2!
ENI TDEQ+10*, TDEQ+28*, TDEQ+29, TDEQ+32, TDEQ+33, TDEDIT+9*, TDEXIT+2!
ENOK TDEDIT+9*, TDEDIT+12*, TDEDIT+16, TDEDIT+20, TDEXIT+2!
ENTASK TDEQ+22*, TDEQ+24, TDEQ+27, TDEQ+30, TDEQ+31, TDEQ+37, TDEQ+38*, TDEDIT+4, TDEDIT+5, TDEDIT+10
TDEXIT+2!
ENX TDEQ+25~, TDEQ+28*, TDEQ+32*, TDEQ+33*, TDEQ+34, TDEQ+35
ENY TDEXIT+2!
ENY( TDEQ+10*, TDEDIT+9*
ENY(0 TDEQ+12
ENY(1 TDEQ+14
ENY(2 TDEDIT+10
ENY(3 TDEDIT+10, TDEDIT+13, TDEDIT+15
U TDEQ+7, TDEQ+12, TDEQ+14, TDEQ+30, TDEQ+31, TDEDIT+2, TDEDIT+10, TDEDIT+13, TDEDIT+15
X TDEXIT+1!
Y TDEQ+1, TDEQ+22, TDEQ+38, TDEDIT+16, TDEXIT+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