Routine: BARFPST3

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
IHS Accounts Receivable	8	$$SDT^BARDUTL ($$GETBIL,HIT,SELFRBIL)^BARFPST3 STOP^BARFPST5 $$EN^BARPST2 (ASKPAT,GETBIL,SELBILL)^BARPUTL ($$IHS,$$NOTOPEN)^BARUFUT EOP^BARUTL $$EN^BARVDF
VA Fileman	5	^DIC FILE^DICN ^DIK $$GET1^DIQ ^DIR
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1

Package	Total	Caller Graph
IHS Accounts Receivable	12	BARACSI BARBAD3 BARFPST BARFPST3 BARFPST5 BARNCPDP BARPNP3 BARPPY01 BARPRF3 BARPRMKP BARPST3 BARPUC3

Package

Total

Caller Graph

IHS Accounts Receivable

BARACSI BARBAD3 BARFPST BARFPST3 BARFPST5 BARNCPDP BARPNP3 BARPPY01
BARPRF3 BARPRMKP BARPST3 BARPUC3

Entry Points

Name	Comments	DBIA/ICR reference
DISP	; EP ; Display Accumulated posted amount and posting balance from ; A/R FLAT RATE POSTING File before making entries ; BARBIEN = IEN to A/R BILLS mult in VISIT LOCATION mult in FRP File ; J = Bill Counter
SELFRBIL	; EP ; EP - look up into A/R FLAT RATE POSTING File if EDIT
CONT	; Remarks entry: BARPRMKP ; End 1.8*21
SAVEBIL	; ; Save Bill to A/R FLAT RATE POSTING File
FINDBIL	; EP
PAYOR	; ; If payor on bill differs from payor on account, notify user
ASKLIN	; EP ; If entering bills by Patient or DOS, ask user to choose one
GETBIL()	; EP ; EP - Flat Rate Posting - Bill Entry ; If Editing, ask Flat Rate Posting Bill
DELBIL	; ; Ask if user wants to delete bill from A/R FLAT RATE POSTING File
BILEXIST	; ; Check for bill in existing FRP Batch
FRPBILL	; EP ; EP - Continue top-level loop logic
HIT(BARPASS)
NEGBILL	; ; If negative balance on bill
BILLS	; ; Loop through and enter/edit A/R Bills multiple in ; A/R FLAT RATE POSTING File ; BARFPASS = Patient^DOS Start^DOS End^A/R BILL IEN^FRP BILL IEN
CHKLINE(BARHD)
GETBIL2()
SELFRID	; ; Identifier on "Select Flate Rate Post BILL" ; Patient name from A/R bill file

External References

Name	Field # of Occurrence
$$SDT^BARDUTL	HIT+13, HIT+14, HIT+31
$$GETBIL^BARFPST3	BILLS+6
HIT^BARFPST3	FINDBIL+9
SELFRBIL^BARFPST3	CONT+2
STOP^BARFPST5	NEGBILL+7
$$EN^BARPST2	FINDBIL+2
ASKPAT^BARPUTL	CONT+7
GETBIL^BARPUTL	CONT+9
SELBILL^BARPUTL	CONT+3
$$IHS^BARUFUT	BILLS+22, BILLS+30
$$NOTOPEN^BARUFUT	GETBIL+4
EOP^BARUTL	CHKLINE+6
$$EN^BARVDF	HIT+6
^DIC	SELFRBIL+10
FILE^DICN	SAVEBIL+10
^DIK	DELBIL+15
$$GET1^DIQ	PAYOR+8, PAYOR+10
^DIR	ASKLIN+7, DELBIL+6, PAYOR+14, BILEXIST+14
$$VAL^XBDIQ1	BILLS+17, SELFRID+4, BILEXIST+8, NEGBILL+3
$$VALI^XBDIQ1	FRPBILL+3, SELFRID+3, PAYOR+4, BILEXIST+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Amount To Post: ",BARAPST,?30,"Remaining Balance: ",BARBAL Line Location: DISP+9
Function Call: WRITE	Prompt: !,$$VAL^XBDIQ1(90050.01,BARBLHLD,.01) Line Location: BILLS+17
Function Call: WRITE	Prompt: " has already been entered." Line Location: BILLS+18
Function Call: WRITE	Prompt: !,"Amount To Post: ",BARAPST,?30,"Remaining Balance: ",BARBAL Line Location: BILLS+27
Function Call: WRITE	Prompt: !,"Posting this payment will result in a negative balance." Line Location: BILLS+32
Function Call: WRITE	Prompt: ?30,$E(BARID2,1,30) Line Location: SELFRID+5
Function Call: WRITE	Prompt: *7 Line Location: FINDBIL+4
Function Call: WRITE	Prompt: !,"No bills found in this date range!" Line Location: FINDBIL+5
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF"),! Line Location: HIT+6
Function Call: WRITE	Prompt: "Claims for "_BARPTNAM Line Location: HIT+12
Function Call: WRITE	Prompt: " from "_$$SDT^BARDUTL($P(BARPASS,U,2)) Line Location: HIT+13
Function Call: WRITE	Prompt: " to "_$$SDT^BARDUTL($P(BARPASS,U,3)) Line Location: HIT+14
Function Call: WRITE	Prompt: ?(IOM-15),"Page: "_BARPG Line Location: HIT+15
Function Call: WRITE	Prompt: !! Line Location: HIT+16
Function Call: WRITE	Prompt: "Line #",?8,"DOS",?18,"Claim #",?32,"Amount",?44,"Billed To",?70,"Balance" Line Location: HIT+17
Function Call: WRITE	Prompt: !,BARDSH Line Location: HIT+20
Function Call: WRITE	Prompt: !,$J(BARLIN,3) Line Location: HIT+30
Function Call: WRITE	Prompt: ?6,$$SDT^BARDUTL($P(BARREC,U)) Line Location: HIT+31
Function Call: WRITE	Prompt: ?18,BARBLO Line Location: HIT+32
Function Call: WRITE	Prompt: ?25,BARCMSG Line Location: HIT+33
Function Call: WRITE	Prompt: ?32,$J($P(BARREC,U,3),8,2) Line Location: HIT+34
Function Call: WRITE	Prompt: ?44,$E($P(BARREC,U,4),1,23) Line Location: HIT+35
Function Call: WRITE	Prompt: ?70,$J($P(BARREC,U,5),8,2) Line Location: HIT+36
Function Call: WRITE	Prompt: !?(IOM-15),"continued==>" Line Location: CHKLINE+5
Function Call: WRITE	Prompt: ! Line Location: ASKLIN+2
Function Call: WRITE	Prompt: ?20,"Deleted." Line Location: DELBIL+18
Function Call: WRITE	Prompt: !,"Amount To Post: ",BARAPST,?30,"Remaining Balance: ",BARBAL Line Location: DELBIL+19
Routine Call	DIC Line Location: SELFRBIL+10
Routine Call	DIR Line Location: ASKLIN+7 DELBIL+6 PAYOR+14 BILEXIST+14

FileNo	Call Tags
^BARAC(2906 - [#90050.02]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BARBL(	SELFRBIL+12, SELFRBIL+13, SELFRBIL+14
^BARFRP(	DISP+6, BILLS+16, BILEXIST+4, BILEXIST+5
^BARTMP($J	FINDBIL+7, FINDBIL+11, HIT+21, HIT+22, HIT+23
^BARTR(	HIT+11, HIT+25
^DD(90054.0102	SAVEBIL+7
^DPT - [#2]	HIT+9

Name	Line Occurrences
$$CHKLINE	HIT+26
ASKLIN	FINDBIL+10
BILEXIST	BILLS+20
BILLS	FRPBILL+4
CONT	GETBIL+5
DELBIL	BILLS+13
FINDBIL	BILLS+10
NEGBILL	BILLS+22
PAYOR	BILLS+19
SAVEBIL	BILLS+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BARADJT	NEGBILL+4
>> BARAPST	DISP+7, DISP+8, DISP+9, BILLS+25, BILLS+26, BILLS+27, BILLS+33, BILLS+34, DELBIL+16, DELBIL+17 , DELBIL+19
>> BARASK	BILLS+10, FINDBIL+1, FINDBIL+10, ASKLIN+8
>> BARBAL	DISP+8, DISP+9, BILLS+26, BILLS+27, BILLS+30, BILLS+34, DELBIL+17, DELBIL+19
>> BARBALH	NEGBILL+4*, NEGBILL+5, NEGBILL+7
BARBDA	HIT+2~, HIT+3, HIT+21, HIT+22, HIT+23
>> BARBIEN	DISP+5, DISP+6
>> BARBIL	FRPBILL+4, BILLS+5, BILLS+7, BILLS+35*
>> BARBILB	BILLS+22, NEGBILL+2, NEGBILL+6
>> BARBILE	BILLS+20, BILEXIST+3, BILEXIST+15
>> BARBL	CONT+5*, CONT+6
>> BARBLBAL	NEGBILL+3*, NEGBILL+4
>> BARBLHLD	BILLS+14*, BILLS+16, BILLS+17, BILEXIST+4, BILEXIST+5, NEGBILL+3
BARBLO	HIT+2~, HIT+24, HIT+25, HIT+32
>> BARBTO	PAYOR+3, PAYOR+4, PAYOR+5, PAYOR+8
>> BARCMSG	HIT+28, HIT+29, HIT+33
>> BARCNT	BILLS+10, FINDBIL+2*, FINDBIL+3, FINDBIL+6, FINDBIL+7, ASKLIN+6
>> BARDSH	HIT+18, HIT+19, HIT+20
>> BAREND	SELFRBIL+14, SELFRBIL+15, SELFRBIL+16
>> BARFIEN	DISP+6, BILLS+16, SELFRBIL+3, DELBIL+12, SAVEBIL+4
>> BARFLAG	FRPBILL+2*
>> BARFPASS	BILLS+6, BILLS+7, BILLS+8, BILLS+10, BILLS+13, BILLS+14, FINDBIL+7, FINDBIL+11*, DELBIL+13, PAYOR+3 , PAYOR+4, SAVEBIL+8
BARHD	CHKLINE~
>> BARID1	SELFRID+3*, SELFRID+4
>> BARID2	SELFRID+4*, SELFRID+5
>> BARIEN	DISP+6, BILLS+16, SELFRBIL+4, DELBIL+11, SAVEBIL+3
>> BARIEN2	BILEXIST+5*, BILEXIST+6, BILEXIST+8
BARLIN	FINDBIL+11, HIT+2~, HIT+22, HIT+23, HIT+30, ASKLIN+9
BARNAME	BILEXIST+2~, BILEXIST+8*, BILEXIST+11
>> BARPAMT	DISP+8, BILLS+26, BILLS+34, DELBIL+17
BARPASS	BILLS+8*, FINDBIL+2, FINDBIL+9, HIT~, HIT+9, HIT+11, HIT+13, HIT+14
BARPAT	BILLS+4!, SELFRBIL+12*, SELFRBIL+16
>> BARPAY	DISP+7, BILLS+25, BILLS+33, DELBIL+16, NEGBILL+4
>> BARPAYOR	BILLS+19, PAYOR+2, PAYOR+15
>> BARPDBY	FRPBILL+3*, PAYOR+5, PAYOR+10
>> BARPG	HIT+3, HIT+8, HIT+15
BARPTNAM	HIT+7~, HIT+9, HIT+11, HIT+12
BARREC	HIT+2~, HIT+23*, HIT+24, HIT+29, HIT+31, HIT+34, HIT+35, HIT+36
>> BARRECPQ	CONT+2
>> BARSTART	SELFRBIL+13*, SELFRBIL+15, SELFRBIL+16
BARSTAT	BILEXIST+2~, BILEXIST+6, BILEXIST+7, BILEXIST+11
>> BARSTOP	HIT+3, HIT+21, HIT+26, HIT+27
BARZ	BILLS+4!, CONT+2, CONT+4, CONT+6, CONT+8, CONT+10, SELFRBIL+16
>> DA	DELBIL+13*
>> DA(1	SELFRBIL+3, DELBIL+12, SAVEBIL+4*
>> DA(2	SELFRBIL+4, DELBIL+11, SAVEBIL+3*
DD	SAVEBIL+9!
DIC	SELFRBIL+2!, SELFRBIL+5, SAVEBIL+2!, SAVEBIL+5, SAVEBIL+11!
DIC("A"	SELFRBIL+6*
DIC("P"	SAVEBIL+7*
DIC("W"	SELFRBIL+9*
DIC(0	SELFRBIL+7, SAVEBIL+6
DIK	DELBIL+10!, DELBIL+14*
DIR	ASKLIN+3!, DELBIL+2!, DELBIL+7!, PAYOR+6!, BILEXIST+9!
DIR("?"	ASKLIN+6*
DIR("A"	ASKLIN+5, DELBIL+4, PAYOR+7, PAYOR+8, PAYOR+9, PAYOR+10, PAYOR+11, BILEXIST+11, BILEXIST+12*
DIR("B"	DELBIL+5, PAYOR+12, BILEXIST+13*
DIR(0	ASKLIN+4, DELBIL+3, PAYOR+13, BILEXIST+10
DO	SAVEBIL+9!
DUZ	GETBIL+4
DUZ(2	DISP+6, BILLS+16, BILLS+22, BILLS+30, SELFRBIL+12, SELFRBIL+13, SELFRBIL+14, HIT+11, HIT+25, BILEXIST+4 , BILEXIST+5
IOM	HIT+15, HIT+19, CHKLINE+5
IOSL	CHKLINE+4
>> J	DISP+5, DISP+6, DISP+7
U	BILLS+8, BILLS+10, BILLS+13, BILLS+14, CONT+6, SELFRBIL+12, SELFRBIL+13, SELFRBIL+14, SELFRBIL+16, FINDBIL+7 , FINDBIL+11, HIT+9, HIT+13, HIT+14, HIT+24, HIT+29, HIT+31, HIT+34, HIT+35, HIT+36 , DELBIL+13, PAYOR+3, PAYOR+4, SAVEBIL+7, SAVEBIL+8
>> UFMSESID	GETBIL+4
X	CHKLINE+3~, SAVEBIL+8*
>> Y	CONT+5, SELFRBIL+11, SELFRBIL+16, CHKLINE+7, ASKLIN+8, ASKLIN+9, DELBIL+8, PAYOR+5, PAYOR+15, BILEXIST+15
>> Y(0	SELFRBIL+12, SELFRBIL+13, SELFRBIL+14, SELFRBIL+16

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARFPST3

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: