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

Package: IHS Patient Registration

Routine: AGDBQUE


Information

AGDBQUE ; IHS/ASDS/EFG - DOUBLE QUEING SHELL HANDLER ;

Source Information

Source file <AGDBQUE.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Patient Registration 1 AGRHI1  

Entry Points

Name Comments DBIA/ICR reference
SET ;Set up AGQ variables
END ;EP ;> cleanup
QUE1 ;que
DEV1 ;Select Device
EOP ;END OF PAGE (Original code from EOP^AGUTL)
SLAVE ;Open slave device
DEQUE1 ;EP - 1st deque | do computing routine

External References

Name Field # of Occurrence
^%ZIS DEV1+5, SLAVE+1
HOME^%ZIS QUE1+12
^%ZISC DEQUE1+3
^%ZTLOAD QUE1+8
KILL^%ZTLOAD END+2
^DIR EOP+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEV1+1
Function Call: WRITE
  • Prompt: !,"REPORTING ABORTED",!,*7
  • Line Location: DEV1+6
Function Call: WRITE
  • Prompt: !,"Queing to slave printer not allowed ... Report Aborting"
  • Line Location: DEV1+15
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+6
Routine Call
  • %ZIS
  • Line Location:
    • QUE1+12
Routine Call
  • DIR
  • Line Location:
    • EOP+10
Routine Call
  • %ZIS
  • Line Location:
    • DEV1+5
    • SLAVE+1

Label References

Name Line Occurrences
@( DEQUE1+1, DEQUE1+2, END+1
END DEV1+6, DEV1+15
EOP QUE1+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV1+3*
>> %ZIS("A" DEV1+4*
AG QUE1+1!, END+3!
AGD QUE1+1!, END+3!
AGQ QUE1+1!, END+3!
AGQ("CPU" DEV1+13*, QUE1+5
AGQ("DTH" QUE1+4
AGQ("IO" DEV1+11*
AGQ("ION" DEV1+7*, DEV1+9*, DEV1+10*
AGQ("IOPAR" DEV1+12*
AGQ("IOT" DEV1+14*
AGQ("NS" SET+2*, SET+3, QUE1+7
AGQ("RC" SET+1*, QUE1+2, DEQUE1+1
AGQ("RP" QUE1+2, DEQUE1+2
AGQ("RX" END+1
AGQ("SL" DEV1+15
AGQ("X" SET+3*, QUE1+7
DIR EOP+11!
DIR("A" EOP+9*
DIR(0 EOP+8*
>> DUOUT DEV1+6*
IO DEV1+6, DEV1+11, DEV1+15, QUE1+1
IO("DOC" DEV1+8, DEV1+10
IO("Q" DEV1+2!, DEV1+15, QUE1+1!, END+3!
IO("S" SLAVE+1, DEQUE1+3, EOP+4
IO(0 DEV1+15, QUE1+1
>> IOCPU DEV1+13
IOM DEV1+7
ION DEV1+7, SLAVE+1
>> IOP SLAVE+1*
>> IOPAR DEV1+12
IOSL DEV1+7, EOP+6
IOST DEV1+7, EOP+3
>> IOT DEV1+14, EOP+2
>> POP DEV1+6
>> X QUE1+11*, EOP+7, EOP+9
>> ZTCPU QUE1+5*
>> ZTDESC QUE1+2*
>> ZTDTH QUE1+4*
>> ZTQUEUED END+2, EOP+5
>> ZTRTN QUE1+3*
>> ZTSAVE("AG*" QUE1+6*
ZTSK QUE1+9, QUE1+10, END+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All