Routine: BARPRMKP

Call Graph Total: 12

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

Package

Total

Call Graph

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

VA Fileman

^DIC ^DIE ($$GET1,GETS)^DIQ ^DIR

Kernel

SIG^XUSESIG

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR PST REMARK CODES

Package

Total

Caller Graph

IHS Accounts Receivable

BAR PST REMARK CODES

Entry Points

Name	Comments	DBIA/ICR reference
SELBILL	; EP ; Ask user for bill
EN	; EP
POSTCD	;
SELREM	; ; Select Remark codes
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
REVIEW	; ; Display stuff to post...

External References

Name	Field # of Occurrence
BATCH^BARFPST	BATCHITM+2
FAC^BARFPST	FAC+2
ITEM^BARFPST	BATCHITM+3
$$GETBIL2^BARFPST3	SELBILL+7
FINDBIL^BARFPST3	SELBILL+12
EBAL^BARPST	FAC+6
$$NEW^BARTR	POSTCD+26
MSG^BARTR	POSTCD+27
EOP^BARUTL	BILLS+15, BILLS+18
INIT^BARUTL	EN+6
$$EN^BARVDF	SELBILL+3, REVIEW+6, XIT+1
^BARVKL0	EN+1, XIT+2
^DIC	SELREM+9
^DIE	POSTCD+31
$$GET1^DIQ	POSTCD+25
GETS^DIQ	REVIEW+3
^DIR	MSG+6, REVIEW+27
SIG^XUSESIG	EN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Remark Codes not posted!" Line Location: BILLS+13
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: SELREM+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+20
Function Call: WRITE	Prompt: !,$P(BARMK(I),U,2),! Line Location: REVIEW+21
Function Call: WRITE	Prompt: BARSTAR Line Location: REVIEW+22
Function Call: WRITE	Prompt: ! Line Location: POSTCD+22
Function Call: WRITE	Prompt: !,"Posting Remark Code ",$$GET1^DIQ(90056.23,BARMKCD,.01) 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: SELREM+9
Routine Call	DIR Line Location: MSG+6 REVIEW+27

FileNo	Call Tags
^BARBL(2906 - [#90050.01]	GETS^DIQ
^BARMKCD - [#90056.23]	Classic Fileman Calls, GET1^DIQ

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

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BARANS	BILLS+12, REVIEW+28*
>> BARBDONE	EN+11, EN+12, BILLS+6, SELBILL+9
>> BARBL	BILLS+4, SELBILL+14*, 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+7*, SELBILL+9, SELBILL+10, SELBILL+12, SELBILL+13, SELBILL+14
BARITM	EN+5*, EN+8, EN+10, MSG+14!, MSG+16, POSTCD+15
BARMK	BILLS+8!, BILLS+10, SELREM+7
BARMK(	SELREM+10, REVIEW+18, REVIEW+19, REVIEW+20, REVIEW+21, POSTCD+23
>> BARMKCD	POSTCD+21, POSTCD+23, POSTCD+25
>> BARPASS	SELBILL+10*
>> BARRDONE	BILLS+7, BILLS+9, SELREM+11
>> BARSTAR	REVIEW+2*, REVIEW+16, REVIEW+22
>> BARTRIEN	POSTCD+26*, POSTCD+27, POSTCD+29
>> BARUSR	EN+6
BARZ	SELBILL+2!
D0	SELBILL+2!, SELREM+8!
DA	SELREM+3!, POSTCD+24!, POSTCD+29*, POSTCD+32!
DD	SELBILL+2!, SELREM+8!
DIC	SELBILL+2!, SELREM+3!, SELREM+4*
DIC("A"	SELREM+6, SELREM+7
DIC(0	SELREM+5*
DIDEL	POSTCD+20*, POSTCD+32!
DIE	POSTCD+19*, POSTCD+32!
DIR	MSG+2!, MSG+9!, BILLS+14!, BILLS+17!, REVIEW+23!, POSTCD+32!
DIR("A"	MSG+3, MSG+10, REVIEW+25*
DIR("B"	MSG+4, MSG+11, REVIEW+26*
DIR(0	MSG+5, MSG+12, REVIEW+24*
DR	SELREM+3!, POSTCD+24!, POSTCD+30*, POSTCD+32!
DUZ(2	EN+10
>> I	REVIEW+17, REVIEW+18, REVIEW+19, REVIEW+20, REVIEW+21
U	EN+10, SELBILL+10, SELBILL+12, SELBILL+13, SELBILL+14, REVIEW+11, REVIEW+20, REVIEW+21
X	SELBILL+2!, SELREM+3!
>> X1	EN+3
Y	MSG+7, MSG+13, FAC+3, FAC+4, SELBILL+2!, SELREM+3!, SELREM+10, REVIEW+28
Y(0	FAC+5

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARPRMKP

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: