Routine: BARPST3A

Package	Total	Call Graph
IHS Accounts Receivable	5	HIT1^BARPST2 CKNEG^BARPST4 $$IHS^BARUFUT EOP^BARUTL $$EN^BARVDF
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Accounts Receivable	3	BARPNP3 BARPST3 BARPUC4

Entry Points

Name	Comments	DBIA/ICR reference
HELP	;
B1O	;
SETTMPO(BARTYP,BARAMT,BARLIN,BARCAT,BARATYP,BAROAMT)	;EP - store & check amounts;ORIGINAL CODE;BAR1.84
B1	;
SETTMP(BARTYP,BARAMT,BARLIN,BARCAT,BARATYP,BAROAMT)	;EP - store & check amounts; HEAVILY MODIFIED;BAR1.84 DD 4.1.7.2
WARN(BARLVL,BARDIF)

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF"),!! Line Location: HELP+1
Function Call: WRITE	Prompt: "Select one of the following: ",! Line Location: HELP+2
Function Call: WRITE	Prompt: !?5,"P - Post transactions to A/R." Line Location: HELP+3
Function Call: WRITE	Prompt: !?5,"M - More transaction processing." Line Location: HELP+4
Function Call: WRITE	Prompt: !?5,"C - Cancel all transactions and start over." Line Location: HELP+5
Function Call: WRITE	Prompt: !!,"This is a required response - Please select one to proceed!" Line Location: HELP+6
Function Call: WRITE	Prompt: ! Line Location: WARN+3
Function Call: WRITE	Prompt: *7,!,"Warning - Posted amount exceeds the " Line Location: WARN+4
Function Call: WRITE	Prompt: $S(BARLVL=1:"BATCH",BARLVL=2:"ITEM",BARLVL=3:"LOCATION",1:"BILL")_" balance" Line Location: WARN+5
Function Call: WRITE	Prompt: " by "_BARDIF_" amount" Line Location: WARN+6
Routine Call	DIR Line Location: B1O+13

Name	Line Occurrences (* Changed, ! Killed)
^BARTMP($J	SETTMP+4, B1+1, B1+7, B1+10, B1+13, SETTMPO+3, B1O+1, B1O+16, B1O+20, B1O+22

Name	Line Occurrences
WARN	B1O+3, B1O+4, B1O+5, B1O+6, B1O+19

Name	Field # of Occurrence
>> BARADJ	B1+11, B1O+21
BARAMT	SETTMP~, B1+4, B1+7, B1+8, B1+10, B1+11, B1+13, B1+16, SETTMPO~, B1O+3 , B1O+4, B1O+5, B1O+6, B1O+16, B1O+17, B1O+19, B1O+20, B1O+21, B1O+22, B1O+25
BARATYP	SETTMP~, B1+16, SETTMPO~, B1O+25
BARBBAL	B1+1, B1+3, B1+4, B1+17!, B1O+1*, B1O+3, B1O+19
BARCAT	SETTMP~, B1+2, B1+12, B1+16, SETTMPO~, B1O+22, B1O+25
>> BARCLV(17	B1O+6
>> BARDA	SETTMP+4, SETTMP+5, B1+1, B1+7, B1+10, B1+13, SETTMPO+3, SETTMPO+4, B1O+1, B1O+16 , B1O+20, B1O+22
BARDIF	WARN~, WARN+6
>> BAREOB	B1O+4
>> BAREOV(4	B1O+4
>> BARFLG("BARWARN"	SETTMP+2!, WARN+1!, WARN+3, WARN+7*, SETTMPO+1!, B1O+7, B1O+8!
>> BARITV(19	B1O+5
>> BARJ	B1+14, B1+15, B1+16, B1O+23, B1O+24, B1O+25
BARLIN	SETTMP~, SETTMP+4, B1+1, B1+7, B1+10, B1+13, B1+14, B1+16, SETTMPO~, SETTMPO+3 , B1O+1, B1O+16, B1O+20, B1O+22, B1O+23, B1O+25
BARLVL	WARN~, WARN+1, WARN+5
BAROAMT	SETTMP~, B1+3, B1+4, B1+17!, SETTMPO~
>> BARPASS	HELP+8
>> BARPMT	B1+8, B1O+4, B1O+5, B1O+6, B1O+17
>> BARSTOP	SETTMP+3, B1+5, B1+6, B1+9, SETTMPO+2, B1O+2, B1O+7, B1O+15*, B1O+18
>> BARTR(	B1+14, B1+16, B1O+23, B1O+25
BARTYP	SETTMP~, B1+6, B1+9, B1+16, SETTMPO~, B1O+2, B1O+18, B1O+25
DIR	B1O+9!, B1O+14!
DIR("A"	B1O+11*
DIR("B"	B1O+12*
DIR(0	B1O+10*
DUZ(2	WARN+1
>> REVERSAL	B1+16, B1O+25
>> REVSCHED	B1+16, B1O+25
U	B1+1, B1+7, B1+10, B1+13, B1+16, B1O+1, B1O+16, B1O+20, B1O+22, B1O+25
>> Y	B1O+15