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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ENCTREAD

Package: Engineering

Routine: ENCTREAD


Information

ENCTREAD ;(WASH ISC)/RGY,RFJ-Upload Data from Bar Code Reader ;3.23.99

Source Information

Source file <ENCTREAD.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Engineering 5 (,NODEV,NONID,NORTN,NOTI)^ENCTMES1  TASK^ENCTPRG  ENYN^ENCTQUES  ^ENCTTI  RTN^ENCTUTL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^%DT  NOW^%DTC  ^DIC  

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

Package Total Caller Graph
Engineering 2 ENBCUPLD  ENCTMAN  

Entry Points

Name Comments DBIA/ICR reference
READ ;
Q1
Q11
TASK ;Tasks an appropriate processor routine, needs ENCTID and ENCTTI
Q3
DEV ;
DOTS ;Act ind
ON ;
OFF ;

External References

Name Field # of Occurrence
^%DT TASK+5, TASK+7
NOW^%DTC READ+2, TASK+5
^%ZIS READ+4, DEV+1
^%ZISC Q11
^%ZTLOAD TASK+10
^DIC READ+14
^ENCTMES1 READ+23
NODEV^ENCTMES1 DEV+2
NONID^ENCTMES1 TASK+2
NORTN^ENCTMES1 READ+25
NOTI^ENCTMES1 TASK+3
TASK^ENCTPRG READ+3
ENYN^ENCTQUES DEV+2
^ENCTTI READ+14
RTN^ENCTUTL READ+25

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,">>> Use the TRANSMIT option on the bar code reader to start sending data:"
  • Line Location: READ+6
Function Call: READ
  • Variable: X
  • Timeout: 30
  • Line Location: READ+7
Function Call: WRITE
  • Prompt: !!,"*** Error, Timeout period expired ...",!,"... No data is being received from bar code reader ***",!!
  • Line Location: READ+7
Function Call: WRITE
  • Prompt: !," Thank you. Data is being received..."
  • Line Location: READ+8
Function Call: WRITE
  • Prompt: *7,!,"*** Error, an identifier was not uploaded ***",!!
  • Line Location: READ+11
Function Call: WRITE
  • Prompt: !!,"*** Error, bar code data identifier '",X,"' is non-existent ***",!!
  • Line Location: READ+12
Function Call: WRITE
  • Prompt: !!,"OK, You are logging data on ",Y," ...",!," ... using the BARCODE program ",$P(^PRCT(446.4,ENCTID,0),"^"),!!,"Reading barcode reader ..."
  • Line Location: READ+16
Function Call: READ
  • Variable: X
  • Timeout: 10
  • Line Location: READ+17
Function Call: READ
  • Variable: %
  • Timeout: 1
  • Line Location: READ+20
Function Call: WRITE
  • Prompt: !,"Data transmission complete. Number of records read: ",Y
  • Line Location: READ+21
Function Call: WRITE
  • Prompt: !!,"Upload time: "_($P($H,",",2)-TIME)_" sec."
  • Line Location: READ+22
Function Call: WRITE
  • Prompt: *7
  • Line Location: READ+23
Function Call: WRITE
  • Prompt: !!,"*** OK, transmission of data successful !",!,"You can purge the files on the barcode reader if you wish.",!
  • Line Location: READ+26
Function Call: WRITE
  • Prompt: *7
  • Line Location: TASK+2
Function Call: WRITE
  • Prompt: *7
  • Line Location: TASK+3
Function Call: WRITE
  • Prompt: !,"* Data will NOT be processed *",!
  • Line Location: TASK+7
Function Call: WRITE
  • Prompt: !!,"OK, the data collected on "
  • Line Location: TASK+8
Function Call: WRITE
  • Prompt: Y,!,"for ",$P(^PRCT(446.4,ENCTID,0),"^")," will be processed on "
  • Line Location: TASK+8
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: TASK+9
Function Call: WRITE
  • Prompt: *7
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: DOTS+2
Routine Call
  • DIC
  • Line Location:
    • READ+14
Routine Call
  • %ZIS
  • Line Location:
    • READ+4
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(2 - [#3.2] READ+5
^%ZOSF("EOFF" READ+5
^%ZOSF("EON" READ+5
^%ZOSF("TYPE-AHEAD" READ+5
^DD("DD" READ+15, TASK+8, TASK+9
^PRCT(446.4 - [#446.4] READ+3, READ+12, READ+14, READ+15*, READ+16, READ+19*, READ+21*, READ+23*, READ+24*, READ+25*
, TASK+2, TASK+3, TASK+7, TASK+8, TASK+9*, DEV+2

Label References

Name Line Occurrences
@( READ+25
DEV TASK+4, DEV+3
DOTS READ+19
OFF READ+6, READ+7, READ+8, READ+21, DOTS+1
ON READ+7, READ+17, DOTS+3
Q1 READ+4, READ+7, READ+11, READ+12, READ+25
Q11 READ+25
Q3 TASK+2, TASK+3, TASK+4, TASK+7
READ READ+23
TASK READ+26

Naked Globals

Name Field # of Occurrence
^( READ+3
^(0 READ+14*, READ+25, TASK+2, TASK+7*, DEV+2*
^(1 READ+23!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % READ+2, READ+20*, TASK+5
>> %DT TASK+5*, TASK+7*
>> %DT("A" TASK+7*
>> %DT("B" TASK+7*
>> %ZIS DEV+1*
DA Q11+1!
DA(1 READ+14*
DIC READ+14*, Q11+1!
DIC(0 READ+14*
DLAYGO READ+14*, Q11+1!
DUZ READ+15
ENCT TASK+2*, TASK+4, TASK+5*, Q3!
ENCTCLOS READ+5*, Q11+1!, OFF+1
ENCTEOFF READ+5*, Q11+1!, ON+1
ENCTEON READ+5*, Q11+1!, OFF+1
ENCTID READ+12*, READ+14, READ+15, READ+16, READ+19, READ+21, READ+23, READ+24, READ+25, Q1!
, TASK+2, TASK+3, TASK+7, TASK+8, TASK+9, Q3!, DEV+2
>> ENCTMIN READ+14*
ENCTNOW READ+2*, READ+3, READ+13, READ+21, Q11+1!
ENCTOPEN READ+5*, Q11+1!, ON+1
>> ENCTSD READ+14*
ENCTTI READ+15*, READ+19, READ+21, READ+23, READ+24, READ+25, Q1!, TASK+3, TASK+7, TASK+8
, TASK+9, Q3!, DEV+2
ENCTTYPE READ+5*, Q11+1!, ON+1
IO READ+6, DEV+1, DOTS+1, DOTS+2, DOTS+3, ON+1
IO(0 DOTS+1, DOTS+2, DOTS+3, OFF+1
ION DEV+1
>> IOP READ+4, DEV+1*
IOST(0 READ+5
>> MES READ+23*
POP READ+4, Q11+1!, TASK+4, Q3!, DEV+1, DEV+2*
TIME READ+1~, READ+9*, READ+22
>> X READ+7*, READ+10*, READ+11, READ+12, READ+13*, READ+14*, READ+17*, READ+18, READ+19, READ+23
, READ+25*, TASK+5*, DEV+2*
>> Y READ+14*, READ+15*, READ+16, READ+17*, READ+18*, READ+19, READ+21, READ+23, TASK+5, TASK+7
, TASK+8*, TASK+9*
ZTDESC TASK+6*, Q3!
ZTDTH READ+26!, TASK+5*, TASK+6!, TASK+7*, TASK+9, Q3!
ZTIO TASK+4*, Q3!, DEV+1*
ZTRTN TASK+4*, Q3!
ZTSAVE Q3!
ZTSAVE("ENCTID" TASK+6*
ZTSAVE("ENCTTI" TASK+6*
ZTSK Q11+1!, Q3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All