Routine: ABSPOSBX

Information

ABSPOSBX ; IHS/FCS/DRS - Billing - FSI/ILC A/R v1,2;

Source Information

Source file <ABSPOSBX.m>

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
Pharmacy Point of Sale	11	$$NOW^ABSPOS ($$DRGNAME,$$PREVIOUS,LOG59)^ABSPOS57 ($$LOCK,UNLOCK)^ABSPOSBD COMMENT^ABSPOSBF $$CHGLIST^ABSPOSBM $$DELAY2^ABSPOSBW (DONE,INIT,LOG,LOGARRAY)^ABSPOSL LOG^ABSPOSL2 ($$NEWBATCH,ADJUST)^ABSPOSP ($$TADDNOWS,$$TIMEDIFI)^ABSPOSUD $$IMPOSS^ABSPOSUE
VA Fileman	3	^%DTC FILE^DIE $$GET1^DIQ
Kernel	1	^%ZTLOAD

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSBW

Entry Points

External References

Name	Field # of Occurrence
^%DTC	NEEDREL+2
^%ZTLOAD	RESCHED+5
$$NOW^ABSPOS	SETTLED+6
$$DRGNAME^ABSPOS57	REBILLED+10
$$PREVIOUS^ABSPOS57	REBILLED+4
LOG59^ABSPOS57	LOGCLAIM
$$LOCK^ABSPOSBD	EN+14
UNLOCK^ABSPOSBD	F+9
COMMENT^ABSPOSBF	REBILLED+13
$$CHGLIST^ABSPOSBM	EN+44
$$DELAY2^ABSPOSBW	EN+37, SETTLED+7
DONE^ABSPOSL	F+8
INIT^ABSPOSL	EN+15
LOG^ABSPOSL	EN+64, F+3, AB+2, AB+6, LOG
LOGARRAY^ABSPOSL	F+4, F+5
LOG^ABSPOSL2	F+1
$$NEWBATCH^ABSPOSP	AB+1
ADJUST^ABSPOSP	AB+5
$$TADDNOWS^ABSPOSUD	RESCHED+2
$$TIMEDIFI^ABSPOSUD	SETTLED+6
$$IMPOSS^ABSPOSUE	F+2, AB+4
FILE^DIE	F
$$GET1^DIQ	LIST57+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABSPTL - [#9002313.57]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSBITMS(9002302	REBILLED+7, REBILLED+11
^ABSBPMNT(	NEEDREL+1, ADJBATCH+1
^ABSP(9002313.99 - [#9002313.99]	GET235, SET235*
^ABSPTL - [#9002313.57]	LIST57+3, REBILLED+5, REBILLED+6, SETTLED+5
^ABSPTL("AR"	EN+27, EN+29, SETTLED+4
^ABSPTL("B"	LIST57+4, LIST57+5

Label References

Name	Line Occurrences
$$ADJBATCH	ADJUST+1
$$BLASTDT	NEEDREL+2
$$BLIFE	NEEDREL+3
$$ENABLED	EN+19
$$GET235	ADJBATCH, BLASTDT, BLIFE
$$LIST57	EN+30
$$NEEDREL	ADJUST+3
$$SETTLED	EN+36
AB	AB+4
ADJUST	REBILLED+12
F	F+2
LOG	EN+38
REBILLED	EN+50
RESCHED	EN+14, EN+19, EN+37
SET235	AB+3, AB+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%Y	NEEDREL+2~
AMTOLD	ADJUST~, AB+5
B	ADJBATCH~*, ADJBATCH+1
BATCH	ADJUST+1~, ADJUST+3, ADJUST+6, AB, AB+1*, AB+2, AB+3, AB+4, AB+5, AB+6 , NEEDREL, NEEDREL+1
CHGLIST	EN+25~, EN+43
CHGLIST(	EN+59, REBILLED+2
DELTA	RESCHED~, RESCHED+2
DIF	SETTLED+6~*, SETTLED+7
DRUG	REBILLED+10~*, REBILLED+12, REBILLED+13
DT	EN+15, EN+36, AB+7, NEEDREL+2
FDA	EN+58~, F
FDA(	EN+60, EN+61, EN+63*
IEN57	EN+28~, EN+29, EN+30, EN+59, EN+60, EN+61, EN+62, EN+63, EN+64, LIST57+3 , LIST57+4, LIST57+5, REBILLED+2, REBILLED+4, SETTLED+3~, SETTLED+4*, SETTLED+5
>> KEY15	EN+26, EN+27, EN+38, SETTLED+4
MSG	EN+58~, F+1, F+2
NEWPCNE	REBILLED+9~, REBILLED+11*, REBILLED+12
NEWPCNI	REBILLED+9~, REBILLED+11*, REBILLED+13
NXT57	LIST57+5~*, LIST57+6
OLD57	REBILLED+3~, REBILLED+4*, REBILLED+5, REBILLED+6
OLDAMT	REBILLED+3~, REBILLED+6*, REBILLED+12
OLDPCNE	REBILLED+3~, REBILLED+7*, REBILLED+13
OLDPCNI	REBILLED+3~, REBILLED+5*, REBILLED+7, REBILLED+12
PCNDFN	EN+9~, EN+44, EN+57~, EN+60, EN+61, EN+63, REBILLED+11, ADJUST~, AB+5
PIECE	SET235~
REASON	ADJUST~, AB+5
RET	SETTLED+2~, SETTLED+4, SETTLED+7, SETTLED+8
REVLIST	EN+25~
REVLIST(	EN+62
T1	SETTLED+5~*, SETTLED+6
U	LIST57+3, REBILLED+5, REBILLED+6, REBILLED+7, REBILLED+11, NEEDREL+1, ADJBATCH, ADJBATCH+1, BLASTDT, BLIFE , SET235, SETTLED+5
VALUE	SET235~
X	EN+26~, EN+27, EN+29, LIST57+3~, LIST57+4, LIST57+5, LIST57+6, LIST57+7, LIST57+8, NEEDREL+2~ , NEEDREL+3, LOG~, LOGCLAIM~
X1	NEEDREL+2~*
X2	NEEDREL+2~*
ZTDTH	RESCHED+1~, RESCHED+2*
ZTIO	RESCHED+1~, RESCHED+3*
ZTRTN	RESCHED+1~, RESCHED+4*
ZTSAVE	RESCHED+1~
ZTSAVE("KEY15"	RESCHED+3*

Name	Comments	DBIA/ICR reference
ADJBATCH()
REBILLED	; if anything in CHGLIST() was previously posted to A/R, ; write off the old charges and make comments on both old and new bills
RESCHED(DELTA)	;
BLASTDT()
F
LIST57()	; given IEN57 ; return "CHGLIST" or "REVLIST" ; "CHGLIST" - this is a charge which should be posted to a/r ; "REVLIST" - this charge was subsequently reversed; do not post it
BLIFE()
GET235()
LOG(X)
EN	; Taskman routine begins here ; with KEY15=visit/insurer/time sched for ; Does posting for just this one visit and insurer
SETTLED()	; has the flow of new charges for this KEY15 settled? ; yes, if all of them are at least $$DELAY2^ABSPOSBW seconds old
NEEDREL()
ADJUST(PCNDFN,AMTOLD,REASON)	; EP - used by reversals handling in ABSPOSBW
ENABLED()
LOGCLAIM(X)
SET235(PIECE,VALUE)
AB

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSBX

Call Graph Total: 15

Caller Graph Total: 1