Routine: ABSPOSQ3

Package	Total	Call Graph
Pharmacy Point of Sale	7	CLOSE^ABSPOSAB $$SEND^ABSPOSAM ($$GETSLOT,DONE,INIT,LOG)^ABSPOSL ($$ANY2SEND,EWAIT55)^ABSPOSQJ SETSTAT^ABSPOSU ADDSTAT^ABSPOSUD ($$IMPOSS,IMPOSS)^ABSPOSUE
VA Fileman	3	^%DT NOW^%DTC ^DIE
Kernel	1	^%ZTLOAD

Package	Total	Caller Graph
Pharmacy Point of Sale	6	ABSPOS2A ABSPOS2D ABSPOSAE ABSPOSAM ABSPOSQ4 ABSPOSS1

Entry Points

Name	Comments	DBIA/ICR reference
TSTAMP(DA)
TOLOOP	; ; Now that transmit is done for this DIALOUT, maybe there are others ; we can help out with?
COMMS	; This is the entry point - usually by taskman call from ABSPOSQ2. ; Given DIALOUT = pointer into 9002313.55 ; Transmit and receive as long as you have claims to be transmitted ; The task manager sets up DIALOUT in the call from ABSPOSQ2. ; When it's done with one DIALOUT, it looks around for others that ; are in need of transmit, so you could end up doing lots of ; transmissions in this one routine.
ROOTREF(DEST)
ENDJOB	;
TASKAT(ZTDTH,Q4WAIT)	; EP -
JOBMON	; temporary, for use by direct mode debugging
AGAIN	; Loop back to here ; DIALOUT may have been changed since first entry
OTHJOBS()	; any other transmit-receive jobs using DIALOUT? returns count of
SETSTAT(ABSBRXI,STAT)
UNLOCK(X)
REMEMLOG(N,SLOT)
MAXJOBS(N)	;EP - ABSPOS2A
ENDJOB99	;EP
SEND(DEST)
TRANSMIT(DIALOUT)	; returns 0 if success, nonzero error code if failure ; This does transmit/receive for ONLY the given DIALOUT
SHUTDOWN(N)	;EP - ABSPOS2A,ABSPOSAM
NOW()
LOCK(X)
TASK(Q4WAIT)	;EP - ABSPOS2D,ABSPOSQ4 ; start processing of responses
JOBCOUNT(ECHO)	;EP
TMIT1

External References

Name	Field # of Occurrence
^%DT	TASK+2
NOW^%DTC	NOW
^%ZTLOAD	TASKAT+10
CLOSE^ABSPOSAB	TMIT1+5
$$SEND^ABSPOSAM	SEND+2
$$GETSLOT^ABSPOSL	COMMS+31
DONE^ABSPOSL	ENDJOB+2
INIT^ABSPOSL	COMMS+29
LOG^ABSPOSL	COMMS+30, AGAIN+35, AGAIN+42, TOLOOP+4, ENDJOB+1, TMIT1+14, SEND+5, SEND+11
$$ANY2SEND^ABSPOSQJ	AGAIN+6, TOLOOP+3
EWAIT55^ABSPOSQJ	AGAIN+32, AGAIN+43, TMIT1+9, TMIT1+11
SETSTAT^ABSPOSU	SETSTAT
ADDSTAT^ABSPOSUD	TMIT1+6
$$IMPOSS^ABSPOSUE	SHUTDOWN+3
IMPOSS^ABSPOSUE	COMMS+12, ENDJOB99+2
^DIE	TSTAMP

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$JOBCOUNT(1)," ",$P($H,",",2)," / " Line Location: JOBMON+1
Function Call: WRITE	Prompt: ! Condition for execution: $X>60 Line Location: JOBMON+1
Function Call: WRITE	Prompt: "We're going to kill the entry for job ",X,! Line Location: JOBCOUNT+8
Routine Call	DIE Line Location: TSTAMP

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.55 - [#9002313.55]	AGAIN+34, AGAIN+36, REMEMLOG+1, REMEMLOG+3*
^ABSPECX("ABSPOSQ3"	COMMS+11, COMMS+18, COMMS+19, AGAIN+1*, AGAIN+46!, ENDJOB99+1, ENDJOB99+3!, ENDJOB99+4, OTHJOBS+2, OTHJOBS+3 , JOBCOUNT+2, JOBCOUNT+3, JOBCOUNT+9!, JOBCOUNT+10
^ABSPECX("POS"	AGAIN+15
^ABSPF(9002313.89 - [#9002313.89]	TMIT1+13
^TMP("ABSPOSQ3"	LOCK, UNLOCK, SHUTDOWN+4, SHUTDOWN+5, MAXJOBS+4, MAXJOBS+5, MAXJOBS+6*

Label References

Name	Line Occurrences
$$JOBCOUNT	COMMS+20, JOBMON+1
$$LOCK	SHUTDOWN+3, MAXJOBS+3
$$MAXJOBS	COMMS+20
$$OTHJOBS	AGAIN+41
$$SEND	TMIT1
$$SHUTDOWN	TOLOOP+3
$$TRANSMIT	AGAIN+10
AGAIN	AGAIN+21, TOLOOP+3
ENDJOB99	COMMS+20
REMEMLOG	COMMS+31
TASK	AGAIN+7, AGAIN+15
TASKAT	TASK+3
TMIT1	TMIT1+2
UNLOCK	SHUTDOWN+6, MAXJOBS+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOW~
%DT	TASK+1~, TASK+2*
%H	NOW~
%I	NOW~
A	OTHJOBS+1~, OTHJOBS+2, OTHJOBS+3
ABSBPOSE	COMMS+26~, AGAIN+10, AGAIN+11, AGAIN+21, AGAIN+28
ABSBRXI	SETSTAT~
ABSPECT2	COMMS+26~, AGAIN+11, AGAIN+13, AGAIN+21, AGAIN+32, AGAIN+41, TMIT1+6, SEND+1, SEND+3, SEND+4
DA	TSTAMP~
DEST	SEND~, SEND+2, ROOTREF~
DIALOUT	COMMS+19, COMMS+30, COMMS+31, AGAIN+1, AGAIN+6, AGAIN+10, AGAIN+15, AGAIN+32, AGAIN+33, AGAIN+34 , AGAIN+36, AGAIN+42, AGAIN+43, TOLOOP+3*, TOLOOP+4, OTHJOBS+3, TRANSMIT~, TMIT1, TMIT1+5, TMIT1+9 , TMIT1+11
DIE	TSTAMP~*
DR	TSTAMP~*
ECHO	JOBCOUNT~, JOBCOUNT+8
ECODE	TRANSMIT+2~, TMIT1*, TMIT1+2, TMIT1+6, TMIT1+8, TMIT1+12, TMIT1+13, TMIT1+16
ERROR	TRANSMIT+2~*
N	REMEMLOG~, REMEMLOG+1, REMEMLOG+3, JOBCOUNT+1~, JOBCOUNT+4, JOBCOUNT+6*, JOBCOUNT+11, SHUTDOWN~, SHUTDOWN+4, MAXJOBS~ , MAXJOBS+4
Q4WAIT	TASK~, TASK+3, TASKAT~, TASKAT+9
R	OTHJOBS+1~, OTHJOBS+3, OTHJOBS+4
RET	SEND+2~, SEND+6, SEND+7, SEND+10, SEND+12, SHUTDOWN+1~, SHUTDOWN+5, SHUTDOWN+7, MAXJOBS+1~, MAXJOBS+5 , MAXJOBS+6*, MAXJOBS+8
ROU	SHUTDOWN+1~, SHUTDOWN+2, MAXJOBS+1~, MAXJOBS+2
SLOT	REMEMLOG~, REMEMLOG+2
STAT	SETSTAT~
U	AGAIN+34, AGAIN+36, TMIT1+13, REMEMLOG+2
X	AGAIN+33~, AGAIN+34, AGAIN+35, TASK+1~, TASK+2, TMIT1+12~, TMIT1+13, TMIT1+14, NOW~, SEND+4~ , SEND+5, SEND+10~, SEND+11, REMEMLOG+1~, REMEMLOG+2, REMEMLOG+3, JOBCOUNT+1~, JOBCOUNT+2, JOBCOUNT+3, JOBCOUNT+6 , JOBCOUNT+8, JOBCOUNT+9, JOBCOUNT+10, LOCK~, UNLOCK~, SHUTDOWN+1~, SHUTDOWN+2, SHUTDOWN+3, SHUTDOWN+4, SHUTDOWN+5 , SHUTDOWN+6, MAXJOBS+1~, MAXJOBS+2, MAXJOBS+3, MAXJOBS+4, MAXJOBS+5, MAXJOBS+6, MAXJOBS+7
Y	TASK+1~, TASK+3
ZTDTH	TASKAT~
ZTIO	TASKAT+6~, TASKAT+7*
ZTRTN	TASKAT+6~, TASKAT+7*
ZTSAVE	TASKAT+6~
ZTSAVE("DIALOUT"	TASKAT+8*
ZTSAVE("Q4WAIT"	TASKAT+9*

Marked Items

Name	Field # of Occurrence
$T(	COMMS+12, AGAIN+33, AGAIN+42, TOLOOP+4, ENDJOB99+2, SEND+4, SEND+10, SHUTDOWN+2, SHUTDOWN+3, MAXJOBS+2

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSQ3

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items