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

Package: Pharmacy Point of Sale

Routine: ABSPOSUQ


Information

ABSPOSUQ ; IHS/OIT/CNI/SCR - DOUBLE QUEING SHELL HANDLER ;

Source Information

Source file <ABSPOSUQ.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
Third Party Billing 1 $$EN^ABMVDF  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Point of Sale 1 ABSPOSRS  

Entry Points

Name Comments DBIA/ICR reference
SLAVE ;OPEN SLAVE DEVICE
QUE1 ;que
DEV1 ;>Select Device
SET(ABSPQ) ;SET UP ABSPQ VARIABLES
END ;EP ;> cleanup
DEQUE1 ;EP ;> 1st deque | do computing routine
EOP(X) ;EP - end of page

External References

Name Field # of Occurrence
^%ZIS DEV1+1, SLAVE+1
HOME^%ZIS QUE1+8
^%ZISC DEQUE1+12
^%ZTLOAD QUE1+4
KILL^%ZTLOAD END+3
$$EN^ABMVDF DEQUE1+10
^DIR DEQUE1+9, 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+2
Function Call: WRITE
  • Prompt: !,"Queing to slave printer not allowed ... Report Aborting"
  • Line Location: DEV1+6
Function Call: READ
  • Timeout: $Y
  • Variable: E P O R T" W
  • Line Location: DEQUE1+10
Function Call: WRITE
  • Prompt: !!,"E N D O F R E P O R T"
  • Line Location: DEQUE1+10
Function Call: WRITE
  • Prompt: $$EN^ABMVDF("IOF")
  • Condition for execution: $Y
  • Line Location: DEQUE1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+6
Routine Call
  • %ZIS
  • Line Location:
    • QUE1+8
Routine Call
  • DIR
  • Line Location:
    • DEQUE1+9
    • EOP+10
Routine Call
  • %ZIS
  • Line Location:
    • DEV1+1
    • SLAVE+1

Label References

Name Line Occurrences
@( DEQUE1+2, DEQUE1+3
END DEV1+2, DEV1+6
EOP QUE1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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