Routine: BARFPST

Information

BARFPST ; IHS/SD/LSL - FLAT RATE POSTING ; 07/08/2008

Source file <BARFPST.m>

Package	Total	Call Graph
IHS Accounts Receivable	8	(PAYADJ,PAYADJD)^BARFPST1 BARSAV^BARFPST2 (DISP,FRPBILL)^BARFPST3 ACTION^BARFPST5 ($$CKDATE,BBAL,IBAL)^BARPST $$NOTOPEN^BARUFUT INIT^BARUTL ^BARVKL0
IHS VA Utilities	2	$$VAL^XBDIQ1 ^XBSFGBL
VA Fileman	2	^DIC ^DIR
Kernel	1	SIG^XUSESIG

Package	Total	Caller Graph
IHS Accounts Receivable	7	BAR FLAT RATE POSTING BAR50P00 BAREDP00 BARFPST4 BARFPST5 BARNCPDP BARPRMKP

Name	Comments	DBIA/ICR reference
EN	; EP ; EP - Electronic Signature test
NEWFRP	; ; Ask if user wants to create a new Flat Rate Posting entry
DOC	; ; LSL - 12/30/1999 - Created routine ; First Flat Rate Posting Routine ; Contains top level logic loop, Batch, Item, and Facility
SELITEM	; ; return here if user never enters a facility when multiple 3P EOB
BATCH	; EP ; EP - Select Collection Batch
FRPBATCH	; ; Look up Flate Rate Posting entry
ITEM	; EP ; EP - Select Batch Item Number
EXIT	; EP ; EP - Exit, kill local variables
FAC	; EP ; Select visit location only if Multiple 3P EOB site parameter ; is set to yes.

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BATCH+2
Function Call: WRITE	Prompt: ! Line Location: ITEM+2
Function Call: WRITE	Prompt: ! Line Location: FAC+4
Routine Call	DIC Line Location: FRPBATCH+8 BATCH+13 ITEM+12 FAC+13
Routine Call	DIR Line Location: NEWFRP+6

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052.06	SELITEM+5

Name	Line Occurrences
BATCH	EN+10
EXIT	EN+8, EN+10, SELITEM+3, SELITEM+29, SELITEM+31, SELITEM+34
FAC	SELITEM+6
FRPBATCH	EN+7
ITEM	SELITEM+2
NEWFRP	FRPBATCH+10, FRPBATCH+12
SELITEM	SELITEM+32

Name	Field # of Occurrence
>> BARADJ	SELITEM+10, SELITEM+21, SELITEM+31
>> BARBATCH	EN+10, BATCH+4, BATCH+15, BATCH+17*
>> BARBNM	FRPBATCH+16, BATCH+18
>> BARCOL	FRPBATCH+11, FRPBATCH+12, BATCH+16, BATCH+17, BATCH+19, ITEM+4, FAC+6
BAREOB	SELITEM+7, SELITEM+16, FAC+3!
>> BARESIG	EN+3, EN+5
>> BARFAC	SELITEM+6, SELITEM+31, FAC+5, FAC+15
>> BARFIEN	SELITEM+32
>> BARGL	FAC+8, FAC+9
>> BARIEN	EN+10, FRPBATCH+13*, FRPBATCH+16
>> BARINM	ITEM+16*
>> BARITEM	SELITEM+3, ITEM+3, ITEM+14
>> BARITM	FRPBATCH+14, ITEM+9, ITEM+15, ITEM+17, FAC+7
>> BARNAME	FRPBATCH+15*
>> BARNEW	EN+8, NEWFRP+7, NEWFRP+8
>> BARNONE	SELITEM+12, SELITEM+23
>> BARPA	SELITEM+9, SELITEM+20
>> BARPAY	SELITEM+10, SELITEM+21, SELITEM+31
>> BARUSR	EN+6
>> DA(1	ITEM+4, ITEM+5, FAC+7
>> DA(2	FAC+6*
DIC	FRPBATCH+2!, FRPBATCH+3, BATCH+3!, BATCH+5, BATCH+14!, ITEM+5, ITEM+13!, FAC+9, FAC+14!
DIC("A"	FRPBATCH+5, BATCH+7, ITEM+8, FAC+12
DIC("B"	ITEM+9*
DIC("S"	FRPBATCH+7, BATCH+10, ITEM+11*
DIC("W"	BATCH+12, ITEM+7, FAC+11*
DIC(0	FRPBATCH+4, BATCH+6, ITEM+6, FAC+10
DIR	NEWFRP+2!
DIR("A"	NEWFRP+4*
DIR("B"	NEWFRP+5*
DIR(0	NEWFRP+3*
DUZ	SELITEM+19, SELITEM+26, SELITEM+29
DUZ(2	SELITEM+5, SELITEM+16
U	SELITEM+5, FRPBATCH+11, FRPBATCH+14, BATCH+18, ITEM+16
>> UFMSESID	SELITEM+19, SELITEM+26, SELITEM+29
>> X1	EN+4
>> Y	SELITEM+7, FRPBATCH+10, FRPBATCH+13, NEWFRP+7, BATCH+15, BATCH+16, ITEM+14, ITEM+15, FAC+15
>> Y(0	FRPBATCH+11, FRPBATCH+14, FRPBATCH+15, BATCH+18, ITEM+16