Routine: BARFPST2

Information

BARFPST2 ; IHS/SD/LSL - A/R FLAT RATE POSTING (CONT) ;

Source Information

Source file <BARFPST2.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC FILE^DICN ^DIE ^DIK
IHS VA Utilities	1	$$VAL^XBDIQ1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Accounts Receivable	1	BARFPST

Entry Points

Name	Comments	DBIA/ICR reference
DOC	; ; LSL - 12/31/1999 - Created routine ; Contains code for saving data to A/R FLAT RATE POSTING File
ADJDAT	; ; Enter data in Adjustments multiple of A/R FLATE RATE POSTING File ; Kill current Adjustments multiple in A/R FLAT RATE POSTING File
FACDAT	; ; Enter facility data
TOT(X)	; EP ; EP - Computed field ITEM BALANCE ; X = FRP Batch IEN
CORDAT	; ; Enter data in A/R FLAT RATE POSTING File that doesn't go in a mult
BARSAV	; EP ; EP - Save data in A/R FLAT RATE POSTING File
NEWENTRY	; ; Create new entry in A/R FLAT RATE POSTING File ; Build BARNAME
FACTOT(X,Y)

External References

Name	Field # of Occurrence
NOW^%DTC	BARSAV+3
FILE^DICN	NEWENTRY+12, ADJDAT+21, FACDAT+12
^DIE	CORDAT+12
^DIK	ADJDAT+8
$$VAL^XBDIQ1	BARSAV+2, BARSAV+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7 Line Location: NEWENTRY+15
Function Call: WRITE	Prompt: !!,"Entry in A/R FLAT RATE POSTING File was not created." Line Location: NEWENTRY+16
Function Call: WRITE	Prompt: !,"Contact your supervisor." Line Location: NEWENTRY+17
Routine Call	DIE Line Location: CORDAT+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARFRP(	ADJDAT+6, FACDAT+2, FACDAT+14, TOT+4, TOT+6, TOT+8, FACTOT+7, FACTOT+9
^DD("DD"	NEWENTRY+3
^DD(90054.01	ADJDAT+16, FACDAT+8
^DIC(90054.01	NEWENTRY+9

Label References

Name	Line Occurrences
ADJDAT	BARSAV+10
CORDAT	BARSAV+9
FACDAT	BARSAV+11
NEWENTRY	BARSAV+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BARSAV+4
>> BARADJ	BARSAV+10
>> BARADJ(	ADJDAT+10, ADJDAT+11, ADJDAT+12, ADJDAT+13
>> BARCNT	TOT+3, TOT+7, TOT+9, FACTOT+4, FACTOT+8, FACTOT+10
>> BARCOL	CORDAT+6
>> BARDT	BARSAV+4*, NEWENTRY+3, CORDAT+5
>> BARENTF	FACDAT+2*, FACDAT+4
>> BAREOB	FACDAT+2, FACDAT+10, FACDAT+14
>> BARFIEN	FACDAT+13, FACDAT+14
>> BARFRPC	BARSAV+2*, NEWENTRY+4
>> BARFTOT	FACTOT+10*, FACTOT+11
>> BARIEN	BARSAV+7, NEWENTRY+19*, CORDAT+4, ADJDAT+3, ADJDAT+15, FACDAT+2, FACDAT+6, FACDAT+7, FACDAT+14
>> BARITM	CORDAT+7
>> BARNAME	NEWENTRY+4*, NEWENTRY+10
>> BARNONE	BARSAV+8, NEWENTRY+18*
>> BARPAMNT	TOT+8, TOT+9, FACTOT+9, FACTOT+10
>> BARPAMT	BARSAV+6*, CORDAT+11
>> BARPAY	CORDAT+10
>> BARSAMT	ADJDAT+13*, ADJDAT+18
>> BARSCAT	ADJDAT+11*, ADJDAT+19
>> BARSTYP	ADJDAT+12*, ADJDAT+18
>> BARTOT	TOT+9*, TOT+10
DA	CORDAT+2!, CORDAT+4, ADJDAT+7
DA(1	ADJDAT+3, ADJDAT+4, ADJDAT+6, FACDAT+6
DD	NEWENTRY+11!, ADJDAT+20!, FACDAT+11!
DIC	NEWENTRY+6!, NEWENTRY+7, NEWENTRY+13!, ADJDAT+14!, ADJDAT+15, FACDAT+5!, FACDAT+7*
DIC("DR"	ADJDAT+18*
DIC("P"	NEWENTRY+9, ADJDAT+16, FACDAT+8*
DIC(0	NEWENTRY+8, ADJDAT+17, FACDAT+9*
DIE	CORDAT+2!, CORDAT+3*
>> DIK	ADJDAT+4*
DO	NEWENTRY+11!, ADJDAT+20!, FACDAT+11!
DR	CORDAT+2!, CORDAT+5, CORDAT+6, CORDAT+7, CORDAT+8, CORDAT+9, CORDAT+10, CORDAT+11*
DUZ	BARSAV+2, CORDAT+8
DUZ(2	CORDAT+9, ADJDAT+6, FACDAT+2, FACDAT+14, TOT+4, TOT+6, TOT+8, FACTOT+7, FACTOT+9
I	ADJDAT+5, ADJDAT+6, ADJDAT+7, ADJDAT+9, ADJDAT+10, ADJDAT+11, ADJDAT+12, ADJDAT+13, TOT+3, TOT+4 , TOT+6, FACTOT+5~, FACTOT+6, FACTOT+7
>> J	TOT+5, TOT+6
U	NEWENTRY+9, ADJDAT+11, ADJDAT+12, ADJDAT+13, ADJDAT+16, FACDAT+8, TOT+8, FACTOT+9
X	NEWENTRY+10, ADJDAT+19, FACDAT+10*, TOT~, TOT+4, TOT+6, TOT+8, FACTOT~, FACTOT+7, FACTOT+9
Y	NEWENTRY+3*, NEWENTRY+4, NEWENTRY+14, NEWENTRY+19, FACDAT+13, FACTOT~, FACTOT+7

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARFPST2

Call Graph Total: 5

Caller Graph Total: 1