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

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls