Routine: ABSPOSRB

Information

ABSPOSRB ; IHS/FCS/DRS - background from ABSPOSRX ;

Source Information

Source file <ABSPOSRB.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Pharmacy Point of Sale	7	$$RXDEL^ABSPOS FETSTAT^ABSPOS2 REVERS59^ABSPOS6D ($$DEFNDC,FILING)^ABSPOSIV (INIT,LOG,LOG2SLOT,PRINTLOG,RELSLOT)^ABSPOSL ($$IEN59,$$LOCK,$$STATUS,UNLOCK)^ABSPOSRX IMPOSS^ABSPOSUE

Entry Points

Name	Comments	DBIA/ICR reference
BACKGR	;
LASTLOG	; tool for test - find and print most recent log file
BACKGLOG(X)	;
HANG	; how long to hang before submitting the next claim? ; usually not at all (0 secs) ; but if there are an extraordinary # of claims in processing, ; then wait up a bit before letting anything else through
BACKGR1(TYPE,RXI,RXR,TIME,MOREDATA)
STARTTIM(RXI,RXR)
IEN59(RXI,RXR)
BACKGRUN	; reverse RXI,RXR ; (reached by a GOTO from a few lines above)
STATUS(RXI,RXR)
FAIL
HANGA	;

External References

Name	Field # of Occurrence
$$RXDEL^ABSPOS	BACKGR1+7
FETSTAT^ABSPOS2	HANGA+1
REVERS59^ABSPOS6D	BACKGRUN+9
$$DEFNDC^ABSPOSIV	BACKGR1+44
FILING^ABSPOSIV	BACKGR1+50
INIT^ABSPOSL	BACKGR+6
LOG^ABSPOSL	BACKGR+9, BACKGR+15, BACKGR+19
LOG2SLOT^ABSPOSL	BACKGLOG+2
PRINTLOG^ABSPOSL	LASTLOG+4
RELSLOT^ABSPOSL	FAIL
$$IEN59^ABSPOSRX	IEN59
$$LOCK^ABSPOSRX	BACKGR+8, BACKGR+18
$$STATUS^ABSPOSRX	STATUS
UNLOCK^ABSPOSRX	BACKGR+24, FAIL+1
IMPOSS^ABSPOSUE	BACKGR1+38

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "No log file found",! Line Location: LASTLOG+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.99 - [#9002313.99]	BACKGR+3, BACKGR+4, FAIL+3
^ABSPECP(	BACKGR+11, BACKGR+12, BACKGR+17, BACKGR+20, BACKGR+22!
^ABSPECP("LOG"	LASTLOG+2
^ABSPT - [#9002313.59]	STARTTIM, BACKGRUN+5, BACKGRUN+8

Label References

Name	Line Occurrences
$$IEN59	STARTTIM, BACKGRUN+1
$$STARTTIM	BACKGR1+5
$$STATUS	BACKGR+13, BACKGR1+4
BACKGLOG	BACKGR1+40, BACKGR1+51, BACKGRUN+10
BACKGR1	BACKGR+23
BACKGRUN	BACKGR1+41
FAIL	BACKGR+8
HANGA	HANGA+5

Naked Globals

Name	Field # of Occurrence
^("MOREDATA"	BACKGR+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABSBNDC	BACKGR1+42~
ABSBNDC(1	BACKGR1+44*
ABSBRXI	BACKGR1+42~, BACKGR1+43*
ABSBRXI(1	BACKGR1+43*
ABSBRXR	BACKGR1+42~, BACKGR1+43*
ABSBRXR(1	BACKGR1+43*
BACKSLOT	BACKGR+5~*, BACKGR+6, BACKGLOG+2
DT	BACKGR+5
IEN59	BACKGRUN+1~*, BACKGRUN+5, BACKGRUN+8, BACKGRUN+9
LIST	BACKGR+7~*, BACKGR+11, BACKGR+12, BACKGR+17, BACKGR+20, BACKGR+22
LOCK	HANG+13~, HANGA+1*
M	BACKGRUN+2~, BACKGRUN+6, BACKGRUN+10
MOREDATA	BACKGR+16~, BACKGR+20, BACKGR+21, BACKGR+23, BACKGR1~
MOREDATA("DO	NOT RESUBMIT" , BACKGR1+15
MOREDATA("ORIGIN"	BACKGR1+49*, BACKGR1+50
MOREDATA("REV	ERSE THEN RESUBMIT" , BACKGR1+30*, BACKGR1+41, BACKGRUN+3
MOREDATA("RXREASON"	BACKGRUN+8
MSG	BACKGLOG+1~*, BACKGLOG+2
MYDEST	HANG+13~, HANGA+1!
MYDEST(	HANGA+2
RESULT	BACKGR1+4~*, BACKGR1+10, BACKGR1+20, BACKGR1+21, BACKGR1+23, BACKGR1+29, BACKGR1+35, BACKGR1+37
RXI	BACKGR+7~, BACKGR+11*, BACKGR+12, BACKGR+13, BACKGR+15, BACKGR+17, BACKGR+19, BACKGR+20, BACKGR+22, BACKGR+23 , STARTTIM~, BACKGLOG+1, BACKGR1~, BACKGR1+4, BACKGR1+5, BACKGR1+7, BACKGR1+43, BACKGRUN+1, IEN59~, STATUS~
RXR	BACKGR+7~, BACKGR+12*, BACKGR+13, BACKGR+15, BACKGR+17, BACKGR+19, BACKGR+20, BACKGR+22, BACKGR+23, STARTTIM~ , BACKGLOG+1, BACKGR1~, BACKGR1+4, BACKGR1+5, BACKGR1+7, BACKGR1+43, BACKGRUN+1, IEN59~, STATUS~
S	HANGA+2~*
SKIP	BACKGR1+2~, BACKGR1+8, BACKGR1+16, BACKGR1+22, BACKGR1+36*, BACKGR1+39
SKIPREAS	BACKGR1+3~, BACKGR1+8, BACKGR1+17, BACKGR1+23, BACKGR1+37, BACKGR1+40
STARTTIM	BACKGR1+5~*, BACKGR1+18, BACKGR1+23
T	HANGA+2~*, HANGA+3
TIME	BACKGR+16~, BACKGR+17*, BACKGR+23, BACKGR1~, BACKGR1+18, BACKGR1+23
TYPE	BACKGR+7~, BACKGR+10*, BACKGR+11, BACKGR+12, BACKGR+17, BACKGR+20, BACKGR+22, BACKGR+23, BACKGLOG+1, BACKGR1~ , BACKGR1+6, BACKGR1+31, BACKGR1+38, BACKGR1+41
U	BACKGR+4, BACKGR+14, FAIL+3, STARTTIM, BACKGR1+4, BACKGRUN+5, BACKGRUN+8
X	BACKGR+13~, BACKGR+14, BACKGLOG~, BACKGLOG+1, LASTLOG+1~, LASTLOG+2*, LASTLOG+3, LASTLOG+4

Marked Items

Name	Field # of Occurrence
$T(	BACKGR1+38

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSRB

Call Graph Total: 7