Routine: ABSPOSR3

Information

ABSPOSR3 ; IHS/FCS/DRS - silent claim submitter ;

Source Information

Source file <ABSPOSR3.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Pharmacy Point of Sale	6	ZWRITE^ABSPOS LOG^ABSPOSL ($$GETFIELD,DEFAULTS,SETFIELD,STOPIT)^ABSPOSR1 ($$CLAIM,$$LASTUP59,$$UNCLAIM)^ABSPOSRX $$TADDSECS^ABSPOSUD ($$IMPOSS,IMPOSS)^ABSPOSUE

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Pharmacy Point of Sale	2	ABSPOSR1 ABSPOSR4

Entry Points

External References

Name	Field # of Occurrence
ZWRITE^ABSPOS	NEXT+4
LOG^ABSPOSL	LOG
$$GETFIELD^ABSPOSR1	GETFIELD
DEFAULTS^ABSPOSR1	WORKLIST+5
SETFIELD^ABSPOSR1	MONITOR+11, POLL+5
STOPIT^ABSPOSR1	MONITOR+9
$$CLAIM^ABSPOSRX	PROC1+8
$$LASTUP59^ABSPOSRX	LASTUP
$$UNCLAIM^ABSPOSRX	PROC1+18
$$TADDSECS^ABSPOSUD	POLL+8
$$IMPOSS^ABSPOSUE	PROC1+7, PROC1+17
IMPOSS^ABSPOSUE	PROC1+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Probing for time range ",TIME," through ",ENDTIME,"...",! Line Location: SEELIST+2
Function Call: WRITE	Prompt: Q,! Line Location: SEELIST+5
Function Call: WRITE	Prompt: "...and more... ZW TMP to see them all",! Line Location: SEELIST+6
Function Call: WRITE	Prompt: "Total = ",I," entr",$S(I=1:"y",1:"ies") Line Location: SEELIST+7
Function Call: WRITE	Prompt: ! Line Location: NEXT+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.99 - [#9002313.99]	NEXT+1
^ABSPECP(	KMYLIST!
^PSRX - [#52]	T2+5, T2+7, WORKLIST+11, WORKLIST+12, WORKLIST+14
^PSRX("AL"	T2+9

Label References

Name	Line Occurrences
$$GETFIELD	HANG, STOP, POLL+3, POLL+8, WORKLIST+5, WORKLIST+6
$$MYLIST	POLL+10, POLL+11
$$STOP	MONITOR+2
$$T2	NEXT+2
$$TURNEDON	PROC1+7, PROC1+17
HANG	MONITOR+3
LOG	POLL+1, PROC1+10, PROC1+11, PROC1+14, PROC1+19, PROC1+21
POLL	MONITOR+7
PROC1	PROCESS+7
PROCESS	POLL+11
SEELIST	NEXT+3
WORK1	WORKLIST+13
WORKLIST	POLL+10, SEELIST+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	T2+4, T2+5, T2+7
>> B	T2+6, T2+7
CANCEL	WORKLIST+6~*, WORKLIST+7, WORK1+2
CLAIM	WORKLIST+6~*, WORKLIST+7, WORK1+2
DOLLARH	MONITOR+1~
DOLLARH(1	MONITOR+4*, MONITOR+6
DOLLARH(2	MONITOR+1, MONITOR+4, MONITOR+5, MONITOR+6
ENDTIME	POLL+9~, POLL+10, SEELIST~, SEELIST+1, SEELIST+2, SEELIST+3, WORKLIST~, WORKLIST+9
I	SEELIST+4~*, SEELIST+5, SEELIST+6, SEELIST+7
INDEX	T2~, T2+5, T2+7, WORKLIST+7~*, WORKLIST+11, WORKLIST+12, WORKLIST+14, WORK1+2
KILL	PROC1+3~, PROC1+15, PROC1+23, PROC1+25
LASTTIME	POLL+3~, POLL+8, POLL+9
LISTROOT	WORKLIST~, WORK1+2
>> MOREDATA	PROC1+8
>> MOREDATA("DO	NOT RESUBMIT" , PROC1+6*
>> MOREDATA("ORIGIN"	PROC1+5*
MSG	PROC1+3~*
N	NEXT~, NEXT+2, T2~, T2+3, T2+5, T2+8*, T2+9
Q	SEELIST+4~*, SEELIST+5
>> RESTART	MONITOR+10*
RXI	WORKLIST+10~, WORKLIST+11, WORKLIST+12, WORK1+2, PROCESS+2~, PROCESS+5, PROCESS+6, PROC1+3, PROC1+8, PROC1+11 , PROC1+14, PROC1+18, PROC1+21, PROC1+26, LASTUP~
RXR	WORKLIST+10~, WORKLIST+12, WORK1+2, PROCESS+2~, PROCESS+6, PROC1+3, PROC1+8, PROC1+11, PROC1+14, PROC1+18 , PROC1+21, PROC1+26, LASTUP~
T	T2+2~, T2+3, T2+5, T2+7, T2+9, T2+10, WORKLIST+8~, WORKLIST+9, WORKLIST+11, WORKLIST+12 , WORKLIST+14, WORK1+2
T1	SEELIST+1, NEXT+1*, NEXT+2, NEXT+3, T2~, T2+2
>> T2	SEELIST+1, NEXT+2, NEXT+3, T2+10, T2+11
TIME	POLL+9~, POLL+10, SEELIST~, SEELIST+1, SEELIST+2, SEELIST+3, WORKLIST~, WORKLIST+8, PROCESS+2~, PROCESS+3* , PROCESS+5, PROCESS+6, PROC1+26
TMP	SEELIST+3!
TYPE	PROCESS+2~, PROCESS+4*, PROCESS+5, PROCESS+6, PROC1+4, PROC1+16, PROC1+24, PROC1+26
U	NEXT+1
WORKLIST	PROCESS~, PROCESS+3, PROCESS+5, PROCESS+6, PROC1+26
X	GETFIELD~, HANG~, HANG+1, LOG~, PROC1+3~, PROC1+7, PROC1+8, PROC1+9, PROC1+11, PROC1+12* , PROC1+17, PROC1+18, PROC1+22

Marked Items

Name	Field # of Occurrence
$T(	MYLIST, KMYLIST, PROC1+7, PROC1+17, PROC1+24

Name	Comments	DBIA/ICR reference
WORKLIST(TIME,ENDTIME,LISTROOT)	; EP - from ABSPOSR4 ; callable from outside: ; given TIME = starting time to examine ; given ENDTIME="" to go through end, else ending date.time ; Be careful to process them in order!
GETFIELD(X)
MONITOR	;EP -
PROC1	; given WORKLIST,TIME,TYPE,RXI,RXR ; MSG for logging: set to null if you don't want a message ; (we'll probably change a lot of these to "" as we gain confidence)
MYLIST()
HANG
LOG(X)
LASTUP(RXI,RXR)
NEXT(N)	; advances T1,T2 ; come in with T1,T2 already set
KMYLIST
TURNEDON()
WORK1	; we have LISTROOT,CLAIM,CANCEL,INDEX,T,RXI,RXR ; put it on the work list
T2(INDEX,T1,N)	; sets T2 to include N transactions from given T1 ; may be more than N if there are several at the exact same time
POLL	; here's where we poll and see what's new
SEELIST(TIME,ENDTIME)
PROCESS(WORKLIST)
STOP()

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSR3

Call Graph Total: 6

Caller Graph Total: 2