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

Package: Engineering

Routine: ENEQTD


Information

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

Source Information

Source file <ENEQTD.m>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] Classic Fileman Calls,  EXTERNAL^DILFD,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call