Routine: ABSPOSQA

Package	Total	Call Graph
Pharmacy Point of Sale	11	$$NDCVAL^ABSPFUNC ZWRITE^ABSPOS LOG^ABSPOSL LOG^ABSPOSL2 ($$AMT,$$RXI,$$TYPE)^ABSPOSQ (PACKETER,SETSTAT)^ABSPOSQ1 $$CLAIMINF^ABSPOSQB $$BILLABLE^ABSPOSQQ SETRESU^ABSPOSU INCSTAT^ABSPOSUD $$IMPOSS^ABSPOSUE
VA Fileman	1	FILE^DIE

Package	Total	Caller Graph
Pharmacy Point of Sale	2	ABSPOSQ1 ABSPOSQS

Entry Points

Name	Comments	DBIA/ICR reference
PAPER()	; Return TRUE if this has to be sent as a paper claim. ; Also take care of the ^AUTNINS field .23 flag "P" value
INSNAME(N)
BILLFLAG(INS)
SETSTAT(X)
ELGBEN()	; construct ELG_","_BEN string ; given IEN59
F23A
ONE59	;EP - from ABSPOSQ1 ; Process this one IEN59 (was status 0, now status 10) ; MODULO also comes in from ABSPOSQ1 ; MODULO,COUNT,ERROR were NEW'ed in ABSPOSQ1
FLAG23(INS,VAL)	; change field .23 of ^AUTNINS to appropriate value if needed ; A recent patch issued by (who? 3PBilling?) has a "P" value they want
BUMPINS(IEN59)	;EP - ABSPOSQS ; bump up to the next insurer ; When you call this, be sure you have the logging slot set to ; the current prescription.
ERRJOIN
SETRESU2(RESCODE,RESTEXT)
PAPER1	; prescription
PAPER2	; postage - depends on insurer and amount
PAPER3	;
SETRESU(RESCODE)
BILLABLE()

External References

Name	Field # of Occurrence
$$NDCVAL^ABSPFUNC	ONE59+15
ZWRITE^ABSPOS	F23A+3
LOG^ABSPOSL	ERRJOIN+16, ERRJOIN+31, BUMPINS+21
LOG^ABSPOSL2	F23A+1
$$AMT^ABSPOSQ	PAPER2+4
$$RXI^ABSPOSQ	PAPER2+3
$$TYPE^ABSPOSQ	PAPER+27
PACKETER^ABSPOSQ1	ERRJOIN+46
SETSTAT^ABSPOSQ1	ERRJOIN+40, BUMPINS+16, BUMPINS+19, SETSTAT
$$CLAIMINF^ABSPOSQB	ONE59+37
$$BILLABLE^ABSPOSQQ	ERRJOIN+15
SETRESU^ABSPOSU	SETRESU+2, SETRESU2+2
INCSTAT^ABSPOSUD	ERRJOIN+10, ERRJOIN+14, ERRJOIN+21, ERRJOIN+32
$$IMPOSS^ABSPOSUE	F23A+4
FILE^DIE	F23A

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.99 - [#9002313.99]	ERRJOIN+35, ERRJOIN+39, PAPER+12, PAPER+15, PAPER1+2
^ABSPEI - [#9002313.4]	PAPER+6, PAPER+9, PAPER+16, PAPER2+1, PAPER3+1
^ABSPT - [#9002313.59]	ONE59+6, ONE59+46, ONE59+48, ERRJOIN+25, ERRJOIN+38, ELGBEN+2, BUMPINS+5, BUMPINS+6, BUMPINS+7, BUMPINS+8 , BUMPINS+10, BUMPINS+11, BUMPINS+14, BUMPINS+15!, BILLABLE+6, PAPER+3, PAPER1+1
^AUPNPAT - [#9000001]	ELGBEN+3
^AUTNINS - [#9999999.18]	ERRJOIN+26, ERRJOIN+29, INSNAME+1, BILLFLAG+4, FLAG23+2, PAPER+17
^AUTTBEN - [#9999999.25]	ELGBEN+6
^DD(9000001	ELGBEN+7
^DD(9999999.18	FLAG23+4
^PSRX - [#52]	ONE59+9, ONE59+10, ONE59+16, ONE59+47, BILLABLE+2, BILLABLE+3

Label References

Name	Line Occurrences
$$BILLABLE	ERRJOIN+11
$$BILLFLAG	PAPER+10
$$BUMPINS	ERRJOIN+17
$$ELGBEN	ERRJOIN+20, ERRJOIN+28
$$INSNAME	BUMPINS+13, BUMPINS+20
$$PAPER	ERRJOIN+22
@(	PAPER+27
ERRJOIN	ONE59+9, ONE59+10, ONE59+38
F23A	F23A+4
FLAG23	PAPER+19, PAPER+22
SETRESU2	ERRJOIN+9, ERRJOIN+13, ERRJOIN+20, ERRJOIN+30
SETSTAT	ERRJOIN+1, ERRJOIN+12, ERRJOIN+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABSBNDC	ONE59+7~, ONE59+8, ONE59+15, ONE59+16*
ABSBRXI	ONE59+7~, ONE59+8, ONE59+9, ONE59+10, ONE59+15, ONE59+16, ONE59+47, ERRJOIN+4, ERRJOIN+5, BILLABLE+2 , BILLABLE+3, SETRESU+1~, SETRESU2+1~*
ABSBRXR	ONE59+7~, ONE59+8*, ONE59+10, ONE59+15, ERRJOIN+5, BILLABLE+2
ACTDATE	PAPER+2~, PAPER+7, PAPER+16, PAPER+18, PAPER+24
AMT	PAPER2+4~*, PAPER2+5
BEN	ELGBEN+1~, ELGBEN+5, ELGBEN+6, ELGBEN+9
BILLABLE	ONE59+45~, ERRJOIN+15*, ERRJOIN+16, ERRJOIN+20
BILLFLAG	ONE59+45~, PAPER+10*
BIN	PAPER+2~, PAPER+9, PAPER+10, PAPER+12, PAPER+15
>> COUNT	ERRJOIN+46
CUR	BILLFLAG+1~, BILLFLAG+4, BILLFLAG+5, FLAG23+2~, FLAG23+5, FLAG23+7
DRUGIEN	ONE59+45~, ONE59+47*, ERRJOIN+15
DT	PAPER+18, PAPER+24
ELG	ELGBEN+1~, ELGBEN+5, ELGBEN+8, ELGBEN+9
>> ERROR	ONE59+5, ONE59+9, ONE59+10, ONE59+37, ONE59+38, ERRJOIN, ERRJOIN+3, ERRJOIN+4, ERRJOIN+5, ERRJOIN+6 , ERRJOIN+7, ERRJOIN+9
ERRTEXT	ERRJOIN+2~, ERRJOIN+3, ERRJOIN+4, ERRJOIN+5, ERRJOIN+6, ERRJOIN+7, ERRJOIN+8, ERRJOIN+9
FDA	FLAG23+8~
FDA(	FLAG23+9*
FLAG23	PAPER+2~, PAPER+7, PAPER+17
FORMAT	PAPER+2~, PAPER+7, PAPER+9, PAPER+12, PAPER+15, PAPER+18, PAPER+23
I	ELGBEN+1~, ELGBEN+8*
IEN59	ONE59+6, ONE59+12, ONE59+46, ONE59+48, ERRJOIN+17, ERRJOIN+25, ERRJOIN+38, ELGBEN+2, BUMPINS~, BUMPINS+5 , BUMPINS+6, BUMPINS+7, BUMPINS+8, BUMPINS+10, BUMPINS+11, BUMPINS+14, BUMPINS+15, BILLABLE+6, PAPER+3, PAPER1+1 , SETRESU+1, SETRESU2+1
INS	ERRJOIN+38~*, ERRJOIN+39, BILLFLAG~, BILLFLAG+3, BILLFLAG+4, FLAG23~, FLAG23+2, FLAG23+9
INSIEN	ONE59+45~, ONE59+46, ERRJOIN+15, BUMPINS+4~, BUMPINS+6, BUMPINS+7*, BUMPINS+10, BUMPINS+12, BUMPINS+13, BUMPINS+18 , BUMPINS+22
INSURER	PAPER+2~, PAPER+3*, PAPER+6, PAPER+8, PAPER+9, PAPER+10, PAPER+16, PAPER+17, PAPER+19, PAPER+21 , PAPER+22, PAPER2+1, PAPER3+1
L	PAPER1+1~, PAPER1+2*, PAPER1+4
>> MODULO	ERRJOIN+46
MSG	BUMPINS+4~, BUMPINS+13, BUMPINS+20, BUMPINS+21, FLAG23+8~, F23A+1, F23A+2
N	INSNAME~, INSNAME+1
NDCNUM	ONE59+45~, ONE59+48*, ERRJOIN+15
OLDINS	BUMPINS+4~, BUMPINS+8*, BUMPINS+9, BUMPINS+13, BUMPINS+20
P	PAPER1+1~*, PAPER1+4
PINPIECE	BUMPINS+4~, BUMPINS+5*, BUMPINS+6, BUMPINS+7, BUMPINS+11
RESCODE	SETRESU~, SETRESU+2, SETRESU2~, SETRESU2+2
RESTEXT	SETRESU2~, SETRESU2+2
RESULT	BILLABLE+1~, BILLABLE+2, BILLABLE+3, BILLABLE+4, BILLABLE+5, BILLABLE+7, BILLABLE+8, BILLABLE+9, BILLFLAG+1~, BILLFLAG+2 , BILLFLAG+3, BILLFLAG+5*, BILLFLAG+6
STAT	ERRJOIN+34~, ERRJOIN+39, ERRJOIN+40
U	ONE59+8, ONE59+16, ONE59+46, ONE59+47, ONE59+48, ERRJOIN+16, ERRJOIN+20, ERRJOIN+25, ERRJOIN+26, ERRJOIN+29 , ERRJOIN+35, ERRJOIN+38, ERRJOIN+39, ELGBEN+2, ELGBEN+3, ELGBEN+5, ELGBEN+6, ELGBEN+7, BUMPINS+5, BUMPINS+6 , BUMPINS+7, BUMPINS+8, BUMPINS+10, BUMPINS+11, BUMPINS+14, INSNAME+1, BILLABLE+2, BILLABLE+3, BILLABLE+6, BILLFLAG+4 , FLAG23+2, FLAG23+4, PAPER+3, PAPER+9, PAPER+16, PAPER+17, PAPER1+1, PAPER2+3, PAPER2+5
VAL	FLAG23~, FLAG23+3, FLAG23+4*, FLAG23+5, FLAG23+9
X	ONE59+6~, ONE59+8, ERRJOIN+24~, ERRJOIN+25, ERRJOIN+26, ERRJOIN+28, ERRJOIN+29, ERRJOIN+30, ERRJOIN+31, ELGBEN+1~ , ELGBEN+2, ELGBEN+3, ELGBEN+4, ELGBEN+5, ELGBEN+7, ELGBEN+8, BILLABLE+6~, BILLABLE+7, PAPER2+1~, PAPER2+2 , PAPER2+3, PAPER2+5, PAPER3+1~, PAPER3+2, SETSTAT~
Y	ERRJOIN+24~, ERRJOIN+26, ERRJOIN+27, ELGBEN+1~, ELGBEN+8

Marked Items

Name	Field # of Occurrence
$T(	F23A+4

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSQA

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items