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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPOSR3

Package: Pharmacy Point of Sale

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

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()

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All