Routine: BARFPST1

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR
IHS Accounts Receivable	1	($$IHS,$$NOTOPEN)^BARUFUT
IHS VA Utilities	1	$$VAL^XBDIQ1

Package	Total	Caller Graph
IHS Accounts Receivable	4	BARBAD4 BARFPST BARFPST5 BARPST4

Entry Points

Name	Comments	DBIA/ICR reference
PAYADJD	; EP ; EP - Display payment/adjustment in FRP file
WARN(MSG)	;EP; NEW NEGATIVE BALANCE MESSAGE ;MRS:BAR1.86 DD 4.2.5
ADJCAT	; ; Select Adjustment Category from 90052.01
ADJLIST	; ; Help for "ADJUSTMENT AMOUNT:" ; List Adjustment array of Amount, Category, Type
PAYADJA	; ; Build Adjustment array from FRP file
PAYADJ	; EP ; EP - Ask user for Payment and/or Adjustments.
STOP	;EP;NEW FUNCTIONALITY TO PREVENT PAYMENT REVERSALS ;MRS:BAR1.810 D158-3
ADJTYP	; ; Select Adjustment Tye from 90052.02
PACOMHLP	; ; Help for "Select command (P/A/Q)"
PACOM	; ; Select Command for Payment and/or Adjustments.
PAYMNT	; ; Enter Flat Rate Posting Payment
ADJAMT	; ; Enter Flat Rate Posting Adjustments
PAYGNEG	; ; Check to see that changing payment won't result in negative balance
PAYADJQ	; ; Display Payments and Adjustments

External References

Name	Field # of Occurrence
$$IHS^BARUFUT	PAYMNT+11, WARN+1
$$NOTOPEN^BARUFUT	PAYADJD+8, PAYADJ+3
^DIC	ADJCAT+10, ADJTYP+10
^DIR	PAYADJ+34, PACOM+9, PAYMNT+8, ADJAMT+9
$$VAL^XBDIQ1	PAYADJD+4, PAYADJA+9, PAYADJA+12, PAYGNEG+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?4,"PAYMENT:",?15,BARPAY Line Location: PAYADJQ+3
Function Call: WRITE	Prompt: !!,"No Payments entered." Line Location: PAYADJQ+4
Function Call: WRITE	Prompt: !!,"ADJUSTMENTS:" Line Location: PAYADJQ+6
Function Call: WRITE	Prompt: ?15,+BARADJ(J),?30,$P(BARADJ(J),U,3),?50,$P(BARADJ(J),U,5),! Line Location: PAYADJQ+9
Function Call: WRITE	Prompt: !!,"No Adjustments entered." Line Location: PAYADJQ+11
Function Call: WRITE	Prompt: !!,"This is a required response.",! Line Location: PAYADJ+6
Function Call: WRITE	Prompt: !?+5,$J($P(BARADJ(I),U),9,2),?20,$P(BARADJ(I),U,3),?40,$P(BARADJ(I),U,5)_" already exists." Line Location: PAYADJ+29
Function Call: WRITE	Prompt: ! Line Location: PACOM+2
Function Call: WRITE	Prompt: ! Line Location: PACOM+14
Function Call: WRITE	Prompt: !,"Enter a code from the list." Line Location: PACOMHLP+2
Function Call: WRITE	Prompt: !!?5,"Select one of the following:" Line Location: PACOMHLP+3
Function Call: WRITE	Prompt: !!?10,"P or 1",?20,"PAYMENT" Line Location: PACOMHLP+4
Function Call: WRITE	Prompt: !?10,"A or 2",?20,"ADJUSTMENT" Line Location: PACOMHLP+5
Function Call: WRITE	Prompt: !?10,"Q or 3",?20,"QUIT" Line Location: PACOMHLP+6
Function Call: WRITE	Prompt: ! Line Location: PAYMNT+3
Function Call: WRITE	Prompt: ! Line Location: ADJAMT+3
Function Call: WRITE	Prompt: !,"No adjustments entered, Please enter a dollar amount." Line Location: ADJLIST+3
Function Call: WRITE	Prompt: !,"Adjustments already entered follows: ",! Line Location: ADJLIST+4
Function Call: WRITE	Prompt: !?5,+BARADJ(J),?20,$P(BARADJ(J),U,3),?40,$P(BARADJ(J),U,5) Line Location: ADJLIST+7
Function Call: WRITE	Prompt: !!,"Please enter a dollar amount." Line Location: ADJLIST+8
Function Call: WRITE	Prompt: *7 Line Location: ADJCAT+13
Function Call: WRITE	Prompt: *7 Line Location: ADJTYP+13
Function Call: WRITE	Prompt: !?10,"WARNING: PAYMENT AMOUNT EXCEEDS "_MSG_" BALANCE AMOUNT" Line Location: WARN+5
Function Call: WRITE	Prompt: !?24,"PLEASE ENTER A VALID VALUE" Line Location: WARN+6
Function Call: WRITE	Prompt: !?10,"PAYMENT REVERSALS ARE NO LONGER ALLOWED" Line Location: STOP+2
Function Call: WRITE	Prompt: !?24,"PLEASE USE PAYMENT CREDIT ADJUSTMENTS" Line Location: STOP+3
Routine Call	DIC Line Location: ADJCAT+10 ADJTYP+10
Routine Call	DIR Line Location: PAYADJ+34 PACOM+9 PAYMNT+8 ADJAMT+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARFRP(	PAYADJA+3, PAYADJA+5, PAYGNEG+3, PAYGNEG+4, PAYGNEG+6
^BARTBL - [#90052.02]	PAYADJ+21
^BARTBL("D"	PAYADJ+16

Label References

Name	Line Occurrences
ADJAMT	PAYADJ+12
ADJCAT	PAYADJ+13
ADJTYP	PAYADJ+22
PACOM	PAYADJ+5
PACOMHLP	PACOM+15
PAYADJ	PAYADJ+6
PAYADJA	PAYADJD+5
PAYADJQ	PAYADJD+6, PAYADJ+7
PAYGNEG	PAYMNT+17
PAYMNT	PAYADJ+8, PAYMNT+18
STOP	PAYMNT+11
WARN	PAYMNT+15, PAYMNT+16, PAYGNEG+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BARACAT	PAYADJ+9, PAYADJ+10, PAYADJ+13, ADJCAT+3, ADJCAT+14
>> BARACNT	PAYADJD+2, PAYADJA+3, PAYADJA+4, PAYADJA+5, PAYADJA+6, PAYADJA+7, PAYADJA+9, PAYADJA+10, PAYADJA+12, PAYADJA+13* , PAYADJ+38*, PAYADJ+39
>> BARAD	PAYADJ+9, PAYADJ+10, PAYADJ+12, ADJAMT+2, ADJAMT+11
>> BARADJ	PAYADJQ+5, ADJLIST+3
>> BARADJ(	PAYADJA+6, PAYADJA+7, PAYADJA+9, PAYADJA+10, PAYADJA+12, PAYADJQ+8, PAYADJQ+9, PAYADJQ+10, PAYADJ+26, PAYADJ+27 , PAYADJ+29, PAYADJ+36!, PAYADJ+39, ADJLIST+6, ADJLIST+7
>> BARADJT	PAYADJQ+2, PAYADJQ+10
BARAPST	PAYGNEG+2~, PAYGNEG+9*, PAYGNEG+10
>> BARATYP	PAYADJ+9, PAYADJ+10, PAYADJ+19, PAYADJ+22, ADJTYP+2, ADJTYP+15*
BARBAL	PAYGNEG+2~, PAYGNEG+10*, PAYGNEG+11
>> BARBIEN	PAYGNEG+5, PAYGNEG+6
>> BARCL(17	PAYMNT+16
>> BARCLIT(19	PAYMNT+15
>> BARCOM	PAYADJ+6, PACOM+3, PACOM+11, PACOM+16*
>> BAREOB	PAYGNEG+3, PAYGNEG+4
>> BARFACT	PAYGNEG+4*, PAYGNEG+6
>> BARFR0	PAYADJA+5*, PAYADJA+6, PAYADJA+7, PAYADJA+9, PAYADJA+10, PAYADJA+12
>> BARIEN	PAYADJD+3, PAYADJD+4, PAYADJA+3, PAYADJA+5, PAYMNT+14, PAYMNT+17, PAYGNEG+3, PAYGNEG+4, PAYGNEG+6, PAYGNEG+7
>> BARJ	PAYADJ+15, PAYADJ+16, PAYADJ+17, PAYADJ+18, PAYADJ+22
BARNPAY	PAYMNT+13*, PAYMNT+15, PAYMNT+16, PAYMNT+18, PAYMNT+19, PAYGNEG+9, WARN+7!, STOP+4!
>> BARPA	PAYADJ+7, PAYADJ+8, PAYADJ+9, PACOM+12*, PACOM+13
BARPAMT	PAYGNEG+2~, PAYGNEG+7*, PAYGNEG+10
>> BARPAY	PAYADJD+4, PAYADJQ+3, PAYMNT+7, PAYMNT+19
>> BARPY	PAYADJ+8, PAYMNT+2, PAYMNT+10, PAYMNT+11*
BARSAMT	PAYADJ+4!, PAYADJ+11!, PAYADJ+39, ADJAMT+12*
BARSCAT	PAYADJ+4!, PAYADJ+11!, PAYADJ+16, PAYADJ+23, PAYADJ+39, ADJCAT+15!, ADJCAT+16*
BARSCAT2	PAYADJ+4!, PAYADJ+11!, PAYADJ+39, ADJCAT+15!, ADJCAT+17*
BARSTYP	PAYADJ+4!, PAYADJ+11!, PAYADJ+20, PAYADJ+21, PAYADJ+23, PAYADJ+39, ADJTYP+14!, ADJTYP+16
BARSTYP2	PAYADJ+4!, PAYADJ+11!, PAYADJ+21, PAYADJ+39, ADJTYP+14!, ADJTYP+17
BARTMP	PAYADJA+2~, PAYADJA+4, PAYADJA+13, PAYADJ+23, PAYADJ+28
>> BARTMP2	PAYADJ+27*, PAYADJ+28
>> BARX	PAYADJ+15, PAYADJ+16, PAYADJ+20
DIC	ADJCAT+4!, ADJCAT+5, ADJCAT+11!, ADJTYP+4!, ADJTYP+5, ADJTYP+11!
DIC("A"	ADJCAT+7, ADJTYP+7
DIC("S"	ADJCAT+9, ADJTYP+9
DIC(0	ADJCAT+6, ADJTYP+6
DIR	PAYADJ+30!, PACOM+4!, PACOM+10!, PAYMNT+4!, PAYMNT+9!, ADJAMT+4!, ADJAMT+10!
DIR("?"	PACOM+7*
DIR("??"	PACOM+8, ADJAMT+8
DIR("A"	PAYADJ+32, PACOM+6, PAYMNT+6, ADJAMT+6
DIR("B"	PAYADJ+33, PAYMNT+7
DIR(0	PAYADJ+31, PACOM+5, PAYMNT+5, ADJAMT+5
>> DUOUT	PACOM+11, PAYMNT+10, ADJAMT+11
DUZ	PAYADJD+8, PAYADJ+3
DUZ(2	PAYADJA+3, PAYADJA+5, PAYMNT+11, PAYGNEG+3, PAYGNEG+4, PAYGNEG+6, WARN+1
I	PAYADJ+25, PAYADJ+26, PAYADJ+27, PAYADJ+29, PAYADJ+36, ADJCAT+2~, ADJTYP+3~
>> J	PAYADJQ+7, PAYADJQ+8, PAYADJQ+9, PAYADJQ+10, PAYGNEG+5, PAYGNEG+6, PAYGNEG+8, PAYGNEG+9, ADJLIST+5, ADJLIST+6* , ADJLIST+7
MSG	WARN~, WARN+5
U	PAYADJA+6, PAYADJA+7, PAYADJA+9, PAYADJA+10, PAYADJA+12, PAYADJQ+9, PAYADJQ+10, PAYADJ+21, PAYADJ+27, PAYADJ+29 , PAYADJ+39, ADJLIST+7, ADJCAT+17, ADJTYP+17
>> UFMSESID	PAYADJD+8, PAYADJ+3
>> Y	PAYADJ+35, PACOM+11, PACOM+12, PAYMNT+10, PAYMNT+11, PAYMNT+13, ADJAMT+11, ADJAMT+12, ADJCAT+12, ADJCAT+16 , ADJCAT+17, ADJTYP+12, ADJTYP+16, ADJTYP+17

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARFPST1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: