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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ENFACHG

Package: Engineering

Routine: ENFACHG


Information

ENFACHG ;WASHINGTON IRMFO/KLD/DH/SAB; EQUIPMENT CHANGES; 1/3/97

Source Information

Source file <ENFACHG.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Engineering 8 $$AVP^ENFAAV  ADJBAL^ENFABAL  (EQ,MCS)^ENFACHG1  $$CHKFA^ENFAUTL  (,$$GROUP,$$LOC)^ENFAVAL  ^ENFAXMT  LISTP^ENFAXMTM  GETEQ^ENUTL  
VA FileMan 6 DD^%DT  FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  

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 ENFA CHANGE  

Entry Points

Name Comments DBIA/ICR reference
SETUP ;
ASKEQ ; ask for equipment item
ADDFC ; create entry for FC code sheet
ASKCS ; ask for code sheet to change
ASKDATA ; ask data for FC Document
ASKOK ;
DEL ;
UPDATE ;
; update modified code sheet
WRAPUP ;

External References

Name Field # of Occurrence
DD^%DT ASKEQ+10
FILE^DICN ADDFC+3
^DIE ASKCS+3, ASKDATA+3, UPDATE+8
^DIK DEL+2
$$GET1^DIQ ASKDATA+8, ASKDATA+9
^DIR ASKDATA+15, ASKOK+2
$$AVP^ENFAAV ENFACHG+9
ADJBAL^ENFABAL UPDATE+4
EQ^ENFACHG1 UPDATE+5
MCS^ENFACHG1 UPDATE+2
$$CHKFA^ENFAUTL ASKEQ+9
^ENFAVAL ASKDATA+12
$$GROUP^ENFAVAL ASKDATA+8
$$LOC^ENFAVAL ASKDATA+9
^ENFAXMT UPDATE+6
LISTP^ENFAXMTM ASKDATA+13
GETEQ^ENUTL ASKEQ+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Adjustment voucher was NOT created."
  • Line Location: ENFACHG+10
Function Call: WRITE
  • Prompt: !!,"Someone else is editing this Equipment Record."
  • Line Location: ASKEQ+3
Function Call: WRITE
  • Prompt: !,"Please try again later."
  • Line Location: ASKEQ+4
Function Call: WRITE
  • Prompt: !!,"There is no FA document on file for this asset."
  • Line Location: ASKEQ+7
Function Call: WRITE
  • Prompt: !,"Nothing to change."
  • Line Location: ASKEQ+8
Function Call: WRITE
  • Prompt: !!,"An FD document for ENTRY #",ENEQ("DA")," was processed on ",Y,"."
  • Line Location: ASKEQ+11
Function Call: WRITE
  • Prompt: !!,"Can't update the FC DOCUMENT LOG file. Better contact IRM."
  • Line Location: ADDFC+5
Function Call: WRITE
  • Prompt: !!,"The FC document that you just created is being edited by someone else."
  • Line Location: ADDFC+8
Function Call: WRITE
  • Prompt: !,"Please notify your ADPAC."
  • Line Location: ADDFC+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCS+1
Function Call: WRITE
  • Prompt: !!,"Timeout"
  • Line Location: ASKCS+3
Function Call: WRITE
  • Prompt: !!,"Document being changed (BETTERMENT NUMBER) must be specified."
  • Line Location: ASKCS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDATA+3
Function Call: WRITE
  • Prompt: !!,"Timeout"
  • Line Location: ASKDATA+3
Function Call: WRITE
  • Prompt: !!,"Sorry, I must then delete this change!"
  • Line Location: ASKDATA+16
Function Call: WRITE
  • Prompt: !,"FC Document deleted..."
  • Line Location: DEL+3
Function Call: WRITE
  • Prompt: $C(7),!,"No action taken. Database unchanged."
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !!,"Updating the Equipment File..."
  • Line Location: UPDATE+5
Function Call: WRITE
  • Prompt: !!,"Sending FC document to FAP..."
  • Line Location: UPDATE+6
Function Call: WRITE
  • Prompt: !,"Adjustment Voucher was created.",!
  • Line Location: UPDATE+9
Routine Call
  • DIE
  • Line Location:
    • ASKCS+3
    • ASKDATA+3
    • UPDATE+8
Routine Call
  • DIR
  • Line Location:
    • ASKDATA+15
    • ASKOK+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG(6914 - [#6914] ASKEQ+2, ASKEQ+13, WRAPUP+1
^ENG(6915.1 - [#6915.1] SETUP+3
^ENG(6915.2 - [#6915.2] ASKEQ+6
^ENG(6915.4 - [#6915.4] ADDFC+7, ASKCS+4, ASKDATA+5, ASKDATA+6, ASKDATA+7, ASKDATA+8*, ASKDATA+9*, ASKDATA+10, ASKDATA+18, ASKDATA+19
, WRAPUP+2
^TMP($J ASKDATA+12!, ASKDATA+13

Label References

Name Line Occurrences
ADDFC ENFACHG+5
ASKCS ENFACHG+6
ASKDATA ENFACHG+7, ASKDATA+13
ASKEQ ENFACHG+4
ASKOK ENFACHG+11
DEL ENFACHG+12
SETUP ENFACHG+3
UPDATE ENFACHG+13
WRAPUP ENFACHG+14

Naked Globals

Name Field # of Occurrence
^(3 ASKDATA+6*, ASKDATA+18*
^(4 ASKDATA+7*, ASKDATA+19*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ASKCS+2*, ASKDATA+1*, DEL+2*, UPDATE+8*, WRAPUP+3!
DD ADDFC+3!
DIC ADDFC+1*, WRAPUP+3!
DIC("DR" ADDFC+2*
DIC(0 ADDFC+1*
DIE ASKCS+2*, ASKDATA+1*, UPDATE+8*, WRAPUP+3!
DIE("NO^" ASKDATA+1*, ASKDATA+3!
DIK DEL+2*!, WRAPUP+3!
DIR ASKDATA+15!, ASKOK+2!, WRAPUP+3!
DIR("A" ASKDATA+14*, ASKOK+1*
DIR("B" ASKDATA+14*, ASKOK+2*
DIR(0 ASKDATA+14*, ASKOK+1*
DIROUT WRAPUP+3!
DIRUT ASKOK+2, WRAPUP+3!
DLAYGO ADDFC+1*, ADDFC+3!
DO ADDFC+3!
DR ASKCS+2*, ASKDATA+2*, UPDATE+8*, WRAPUP+3!
DTOUT ASKCS+3, ASKDATA+3, WRAPUP+3!
DUOUT WRAPUP+3!
ENAV ENFACHG+8!, ENFACHG+9*, ENFACHG+10, UPDATE+7, WRAPUP+4!
ENDO ENFACHG+4, ENFACHG+5, ENFACHG+6, ENFACHG+7, ENFACHG+8*, ENFACHG+11, ENFACHG+12, ENFACHG+13, SETUP+1*, ASKEQ+1*
, ASKEQ+2*, ASKEQ+6*, ASKEQ+9*, ADDFC+4*, ADDFC+7*, ASKCS+3*, ASKCS+5*, ASKDATA+3*, ASKDATA+13*, ASKOK+2*
, WRAPUP+4!
ENEQ WRAPUP+4!
ENEQ( ASKEQ+13*
ENEQ("DA" SETUP+2*, ASKEQ+5*, ASKEQ+6, ASKEQ+9, ASKEQ+11, ASKEQ+13, ADDFC+2, WRAPUP+1
ENEQ(8 UPDATE+4
ENEQ(9 UPDATE+4
ENFA WRAPUP+4!
ENFA("DA" SETUP+2*, ASKEQ+12*
ENFAP WRAPUP+4!
ENFAP( ASKDATA+10*
ENFAP("CMR" ASKDATA+9*, ASKDATA+20*
ENFAP("CSN" ASKDATA+8*, ASKDATA+20*
ENFAP("DOC" ASKDATA+12*
ENFAP("SITE" SETUP+3*
ENFAP(0 UPDATE+4
ENFAP(100 ASKDATA+5*, ASKDATA+6, ASKDATA+7, ASKDATA+8, ASKDATA+9, UPDATE+4
ENFAP(4 UPDATE+4
ENFB WRAPUP+4!
ENFB("DA" SETUP+2*
ENFC WRAPUP+4!
ENFC("BETRMNT" SETUP+2*, ASKCS+4*, ASKCS+5, ASKDATA+2
ENFC("DA" ENFACHG+9, SETUP+2*, ADDFC+6*, ASKCS+2, ASKCS+4, ASKDATA+1, ASKDATA+5, ASKDATA+6, ASKDATA+7, ASKDATA+8
, ASKDATA+9, ASKDATA+10, ASKDATA+18, ASKDATA+19, DEL+1, DEL+2, UPDATE+8, WRAPUP+2
ENUT ENFACHG+8!
>> I ASKEQ+13*, ASKDATA+10*
U ASKEQ+10, ASKEQ+12, ASKCS+4, ASKDATA+6, ASKDATA+7, ASKDATA+8, ASKDATA+9, ASKDATA+18, ASKDATA+19, UPDATE+4
X ASKEQ+9*, ASKEQ+10, ASKEQ+12, ADDFC+2*, ASKDATA+6*, ASKDATA+7*, WRAPUP+3!
X1 ASKDATA+6*, ASKDATA+7*, ASKDATA+18*, ASKDATA+19*, WRAPUP+3!
Y ASKEQ+1, ASKEQ+2, ASKEQ+5, ASKEQ+10*, ASKEQ+11, ADDFC+4, ADDFC+6, ADDFC+7, ASKDATA+13, ASKDATA+16
, ASKDATA+21*, ASKOK+2, WRAPUP+3!
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 |  Naked Globals |  Local Variables  | All