Routine: BARNCPDP

Package	Total	Call Graph
IHS Accounts Receivable	7	(BATCH,FAC,ITEM)^BARFPST ($$GETBIL,FINDBIL)^BARFPST3 EBAL^BARPST ($$NEW,MSG)^BARTR (EOP,INIT)^BARUTL $$EN^BARVDF ^BARVKL0
VA Fileman	4	^DIC ^DIE GETS^DIQ ^DIR
Kernel	1	SIG^XUSESIG

Package

Total

Call Graph

(BATCH,FAC,ITEM)^BARFPST ($$GETBIL,FINDBIL)^BARFPST3 EBAL^BARPST ($$NEW,MSG)^BARTR (EOP,INIT)^BARUTL $$EN^BARVDF ^BARVKL0

VA Fileman

^DIC ^DIE GETS^DIQ ^DIR

Kernel

SIG^XUSESIG

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR PST NCPDP

Package

Total

Caller Graph

IHS Accounts Receivable

BAR PST NCPDP

Entry Points

Name	Comments	DBIA/ICR reference
SELBILL	; EP ; Ask user for bill
EN	; EP
POSTCD	;
REVIEW	; ; Display stuff to post...
BATCHITM	; ; Ask Collection Batch and Item (not required)
XIT	;
MSG	; ; If no batch/item, give user chance to select.
FAC	; ; I multiple EOB site parameter, do...
BILLS	; ; Loop bills, select remark codes and post
SELNCPDP	; ; Select NCPDP Reject/Payment codes

External References

Name	Field # of Occurrence
BATCH^BARFPST	BATCHITM+2
FAC^BARFPST	FAC+2
ITEM^BARFPST	BATCHITM+3
$$GETBIL^BARFPST3	SELBILL+5
FINDBIL^BARFPST3	SELBILL+9
EBAL^BARPST	FAC+6
$$NEW^BARTR	POSTCD+26
MSG^BARTR	POSTCD+27
EOP^BARUTL	BILLS+14, BILLS+17
INIT^BARUTL	EN+6
$$EN^BARVDF	SELBILL+3, REVIEW+6, XIT+1
^BARVKL0	EN+1, XIT+2
^DIC	SELNCPDP+10
^DIE	POSTCD+31
GETS^DIQ	REVIEW+3
^DIR	MSG+6, REVIEW+26
SIG^XUSESIG	EN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NCPDP Reject/Payment Codes not posted!" Line Location: BILLS+12
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: SELBILL+3
Function Call: WRITE	Prompt: ! Line Location: SELBILL+4
Function Call: WRITE	Prompt: ! Line Location: SELNCPDP+2
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: REVIEW+6
Function Call: WRITE	Prompt: !?1,"BILL #: ",$E(BARDATA(.01,"E"),1,25) Line Location: REVIEW+7
Function Call: WRITE	Prompt: ?36,"DATE BILLED:",?50,BARDATA(18,"E") Line Location: REVIEW+8
Function Call: WRITE	Prompt: !,"PATIENT: ",$E(BARDATA(101,"E"),1,25) Line Location: REVIEW+9
Function Call: WRITE	Prompt: ?36,"AGE OF BILL:",?50,$J(BARDATA(7.2,"E"),5)," DAYS" Line Location: REVIEW+10
Function Call: WRITE	Prompt: !?2,"CHART: ",$P($G(^AUPNPAT(BARDATA(101,"I"),41,BAREOB,0)),U,2) Line Location: REVIEW+11
Function Call: WRITE	Prompt: ?36,"BILL STATUS:",?50,BARDATA(17.2,"E") Line Location: REVIEW+12
Function Call: WRITE	Prompt: !!?4,"DOS: ",BARDATA(102,"E") Line Location: REVIEW+13
Function Call: WRITE	Prompt: ?39,"A/R ACCT:",?50,$E(BARDATA(3,"E"),1,30) Line Location: REVIEW+14
Function Call: WRITE	Prompt: !?5,"TO: ",BARDATA(103,"E") Line Location: REVIEW+15
Function Call: WRITE	Prompt: !,BARSTAR Line Location: REVIEW+16
Function Call: WRITE	Prompt: !,$P(BARMK(I),U) Line Location: REVIEW+19
Function Call: WRITE	Prompt: !,$P(BARMK(I),U,2),! Line Location: REVIEW+20
Function Call: WRITE	Prompt: BARSTAR Line Location: REVIEW+21
Function Call: WRITE	Prompt: ! Line Location: POSTCD+22
Function Call: WRITE	Prompt: !,"Posting NCPDP Reject/Payment Code ",$P(BARMK(BARMKCD),U) Line Location: POSTCD+25
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: XIT+1
Routine Call	DIE Line Location: POSTCD+31
Routine Call	DIC Line Location: SELNCPDP+10
Routine Call	DIR Line Location: MSG+6 REVIEW+26

FileNo	Call Tags
^ABSPF(9002313.93 - [#9002313.93]	Classic Fileman Calls
^BARBL(2906 - [#90050.01]	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	REVIEW+11
^BAR(90052.06	EN+10

Name	Line Occurrences
BATCHITM	EN+7, MSG+15
BILLS	EN+12
FAC	EN+10
MSG	EN+8
POSTCD	BILLS+15
REVIEW	BILLS+10
SELBILL	BILLS+2
SELNCPDP	BILLS+8
XIT	EN+9, EN+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BARANS	BILLS+11, REVIEW+27*
>> BARBDONE	EN+11, EN+12, BILLS+5, SELBILL+6
>> BARBL	BILLS+4, SELBILL+11*, REVIEW+3, REVIEW+4, POSTCD+27
BARCOL	EN+5*, EN+8, EN+10, BATCHITM+3, MSG+14!, MSG+16, POSTCD+15
>> BARDAT(	REVIEW+4
>> BARDATA	REVIEW+4*
>> BARDATA(	REVIEW+7, REVIEW+10, REVIEW+12
>> BARDATA(101	REVIEW+9, REVIEW+11
>> BARDATA(102	REVIEW+13, REVIEW+15
>> BARDATA(103	REVIEW+15
>> BARDATA(108	REVIEW+5
>> BARDATA(18	REVIEW+8
>> BARDATA(3	REVIEW+14
>> BARDONE	EN+5, EN+9, MSG+13, MSG+16*
BARDR	POSTCD+1!, POSTCD+3, POSTCD+4, POSTCD+5, POSTCD+6, POSTCD+7, POSTCD+9, POSTCD+10, POSTCD+11, POSTCD+12* , POSTCD+13, POSTCD+14, POSTCD+16, POSTCD+17, POSTCD+30
>> BAREOB	FAC+4, FAC+6, REVIEW+5, REVIEW+11
>> BAREOB(0	FAC+5*
>> BARESIG	EN+2, EN+4
BARFPASS	SELBILL+2!, SELBILL+5*, SELBILL+6, SELBILL+7, SELBILL+9, SELBILL+10, SELBILL+11
BARITM	EN+5*, EN+8, EN+10, MSG+14!, MSG+16, POSTCD+15
BARMK	BILLS+7!, BILLS+9, SELNCPDP+7
BARMK(	SELNCPDP+11*, REVIEW+18, REVIEW+19, REVIEW+20, POSTCD+23, POSTCD+25
>> BARMKCD	POSTCD+21, POSTCD+23, POSTCD+25
>> BARPASS	SELBILL+7*
>> BARRDONE	BILLS+6, BILLS+8, SELNCPDP+12
>> BARSTAR	REVIEW+2*, REVIEW+16, REVIEW+21
>> BARTRIEN	POSTCD+26*, POSTCD+27, POSTCD+29
>> BARUSR	EN+6
BARZ	SELBILL+2!
D0	SELBILL+2!, SELNCPDP+9!
DA	SELNCPDP+3!, POSTCD+24!, POSTCD+29*, POSTCD+32!
DD	SELBILL+2!, SELNCPDP+9!
DIC	SELBILL+2!, SELNCPDP+3!, SELNCPDP+4*
DIC("A"	SELNCPDP+6, SELNCPDP+7
DIC("W"	SELNCPDP+8*
DIC(0	SELNCPDP+5*
DIDEL	POSTCD+20*, POSTCD+32!
DIE	POSTCD+19*, POSTCD+32!
DIR	MSG+2!, MSG+9!, BILLS+13!, BILLS+16!, REVIEW+22!, POSTCD+32!
DIR("A"	MSG+3, MSG+10, REVIEW+24*
DIR("B"	MSG+4, MSG+11, REVIEW+25*
DIR(0	MSG+5, MSG+12, REVIEW+23*
DR	SELNCPDP+3!, POSTCD+24!, POSTCD+30*, POSTCD+32!
DUZ(2	EN+10
>> I	REVIEW+17, REVIEW+18, REVIEW+19, REVIEW+20
U	EN+10, SELBILL+7, SELBILL+9, SELBILL+10, SELBILL+11, REVIEW+11, REVIEW+19, REVIEW+20, POSTCD+25
X	SELBILL+2!, SELNCPDP+3!
>> X1	EN+3
Y	MSG+7, MSG+13, FAC+3, FAC+4, SELBILL+2!, SELNCPDP+3!, SELNCPDP+11, REVIEW+27
Y(0	FAC+5, SELNCPDP+11

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARNCPDP

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: