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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BARDBQ01

Package: IHS Accounts Receivable

Routine: BARDBQ01


Information

BARDBQ01 ; IHS/SD/TMM - DOUBLE QUEING SHELL HANDLER - MULTI COPIES ; 07/16/2010

Source Information

Source file <BARDBQ01.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
IHS Accounts Receivable 1 EOP^BARUTL  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Accounts Receivable 1 BARPPY02  

Entry Points

Name Comments DBIA/ICR reference
QUE1 ;
; queue if selected device not = home device
SET ;
; Set up BARQ variables
SLAVE ;
; Open slave device
ASKCOPY() ;EP Propmt for # of copies to print
DEV1 ;
EN ; new entry point
;
END ; EP ;> cleanup
DEQUE1 ;EP Entry point for queued reports
; 1st deque | do computing routine
MULT ; Print report

External References

Name Field # of Occurrence
^%ZIS DEV1+8, SLAVE+3, SLAVE+4
HOME^%ZIS QUE1+15
^%ZISC MULT+8, MULT+9
^%ZTLOAD QUE1+11
KILL^%ZTLOAD END+3
EOP^BARUTL QUE1+14
^DIR ASKCOPY+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEV1+1
Function Call: WRITE
  • Prompt: !,"REPORTING ABORTED",!,*7
  • Line Location: DEV1+9
Function Call: WRITE
  • Prompt: !,"Queing to slave printer not allowed ... Report Aborting"
  • Line Location: DEV1+10
Function Call: WRITE
  • Prompt: !!,"REPORTING ABORTED"
  • Line Location: SLAVE+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MULT+7
Routine Call
  • %ZIS
  • Line Location:
    • QUE1+15
Routine Call
  • DIR
  • Line Location:
    • ASKCOPY+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV1+8
    • SLAVE+3
    • SLAVE+4

Label References

Name Line Occurrences
$$ASKCOPY DEV1+13
@( MULT+4, MULT+5, END+2
END DEV1+9, DEV1+10, SLAVE+5
QUE1 DEV1+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV1+5*, DEV1+6
>> %ZIS("A" DEV1+7*
BAR END+4!, QUE1+3!
BAR("MULTI" DEV1+13
BARCNT MULT+1~, MULT+2*, MULT+3*, MULT+4
>> BARCOPY DEV1+12*, DEV1+13*, MULT+3
BARD END+4!, QUE1+3!
BARQ END+4!, QUE1+3!
BARQ("CPU" QUE1+7
BARQ("DTH" QUE1+6
BARQ("MARGIN" DEV1+5
BARQ("NS" SET+3*, SET+4, QUE1+9
BARQ("QUE" DEV1+5
BARQ("RC" SET+2*, MULT+4, QUE1+4
BARQ("RP" MULT+5, QUE1+4
BARQ("RX" END+2
BARQ("SL" DEV1+10
BARQ("X" SET+4*, QUE1+9
BARSAVE END+4!
>> BARSTOP DEV1+15*
BARZIS DEV1+6*, DEV1+18, END+4!
DA ASKCOPY+5!
DIR ASKCOPY+1!
DIR("A" ASKCOPY+4*
DIR("B" ASKCOPY+3*
DIR(0 ASKCOPY+2*
DIROUT DEV1+15, ASKCOPY+1!, ASKCOPY+7
DIRUT ASKCOPY+1!
DTOUT ASKCOPY+1!, ASKCOPY+7
DUOUT DEV1+9*, DEV1+14, ASKCOPY+1!, ASKCOPY+7
IO DEV1+9, DEV1+10, QUE1+2, QUE1+3, QUE1+10
IO("Q" DEV1+2!, DEV1+10, END+4!, QUE1+3!
IO("S" SLAVE+3, SLAVE+4, MULT+8, MULT+9
IO(0 DEV1+10, QUE1+2, QUE1+3
IOF MULT+6*, MULT+7
IOM SLAVE+2
ION SLAVE+2, QUE1+10
>> IOP SLAVE+2*
IOSL SLAVE+2
IOST SLAVE+2
>> POP DEV1+9, SLAVE+5
>> X ASKCOPY+8
>> ZTCPU QUE1+7*
>> ZTDESC QUE1+4*
>> ZTDTH QUE1+6*
>> ZTIO("H" QUE1+10*
>> ZTQUEUED END+3
>> ZTRTN QUE1+5*
>> ZTSAVE("BAR*" QUE1+8*
ZTSK END+4!, QUE1+12, QUE1+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All