Routine: BARFPST4

Information

BARFPST4 ; IHS/SD/LSL - A/R FLAT RATE POSTING #3 ;

Source Information

Source file <BARFPST4.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
IHS Accounts Receivable	2	$$SDT^BARDUTL EXIT^BARFPST
IHS VA Utilities	2	($$VAL,$$VALI,ENP)^XBDIQ1 VIEWR^XBLM
VA Fileman	1	^DIC

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Accounts Receivable	2	BAR VIEW FLAT RATE BILLS BARFPST5

Entry Points

Name	Comments	DBIA/ICR reference
EN	; EP ; EP - View flate rate posting entries
FRPENTRY	;
ADJHDR	; ; Get and print data for Adjustments in header portion of view
DOC	; ; LSL - 01/01/2000 - Created routine ; Contains code for Reviewing bills in A/R FLAT RATE POSTING File ; May be called from FBL View Flat Rate Bills Option or ; by choosing REVIEW from Select Command Prompt in the ; FRP Flat Rate Posting Option.
REVIEW	; EP ; EP - Review entries
FACLINE	; ; Get facility, if bills under facility, write facility
REVIEW2	; ; Print Report code used in XBLM call ; Get batch, item, payment, item amount from FRP file
BILLINE	; ; Get bill data and print data line

External References

Name	Field # of Occurrence
$$SDT^BARDUTL	BILLINE+18
EXIT^BARFPST	EN+3
^DIC	FRPENTRY+7
$$VAL^XBDIQ1	REVIEW2+18, REVIEW2+25, REVIEW2+27, REVIEW2+29, FACLINE+5
$$VALI^XBDIQ1	BILLINE+6
ENP^XBDIQ1	REVIEW2+9, ADJHDR+9, BILLINE+14
VIEWR^XBLM	REVIEW+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FRPENTRY+2
Function Call: WRITE	Prompt: !?7,"Batch Name: ",BARREV(BARIEN,.04) Line Location: REVIEW2+21
Function Call: WRITE	Prompt: ?50,"Starting Balance: ",$J(BARBEG,9,2) Line Location: REVIEW2+22
Function Call: WRITE	Prompt: !?6,"Item Number: ",$$VAL^XBDIQ1(90051.1101,"BARIN1,BARIN2",.01) Line Location: REVIEW2+25
Function Call: WRITE	Prompt: ?52,"Ending Balance: ",$J(BAREND,9,2) Line Location: REVIEW2+26
Function Call: WRITE	Prompt: !?5,"Check Number: ",$$VAL^XBDIQ1(90051.1101,"BARIN1,BARIN2",11) Line Location: REVIEW2+27
Function Call: WRITE	Prompt: ?48,"# of Bills to Post: ",$J(BARC,9) Line Location: REVIEW2+28
Function Call: WRITE	Prompt: !?12,"Payor: ",$$VAL^XBDIQ1(90051.1101,"BARIN1,BARIN2",201) Line Location: REVIEW2+29
Function Call: WRITE	Prompt: !?3,"Payment Amount: ",$J(BARREV(BARIEN,.09),9,2) Line Location: REVIEW2+30
Function Call: WRITE	Prompt: !!,"Bill #",?21,"Patient Name",?41,"Billed Amt",?56,"DOS",?67,"Payor Billed" Line Location: REVIEW2+34
Function Call: WRITE	Prompt: ! Line Location: REVIEW2+35
Function Call: WRITE	Prompt: !,"Adjustment Amount: ",$J(BARREV2(BARIEN,BARA,.03),9,2) Line Location: ADJHDR+10
Function Call: WRITE	Prompt: ?35,"Category: ",BARREV2(BARIEN,BARA,.01) Line Location: ADJHDR+11
Function Call: WRITE	Prompt: ?60,"Type: ",BARREV2(BARIEN,BARA,.02) Line Location: ADJHDR+12
Function Call: WRITE	Prompt: !?10,BARRF,! Line Location: FACLINE+6
Function Call: WRITE	Prompt: !,BARREV3(BARVBL,.01) Line Location: BILLINE+15
Function Call: WRITE	Prompt: ?21,BARREV3(BARVBL,101) Line Location: BILLINE+16
Function Call: WRITE	Prompt: ?43,$J(BARREV3(BARVBL,13),8,2) Line Location: BILLINE+17
Function Call: WRITE	Prompt: ?53,$$SDT^BARDUTL(BARREV3(BARVBL,102,"I")) Line Location: BILLINE+18
Function Call: WRITE	Prompt: ?66,BARREV3(BARVBL,3) Line Location: BILLINE+19
Routine Call	DIC Line Location: FRPENTRY+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARFRP(	REVIEW2+12, REVIEW2+14, REVIEW2+33, REVIEW2+38, FACLINE+6, FACLINE+9

Label References

Name	Line Occurrences
ADJHDR	REVIEW2+33
BILLINE	FACLINE+9
FACLINE	REVIEW2+38
FRPENTRY	EN+2
REVIEW	EN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BARA	REVIEW2+11, REVIEW2+12, REVIEW2+14, REVIEW2+32, REVIEW2+33, REVIEW2+37, REVIEW2+38, ADJHDR+5, ADJHDR+10, ADJHDR+11 , ADJHDR+12, FACLINE+4, FACLINE+6, FACLINE+9, BILLINE+4
>> BARB	REVIEW2+13, REVIEW2+14, FACLINE+7, FACLINE+9, BILLINE+5
>> BARBEG	REVIEW2+18*, REVIEW2+19, REVIEW2+22
>> BARC	REVIEW2+11, REVIEW2+15, REVIEW2+19, REVIEW2+28
>> BAREND	REVIEW2+19*, REVIEW2+26
>> BARFLAG	REVIEW+3*
>> BARIEN	FRPENTRY+9*, REVIEW2+5, REVIEW2+12, REVIEW2+14, REVIEW2+16, REVIEW2+17, REVIEW2+19, REVIEW2+21, REVIEW2+30, REVIEW2+33 , REVIEW2+38, ADJHDR+4, ADJHDR+10, ADJHDR+11, ADJHDR+12, FACLINE+3, FACLINE+6, FACLINE+9, BILLINE+3
>> BARIN1	REVIEW2+16*, REVIEW2+24
>> BARIN2	REVIEW2+17*, REVIEW2+24
>> BARNAME	FRPENTRY+10*
BARREV	REVIEW2+3!
BARREV(	REVIEW2+16, REVIEW2+17, REVIEW2+19, REVIEW2+21, REVIEW2+30
BARREV2	ADJHDR+2!
BARREV2(	ADJHDR+10, ADJHDR+11, ADJHDR+12
BARREV3	BILLINE+2!
BARREV3(	BILLINE+15, BILLINE+16, BILLINE+17, BILLINE+18, BILLINE+19
>> BARRF	FACLINE+5*, FACLINE+6
>> BARVBL	BILLINE+6*, BILLINE+9, BILLINE+15, BILLINE+16, BILLINE+17, BILLINE+18, BILLINE+19
DA	REVIEW2+3!, REVIEW2+5, REVIEW2+9, REVIEW2+23!, REVIEW2+24, ADJHDR+2!, ADJHDR+5, FACLINE+2!, FACLINE+4, BILLINE+2! , BILLINE+5, BILLINE+7!, BILLINE+9, BILLINE+14
DA(1	REVIEW2+24, ADJHDR+4, FACLINE+3, BILLINE+4
DA(2	BILLINE+3*
DIC	FRPENTRY+3!, FRPENTRY+4, REVIEW2+3!, REVIEW2+4, REVIEW2+9, REVIEW2+23!, ADJHDR+2!, ADJHDR+3, ADJHDR+9, FACLINE+2! , BILLINE+2!, BILLINE+7!, BILLINE+8, BILLINE+14
DIC("A"	FRPENTRY+6*
DIC(0	FRPENTRY+5*
DIQ	REVIEW2+3!, REVIEW2+7, REVIEW2+9, REVIEW2+23!, ADJHDR+2!, ADJHDR+7, ADJHDR+9, FACLINE+2!, BILLINE+2!, BILLINE+7! , BILLINE+12*, BILLINE+14
DIQ(0	REVIEW2+8, REVIEW2+9, ADJHDR+8, ADJHDR+9, BILLINE+13*, BILLINE+14
DR	REVIEW2+3!, REVIEW2+6, REVIEW2+9, REVIEW2+23!, ADJHDR+2!, ADJHDR+6, ADJHDR+9, FACLINE+2!, BILLINE+2!, BILLINE+7! , BILLINE+11*, BILLINE+14
DUZ(2	REVIEW2+12, REVIEW2+14, REVIEW2+33, REVIEW2+38, FACLINE+6, FACLINE+9
>> Y	EN+3, FRPENTRY+8, FRPENTRY+9
>> Y(0	FRPENTRY+10

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARFPST4

Call Graph Total: 5

Caller Graph Total: 2