Routine: ABSPOSBM

Package	Total	Call Graph
Pharmacy Point of Sale	9	$$ANFF^ABSPECFM ($$INSIEN,$$RXI,$$RXR,$$VISITIEN)^ABSPOS57 $$FORMTNDC^ABSPOS9 (CLINIC,PROVIDER,V681)^ABSPOSB3 (PAYABLE,REJECTS)^ABSPOSBF $$VCPT^ABSPOSBV (LOG,LOGARRAY)^ABSPOSL LOG^ABSPOSL2 ($$IMPOSS,IMPOSS)^ABSPOSUE
Uncategorized	4	^ABSBCOMB ^ABSBMAKE OFFNCPDP^ABSBPBRX EN^VTLCOMB
VA Fileman	2	(,UPDATE)^DIE $$GET1^DIQ
Kernel	1	(CLOSE,OPEN)^%ZISH

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSBX

Entry Points

Name	Comments	DBIA/ICR reference
DTB8
LINEITEM
CHGLIST()	; EP - from ABSPOSBX ; Post all the charges in CHGLIST(IEN57)="" ; returns PCNDFN
FIRSTN	; S N=first 9002313.57 for the first VCPT for this VCN ; used by ARTYPNUM and PINS
ARTYPNUM	; determine the AR TYPE number for the current VCN
UPDATE02	;
ART2
DTBILLED	; Update the DATE BILLED multiple
COMBINS	; have to update the combined insurance file? Yes. ; because DO ^ABSBMAKE refers back to combined insurance. ; (This is new. Sitka didn't need it because back then, ; ILC and Point of Sale used the same ^ABSBCOMB.)
COMMENTS	; remark about how much will be paid and give reasons for rejects
NULLOPEN()	; open null file, because ^ABSBMAKE echoes to screen
UPDATE57
FMTIDS()	; format IDLIST(claim ID's) into a concise string ; LEN agrees with ^DD(9002302.04,1) maximum length
PINS	; set PINS = the right PINS node for this VCN
MARKVCPT
AM6
NULLCLOS
NULLHNDL()
ABSBMAKE()	; ; We have ^BLL, ^TMP as above; also VCN,VSTDFN and lots of other stuff ; Return PCNDFN

External References

Name	Field # of Occurrence
CLOSE^%ZISH	NULLCLOS
OPEN^%ZISH	NULLOPEN+11
^ABSBCOMB	COMBINS+10
^ABSBMAKE	AM6+2
OFFNCPDP^ABSBPBRX	AM6+38
$$ANFF^ABSPECFM	LINEITEM+9, LINEITEM+10
$$INSIEN^ABSPOS57	DTBILLED+13
$$RXI^ABSPOS57	CHGLIST+13
$$RXR^ABSPOS57	CHGLIST+13
$$VISITIEN^ABSPOS57	CHGLIST+5
$$FORMTNDC^ABSPOS9	LINEITEM+10
CLINIC^ABSPOSB3	CHGLIST+32
PROVIDER^ABSPOSB3	CHGLIST+27
V681^ABSPOSB3	CHGLIST+20
PAYABLE^ABSPOSBF	COMMENTS+6
REJECTS^ABSPOSBF	COMMENTS+7
$$VCPT^ABSPOSBV	CHGLIST+11
LOG^ABSPOSL	CHGLIST+14, CHGLIST+39, DTB8+3, ABSBMAKE+21, ABSBMAKE+22, AM6+14, AM6+15, AM6+18, AM6+28, LINEITEM+13
LOGARRAY^ABSPOSL	DTB8+4, DTB8+5, AM6+17, AM6+20
LOG^ABSPOSL2	DTB8+1
$$IMPOSS^ABSPOSUE	DTB8+2, AM6, ART2+7
IMPOSS^ABSPOSUE	CHGLIST+6, CHGLIST+8, CHGLIST+40, FIRSTN+4
^DIE	MARKVCPT+3, UPDATE57+2, UPDATE02+5
UPDATE^DIE	DTB8
$$GET1^DIQ	COMMENTS+3, AM6+37, NULLOPEN+1
EN^VTLCOMB	COMBINS+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSBCOMB	COMBINS+5
^ABSBITMS(9002302	AM6+6, AM6+7
^ABSBTYP(	ART2+6
^ABSP(9002313.56 - [#9002313.56]	ART2+3
^ABSP(9002313.99 - [#9002313.99]	CHGLIST+19, CHGLIST+26, CHGLIST+31, ART2+4
^ABSPC - [#9002313.02]	DTBILLED+8
^ABSPTL - [#9002313.57]	DTBILLED+7, DTBILLED+9, AM6+23, LINEITEM+3, LINEITEM+6, UPDATE02+2, ART2+2, PINS+2
^ABSVCPT(9002301	LINEITEM+5
^AUPNVSIT - [#9000010]	CHGLIST+7, ABSBMAKE+4, ABSBMAKE+6, ABSBMAKE+14, ABSBMAKE+15, AM6+9, AM6+10!, AM6+11, AM6+12!, COMBINS+4
^AUPNVSIT("VCN"	ABSBMAKE+20, ABSBMAKE+23*, AM6+5!
^BLL($J	CHGLIST+2!, CHGLIST+12*, AM6+16, AM6+29, FIRSTN+2
^DPT - [#2]	AM6+24
^PSDRUG - [#50]	LINEITEM+4
^PSRX - [#52]	LINEITEM+2
^TMP($J	CHGLIST+2!, CHGLIST+13, ABSBMAKE+4, ABSBMAKE+5!, ABSBMAKE+6*, ABSBMAKE+7!, AM6+9!, AM6+11, AM6+19, AM6+31 , FIRSTN+5

Label References

Name	Line Occurrences
$$ABSBMAKE	CHGLIST+37
$$FMTIDS	DTBILLED+10
$$NULLHNDL	NULLOPEN+11, NULLCLOS
$$NULLOPEN	AM6
AM6	AM6
ART2	ART2+7
ARTYPNUM	ABSBMAKE+3
COMBINS	AM6+1
COMMENTS	CHGLIST+43
DTB8	DTB8+2
DTBILLED	CHGLIST+42, DTB8+2
FIRSTN	AM6+22, ART2+1, PINS+1
LINEITEM	AM6+33
MARKVCPT	AM6+34
NULLCLOS	AM6+3
PINS	ABSBMAKE+8
UPDATE02	AM6+36
UPDATE57	AM6+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMT	DTBILLED+4~, DTBILLED+9*, DTBILLED+12
ARRPAID	COMMENTS+1~, COMMENTS+6
ARRPAID(	COMMENTS+4*
ARRREJ	COMMENTS+1~, COMMENTS+7
ARRREJ(	COMMENTS+5*
ARTYPNUM	ABSBMAKE+3~, ABSBMAKE+15, ART2+3, ART2+4, ART2+5, ART2+6
BAL	ABSBMAKE+16~, AM6+7*, AM6+26
BLLTYP	ABSBMAKE+18~*
CHARGE	LINEITEM+1~, LINEITEM+5*, LINEITEM+11
>> CHGLIST(	CHGLIST+9, COMMENTS+2, DTBILLED+5
>> CHGLIST(0	CHGLIST+4, DTBILLED+1
D1	COMBINS+8~
DA	MARKVCPT+1~, MARKVCPT+2, UPDATE57+1~, UPDATE57+2, UPDATE02+1~, UPDATE02+2*, UPDATE02+3
DIDEL	MARKVCPT+1~, UPDATE57+1~, UPDATE02+1~
DIE	MARKVCPT+1~, MARKVCPT+2, UPDATE57+1~, UPDATE57+2, UPDATE02+1~, UPDATE02+2*
DIR	NULLOPEN+2~, NULLOPEN+6, NULLOPEN+9, NULLOPEN+10*, NULLOPEN+11
DR	MARKVCPT+1~, MARKVCPT+2, UPDATE57+1~, UPDATE57+2, UPDATE02+1~, UPDATE02+4*
DRGDFN	LINEITEM+1~, LINEITEM+2*, LINEITEM+4
DRGNAME	LINEITEM+1~, LINEITEM+4*, LINEITEM+9
DT	DTBILLED+3
DTOUT	MARKVCPT+1~, UPDATE57+1~, UPDATE02+1~
ELGBEG	COMBINS+8~
ELGEND	COMBINS+8~
FDA	DTBILLED+1~
FDA(	DTBILLED+3, DTBILLED+10, DTBILLED+11, DTBILLED+12, DTBILLED+13
FILE	NULLOPEN+2~, NULLOPEN+7, NULLOPEN+9, NULLOPEN+10*, NULLOPEN+11
FIRST	FMTIDS+2~, FMTIDS+4, FMTIDS+5
FIXINDEX	ABSBMAKE+19~, ABSBMAKE+24, AM6+4
FN	DTBILLED+2~*, DTBILLED+3, DTBILLED+10, DTBILLED+11, DTBILLED+12, DTBILLED+13
GRPDFN	COMBINS+8~
GRPNAM	COMBINS+8~
GRPNUM	COMBINS+8~
I	ABSBMAKE+11~*, ABSBMAKE+12, ABSBMAKE+13
IDLIST	DTBILLED+4~
IDLIST(	DTBILLED+8*, FMTIDS+3
IDLIST(""	FMTIDS+2
IEN57	CHGLIST+4~, CHGLIST+6, CHGLIST+9, CHGLIST+13, COMMENTS+2, COMMENTS+3, COMMENTS+4, COMMENTS+5, DTBILLED+1~, DTBILLED+4~* , DTBILLED+5*, DTBILLED+7, DTBILLED+9
IENS	DTBILLED+2~*, DTBILLED+3, DTBILLED+10, DTBILLED+11, DTBILLED+12, DTBILLED+13
INSDFN	COMBINS+8~
INSNAM	COMBINS+8~
LEN	FMTIDS+2~*, FMTIDS+6, FMTIDS+7
MSG	DTBILLED+1~, DTB8+1, DTB8+2
N	AM6+22~, AM6+23, AM6+30~, AM6+31, AM6+32, ART2+2, PINS+2, FIRSTN+5, NULLOPEN+5~*, NULLOPEN+6 , NULLOPEN+7
N57	AM6+32~*, AM6+37, LINEITEM+3, LINEITEM+6, MARKVCPT+2, UPDATE57+2, UPDATE02+2
NDC	LINEITEM+1~, LINEITEM+3*, LINEITEM+10
OK	ARTYPNUM+1~, ART2, ART2+5, ART2+6*, ART2+7
PAT	AM6+21~, AM6+23, AM6+24, AM6+25
PATDFN	COMBINS+4~*, COMBINS+6, COMBINS+10
PCN	ABSBMAKE+16~, AM6+6*, AM6+25, UPDATE02+4
PCNDFN	CHGLIST+36~, CHGLIST+37*, CHGLIST+38, CHGLIST+44, COMMENTS+6, COMMENTS+7, DTBILLED+2, ABSBMAKE+16~, AM6+6, AM6+7 , AM6+13, AM6+38, AM6+39, UPDATE57+2, UPDATE02+4
PHARM	ARTYPNUM+1~, ART2+2*, ART2+3
PINS	ABSBMAKE+8~, ABSBMAKE+11, ABSBMAKE+12, ABSBMAKE+13, ABSBMAKE+14, PINS+2
POLDFN	COMBINS+9~
POLNAM	COMBINS+9~
POLNUM	COMBINS+9~
POLREC	COMBINS+9~
>> POP	NULLOPEN+12
QTY	LINEITEM+1~, LINEITEM+6, LINEITEM+7, LINEITEM+8*, LINEITEM+9
R	COMMENTS+3~*, COMMENTS+4, COMMENTS+5
REC	COMBINS+9~
REL	COMBINS+9~
RET	FMTIDS+2~, FMTIDS+4, FMTIDS+5, FMTIDS+6, FMTIDS+7*, FMTIDS+8
RXI	AM6+30~, AM6+31*, LINEITEM+2, MARKVCPT+2
RXR	AM6+30~, AM6+31*, MARKVCPT+2
SLASH	NULLOPEN+2~, NULLOPEN+3*, NULLOPEN+4, NULLOPEN+5, NULLOPEN+6, NULLOPEN+7
SLASHCH	NULLOPEN+2~
TMP	AM6+16~, AM6+19!
U	CHGLIST+7, CHGLIST+13, CHGLIST+19, CHGLIST+26, CHGLIST+31, DTBILLED+7, DTBILLED+8, DTBILLED+9, ABSBMAKE+11, ABSBMAKE+12 , ABSBMAKE+13, ABSBMAKE+15, AM6+6, AM6+7, AM6+23, AM6+24, AM6+31, COMBINS+4, LINEITEM+2, LINEITEM+3 , LINEITEM+4, LINEITEM+5, LINEITEM+6, UPDATE02+2, ART2+2, ART2+3, ART2+4, FIRSTN+5
VCN	CHGLIST+3~, CHGLIST+7*, CHGLIST+8, CHGLIST+12, CHGLIST+14, ABSBMAKE+20, ABSBMAKE+21, ABSBMAKE+23, AM6+5, AM6+14 , AM6+25, AM6+29, UPDATE02+4, FIRSTN+2
VCPT	CHGLIST+10~, CHGLIST+11, CHGLIST+12, CHGLIST+13, AM6+29~, AM6+31, LINEITEM+5, LINEITEM+12, MARKVCPT+2, FIRSTN+2~* , FIRSTN+3, FIRSTN+5
VSTDFN	CHGLIST+3~, CHGLIST+5*, CHGLIST+6, CHGLIST+7, CHGLIST+8, CHGLIST+14, ABSBMAKE+4, ABSBMAKE+6, ABSBMAKE+14, ABSBMAKE+15 , ABSBMAKE+21, ABSBMAKE+23, AM6+5, AM6+9, AM6+10, AM6+11, AM6+12, AM6+14, COMBINS+4
X	DTBILLED+7~, DTBILLED+8, FMTIDS+2~, FMTIDS+3, FMTIDS+4, FMTIDS+5, ABSBMAKE+12~, ABSBMAKE+13, AM6+25~, AM6+26* , AM6+27, AM6+28, COMBINS+9~, LINEITEM+1~, LINEITEM+9, LINEITEM+10, LINEITEM+11, LINEITEM+12, LINEITEM+13, NULLOPEN+1 , NULLOPEN+3, NULLOPEN+5, NULLOPEN+6, NULLOPEN+7, NULLOPEN+9, NULLOPEN+10

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSBM

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	CHGLIST+6, CHGLIST+8, CHGLIST+14, CHGLIST+39, CHGLIST+40, DTB8+2, AM6, ART2+7, FIRSTN+4, NULLOPEN+9
$T(DTBILLED	DTB8+2