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

Package: Engineering

Routine: ENSA


Information

ENSA ;(WASH ISC)/DH-MedTester Interface ;1/11/2001

Source Information

Source file <ENSA.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Engineering 4 COBH1^ENEQPMR4  (PROCS,UPLD)^ENSA1  (ERR,EXIT,EXIT1)^ENSA3  MSG^ENSA6  
VA FileMan 4 ^%DT  NOW^%DTC  ^DIC  YN^DICN  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  

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 ENSA1  

Entry Points

Name Comments DBIA/ICR reference
EN ;Upload test results from MedTester
MSG
MORW
WEEK
EN1
EN2
EN3
PAPER
CONT
HOLD
MSGXTD ;Extended help text
EXIT ;

External References

Name Field # of Occurrence
^%DT EN+10, MSG+1
NOW^%DTC EN+8
^%ZIS PAPER+1
HOME^%ZIS PAPER+2
^%ZTLOAD PAPER+2
^DIC EN1
YN^DICN MSG, MORW, PAPER
COBH1^ENEQPMR4 EN2+2
PROCS^ENSA1 CONT
UPLD^ENSA1 EN+8
ERR^ENSA3 EN+2, MSG, MSG+1, MORW, WEEK, EN1, EN2+1, PAPER, PAPER+1
EXIT^ENSA3 EXIT+1
EXIT1^ENSA3 PAPER+2
MSG^ENSA6 EN3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Can't seem to find your STATION NUMBER. Please check File 6910.",!,"Your IRM staff may need to assist you.",*7
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: @IOF,"MedTester UPLOAD MODULE:",!!,"Should data from the MedTester be used to close out work orders on a",!,"PM worklist"
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !,"Are you recording a MONTHLY (as opposed to a WEEKLY) worklist"
  • Line Location: MORW+0
Function Call: READ
  • Formatting: !
  • Prompt: "Week number (enter an integer from 1 to 5): "
  • Variable: X
  • Timeout: DTIME
  • Line Location: WEEK+0
Function Call: WRITE
  • Prompt: "??",*7
  • Line Location: WEEK+1
Function Call: READ
  • Formatting: !
  • Prompt: "Should existing PM work orders be deleted after close out? YES// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !!,*7,"No data to process."
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: !,"Do you want a paper copy of test results (will be printed on same",!,"device as Exception Messages)"
  • Line Location: PAPER+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PAPER+1
Function Call: WRITE
  • Prompt: !,"Press <RETURN> to continue..."
  • Line Location: HOLD+0
Function Call: WRITE
  • Prompt: !!,"If MedTester is being used in conjunction with a specific Preventive",!,"Maintenance worklist, you should answer 'YES' to this question. You will then"
  • Line Location: MSGXTD+1
Function Call: WRITE
  • Prompt: !,"be asked to identify the worklist."
  • Line Location: MSGXTD+2
Function Call: WRITE
  • Prompt: !!,"If you say 'NO' at this point, safety tests stored in the MedTester will be",!,"posted to the Equipment Histories without affecting a PM worklist in any",!,"way.",!
  • Line Location: MSGXTD+3
Routine Call
  • DIC
  • Line Location:
    • EN1
Routine Call
  • %ZIS
  • Line Location:
    • PAPER+1
Routine Call
  • %ZIS
  • Line Location:
    • PAPER+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(6922 - [#6922] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+10, MSG+1
^DIC(6910 - [#6910] EN+1, EN+4, EN+5, EN+6, EN2
^DIC(6922 - [#6922] EN1
^ENG("TMP" EN+9, EN3+2

Label References

Name Line Occurrences
EN1 MORW, WEEK
EN2 EN2+2
EN3 MSG
EXIT EN+8, EN+9, EN3+2, CONT+1
HOLD EN3+2, MSGXTD+3
MORW MORW
MSG MSG
MSGXTD MSG
PAPER PAPER
WEEK WEEK+1

Naked Globals

Name Field # of Occurrence
^(0 EN1, EN2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+8, MSG*, MORW*, PAPER*
>> %DT EN+10*, MSG+1*
>> %DT("A" MSG+1*
>> %DT("B" MSG+1*
>> %ZIS PAPER+1*
>> %ZIS("A" PAPER+1*
>> DIC EN1*
>> DIC(0 EN1*
DT EN+10*, MSG+1
DTIME EN+8*, WEEK, EN2+1, HOLD
>> ENDATE EN+10*
>> ENDEL EN2*, EN2+1*, EN2+2
>> ENPAPER PAPER*
>> ENPM MSG+1*, WEEK*, EN1+1
>> ENPMDT MSG+1*, EN1+1
>> ENPMWO EN+10*, EN1+1*
>> ENSHABR EN1*, EN1+1
>> ENSHKEY EN1*
>> ENSHOP EN1*
>> ENSTA EN+1*, EN+2
>> ENSTA( EN+3*, EN+6*, EN+7
>> ENSTAL EN+1*
>> ENSTAL( EN+3*, EN+7*
>> ENTID EN+8*, EN+9, EN3+2
>> ENX EN+5*, EN+6
>> I EN+3*, EN+5*, EN+6*, EN+7
IO("Q" PAPER+1!, PAPER+2!
IOF MSG
ION PAPER+2
>> POP EN+8, PAPER+1
U EN+1, EN+6, EN+10*, EN1, EN2
>> X EN+10*, WEEK*, EN2+1*, EN2+2, HOLD*
>> Y EN+10, MSG+1*, EN1
>> ZTDESC PAPER+2*
>> ZTIO PAPER+2*
>> ZTRTN PAPER+2*
>> ZTSAVE("DT" PAPER+2*
>> ZTSAVE("EN*" PAPER+2*
ZTSK PAPER+2!
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