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

Package: IFCAP

Routine: PRCTREAD


Information

PRCTREAD ;WISC@ALTOONA/RGY,RFJ-READ DATA FROM BAR CODE READER ;6.29.98

Source Information

Source file <PRCTREAD.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
IFCAP 5 (,NODEV,NONID,NORTN,NOTI)^PRCTMES1  TASK^PRCTPRG  ENYN^PRCTQUES  ^PRCTTI  RTN^PRCTUTL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 (,DD)^%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
IFCAP 2 2858  PRCTMAN  

Entry Points

Name Comments DBIA/ICR reference
READ ; upload from portable bar code reader
READ1
Q1
Q11
TASK ;Tasks an appropriate barcode processor to taskman, needs PRCTID and PRCTTI
  • ICR #6587
    • Status: Active
    • Usage: Private
    Q3
    DEV ;
    OFF ;
    ON ;

    External References

    Name Field # of Occurrence
    ^%DT TASK+7, TASK+9
    DD^%DT READ1+9, TASK+10, TASK+11
    NOW^%DTC READ+2, TASK+7
    ^%ZIS READ+5, Q11DEV+1
    ^%ZISC Q11
    ^%ZTLOAD TASK+12
    ^DIC READ1+8
    ^PRCTMES1 READ1+18
    NODEV^PRCTMES1 DEV+2
    NONID^PRCTMES1 TASK+3
    NORTN^PRCTMES1 READ1+20
    NOTI^PRCTMES1 TASK+4
    TASK^PRCTPRG READ+4
    ENYN^PRCTQUES DEV+2
    ^PRCTTI READ1+8
    RTN^PRCTUTL READ1+20

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,">>> Use the TRANSMIT option on the barcode reader to start sending the data:"
    • Line Location: READ+7
    Function Call: READ
    • Variable: X
    • Timeout: 30
    • Line Location: READ1+0
    Function Call: WRITE
    • Prompt: !," *** Error, NO data received from bar code reader within 30 seconds ***",!!
    • Line Location: READ1+0
    Function Call: WRITE
    • Prompt: !," Thank You ! Data is being received ..."
    • Line Location: READ1+2
    Function Call: WRITE
    • Prompt: !," *** Error, an identifier was not entered ***",!!
    • Line Location: READ1+6
    Function Call: WRITE
    • Prompt: !," *** Error, bar code data identifier '",X,"' is non-existent ***",!!
    • Line Location: READ1+7
    Function Call: WRITE
    • Prompt: !!,"<<< Reading records for ",$P(^PRCT(446.4,PRCTID,0),"^"),",",!?14,"logged on ",Y," ..."
    • Line Location: READ1+10
    Function Call: READ
    • Variable: X
    • Timeout: 10
    • Line Location: READ1+11
    Function Call: WRITE
    • Prompt: !," Data transmission complete, number of records read: ",Y
    • Line Location: READ1+16
    Function Call: WRITE
    • Prompt: !!,"Upload time: "_($P($H,",",2)-TIME)_" sec."
    • Line Location: READ1+17
    Function Call: WRITE
    • Prompt: *7
    • Line Location: READ1+18
    Function Call: WRITE
    • Prompt: !!,"<<< Transmission of data successful! >>>",!," You can purge the files on the bar code reader if you wish.",!
    • Line Location: READ1+21
    Function Call: WRITE
    • Prompt: *7
    • Line Location: TASK+3
    Function Call: WRITE
    • Prompt: *7
    • Line Location: TASK+4
    Function Call: WRITE
    • Prompt: !,"* Data will NOT be processed *",!
    • Line Location: TASK+9
    Function Call: WRITE
    • Prompt: !!,"OK, the data collected on "
    • Line Location: TASK+10
    Function Call: WRITE
    • Prompt: Y,!,"for ",$P(^PRCT(446.4,PRCTID,0),"^")," will be processed on "
    • Line Location: TASK+10
    Function Call: WRITE
    • Prompt: Y,!
    • Line Location: TASK+11
    Function Call: WRITE
    • Prompt: *7
    • Line Location: DEV+2
    Routine Call
    • DIC
    • Line Location:
      • READ1+8
    Routine Call
    • %ZIS
    • Line Location:
      • READ+5
      • Q11
      • DEV+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(2 - [#3.2] READ+6
    ^%ZOSF("EOFF" READ+6
    ^%ZOSF("EON" READ+6
    ^%ZOSF("TYPE-AHEAD" READ+6
    ^PRCT(446.4 - [#446.4] READ+3, READ+4, READ1+7, READ1+8, READ1+9*, READ1+10, READ1+13*, READ1+16*, READ1+18*, READ1+19*
    READ1+20*, TASK+3, TASK+4, TASK+9, TASK+10, TASK+11*, DEV+2

    Label References

    Name Line Occurrences
    @( READ1+20, TASK+5
    DEV TASK+6, DEV+3
    OFF READ+7, READ1READ1+2, READ1+6, READ1+7, READ1+10, READ1+16
    ON READ+8, READ1+2, READ1+10
    Q1 READ+5, READ1READ1+6, READ1+7, READ1+20
    Q11 READ1+20
    Q3 TASK+3, TASK+4, TASK+5, TASK+6, TASK+9
    READ READ1+18
    READ1 READ1+1
    TASK READ1+21

    Naked Globals

    Name Field # of Occurrence
    ^(0 READ1+8*, READ1+20, TASK+3, TASK+9*, DEV+2*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % READ+2, READ1+15*, TASK+5*!, TASK+7
    %DT Q11!, TASK+7*, TASK+9*
    %DT("A" TASK+9*
    %DT("B" TASK+9*
    >> %ZIS DEV+1*
    D Q11!
    DA Q11!
    DA(1 READ1+8*
    DIC READ1+8*, Q11!
    DIC(0 READ1+8*
    DLAYGO READ1+8*, Q11!
    DUZ READ1+9
    IO READ+7, ON+1
    IO(0 OFF+1
    ION Q11DEV+1
    IOP READ+5, Q11*!, DEV+1*
    IOST(0 READ+6
    >> MES READ1+18*
    POP READ+5, Q11!, TASK+6, Q3!, DEV+1, DEV+2*
    PRCT TASK+3*, TASK+5, TASK+6, TASK+7*, Q3!
    PRCTCLOS READ+1~, READ+6*, OFF+1
    PRCTEOFF READ+1~, READ+6*, ON+1
    PRCTEON READ+1~, READ+6*, OFF+1
    PRCTID READ+3*, READ+4, READ1+7*, READ1+8, READ1+9, READ1+10, READ1+13, READ1+16, READ1+18, READ1+19
    READ1+20, Q1!, TASK+3, TASK+4, TASK+9, TASK+10, TASK+11, Q3!, DEV+2
    >> PRCTMIN READ1+8*
    PRCTNOW READ+1~, READ+2*, READ+4, READ1+8, READ1+16
    PRCTOPEN READ+1~, READ+6*, ON+1
    >> PRCTSD READ1+8*
    PRCTTI READ1+9*, READ1+13, READ1+16, READ1+18, READ1+19, READ1+20, Q1!, TASK+4, TASK+9, TASK+10
    TASK+11, Q3!, DEV+2
    PRCTTYPE READ+1~, READ+6*, ON+1
    TIME READ+1~, READ1+3*, READ1+17
    X READ1*, READ1+1, READ1+5*, READ1+6, READ1+7, READ1+8*, READ1+11*, READ1+12, READ1+13, READ1+18
    READ1+20*, TASK+5!, TASK+7*, DEV+2*
    Y READ1+8*, READ1+9*, READ1+10, READ1+11*, READ1+12*, READ1+13, READ1+16, READ1+18, TASK+5!, TASK+7
    TASK+9, TASK+10*, TASK+11*
    >> ZTDESC TASK+8*
    ZTDTH READ1+21!, TASK+5!, TASK+7*, TASK+8!, TASK+9*, TASK+11
    >> ZTIO TASK+6*
    >> ZTRTN TASK+6*
    >> ZTSAVE("PRCTID" TASK+8*
    >> ZTSAVE("PRCTTI" TASK+8*
    ZTSK Q11!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All